Changeset 12626 for trunk/gsdl/perllib/printusage.pm
- Timestamp:
- 2006-08-31T13:35:33+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/printusage.pm
r11787 r12626 62 62 sub print_xml_header 63 63 { 64 my $type = shift(@_);65 my $all = shift(@_);66 # $all = 0 unless defined $all;67 if ($type ne "classify" && $type ne "plugin" && $type ne "script" && $type ne "download") {68 return;69 }70 64 &gsprintf(STDERR, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"); 71 if ($type eq "plugin") {72 if ($all) {73 &gsprintf(STDERR, "<!DOCTYPE PlugInfoList [\n");74 &gsprintf(STDERR, " <!ELEMENT PlugInfoList (PlugInfo*)>\n");75 &gsprintf(STDERR, " <!ATTLIST PlugInfoList\n");76 &gsprintf(STDERR, " length CDATA #REQUIRED>\n");77 78 } else {79 &gsprintf(STDERR, "<!DOCTYPE PlugInfo [\n");80 }81 &gsprintf(STDERR, " <!ELEMENT PlugInfo (Name, Desc, Abstract, Inherits, Explodes, Arguments, PlugInfo?)>\n");82 &gsprintf(STDERR, " <!ELEMENT Abstract (#PCDATA)>\n");83 &gsprintf(STDERR, " <!ELEMENT Inherits (#PCDATA)>\n");84 &gsprintf(STDERR, " <!ELEMENT Explodes (#PCDATA)>\n");85 86 } elsif ($type eq "classify") {87 if ($all) {88 &gsprintf(STDERR, "<!DOCTYPE ClassInfoList [\n");89 &gsprintf(STDERR, " <!ELEMENT ClassInfoList (ClassInfo*)>\n");90 &gsprintf(STDERR, " <!ATTLIST ClassInfoList\n");91 &gsprintf(STDERR, " length CDATA #REQUIRED>\n");92 } else {93 &gsprintf(STDERR, "<!DOCTYPE ClassInfo [\n");94 }95 &gsprintf(STDERR, " <!ELEMENT ClassInfo (Name, Desc, Abstract, Inherits, Arguments, ClassInfo?)>\n");96 &gsprintf(STDERR, " <!ELEMENT Abstract (#PCDATA)>\n");97 &gsprintf(STDERR, " <!ELEMENT Inherits (#PCDATA)>\n");98 } elsif ($type eq "download") {99 if ($all) {100 &gsprintf(STDERR, "<!DOCTYPE DownloadInfoList [\n");101 &gsprintf(STDERR, " <!ELEMENT DownloadInfoList (DownloadInfo*)>\n");102 &gsprintf(STDERR, " <!ATTLIST DownloadInfoList\n");103 &gsprintf(STDERR, " length CDATA #REQUIRED>\n");104 } else {105 &gsprintf(STDERR, "<!DOCTYPE DownloadInfo [\n");106 }107 &gsprintf(STDERR, " <!ELEMENT DownloadInfo (Name, Desc, Abstract, Inherits, Arguments, DownloadInfo?)>\n");108 &gsprintf(STDERR, " <!ELEMENT Abstract (#PCDATA)>\n");109 &gsprintf(STDERR, " <!ELEMENT Inherits (#PCDATA)>\n");110 111 } else {112 &gsprintf(STDERR, "<!DOCTYPE Info [\n");113 &gsprintf(STDERR, " <!ELEMENT Info (Name, Desc, Arguments)>\n");114 }115 &gsprintf(STDERR, " <!ELEMENT Arguments (Option*)>\n");116 &gsprintf(STDERR, " <!ELEMENT Option (Name, DisplayName?, Desc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n");117 &gsprintf(STDERR, " <!ELEMENT Name (#PCDATA)>\n");118 &gsprintf(STDERR, " <!ELEMENT DisplayName (#PCDATA)>\n");119 &gsprintf(STDERR, " <!ELEMENT Desc (#PCDATA)>\n");120 &gsprintf(STDERR, " <!ELEMENT Type (#PCDATA)>\n");121 &gsprintf(STDERR, " <!ELEMENT Required (#PCDATA)>\n");122 &gsprintf(STDERR, " <!ELEMENT CharactorLength (#PCDATA)>\n");123 &gsprintf(STDERR, " <!ELEMENT Range (#PCDATA)>\n");124 &gsprintf(STDERR, " <!ELEMENT Default (#PCDATA)>\n");125 &gsprintf(STDERR, " <!ELEMENT List (Value*)>\n");126 &gsprintf(STDERR, " <!ELEMENT Value (Name, Desc?)>\n");127 &gsprintf(STDERR, " <!ELEMENT HiddenGLI (#PCDATA)>\n");128 &gsprintf(STDERR, " <!ELEMENT ModeGLI (#PCDATA)>\n");129 &gsprintf(STDERR, "]>\n\n");130 65 } 131 66
Note:
See TracChangeset
for help on using the changeset viewer.