Changeset 7917 for trunk/Ohana/src/opihi/dvo/cmpread.c

Timestamp:

Jul 16, 2006, 10:58:49 PM (20 years ago)

Author:

eugene

Message:

major updates to use gprint for buffered / threaded printing

File:

• trunk/Ohana/src/opihi/dvo/cmpread.c (modified) (9 diffs)

trunk/Ohana/src/opihi/dvo/cmpread.c

@@ -16 +16 @@
 
   if (argc != 3) {
-    fprintf (stderr, "USAGE: cmpread field <filename>\n");
+    gprint (GP_ERR, "USAGE: cmpread field <filename>\n");
     return (FALSE);
   }
@@ -34 +34 @@
   if (!strcasecmp (argv[1], "galmag"))  field = F_GALMAG;
   if (field == F_NONE) {
-    fprintf (stderr, "invalid cmp field: %s\n", argv[1]);
+    gprint (GP_ERR, "invalid cmp field: %s\n", argv[1]);
     return (FALSE);
   }
@@ -42 +42 @@
   /* load FITS header */
   if (!gfits_read_header (argv[2], &header)) {
-    fprintf (stderr, "ERROR: can't read header for %s\n", argv[2]);
+    gprint (GP_ERR, "ERROR: can't read header for %s\n", argv[2]);
     return (FALSE);
   }
@@ -48 +48 @@
   if ((field == F_RA) || (field == F_DEC)) {
     if (!GetCoords (&coords, &header)) {
-      fprintf (stderr, "can't get WCS info from header\n");
+      gprint (GP_ERR, "can't get WCS info from header\n");
       gfits_free_header (&header);
       return (FALSE);
@@ -57 +57 @@
   f = fopen (argv[2], "r");
   if (f == NULL) {
-    fprintf (stderr, "ERROR: can't read data from %s\n", argv[2]);
+    gprint (GP_ERR, "ERROR: can't read data from %s\n", argv[2]);
     gfits_free_header (&header);
     return (FALSE);
@@ -65 +65 @@
   /* find expected number of stars */
   if (!gfits_scan (&header, "NSTARS", "%d", 1, &Nstars)) {
-    fprintf (stderr, "ERROR: can't get NSTARS from header\n");
+    gprint (GP_ERR, "ERROR: can't get NSTARS from header\n");
     gfits_free_header (&header);
     return (FALSE);
@@ -74 +74 @@
   gfits_scan (&header, "EXTEND",  "%t", 1, &extend);
   if (extend) {
-    fprintf (stderr, "reading from FITS cmp file %s\n", argv[2]);
+    gprint (GP_ERR, "reading from FITS cmp file %s\n", argv[2]);
     Nbytes = gfits_matrix_size (&header);
     fseek (f, Nbytes, SEEK_CUR); 
@@ -80 +80 @@
   } else {
     /* allocate space for stars */
-    fprintf (stderr, "reading from TEXT cmp file %s\n", argv[2]);
+    gprint (GP_ERR, "reading from TEXT cmp file %s\n", argv[2]);
     if (!gfits_scan (&header, "NSTARS", "%d", 1, &Nstars)) {
-      fprintf (stderr, "ERROR: failed to find NSTARS\n");
+      gprint (GP_ERR, "ERROR: failed to find NSTARS\n");
       exit (1);
     }
@@ -139 +139 @@
   free (stars);
   gfits_free_header (&header);
-  fprintf (stderr, "loaded %d objects\n", Nstars);
+  gprint (GP_ERR, "loaded %d objects\n", Nstars);
   return (TRUE);
 }