Changeset 4779

Timestamp:

2003-06-24T13:15:11+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up the code for displaying usage text.

Location:

trunk/gsdl/bin/script

Files:

• classinfo.pl (modified) (2 diffs)
• pluginfo.pl (modified) (1 diff)

trunk/gsdl/bin/script/classinfo.pl

@@ -83 +83 @@
     my $classobj = shift @$classinfo;
 
-    if ($xml)
-    {
+    if ($xml) {
         $classobj->print_xml_usage();
     }
-    else 
-    {
+    else {
     print STDERR "
 $classifier info:
@@ -103 +101 @@
     print STDERR "General options are inherited from parent classes of the classifer.\n\n";
 
-# General options are defined within the base class (BasClas.pm) and are
-# inherited by any classifier that has been correctly derived from BasClas.
-
-# 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);
+    $classobj->print_txt_usage();
     }
 }

trunk/gsdl/bin/script/pluginfo.pl

@@ -104 +104 @@
 
     print STDERR "General options are inherited from parent classes of the plugin.\n\n";
-#   print STDERR "General options are defined within the base class (BasPlug.pm) and are\n";
-#   print STDERR "inherited by any plugin that has been correctly derived from BasPlug.\n\n";
 
-#   print STDERR "$plugin takes the following specific options:\n";
-    # $plugobj->print_usage();
-    $plugobj->new_print_usage();
-
-#   print STDERR "$plugin takes the following general options:\n";
-#   &BasPlug::print_general_usage($plugin);
+    $plugobj->print_txt_usage();
 
 #   print STDERR " The default process_exp for $plugin is: ";