Changeset 3459

Timestamp:

Mar 18, 2005, 4:37:10 PM (21 years ago)

Author:

eugene

Message:

added char type to fits tables

File:

• trunk/Ohana/src/opihi/cmd.data/read_vectors.c (modified) (3 diffs)

trunk/Ohana/src/opihi/cmd.data/read_vectors.c

@@ -204 +204 @@
   for (i = 1; i < argc; i++) {
     void   *data;
+    char   *Pc;
     short  *Ps;
     int    *Pi;
@@ -214 +215 @@
     if (Binary) {
       if (!fits_get_bintable_column_type (&header, argv[i], type, &Nval)) return (FALSE);
-      if (!strcmp (type, "char")) return (FALSE);
       if (!fits_get_bintable_column (&header, &table, argv[i], &data)) return (FALSE);
     } else {
       if (!fits_get_table_column_type (&header, argv[i], type)) return (FALSE);
-      if (!strcmp (type, "char")) return (FALSE);
       if (!fits_get_table_column (&header, &table, argv[i], &data)) return (FALSE);
     }
@@ -266 +265 @@
       }
     }
+    if (!strcmp (type, "char")) {
+      Pc = (char *) data;
+      for (j = 0; j < Ny; j++) {
+        for (k = 0; k < Nval; k++, Pc++) {
+          vec[k][0].elements[j] = *Pc;
+        }
+      }
+    }
     free (data);
     free (vec);