Changeset 6932

Timestamp:

2004-03-05T10:37:38+13:00 (20 years ago)

Author:

kjdon

Message:

changed the output slightly, and now outputs the classifier/plugin description

Location:

trunk/gsdl

Files:

• bin/script/classinfo.pl (modified) (1 diff)
• bin/script/pluginfo.pl (modified) (1 diff)
• perllib/classify/BasClas.pm (modified) (1 diff)
• perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/bin/script/classinfo.pl

@@ -125 +125 @@
     }
     else {
-    &gsprintf(STDERR, "\n$classifier {classinfo.info}:\n\n");
-    &gsprintf(STDERR, "{classinfo.passing_options}\n\n");
+    &gsprintf(STDERR, "\n{classinfo.passing_options}\n\n");
     &gsprintf(STDERR, "{classinfo.option_types}:\n\n");
     &gsprintf(STDERR, "{classinfo.specific_options}\n\n");
     &gsprintf(STDERR, "{classinfo.general_options}\n\n");
+    &gsprintf(STDERR, "$classifier {classinfo.info}:\n\n");
 
     $classobj->print_txt_usage();

trunk/gsdl/bin/script/pluginfo.pl

@@ -106 +106 @@
     }
     else {
-    &gsprintf(STDERR, "\n$plugin {pluginfo.info}:\n\n");
-    &gsprintf(STDERR, "{pluginfo.passing_options}\n\n");
+    &gsprintf(STDERR, "\n{pluginfo.passing_options}\n\n");
     &gsprintf(STDERR, "{pluginfo.option_types}:\n\n");
     &gsprintf(STDERR, "{pluginfo.specific_options}\n\n");
     &gsprintf(STDERR, "{pluginfo.general_options}\n\n");
+    &gsprintf(STDERR, "$plugin {pluginfo.info}:\n\n");
 
     $plugobj->print_txt_usage();

trunk/gsdl/perllib/classify/BasClas.pm

@@ -175 +175 @@
     local $classifiername = $classifieroptions->{'name'};
     local $classifierargs = $classifieroptions->{'args'};
-
+    local $classifierdesc = $classifieroptions->{'desc'};
     # Produce the usage information using the data structure above
     if ($isleafclass) {
+    if (defined($classifierdesc)) {
+        &gsprintf(STDERR, "$classifierdesc\n\n");
+    }
     &gsprintf(STDERR, " {common.usage}: classify $classifiername [{common.options}]\n\n");
+    
     }
 

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -237 +237 @@
     local $pluginname = $pluginoptions->{'name'};
     local $pluginargs = $pluginoptions->{'args'};
+    local $plugindesc = $pluginoptions->{'desc'};
 
     # Produce the usage information using the data structure above
     if ($isleafclass) {
+    if (defined($plugindesc)) {
+        &gsprintf(STDERR, "$plugindesc\n\n");
+    }
     &gsprintf(STDERR, " {common.usage}: plugin $pluginname [{common.options}]\n\n");
     }