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

Timestamp:

Feb 19, 2006, 5:23:56 PM (20 years ago)

Author:

eugene

Message:

added latex bits to def files

File:

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

trunk/Ohana/src/libautocode/generate

@@ -23 +23 @@
     $TIMEOUT = 0;
 
+    &init_key ("DESCRIPTION");
     &init_key ("TIMEOUT");
-    &init_key ("NAME");
     &init_key ("EXTNAME");
     &init_key ("STRUCT");
+    &init_key ("NAME");
     &init_key ("FILE");
     &init_key ("SIZE");
@@ -43 +44 @@
         &set_keypair ($key, $value);
 
-        # there are used internally (not just a replacement)
+        # these are used internally (not just a replacement)
         if ($key eq "TYPE")    { $TYPE = $value;   }
         if ($key eq "SIZE")    { $SIZE = $value;   }
@@ -83 +84 @@
         if ($line =~ m|/\*\* STRUCT DEFINITION \*\*/|) {
             &write_structure;
+        }
+
+        # fill in latex table description
+        if ($line =~ m|%%% LATEX TABLE DEFINITION|) {
+            &write_latex;
         }
 
@@ -141 +147 @@
     }
 
+}
+
+sub write_latex {
+
+    for ($i = 0; $i < @field; $i++) {
+        # skip SUBSTRUCT type of entries:
+        if ($mode[$i] eq "SUBSTRUCT") { next; }
+
+        ($type, $Np) = &get_type_array ($format[$i]);
+
+        if ($type eq "e_time")        { $type = "unsigned int"; }
+
+        # print STDOUT "$field[$i] .. $type[$i] .. $comment[$i] .. $unit[$i]\n";
+
+        printf FILE "%-20s & ",       "\\code{$field[$i]} ";
+        printf FILE "%-20s & ",       "$type";
+        printf FILE "%-35s & ",       "$comment[$i]";
+        printf FILE "%-20s \\\\ \n",  "$unit[$i]";
+    }
 }