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

Timestamp:

Mar 28, 2005, 4:48:19 PM (21 years ago)

Author:

eugene

Message:

adding PhotPars and PhotParsOld to autocode

File:

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

trunk/Ohana/src/libautocode/generate

@@ -103 +103 @@
         if ($type eq "short")  { $pt1 = "I"; }
         if ($type eq "int")    { $pt1 = "J"; }
+        if ($type eq "e_time") { $pt1 = "J"; }
         if ($type eq "float")  { $pt1 = "E"; }
         if ($type eq "double") { $pt1 = "D"; }
@@ -125 +126 @@
         if ($type eq "short")  { $pt1 = sprintf "I%s", $length; }
         if ($type eq "int")    { $pt1 = sprintf "I%s", $length; }
+        if ($type eq "e_time") { $pt1 = sprintf "I%s", $length; }
         if ($type eq "float")  { $pt1 = sprintf "F%s", $length; }
         if ($type eq "double") { $pt1 = sprintf "F%s", $length; }
@@ -181 +183 @@
             $n = 2;
         }
-        if ($type eq "float")  {
+        if ($type eq "int")    {
             $T = "WORD";
             $n = 4;
         }
-        if ($type eq "int")    {
+        if ($type eq "e_time")    {
+            $T = "WORD";
+            $n = 4;
+        }
+        if ($type eq "float")  {
             $T = "WORD";
             $n = 4;
@@ -217 +223 @@
             }
         }
+        if ($type eq "byte")   { $Nbytes += 1; }
+        if ($type eq "short")  { $Nbytes += 2; }
+        if ($type eq "int")    { $Nbytes += 4; }
+        if ($type eq "e_time") { $Nbytes += 4; }
+        if ($type eq "float")  { $Nbytes += 4; }
         if ($type eq "double") { $Nbytes += 8; }
-        if ($type eq "int")    { $Nbytes += 4; }
-        if ($type eq "short")  { $Nbytes += 2; }
-        if ($type eq "float")  { $Nbytes += 4; }
     }
     return ($Nbytes);