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

Timestamp:

Dec 22, 2004, 1:23:23 PM (22 years ago)

Author:

eugene

Message:

fixing dvomath for strings

File:

• trunk/Ohana/src/opihi/lib.shell/stack_math.c (modified) (1 diff)

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

@@ -1043 +1043 @@
 
 }
+
+int WW_binary (StackVar *OUT, StackVar *V1, StackVar *V2, char *op) {
+
+  int value;
+  
+  switch (op[0]) { 
+  case 'E': 
+    value = strcmp (V1[0].name, V2[0].name) ? 0 : 1;
+    break; 
+  case 'N': 
+    value = strcmp (V1[0].name, V2[0].name) ? 1 : 0;
+    break; 
+  default:
+    fprintf (stderr, "error: op %c not valid\n", op[0]);
+  }
+
+  strcpy (OUT[0].name, "tmp");
+  OUT[0].Float = value;
+  OUT[0].type = 'S';
+  OUT[0].ptr = &OUT[0].Float;
+  return (TRUE);
+
+}
+
 
 int S_unary (StackVar *OUT, StackVar *V1, char *op) {