Changeset 5448 for trunk/Ohana/src/libautocode

Timestamp:

Oct 27, 2005, 10:38:30 AM (21 years ago)

Author:

eugene

Message:

implementing SkyRegions in all DVO programs

Location:

trunk/Ohana/src/libautocode

Files:

• def/SkyRegion.d (modified) (2 diffs)
• generate (modified) (4 diffs)

trunk/Ohana/src/libautocode/def/SkyRegion.d

@@ -2 +2 @@
 EXTNAME SKY_REGION
 TYPE    BINTABLE
-SIZE    56
+SIZE    64
 
 FIELD   Rmin,      R_MIN,          float, 
@@ -16 +16 @@
 FIELD   table,     TABLE,          char,          does this entry have a table?
 FIELD   name,      NAME,           char[21],      name / filename
+FIELD   filename,  FILENAME,       e_void,        filename pointer

trunk/Ohana/src/libautocode/generate

@@ -119 +119 @@
         if ($type eq "unsigned int")  { $pt1 = "J"; }
         if ($type eq "e_time")        { $pt1 = "J"; }
+        if ($type eq "e_void")        { $pt1 = "L"; }
+        # e_void is a 64 bit pointer, cast to size_t
         if ($type eq "float")         { $pt1 = "E"; }
         if ($type eq "double")        { $pt1 = "D"; }
@@ -188 +190 @@
         if ($type eq "unsigned int")  { $pt1 = sprintf "I%s", $length; }
         if ($type eq "e_time")        { $pt1 = sprintf "I%s", $length; }
+        if ($type eq "e_void")        { $pt1 = sprintf "I%s", $length; }
         if ($type eq "float")         { $pt1 = sprintf "F%s", $length; }
         if ($type eq "double")        { $pt1 = sprintf "F%s", $length; }
@@ -255 +258 @@
         if ($type eq "unsigned int")  { $T = "WORD"; $n = 4; }
         if ($type eq "e_time")        { $T = "WORD"; $n = 4; }
+        if ($type eq "e_void")        { $T = "DBLE"; $n = 8; }
         if ($type eq "float")         { $T = "WORD"; $n = 4; }
         if ($type eq "double")        { $T = "DBLE"; $n = 8; }
@@ -285 +289 @@
         if ($type eq "unsigned int")   { $Nbytes += 4*$Np; $valid = 1; }
         if ($type eq "e_time")         { $Nbytes += 4*$Np; $valid = 1; }
+        if ($type eq "e_void")         { $Nbytes += 8*$Np; $valid = 1; }
         if ($type eq "float")          { $Nbytes += 4*$Np; $valid = 1; }
         if ($type eq "double")         { $Nbytes += 8*$Np; $valid = 1; }