Changeset 10218 for trunk/gsdl/perllib/printusage.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/printusage.pm (modified) (3 diffs)

trunk/gsdl/perllib/printusage.pm

@@ -101 +101 @@
     }
 
+    # If the option has a charactor length field, display this
+    if (defined($option->{'char_length'})) {
+        &gsprintf(STDERR, "      <Charactor Length>$option->{'char_length'}</Charactor Length>\n");
+    }
+
     # If the option has a range field, display this
     if (defined($option->{'range'})) {
@@ -125 +130 @@
         }
 
-        # Special case for 'input_encoding'
-        if ($optionname =~ m/^input_encoding$/i) {
-        my $e = $encodings::encodings;
-        foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) {
-            &gsprintf(STDERR, "        <Value>\n");
-            &gsprintf(STDERR, "          <Name>$enc</Name>\n");
-            &gsprintf(STDERR, "          <Desc>$e->{$enc}->{'name'}</Desc>\n");
-            &gsprintf(STDERR, "        </Value>\n");
-        }
-        }
+#       # Special case for 'input_encoding'
+#       if ($optionname =~ m/^input_encoding$/i) {
+#       my $e = $encodings::encodings;
+#       foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) {
+#           &gsprintf(STDERR, "        <Value>\n");
+#           &gsprintf(STDERR, "          <Name>$enc</Name>\n");
+#           &gsprintf(STDERR, "          <Desc>$e->{$enc}->{'name'}</Desc>\n");
+#           &gsprintf(STDERR, "        </Value>\n");
+#       }
+#       }
 
         &gsprintf(STDERR, "      </List>\n");
@@ -246 +251 @@
     }
 
-    # Special case for 'input_encoding'
-    if ($optionname =~ m/^input_encoding$/i) {
-        my $e = $encodings::encodings;
-        foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) {
-        &gsprintf(STDERR, " " x $optiondescoffset);
-        &gsprintf(STDERR, "$enc:");
-
-        my $encodingdesc = $e->{$enc}->{'name'};
-        &display_text_in_column($encodingdesc, $optiondescoffset + 2,
-                    $optiondescoffset + length("$enc:"), 80);
-        }
-    }
+#   # Special case for 'input_encoding'
+#   if ($optionname =~ m/^input_encoding$/i) {
+#       my $e = $encodings::encodings;
+#       foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) {
+#       &gsprintf(STDERR, " " x $optiondescoffset);
+#       &gsprintf(STDERR, "$enc:");
+#
+#       my $encodingdesc = $e->{$enc}->{'name'};
+#       &display_text_in_column($encodingdesc, $optiondescoffset + 2,
+#                   $optiondescoffset + length("$enc:"), 80);
+#       }
+#   }
 
     # Add a blank line to separate options