Changeset 15872 for gsdl/trunk/perllib/plugins/BibTexPlugin.pm

Timestamp:

2008-06-05T09:29:32+12:00 (16 years ago)

Author:

kjdon

Message:

plugin overhaul: plugins renamed to xxPlugin, and in some cases the names are made more sensible. They now use the new base plugins. Hopefully we have better code reuse. Some of the plugins still need work done as I didn't want to spend another month doing this before committing it. Alos, I haven't really tested anything yet...

File:

• gsdl/trunk/perllib/plugins/BibTexPlugin.pm (modified) (12 diffs)

gsdl/trunk/perllib/plugins/BibTexPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# BibTexPlug.pm - a plugin for bibliography records in BibTex format
+# BibTexPlugin.pm - a plugin for bibliography records in BibTex format
 #
 # A component of the Greenstone digital library software
@@ -27 +27 @@
 
 
-# BibTexPlug reads bibliography files in BibTex format.
+# BibTexPlugin reads bibliography files in BibTex format.
 #
 # by Gordon W. Paynter ([email protected]), November 2000
 # Based on ReferPlug.  See ReferPlug for geneology.
 #
-# BibTexPlug creates a document object for every reference a the file.
-# It is a subclass of SplitPlug, so if there are multiple records, all
+# BibTexPlugin creates a document object for every reference a the file.
+# It is a subclass of SplitTextFile, so if there are multiple records, all
 # are read.
 #
@@ -42 +42 @@
 
 
-package BibTexPlug;
-
-use SplitPlug;
+package BibTexPlugin;
+
+use SplitTextFile;
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
 
-# BibTexPlug is a sub-class of BasPlug.
+# BibTexPlugin is a sub-class of SplitTextFile.
 sub BEGIN {
-    @BibTexPlug::ISA = ('SplitPlug');
+    @BibTexPlugin::ISA = ('SplitTextFile');
 }
 
 my $arguments = 
     [ { 'name' => "process_exp",
-    'desc' => "{BasPlug.process_exp}",
+    'desc' => "{BasePlugin.process_exp}",
     'type' => "regexp",
     'reqd' => "no",
     'deft' => &get_default_process_exp() },
       { 'name' => "split_exp",
-    'desc' => "{SplitPlug.split_exp}",
+    'desc' => "{SplitTextFile.split_exp}",
     'type' => "regexp",
     'deft' => &get_default_split_exp(),
@@ -66 +66 @@
       ];
 
-my $options = { 'name'     => "BibTexPlug",
-        'desc'     => "{BibTexPlug.desc}",
+my $options = { 'name'     => "BibTexPlugin",
+        'desc'     => "{BibTexPlugin.desc}",
         'abstract' => "no",
         'inherits' => "yes",
@@ -82 +82 @@
     return q^\n+(?=@)^;
 }
+
 sub new {
     my ($class) = shift (@_);
@@ -87 +88 @@
     push(@$pluginlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new SplitTextFile($pluginlist, $inputargs, $hashArgOptLists);
 
     return bless $self, $class;
@@ -115 +116 @@
 
     # Report that we're processing the file
-    print STDERR "<Processing n='$file' p='BibTexPlug'>\n" if ($gli);
-    print $outhandle "BibTexPlug: processing $file\n"
+    print STDERR "<Processing n='$file' p='BibTexPlugin'>\n" if ($gli);
+    print $outhandle "BibTexPlugin: processing $file\n"
     if ($self->{'verbosity'}) > 1;
 
@@ -312 +313 @@
             $vonlast=shift @parts;
             if (scalar(@parts) > 0) {
-            print $outhandle "BibTexPlug: couldn't parse name $a\n";
+            print $outhandle "BibTexPlugin: couldn't parse name $a\n";
             # but we continue anyway...
             }
@@ -331 +332 @@
             # some non-English names do start with lowercase
             # eg "Marie desJardins". Also we can get typos...
-            print $outhandle "BibTexPlug: couldn't parse surname $vonlast\n";
+            print $outhandle "BibTexPlugin: couldn't parse surname $vonlast\n";
             $von="";
             if ($vonlast =~ /^[a-z]+$/) {
@@ -724 +725 @@
         my $replacement=$utf8_chars{$tex};
         if (!defined($replacement)) {
-        print STDERR "BibTexPlug: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
+        print STDERR "BibTexPlugin: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
         $replacement=$char;
         }
@@ -737 +738 @@
         my $replacement=$special_utf8_chars{$tex};
         if (!defined($replacement)) {
-        print STDERR "BibTexPlug: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
+        print STDERR "BibTexPlugin: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
         $replacement=$tex;
         }
@@ -749 +750 @@
           my $replacement=$special_utf8_chars{$tex};
           if (!defined($replacement)) {
-          print STDERR "BibTexPlug: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
+          print STDERR "BibTexPlugin: Warning: unknown latex accent \"$tex\" in \"$text\"\n";
           $replacement=$char;
       }