Changeset 12626

Timestamp:

2006-08-31T13:35:33+12:00 (18 years ago)

Author:

mdewsnip

Message:

Removed all the DTD stuff from XML output... it's just one more unnecessary thing to maintain.

File:

• trunk/gsdl/perllib/printusage.pm (modified) (1 diff)

trunk/gsdl/perllib/printusage.pm

@@ -62 +62 @@
 sub print_xml_header
 {
-    my $type = shift(@_);
-    my $all = shift(@_);
-#    $all = 0 unless defined $all;
-    if ($type ne "classify" && $type ne "plugin" && $type ne "script" && $type ne "download") {
-    return;
-    }
     &gsprintf(STDERR, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n");
-    if ($type eq "plugin") {
-    if ($all) {
-        &gsprintf(STDERR, "<!DOCTYPE PlugInfoList [\n");
-        &gsprintf(STDERR, "  <!ELEMENT PlugInfoList  (PlugInfo*)>\n");      
-        &gsprintf(STDERR, "  <!ATTLIST PlugInfoList\n");
-        &gsprintf(STDERR, "            length CDATA #REQUIRED>\n");
-
-    } else {
-        &gsprintf(STDERR, "<!DOCTYPE PlugInfo [\n");
-    }
-    &gsprintf(STDERR, "  <!ELEMENT PlugInfo      (Name, Desc, Abstract, Inherits, Explodes, Arguments, PlugInfo?)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Abstract      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Inherits      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Explodes      (#PCDATA)>\n");
-    
-    } elsif ($type eq "classify") {
-    if ($all) {
-        &gsprintf(STDERR, "<!DOCTYPE ClassInfoList [\n");
-        &gsprintf(STDERR, "  <!ELEMENT ClassInfoList  (ClassInfo*)>\n");      
-        &gsprintf(STDERR, "  <!ATTLIST ClassInfoList\n");
-        &gsprintf(STDERR, "            length CDATA #REQUIRED>\n");
-    } else {
-        &gsprintf(STDERR, "<!DOCTYPE ClassInfo [\n");
-    }
-    &gsprintf(STDERR, "  <!ELEMENT ClassInfo      (Name, Desc, Abstract, Inherits, Arguments, ClassInfo?)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Abstract      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Inherits      (#PCDATA)>\n");
-    } elsif ($type eq "download") {
-    if ($all) {
-        &gsprintf(STDERR, "<!DOCTYPE DownloadInfoList [\n");
-        &gsprintf(STDERR, "  <!ELEMENT DownloadInfoList  (DownloadInfo*)>\n");      
-        &gsprintf(STDERR, "  <!ATTLIST DownloadInfoList\n");
-        &gsprintf(STDERR, "            length CDATA #REQUIRED>\n");
-    } else {
-        &gsprintf(STDERR, "<!DOCTYPE DownloadInfo [\n");
-    }   
-    &gsprintf(STDERR, "  <!ELEMENT DownloadInfo      (Name, Desc, Abstract, Inherits, Arguments, DownloadInfo?)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Abstract      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Inherits      (#PCDATA)>\n");
-    
-    } else {
-    &gsprintf(STDERR, "<!DOCTYPE Info [\n");
-    &gsprintf(STDERR, "  <!ELEMENT Info      (Name, Desc, Arguments)>\n");
-    }
-    &gsprintf(STDERR, "  <!ELEMENT Arguments (Option*)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Option    (Name, DisplayName?, Desc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Name      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT DisplayName  (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Desc      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Type      (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Required  (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT CharactorLength  (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Range     (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Default   (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT List      (Value*)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT Value     (Name, Desc?)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT HiddenGLI (#PCDATA)>\n");
-    &gsprintf(STDERR, "  <!ELEMENT ModeGLI   (#PCDATA)>\n");
-    &gsprintf(STDERR, "]>\n\n");
 }