Changeset 3609 for trunk/Ohana/src/libautocode/generate

Timestamp:

Mar 31, 2005, 4:57:00 PM (21 years ago)

Author:

eugene

Message:

moving to autocode on imregister

File:

• trunk/Ohana/src/libautocode/generate (modified) (5 diffs)

trunk/Ohana/src/libautocode/generate

@@ -41 +41 @@
         # not a simple key/value entry
         if ($key eq "FIELD") {
-            ($element, $field, $format, $comment, $unit) = split (/,\s+/, $value);
+            ($element, $field, $format, $comment, $unit) = split (/,\s+/, $value, 5);
+#           print "$element : $field : $format : $comment : $unit\n";
             push @element, $element;
             push @field,   $field;
@@ -106 +107 @@
         if ($type eq "float")  { $pt1 = "E"; }
         if ($type eq "double") { $pt1 = "D"; }
+
+        if ($type eq "rawshort") { $pt1 = "I"; }
 
         printf FILE "  fits_define_bintable_column (header, ";
@@ -130 +133 @@
         if ($type eq "double") { $pt1 = sprintf "F%s", $length; }
 
+        if ($type eq "rawshort")  { $pt1 = sprintf "I%s", $length; }
+
         printf FILE "  fits_define_table_column (header, ";
         printf FILE "\"%s\", ",   $pt1;
@@ -179 +184 @@
             next;
         }
+        # this is a patch for old photreg tables: provide a fix for the tables
+        if ($type eq "rawshort")  {
+            $N +=2;
+            next;
+        }
         if ($type eq "short")  {
             $T = "BYTE";
@@ -229 +239 @@
         if ($type eq "float")  { $Nbytes += 4; }
         if ($type eq "double") { $Nbytes += 8; }
+
+        if ($type eq "rawshort")  { $Nbytes += 2; }
     }
     return ($Nbytes);