Changeset 10620

Timestamp:

2005-09-22T17:03:15+12:00 (18 years ago)

Author:

kjdon

Message:

now prints out some gli tags when bad args are encountered for plugins and classifiers ($gli not set here, so just printed them always). Also, for BasPlug, set up the encoding values outside of new(), otherwise the list gets added in multiple times

Location:

trunk/gsdl/perllib

Files:

• classify/BasClas.pm (modified) (1 diff)
• parse2.pm (modified) (2 diffs)
• plugins/BasPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -254 +254 @@
     #print out the text usage of this classifier. 
     my $classTempClass = bless $self, $class;
+    print STDERR "<BadClassifier c=$classifier_name>\n";
+
     &gsprintf(STDERR, "\n{BasClas.bad_general_option}\n", $classifier_name);
     $classTempClass->print_txt_usage("");  # Use default resource bundle

trunk/gsdl/perllib/parse2.pm

@@ -237 +237 @@
         # Process this argument and store the related 
         # information in %hashInputArg
-        if(processArg($hashArg{$strOneArg},$aryptUserArguList,\%hashInputArg) == 0){ return 0;}
+        if(processArg($hashArg{$strOneArg},$aryptUserArguList,\%hashInputArg) == 0){ 
+            print STDERR "<BadArgumentValue a=$strOneArg>\n";
+            return 0;}
         }
         
@@ -250 +252 @@
         else
         {
+            print STDERR "<BadArgument a=$strOneArg>\n";
             print STDERR " Error: occur in parse2.pm::parse()\n Extra Arguments: $strOneArg\n";
             return 0;

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -72 +72 @@
     [ { 'name' => "auto",
     'desc' => "{BasPlug.input_encoding.auto}" } ];
+
+my $e = $encodings::encodings;
+foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) 
+{
+    my $hashEncode =
+    {'name' => $enc,
+     'desc' => $e->{$enc}->{'name'}};
+    
+    push(@{$unicode_list},$hashEncode);
+}
+
+push(@{$auto_unicode_list},@{$unicode_list});
 
 my $arguments =
@@ -355 +367 @@
     # Set Encodings to the list!!
 
-    my $e = $encodings::encodings;
-    foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) 
-    {
-    my $hashEncode =
-        {'name' => $enc,
-         'desc' => $e->{$enc}->{'name'}};
-
-    push(@{$unicode_list},$hashEncode);
-    }
-
-    push(@{$auto_unicode_list},@{$unicode_list});
 
     # Start the BasPlug Constructor
@@ -399 +400 @@
     {
     my $classTempClass = bless $self, $class;
+    print STDERR "<BadPlugin p=$plugin_name>\n";
     &gsprintf(STDERR, "\n{BasPlug.bad_general_option}\n", $plugin_name);
     $classTempClass->print_txt_usage("");  # Use default resource bundle