Changeset 11682

Timestamp:

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

Author:

kjdon

Message:

added DTD mods for PlugInfoList and ClassInfoList

File:

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

trunk/gsdl/perllib/printusage.pm

@@ -63 +63 @@
 {
     my $type = shift(@_);
+    my $all = shift(@_);
+#    $all = 0 unless defined $all;
     if ($type ne "classify" && $type ne "plugin" && $type ne "script") {
     return;
@@ -68 +70 @@
     &gsprintf(STDERR, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n");
     if ($type eq "plugin") {
-    &gsprintf(STDERR, "<!DOCTYPE PlugInfo [\n");
+    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");
@@ -75 +85 @@
     
     } elsif ($type eq "classify") {
-    &gsprintf(STDERR, "<!DOCTYPE ClassInfo [\n");
+    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");