Changeset 11668 for trunk

Timestamp:

2006-04-21T11:25:33+12:00 (18 years ago)

Author:

kjdon

Message:

tidied up the DTD output so that it actually matches the XML. now the DTD is different for plugins, classifiers and scripts

File:

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

trunk/gsdl/perllib/printusage.pm

@@ -38 +38 @@
 }
 
-
+# this is not called by plugins or classifiers, just by scripts
 sub print_xml_usage
 {
@@ -46 +46 @@
     &gsprintf::output_strings_in_UTF8;
 
-    &print_xml_header();
+    &print_xml_header("script");
 
     &gsprintf(STDERR, "<Info>\n");
@@ -62 +62 @@
 sub print_xml_header
 {
+    my $type = shift(@_);
+    if ($type ne "classify" && $type ne "plugin" && $type ne "script") {
+    return;
+    }
     &gsprintf(STDERR, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n");
-    &gsprintf(STDERR, "<!DOCTYPE Info [\n");
-    &gsprintf(STDERR, "  <!ELEMENT Info      (Name, Desc, Arguments)>\n");
+    if ($type eq "plugin") {
+    &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") {
+    &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");
+    } 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, Desc, Type, Required, Range, Default?, List?)>\n");
+    &gsprintf(STDERR, "  <!ELEMENT Option    (Name, Desc, Type, Required?, CharactorLength?, Range?, List?, Default?, HiddenGLI?, ModeGLI?)>\n");
     &gsprintf(STDERR, "  <!ELEMENT Name      (#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");
@@ -76 +95 @@
     &gsprintf(STDERR, "  <!ELEMENT Value     (Name, Desc?)>\n");
     &gsprintf(STDERR, "  <!ELEMENT HiddenGLI (#PCDATA)>\n");
+    &gsprintf(STDERR, "  <!ELEMENT ModeGLI   (#PCDATA)>\n");
     &gsprintf(STDERR, "]>\n\n");
 }