Changeset 31759

Timestamp:

Jun 29, 2011, 8:40:03 AM (15 years ago)

Author:

rhenders

Message:

now also exporting a wiki-table format file

File:

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

trunk/ippToPsps/perl/pspsSchema2xml.pl

@@ -48 +48 @@
 }
 
+open(WIKI, ">tables.wiki") or die("Error");
+
 my $enumsHeader = ucfirst($type)."BatchEnums";
 open(OUT, ">".$enumsHeader.".h") or die("Error");
@@ -94 +96 @@
 print OUT "\n#endif";
 close OUT;
+close WIKI;
 
 
@@ -193 +196 @@
     parseTable("StackModelFit");
     parseTable("StackToImage");
+    parseTable("SkinnyObject");
+    parseTable("ObjectCalColor");
 }
 
@@ -222 +227 @@
     else {$tableNameOut = $tableName}
 
+
+    print WIKI "|| '''!".$tableNameOut."''' ||||||||||||||\n";
+    print WIKI "|| '''ODM attribute''' || '''units''' || '''Data type''' || '''Default''' || '''Description''' || '''IPP source''' || '''IPP variable/notes''' ||\n";
     print OUT "\ntypedef enum {\n";
     $tablesWriter->startTag('table', "name" => $tableNameOut);
@@ -304 +312 @@
     my $type;
     my $comment;
+    my $fullComment;
     my $default;
+    my $unit = "unknown";
+    my $mstype = "unknown";
 
     # parse line
@@ -317 +328 @@
         $comment =~ s/^[\s]*//;
         $comment =~ s/[\s]*$//;
-        if ($comment =~ m/<column unit="(.*)">(.*)/ ) {$comment = "$2 (unit = $1)"}
+        if ($comment =~ m/<column unit="(.*)">(.*)/ ) {$comment = $2; $unit = $1;}
+        $fullComment = "$comment (unit = $unit)";
     }
     # no comment case
@@ -325 +337 @@
         $typeStr = $2;
         $comment = "No comment";
+        $fullComment = $comment;
     }
     else {
@@ -340 +353 @@
     if ($typeStr =~ m/([a-zA-Z0-9()-]*)[ \t]+.*/) {
 
-        $type = $1; 
+        $type = $1;
+        $mstype = $1;
         $type =~ s/BIGINT/TLONGLONG/;
         $type =~ s/SMALLINT/TSHORT/;
@@ -371 +385 @@
 
     print OUT "  ".uc($tableName)."_".uc($name)." = ".$colNum.",\n";
+    print WIKI "|| ".$name."||".$unit."||".$mstype."||".$default."||".$comment."|| || ||\n";
 
     $tablesWriter->startTag('column',
@@ -376 +391 @@
             "type" => $type,
             "default" => $default,
-            "comment" => $comment);
+            "comment" => $fullComment);
     $tablesWriter->endTag();
 
@@ -393 +408 @@
             "name" => $name,
             "arraysize" => $arraySize,
-            "datatype" => $votType);
+            "datatype" => $votType,
+            "unit" => $unit);
     $votWriter->dataElement('DESCRIPTION', $comment);
     $votWriter->endTag();
 
-    $mapWriter->comment(" **MISSING** <map pspsName=\"$name\" ippType=\"$type\" ippName=\"\" comment=\"$comment\"/>");
+    $mapWriter->comment(" **MISSING** <map pspsName=\"$name\" ippType=\"$type\" ippName=\"\" comment=\"$fullComment\"/>");
 
 #    $mapWriter->endTag();