Changeset 6110

Timestamp:

2003-12-03T11:58:46+13:00 (20 years ago)

Author:

jmt12

Message:

Added range setting

File:

• trunk/gsdl/perllib/printusage.pm (modified) (2 diffs)

trunk/gsdl/perllib/printusage.pm

@@ -37 +37 @@
     print STDERR "  <!ELEMENT Info      (Name, Desc, Arguments)>\n";
     print STDERR "  <!ELEMENT Arguments (Option*)>\n";
-    print STDERR "  <!ELEMENT Option    (Name, Desc, Type, Required, Default?, List?)>\n";
+    print STDERR "  <!ELEMENT Option    (Name, Desc, Type, Required, Range, Default?, List?)>\n";
     print STDERR "  <!ELEMENT Name      (#PCDATA)>\n";
     print STDERR "  <!ELEMENT Desc      (#PCDATA)>\n";
     print STDERR "  <!ELEMENT Type      (#PCDATA)>\n";
     print STDERR "  <!ELEMENT Required  (#PCDATA)>\n";
+    print STDERR "  <!ELEMENT Range     (#PCDATA)>\n";
     print STDERR "  <!ELEMENT Default   (#PCDATA)>\n";
     print STDERR "  <!ELEMENT List      (Value*)>\n";
@@ -71 +72 @@
     if (defined($option->{'reqd'})) {
         print STDERR "      <Required>$option->{'reqd'}</Required>\n";
+    }
+
+    # If the option has a range field, display this
+    if (defined($option->{'range'})) {
+        print STDERR "      <Range>$option->{'range'}</Range>\n";
     }