Changeset 30147 for trunk/ippToPsps/perl/pspsSchema2xml.pl

Timestamp:

Dec 23, 2010, 2:50:34 PM (15 years ago)

Author:

rhenders

Message:

Some major refactoring

File:

• trunk/ippToPsps/perl/pspsSchema2xml.pl (modified) (4 diffs)

trunk/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();}