Changeset 11668
- Timestamp:
- 2006-04-21T11:25:33+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/printusage.pm
r11351 r11668 38 38 } 39 39 40 40 # this is not called by plugins or classifiers, just by scripts 41 41 sub print_xml_usage 42 42 { … … 46 46 &gsprintf::output_strings_in_UTF8; 47 47 48 &print_xml_header( );48 &print_xml_header("script"); 49 49 50 50 &gsprintf(STDERR, "<Info>\n"); … … 62 62 sub print_xml_header 63 63 { 64 my $type = shift(@_); 65 if ($type ne "classify" && $type ne "plugin" && $type ne "script") { 66 return; 67 } 64 68 &gsprintf(STDERR, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"); 65 &gsprintf(STDERR, "<!DOCTYPE Info [\n"); 66 &gsprintf(STDERR, " <!ELEMENT Info (Name, Desc, Arguments)>\n"); 69 if ($type eq "plugin") { 70 &gsprintf(STDERR, "<!DOCTYPE PlugInfo [\n"); 71 &gsprintf(STDERR, " <!ELEMENT PlugInfo (Name, Desc, Abstract, Inherits, Explodes, Arguments, PlugInfo?)>\n"); 72 &gsprintf(STDERR, " <!ELEMENT Abstract (#PCDATA)>\n"); 73 &gsprintf(STDERR, " <!ELEMENT Inherits (#PCDATA)>\n"); 74 &gsprintf(STDERR, " <!ELEMENT Explodes (#PCDATA)>\n"); 75 76 } elsif ($type eq "classify") { 77 &gsprintf(STDERR, "<!DOCTYPE ClassInfo [\n"); 78 &gsprintf(STDERR, " <!ELEMENT ClassInfo (Name, Desc, Abstract, Inherits, Arguments, ClassInfo?)>\n"); 79 &gsprintf(STDERR, " <!ELEMENT Abstract (#PCDATA)>\n"); 80 &gsprintf(STDERR, " <!ELEMENT Inherits (#PCDATA)>\n"); 81 } else { 82 &gsprintf(STDERR, "<!DOCTYPE Info [\n"); 83 &gsprintf(STDERR, " <!ELEMENT Info (Name, Desc, Arguments)>\n"); 84 } 67 85 &gsprintf(STDERR, " <!ELEMENT Arguments (Option*)>\n"); 68 &gsprintf(STDERR, " <!ELEMENT Option (Name, Desc, Type, Required , Range, Default?, List?)>\n");86 &gsprintf(STDERR, " <!ELEMENT Option (Name, Desc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n"); 69 87 &gsprintf(STDERR, " <!ELEMENT Name (#PCDATA)>\n"); 70 88 &gsprintf(STDERR, " <!ELEMENT Desc (#PCDATA)>\n"); 71 89 &gsprintf(STDERR, " <!ELEMENT Type (#PCDATA)>\n"); 72 90 &gsprintf(STDERR, " <!ELEMENT Required (#PCDATA)>\n"); 91 &gsprintf(STDERR, " <!ELEMENT CharactorLength (#PCDATA)>\n"); 73 92 &gsprintf(STDERR, " <!ELEMENT Range (#PCDATA)>\n"); 74 93 &gsprintf(STDERR, " <!ELEMENT Default (#PCDATA)>\n"); … … 76 95 &gsprintf(STDERR, " <!ELEMENT Value (Name, Desc?)>\n"); 77 96 &gsprintf(STDERR, " <!ELEMENT HiddenGLI (#PCDATA)>\n"); 97 &gsprintf(STDERR, " <!ELEMENT ModeGLI (#PCDATA)>\n"); 78 98 &gsprintf(STDERR, "]>\n\n"); 79 99 }
Note:
See TracChangeset
for help on using the changeset viewer.