Index: trunk/ippToPsps/perl/pspsSchema2xml.pl
===================================================================
--- trunk/ippToPsps/perl/pspsSchema2xml.pl	(revision 31720)
+++ trunk/ippToPsps/perl/pspsSchema2xml.pl	(revision 31759)
@@ -48,4 +48,6 @@
 }
 
+open(WIKI, ">tables.wiki") or die("Error");
+
 my $enumsHeader = ucfirst($type)."BatchEnums";
 open(OUT, ">".$enumsHeader.".h") or die("Error");
@@ -94,4 +96,5 @@
 print OUT "\n#endif";
 close OUT;
+close WIKI;
 
 
@@ -193,4 +196,6 @@
     parseTable("StackModelFit");
     parseTable("StackToImage");
+    parseTable("SkinnyObject");
+    parseTable("ObjectCalColor");
 }
 
@@ -222,4 +227,7 @@
     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,5 +312,8 @@
     my $type;
     my $comment;
+    my $fullComment;
     my $default;
+    my $unit = "unknown";
+    my $mstype = "unknown";
 
     # parse line
@@ -317,5 +328,6 @@
         $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,4 +337,5 @@
         $typeStr = $2;
         $comment = "No comment";
+        $fullComment = $comment;
     }
     else {
@@ -340,5 +353,6 @@
     if ($typeStr =~ m/([a-zA-Z0-9()-]*)[ \t]+.*/) {
 
-        $type = $1; 
+        $type = $1;
+        $mstype = $1;
         $type =~ s/BIGINT/TLONGLONG/;
         $type =~ s/SMALLINT/TSHORT/;
@@ -371,4 +385,5 @@
 
     print OUT "  ".uc($tableName)."_".uc($name)." = ".$colNum.",\n";
+    print WIKI "|| ".$name."||".$unit."||".$mstype."||".$default."||".$comment."|| || ||\n";
 
     $tablesWriter->startTag('column',
@@ -376,5 +391,5 @@
             "type" => $type,
             "default" => $default,
-            "comment" => $comment);
+            "comment" => $fullComment);
     $tablesWriter->endTag();
 
@@ -393,9 +408,10 @@
             "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();