Changeset 27475

Timestamp:

Mar 26, 2010, 12:04:01 PM (16 years ago)

Author:

rhenders

Message:

Added some comments

File:

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

trunk/ippToPsps/scripts/pspsSchema2xml.pl

@@ -1 +1 @@
 #!/usr/bin/perl -w
 
+#######################################################################################
+#
+# Script that searches a dir containing PSPS schema files, finds those that comtain the 
+# tables on interest then parses them into an XML format. Also generates C-header files 
+# containing enums that detail table column names and numbers.
+#
+#######################################################################################
+
+use warnings;
+use strict;
 use IPC::Cmd 0.36 qw( can_run run );
 use XML::Writer;
@@ -6 +16 @@
 use Pod::Usage qw( pod2usage );
 
-use warnings;
-use strict;
 
 my ($schemaPath, $type);
@@ -294 +302 @@
         $default =~ s/'//g;
         if ($type ne "TSTRING" && !$default) {$default = "0";}
-        #   print "got default='$default'\n";
         if ($ISBINARY && $default eq "0x") {$default = "";}
     }