Changeset 2801 for trunk/Ohana/src/opihi/lib.shell/stack_math.c

Timestamp:

Dec 23, 2004, 7:36:01 AM (22 years ago)

Author:

eugene

Message:

fixed dvomath for strings

File:

• trunk/Ohana/src/opihi/lib.shell/stack_math.c (modified) (20 diffs)

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

@@ -10 +10 @@
   int i, Nx;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V1[0].vector[0].Nelements;
@@ -104 +105 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -127 +130 @@
   int i, Nx;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V2[0].vector[0].Nelements;
@@ -213 +217 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -231 +237 @@
   int i, Nx;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V1[0].vector[0].Nelements;
@@ -317 +324 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -335 +344 @@
   int i, j, Nx, Ny;
   float *out, *M1, *M2;
-  
+  char line[512];
+ 
   Nx = V1[0].buffer[0].matrix.Naxis[0];
   Ny = V1[0].buffer[0].matrix.Naxis[1];
   if (Ny != V2[0].vector[0].Nelements) {
-    fprintf (stderr, "dimension mismatch\n");
+    push_error ("dimension mismatch");
     return (FALSE);
   }
@@ -462 +472 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -486 +498 @@
   int i, j, Nx, Ny;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V2[0].buffer[0].matrix.Naxis[0];
@@ -628 +641 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -651 +666 @@
   int i, Nx, Ny;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V1[0].buffer[0].matrix.Naxis[0];
@@ -743 +759 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -768 +786 @@
   int i, Nx, Ny;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V1[0].buffer[0].matrix.Naxis[0];
@@ -856 +875 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -873 +894 @@
   int i, Nx, Ny;
   float *out, *M1, *M2;
+  char line[512];
   
   Nx = V2[0].buffer[0].matrix.Naxis[0];
@@ -960 +982 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
 
@@ -976 +1000 @@
 
   float *M1, *M2, *out;
-  
+  char line[512];
+
   M1  = V1[0].ptr;
   M2  = V2[0].ptr;
@@ -1036 +1061 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not defined!\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }
   OUT[0].Float = *(OUT[0].ptr);
@@ -1047 +1074 @@
 
   int value;
-  
+  char line[512];
+
   switch (op[0]) { 
   case 'E': 
@@ -1056 +1084 @@
     break; 
   default:
-    fprintf (stderr, "error: op %c not valid\n", op[0]);
+    sprintf (line, "error: op %c not defined!", op[0]);
+    push_error (line);
+    return (FALSE);
   }