Changeset 7917 for trunk/Ohana/src/opihi/lib.shell/evaluate_stack.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/lib.shell/evaluate_stack.c (modified) (3 diffs)

trunk/Ohana/src/opihi/lib.shell/evaluate_stack.c

@@ -44 +44 @@
 
     if (VERBOSE) {
-      fprintf (stderr, "%d: ", i);
+      gprint (GP_ERR, "%d: ", i);
       for (j = 0; j < *Nstack; j++) {
-        fprintf (stderr, "%s ", stack[j].name);
+        gprint (GP_ERR, "%s ", stack[j].name);
       }
-      if (*Nstack > 0) fprintf (stderr, "\n");
-      fprintf (stderr, "%d: ", i);
+      if (*Nstack > 0) gprint (GP_ERR, "\n");
+      gprint (GP_ERR, "%d: ", i);
       for (j = 0; j < *Nstack; j++) {
-        fprintf (stderr, "%d ", stack[j].type);
+        gprint (GP_ERR, "%d ", stack[j].type);
       }
-      if (*Nstack > 0) fprintf (stderr, "\n");
+      if (*Nstack > 0) gprint (GP_ERR, "\n");
     }
 
@@ -161 +161 @@
   for (i = 0; i < Nstack; i++) {
     if (IsBufferPtr (stack[i].buffer) && (stack[i].type == 'm')) {
-      if (VERBOSE) fprintf (stderr, "free %s (buff) (%lx)\n", stack[i].name, (long) stack[i].buffer);
+      if (VERBOSE) gprint (GP_ERR, "free %s (buff) (%lx)\n", stack[i].name, (long) stack[i].buffer);
       free (stack[i].buffer[0].header.buffer);
       free (stack[i].buffer[0].matrix.buffer);
@@ -168 +168 @@
     }   
     if (IsVectorPtr (stack[i].vector) && (stack[i].type == 'v')) {
-      if (VERBOSE) fprintf (stderr, "free %s (vect) (%lx)\n", stack[i].name, (long) stack[i].vector);
+      if (VERBOSE) gprint (GP_ERR, "free %s (vect) (%lx)\n", stack[i].name, (long) stack[i].vector);
       free (stack[i].vector[0].elements);
       free (stack[i].vector);
       stack[i].vector = NULL;
     }   
-    if (VERBOSE) fprintf (stderr, "free %s (name) (%d) (%lx)\n", stack[i].name, i, (long) stack[i].name);
+    if (VERBOSE) gprint (GP_ERR, "free %s (name) (%d) (%lx)\n", stack[i].name, i, (long) stack[i].name);
     free (stack[i].name);
     stack[i].name = NULL;