Changeset 4762

Timestamp:

2003-06-23T14:31:57+12:00 (21 years ago)

Author:

mdewsnip

Message:

First cut at changing classinfo to use the data structures added to each classifier containing a description of their parameters. Classinfo now shows options all the way up the classifier hierarchy (not just the classifier and BasClass). The code for generating the usage text from the data structures is in BasClas.pm (and is copied from equivalent code in BasPlug.pm).

File:

• trunk/gsdl/bin/script/classinfo.pl (modified) (5 diffs)

trunk/gsdl/bin/script/classinfo.pl

@@ -48 +48 @@
     print STDERR "         first. If it doesn't find it there it will look in the general\n";
     print STDERR "         perllib/classify directory.\n\n";
-     print STDERR "   -xml                      Produces the information in an xml form, without\n";
-     print STDERR "                             'pretty' comments but with much more detail.\n";
+    print STDERR "   -xml                      Produces the information in an xml form, without\n";
+    print STDERR "                             'pretty' comments but with much more detail.\n";
 }
 
@@ -56 +56 @@
 sub main {
     my $collect = "";
-     my $xml = 0;
+    my $xml = 0;
 
     # Parse command line
     if (!parsargv::parse(\@ARGV, q^collect/.*/^, \$collect, q^xml^, \$xml )) 
-     {
-          &print_usage();
-          die "\n";
+    {
+    &print_usage();
+    die "\n";
     }
 
@@ -68 +68 @@
     my $classifier = shift (@ARGV);
     if (!defined $classifier || $classifier eq "") {
-          print STDERR "You must provide a classifier name\n";
-          &print_usage();
-          die "\n";
+    print STDERR "You must provide a classifier name\n";
+    &print_usage();
+    die "\n";
     }
 
     # make sure the classifier is loaded from the correct location - a hack.
     if ($collect ne "") {
-          $ENV{'GSDLCOLLECTDIR'} = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $collect);
+    $ENV{'GSDLCOLLECTDIR'} = &util::filename_cat ($ENV{'GSDLHOME'}, "collect", $collect);
     } else {
-          $ENV{'GSDLCOLLECTDIR'} = $ENV{'GSDLHOME'};
+    $ENV{'GSDLCOLLECTDIR'} = $ENV{'GSDLHOME'};
     }
-     
+ 
     my $classinfo = &classify::load_classifiers ([[$classifier]]);
     my $classobj = shift @$classinfo;
@@ -86 +86 @@
     {
         $classobj->print_xml_usage();
-     }
-     else 
-     {
-          print STDERR "
+    }
+    else 
+    {
+    print STDERR "
 $classifier info:
 
@@ -97 +97 @@
 Classifiers may take two types of options:
 
-General options are defined within the base class (BasClas.pm) and are
-inherited by any classifier that has been correctly derived from BasClas.
+";
+    print STDERR "Specific options are defined within the classifier itself, and are available\n";
+    print STDERR "only to this particular classifier.\n\n";
 
-Specific options are defined within the classifier itself and are available
-only to this particular classifier.
+    print STDERR "General options are inherited from parent classes of the classifer.\n\n";
 
-$classifier takes the following specific options:
-";
-          $classobj->print_usage();
+# General options are defined within the base class (BasClas.pm) and are
+# inherited by any classifier that has been correctly derived from BasClas.
 
-          print STDERR "$classifier takes the following general options
-";
-          &BasClas::print_general_usage($classifier);
-     }
+# Specific options are defined within the classifier itself and are available
+# only to this particular classifier.
+
+# $classifier takes the following specific options:
+# ";
+    # $classobj->print_usage();
+    $classobj->new_print_usage();
+
+#   print STDERR "$classifier takes the following general options
+# ";
+#   &BasClas::print_general_usage($classifier);
+    }
 }