Changeset 4305 for trunk/Ohana/src/opihi/lib.shell/evaluate_stack.c

Timestamp:

Jun 17, 2005, 12:20:48 PM (21 years ago)

Author:

eugene

Message:

added erf to stack_math, fixed up precedence order

File:

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

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

@@ -75 +75 @@
       TWO_OP ("S","W",WW_binary);      
       
-      /*
-      if (!strncasecmp (&stack[i - 2].type, "V", 1) && !strncasecmp (&stack[i - 1].type, "V", 1)) 
-        status = VV_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "V", 1) && !strncasecmp (&stack[i - 1].type, "S", 1)) 
-        status = VS_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "S", 1) && !strncasecmp (&stack[i - 1].type, "V", 1)) 
-        status = SV_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "M", 1) && !strncasecmp (&stack[i - 1].type, "V", 1)) 
-        status = MV_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "V", 1) && !strncasecmp (&stack[i - 1].type, "M", 1)) 
-        status = VM_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "M", 1) && !strncasecmp (&stack[i - 1].type, "M", 1)) 
-        status = MM_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "M", 1) && !strncasecmp (&stack[i - 1].type, "S", 1)) 
-        status = MS_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "S", 1) && !strncasecmp (&stack[i - 1].type, "M", 1)) 
-        status = SM_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "S", 1) && !strncasecmp (&stack[i - 1].type, "S", 1)) 
-        status = SS_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      if (!strncasecmp (&stack[i - 2].type, "X", 1) && !strncasecmp (&stack[i - 1].type, "X", 1)) 
-        status = XX_binary (&tmp_stack, &stack[i - 2], &stack[i - 1], stack[i].name);
-      */
-
-      /* string op number is not valid 
-      if (!strncasecmp (&stack[i - 2].type, "W", 1) && strncasecmp (&stack[i - 1].type, "W", 1)) {
-        free (tmp_stack.name);
-        return (FALSE);
-      }
-      if (strncasecmp (&stack[i - 2].type, "W", 1) && !strncasecmp (&stack[i - 1].type, "W", 1)) {
-        free (tmp_stack.name);
-        return (FALSE);
-      } */
-
       if (!status) {
         free (tmp_stack.name);