Changeset 10218 for trunk/gsdl/perllib/plugins/LaTeXPlug.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

• trunk/gsdl/perllib/plugins/LaTeXPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/LaTeXPlug.pm

@@ -28 +28 @@
 package LaTeXPlug;
 
-use strict;
-no strict 'refs'; # so we can print to a handle named by a variable
+# System complains about $arguments if the strict is set
+#use strict;
+#no strict 'refs'; # so we can print to a handle named by a variable
 
 # greenstone packages
@@ -37 +38 @@
 use util;
 
+my $options={ 'name' => 'LaTeXPlug',
+          'desc' => '{LaTeXPlug.desc}',
+          'abstract' => 'no',
+          'inherits' => 'yes' };
 sub BEGIN {
     @LaTeXPlug::ISA = ('BasPlug');
@@ -46 +51 @@
 
 sub new {
-    my $class = shift (@_);
-    my $self = new BasPlug ($class, @_);
-    $self->{'plugin_type'} = 'LaTeXPlug';
-    my $option_list = $self->{'option_list'};
-    my $options={ 'name' => 'LaTeXPlug',
-          'desc' => '{LaTeXPlug.desc}',
-          'abstract' => 'no',
-          'inherits' => 'yes',
-          'args' => [
-                 ] # no arguments for now...
-                 };
-
-    push( @{$option_list}, $options );
-
-    if (!parsargv::parse(\@_, 
-             "allow_extra_options")) {
-
-    print STDERR "\nIncorrect options passed to LaTeXPlug, check your collect.cfg configuration file\n";
-    $self->print_txt_usage(""); # don't specify which language bundle
-    die "\n";
-    }
+    my ($class) = shift (@_);
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+
+    my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
 
     $self->{'aux_files'} = {};