Changeset 15872 for gsdl/trunk/perllib/plugins/LaTeXPlugin.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/LaTeXPlugin.pm (modified) (7 diffs)

gsdl/trunk/perllib/plugins/LaTeXPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# LaTeXPlug.pm
+# LaTeXPlugin.pm
 #
 # A component of the Greenstone digital library software
@@ -26 +26 @@
 #  parse/remove tex \if ... macros
 
-package LaTeXPlug;
+package LaTeXPlugin;
 
 # System complains about $arguments if the strict is set
@@ -33 +33 @@
 
 # greenstone packages
-use BasPlug;
+use ReadTextFile;
 use unicode;
 use util;
@@ -39 +39 @@
 my $arguments =
     [ { 'name' => "process_exp",
-    'desc' => "{BasPlug.process_exp}",
+    'desc' => "{ReadTextFile.process_exp}",
     'type' => "regexp",
     'reqd' => "no",
     'deft' => &get_default_process_exp() } ];
 
-my $options = { 'name'     => 'LaTeXPlug',
-        'desc'     => '{LaTeXPlug.desc}',
+my $options = { 'name'     => 'LaTeXPlugin',
+        'desc'     => '{LaTeXPlugin.desc}',
         'abstract' => 'no',
         'inherits' => 'yes',
@@ -51 +51 @@
 
 sub BEGIN {
-    @LaTeXPlug::ISA = ('BasPlug');
-}
-
-sub print_usage {
-    print STDERR "\n  usage: plugin LaTeXPlug [options]\n\n";
+    @LaTeXPlugin::ISA = ('ReadTextFile');
 }
 
@@ -63 +59 @@
     push(@$pluginlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = new BasPlug($pluginlist, $inputargs, $hashArgOptLists);
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists);
 
     $self->{'aux_files'} = {};
@@ -99 +95 @@
     my $outhandle = $self->{'outhandle'};
     if ($gli) {
-    print STDERR "<Processing n='$file' p='LaTeXPlug'>\n";
+    print STDERR "<Processing n='$file' p='LaTeXPlugin'>\n";
     } elsif ($self->{'verbosity'} > 1) {
-    print $outhandle "LaTeXPlug: processing $file\n" 
+    print $outhandle "LaTeXPlugin: processing $file\n" 
     }
     my $cursection = $doc_obj->get_top_section();