Changeset 11686
- Timestamp:
- 2006-04-21T16:11:32+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/printusage.pm
r11682 r11686 101 101 } 102 102 &gsprintf(STDERR, " <!ELEMENT Arguments (Option*)>\n"); 103 &gsprintf(STDERR, " <!ELEMENT Option (Name, D esc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n");103 &gsprintf(STDERR, " <!ELEMENT Option (Name, DisplayName?, Desc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n"); 104 104 &gsprintf(STDERR, " <!ELEMENT Name (#PCDATA)>\n"); 105 &gsprintf(STDERR, " <!ELEMENT DisplayName (#PCDATA)>\n"); 105 106 &gsprintf(STDERR, " <!ELEMENT Desc (#PCDATA)>\n"); 106 107 &gsprintf(STDERR, " <!ELEMENT Type (#PCDATA)>\n"); … … 123 124 foreach my $option (@$options) { 124 125 my $optionname = $option->{'name'}; 126 my $displayname = $option->{'disp'}; 127 125 128 my $optiondesc = &gsprintf::lookup_string($option->{'desc'}); 126 129 … … 132 135 &gsprintf(STDERR, " <Option>\n"); 133 136 &gsprintf(STDERR, " <Name>$optionname</Name>\n"); 137 if (defined($option->{'disp'})) { 138 my $displayname = &gsprintf::lookup_string($option->{'disp'}); 139 # Escape '<' and '>' characters 140 $displayname =~ s/</&lt;/g; # doubly escaped 141 $displayname =~ s/>/&gt;/g; 142 &gsprintf(STDERR, " <DisplayName>$displayname</Name>\n"); 143 } 134 144 &gsprintf(STDERR, " <Desc>$optiondesc</Desc>\n"); 135 145 &gsprintf(STDERR, " <Type>$option->{'type'}</Type>\n"); … … 279 289 } 280 290 281 # Display the option description 291 # Display the option description 292 if (defined($option->{'disp'})) { 293 my $optiondisp = &gsprintf::lookup_string($option->{'disp'}); 294 &display_text_in_column($optiondisp, $optiondescoffset, $optionstringlength, 80); 295 &gsprintf(STDERR, " " x $optionstringlength); 296 } 282 297 my $optiondesc = &gsprintf::lookup_string($option->{'desc'}); 283 298 my $optionreqd = $option->{'reqd'};
Note:
See TracChangeset
for help on using the changeset viewer.