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

Timestamp:

Sep 27, 2010, 12:01:56 PM (16 years ago)

Author:

rhenders

Message:

Now creating map file template as well

File:

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

trunk/ippToPsps/perl/pspsSchema2xml.pl

@@ -50 +50 @@
 
 
-my $output = new IO::File(">tables.xml");
-my $writer = new XML::Writer(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT=>2);
-$writer->xmlDecl('UTF-8');
-#    $writer->doctype('manifest', "", "psps-manifest.dtd");
-$writer->startTag('tableDescriptions', "type" => "$type");
+my $tablesOutput = new IO::File(">tables.xml");
+my $tablesWriter = new XML::Writer(OUTPUT => $tablesOutput, DATA_MODE => 1, DATA_INDENT=>2);
+$tablesWriter->xmlDecl('UTF-8');
+$tablesWriter->startTag('tableDescriptions', "type" => "$type");
+
+my $mapOutput = new IO::File(">map.xml");
+my $mapWriter = new XML::Writer(OUTPUT => $mapOutput, DATA_MODE => 1, DATA_INDENT=>2);
+$mapWriter->xmlDecl('UTF-8');
+$mapWriter->startTag('tabledata', "type" => "$type");
 
 if ($type eq "init") {createInit();}
@@ -63 +67 @@
 
 # finish up XML
-$writer->endTag();
-$writer->end();
+$tablesWriter->endTag();
+$tablesWriter->end();
+
+# finish up XML
+$mapWriter->endTag();
+$mapWriter->end();
 
 print OUT "\n#endif";
@@ -197 +205 @@
 
     print OUT "\ntypedef enum {\n";
-    $writer->startTag('table', "name" => $tableNameOut);
+    $tablesWriter->startTag('table', "name" => $tableNameOut);
+    $mapWriter->startTag('table', "name" => $tableNameOut);
 
     open (SCHEMA, $path);
@@ -240 +249 @@
 
     if (!$found) {print "Could not find table '$tableName'\n";}
-    $writer->endTag();
+    $tablesWriter->endTag();
+    $mapWriter->endTag();
     print OUT "} ".$tableNameOut.";\n";
 
@@ -326 +336 @@
     print OUT "  ".uc($tableName)."_".uc($name)." = ".$colNum.",\n";
 
-    $writer->startTag('column',
+    $tablesWriter->startTag('column',
             "name" => $name,
             "type" => $type,
             "default" => $default,
             "comment" => $comment);
-
-    $writer->endTag();
+    $tablesWriter->endTag();
+
+    $mapWriter->comment(" <map pspsName=\"$name\" type=\"$type\" ippName=\"\" comment=\"$comment\"/>");
+
+#    $mapWriter->endTag();
 
     return $colNum;