Changeset 30586 for branches/czw_branch/20101203/ippToPsps/perl/pspsSchema2xml.pl

Timestamp:

Feb 11, 2011, 4:29:48 PM (15 years ago)

Author:

watersc1

Message:

Trying to merge back into trunk.

Location:

branches/czw_branch/20101203

Files:

• . (modified) (1 prop)
• ippToPsps/perl/pspsSchema2xml.pl (modified) (5 diffs)

branches/czw_branch/20101203/ippToPsps/perl/pspsSchema2xml.pl

@@ -30 +30 @@
 pod2usage(
         -msg => "\n   Required options:\n\n".
-        "--schema <path to PSPS schema>\n".
-        "--type <init|det|diff|stack|object>\n".
+        "-s   <path to PSPS schema>\n".
+        "-t   <init|detection|diff|stack|object>\n".
         -exitval => 3
         ) unless
@@ -37 +37 @@
 defined $type;
 
-if ($type ne "init" && $type ne "det" && $type ne "diff" && $type ne "stack" && $type ne "object" ) {
+if (
+        $type ne "init" && 
+        $type ne "detection" && 
+        $type ne "diff" && 
+        $type ne "stack" && 
+        $type ne "object" ) {
 
     print "Don't understand type '$type'\n"; 
@@ -43 +48 @@
 }
 
-my $enumsHeader = "ippToPsps".ucfirst($type)."Enums";
+my $enumsHeader = ucfirst($type)."BatchEnums";
 open(OUT, ">".$enumsHeader.".h") or die("Error");
 
@@ -61 +66 @@
 
 if ($type eq "init") {createInit();}
-elsif ($type eq "det") {createDetections();}
+elsif ($type eq "detection") {createDetections();}
 elsif ($type eq "diff") {createDiffs();}
 elsif ($type eq "stack") {createStacks();}
@@ -345 +350 @@
     $tablesWriter->endTag();
 
-    $mapWriter->comment(" <map pspsName=\"$name\" ippType=\"$type\" ippName=\"\" comment=\"$comment\"/>");
+    $mapWriter->comment(" **MISSING** <map pspsName=\"$name\" ippType=\"$type\" ippName=\"\" comment=\"$comment\"/>");
 
 #    $mapWriter->endTag();