Changeset 27431 for trunk/ippToPsps/scripts/pspsSchema2xml.pl

Timestamp:

Mar 24, 2010, 11:15:44 AM (16 years ago)

Author:

rhenders

Message:

pspsSchema2xml now generates C header files with enums detailing table columns

File:

• trunk/ippToPsps/scripts/pspsSchema2xml.pl (modified) (17 diffs)

trunk/ippToPsps/scripts/pspsSchema2xml.pl

@@ -23 +23 @@
         -msg => "\n   Required options:\n\n".
         "--schema <path to PSPS schema>\n".
-        "--type <IN|DT|OB>\n".
+        "--type <init|det|diff|stack>\n".
         -exitval => 3
         ) unless
@@ -29 +29 @@
 defined $type;
 
-if ($type ne "DT" && $type ne "IN" && $type ne "OB" && $type ne "ST") {
+if ($type ne "init" && $type ne "det" && $type ne "diff" && $type ne "stack") {
 
     print "Don't understand type '$type'\n"; 
     die;
 }
+
+my $enumsHeader = "ippToPsps".ucfirst($type)."Enums";
+open(OUT, ">".$enumsHeader.".h") or die("Error");
+
+print OUT "#ifndef ".uc($enumsHeader)."_H\n";
+print OUT "#define ".uc($enumsHeader)."_H\n\n";
 
 
@@ -42 +48 @@
 $writer->startTag('tableDescriptions', "type" => "$type");
 
-if ($type eq "IN") {createInit();}
-elsif ($type eq "DT") {createDetections();}
-elsif ($type eq "OB") {createDiffs();}
-elsif ($type eq "ST") {createStacks();}
+if ($type eq "init") {createInit();}
+elsif ($type eq "det") {createDetections();}
+elsif ($type eq "diff") {createDiffs();}
+elsif ($type eq "stack") {createStacks();}
 
 # finish up XML
@@ -51 +57 @@
 $writer->end();
 
-
-######################################################################################3
-
-# finds the schema file containing this table description
+print OUT "\n#endif";
+close OUT;
+
+
+#######################################################################################
+#
+# Finds the schema file containing the table name passed in
+#
+#######################################################################################
 sub findSchemaFile {
     my ($tableName) = @_;
@@ -86 +97 @@
 }
 
-# creates detections tables
+#######################################################################################
+#
+# Creates detection batch tables
+#
+#######################################################################################
 sub createInit {
 
@@ -101 +116 @@
 }
 
-# creates init batch tables
+#######################################################################################
+#
+# Creates initialisation batch tables
+#
+#######################################################################################
 sub createDetections {
 
@@ -111 +130 @@
 }
 
-# creates diff batch tables
+#######################################################################################
+#
+# Creates difference batch tables
+#
+#######################################################################################
 sub createDiffs {
 
@@ -118 +141 @@
     parseTable("StackLowSigDelta");
     parseTable("StackHighSigDelta");
-}
-
-# creates stack batch tables
+    parseTable("ObjectCalColor");
+}
+
+#######################################################################################
+#
+# Creates stack batch tables
+#
+#######################################################################################
 sub createStacks {
 
@@ -130 +158 @@
 }
 
-
-# parses out a table
+#######################################################################################
+#
+# Parses a particular table from the SQL file and converts it to an XML description 
+#
+#######################################################################################
 sub parseTable {
     my ($tableName, $newName) = @_;
@@ -144 +175 @@
     else {$tableNameOut = $tableName}
 
+    print OUT "\ntypedef enum {\n";
     $writer->startTag('table', "name" => $tableNameOut);
 
@@ -150 +182 @@
     my $reading = 0;
     my $found = 0;
+    my $colNum = 0;
     my $table;
 
@@ -163 +196 @@
                 $reading = 1;
                 $found = 1;
+                $colNum = 0;
                 next;
             }
@@ -180 +214 @@
         if ($line =~ m/\*\//) {next;}
 
-        processLine($line, $tableName);
+        $colNum = processLine($line, $tableName, $colNum);
 
     }
@@ -186 +220 @@
     if (!$found) {print "Could not find table '$tableName'\n";}
     $writer->endTag();
+    print OUT "} ".$tableNameOut.";\n";
 
     close SCHEMA;
 }
 
-# process line
+#######################################################################################
+#
+# Processes a line from the PSPS schema table description and converts to XML
+#
+#######################################################################################
 sub processLine {
-    my ($line, $tableName) = @_;
+    my ($line, $tableName, $colNum) = @_;
 
     my $name;
@@ -223 +262 @@
 
         print "In '$tableName', can't process: '$line'\n";
-        return 0
+        return $colNum
     }
 
@@ -263 +302 @@
     if ($type eq "TSTRING" && $default eq "") {$default = " ";}
 
+    $colNum++;
+
+    print OUT "  ".uc($tableName)."_".uc($name)." = ".$colNum.",\n";
+
     $writer->startTag('column',
             "name" => $name,
@@ -270 +313 @@
 
     $writer->endTag();
-}
-
-
-
-
-
-
-
+
+    return $colNum;
+}