Index: /branches/eam_branches/ipp-20150616/Ohana/src/opihi/lib.shell/stack_math.c
===================================================================
--- /branches/eam_branches/ipp-20150616/Ohana/src/opihi/lib.shell/stack_math.c	(revision 38484)
+++ /branches/eam_branches/ipp-20150616/Ohana/src/opihi/lib.shell/stack_math.c	(revision 38485)
@@ -32,10 +32,10 @@
 
   switch (op[0]) {
-  case '?': SSS_FUNC(M1 ? M2: M3);
-  default:
-    snprintf (line, 512, "error: op %c not defined!", op[0]);
-    push_error (line);
-    return (FALSE);
-}
+    case '?': SSS_FUNC(M1 ? M2: M3);
+    default:
+      snprintf (line, 512, "error: op %c not defined!", op[0]);
+      push_error (line);
+      return (FALSE);
+  }
 # undef SSS_FUNC
 
@@ -447,36 +447,36 @@
 
   switch (op[0]) { 
-  case '+': SV_FUNC(ST_SCALAR_INT, M1 + *M2);
-  case '-': SV_FUNC(ST_SCALAR_INT, M1 - *M2);
-  case '*': SV_FUNC(ST_SCALAR_INT, M1 * *M2);
-  case '/': SV_FUNC(ST_SCALAR_FLT, M1 / (opihi_flt) *M2);
-  case '%': SV_FUNC(ST_SCALAR_INT, (long long) M1 % (long long) *M2);
-  case '^': SV_FUNC(ST_SCALAR_FLT, pow (M1, *M2));
-  case '@': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
-  case 'a': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
-  case 'D': SV_FUNC(ST_SCALAR_INT, MIN (M1, *M2));
-  case 'U': SV_FUNC(ST_SCALAR_INT, MAX (M1, *M2));
-  case '<': SV_FUNC(ST_SCALAR_INT, (M1 < *M2) ? 1 : 0);
-  case '>': SV_FUNC(ST_SCALAR_INT, (M1 > *M2) ? 1 : 0);
-  case '&': SV_FUNC(ST_SCALAR_INT, ((long long)M1 & (long long)*M2));
-  case '|': SV_FUNC(ST_SCALAR_INT, ((long long)M1 | (long long)*M2));
-  case 'E': SV_FUNC(ST_SCALAR_INT, (M1 == *M2) ? 1 : 0);
-  case 'N': SV_FUNC(ST_SCALAR_INT, (M1 != *M2) ? 1 : 0);
-  case 'L': SV_FUNC(ST_SCALAR_INT, (M1 <= *M2) ? 1 : 0);
-  case 'G': SV_FUNC(ST_SCALAR_INT, (M1 >= *M2) ? 1 : 0);
-  case 'A': SV_FUNC(ST_SCALAR_INT, (M1 && *M2) ? 1 : 0);
-  case 'O': SV_FUNC(ST_SCALAR_INT, (M1 || *M2) ? 1 : 0);
-  default:
-    snprintf (line, 512, "error: op %c not defined!", op[0]);
-    push_error (line);
-    return (FALSE);
-}
+    case '+': SV_FUNC(ST_SCALAR_INT, M1 + *M2);
+    case '-': SV_FUNC(ST_SCALAR_INT, M1 - *M2);
+    case '*': SV_FUNC(ST_SCALAR_INT, M1 * *M2);
+    case '/': SV_FUNC(ST_SCALAR_FLT, M1 / (opihi_flt) *M2);
+    case '%': SV_FUNC(ST_SCALAR_INT, (long long) M1 % (long long) *M2);
+    case '^': SV_FUNC(ST_SCALAR_FLT, pow (M1, *M2));
+    case '@': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
+    case 'a': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
+    case 'D': SV_FUNC(ST_SCALAR_INT, MIN (M1, *M2));
+    case 'U': SV_FUNC(ST_SCALAR_INT, MAX (M1, *M2));
+    case '<': SV_FUNC(ST_SCALAR_INT, (M1 < *M2) ? 1 : 0);
+    case '>': SV_FUNC(ST_SCALAR_INT, (M1 > *M2) ? 1 : 0);
+    case '&': SV_FUNC(ST_SCALAR_INT, ((long long)M1 & (long long)*M2));
+    case '|': SV_FUNC(ST_SCALAR_INT, ((long long)M1 | (long long)*M2));
+    case 'E': SV_FUNC(ST_SCALAR_INT, (M1 == *M2) ? 1 : 0);
+    case 'N': SV_FUNC(ST_SCALAR_INT, (M1 != *M2) ? 1 : 0);
+    case 'L': SV_FUNC(ST_SCALAR_INT, (M1 <= *M2) ? 1 : 0);
+    case 'G': SV_FUNC(ST_SCALAR_INT, (M1 >= *M2) ? 1 : 0);
+    case 'A': SV_FUNC(ST_SCALAR_INT, (M1 && *M2) ? 1 : 0);
+    case 'O': SV_FUNC(ST_SCALAR_INT, (M1 || *M2) ? 1 : 0);
+    default:
+      snprintf (line, 512, "error: op %c not defined!", op[0]);
+      push_error (line);
+      return (FALSE);
+  }
 # undef SV_FUNC
 
   /** free up any temporary buffers: **/
   if (V2[0].type == ST_VECTOR_TMP) {
-  free (V2[0].vector[0].elements.Ptr);
-  free (V2[0].vector);
-}
+    free (V2[0].vector[0].elements.Ptr);
+    free (V2[0].vector);
+  }
 
   clear_stack (V1);
@@ -554,29 +554,29 @@
 
   switch (op[0]) { 
-  case '+': VS_FUNC(ST_SCALAR_INT, *M1 + M2);
-  case '-': VS_FUNC(ST_SCALAR_INT, *M1 - M2);
-  case '*': VS_FUNC(ST_SCALAR_INT, *M1 * M2);
-  case '/': VS_FUNC(ST_SCALAR_FLT, *M1 / (opihi_flt) M2);
-  case '%': VS_FUNC(ST_SCALAR_INT, (long long) *M1 % (long long) M2);
-  case '^': VS_FUNC(ST_SCALAR_FLT, pow (*M1, M2));
-  case '@': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
-  case 'a': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
-  case 'D': VS_FUNC(ST_SCALAR_INT, MIN (*M1, M2));
-  case 'U': VS_FUNC(ST_SCALAR_INT, MAX (*M1, M2));
-  case '<': VS_FUNC(ST_SCALAR_INT, (*M1 < M2) ? 1 : 0);
-  case '>': VS_FUNC(ST_SCALAR_INT, (*M1 > M2) ? 1 : 0);
-  case '&': VS_FUNC(ST_SCALAR_INT, ((long long)*M1 & (long long)M2));
-  case '|': VS_FUNC(ST_SCALAR_INT, ((long long)*M1 | (long long)M2));
-  case 'E': VS_FUNC(ST_SCALAR_INT, (*M1 == M2) ? 1 : 0);
-  case 'N': VS_FUNC(ST_SCALAR_INT, (*M1 != M2) ? 1 : 0);
-  case 'L': VS_FUNC(ST_SCALAR_INT, (*M1 <= M2) ? 1 : 0);
-  case 'G': VS_FUNC(ST_SCALAR_INT, (*M1 >= M2) ? 1 : 0);
-  case 'A': VS_FUNC(ST_SCALAR_INT, (*M1 && M2) ? 1 : 0);
-  case 'O': VS_FUNC(ST_SCALAR_INT, (*M1 || M2) ? 1 : 0);
-  default:
-    snprintf (line, 512, "error: op %c not defined!", op[0]);
-    push_error (line);
-    return (FALSE);
-}
+    case '+': VS_FUNC(ST_SCALAR_INT, *M1 + M2);
+    case '-': VS_FUNC(ST_SCALAR_INT, *M1 - M2);
+    case '*': VS_FUNC(ST_SCALAR_INT, *M1 * M2);
+    case '/': VS_FUNC(ST_SCALAR_FLT, *M1 / (opihi_flt) M2);
+    case '%': VS_FUNC(ST_SCALAR_INT, (long long) *M1 % (long long) M2);
+    case '^': VS_FUNC(ST_SCALAR_FLT, pow (*M1, M2));
+    case '@': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
+    case 'a': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
+    case 'D': VS_FUNC(ST_SCALAR_INT, MIN (*M1, M2));
+    case 'U': VS_FUNC(ST_SCALAR_INT, MAX (*M1, M2));
+    case '<': VS_FUNC(ST_SCALAR_INT, (*M1 < M2) ? 1 : 0);
+    case '>': VS_FUNC(ST_SCALAR_INT, (*M1 > M2) ? 1 : 0);
+    case '&': VS_FUNC(ST_SCALAR_INT, ((long long)*M1 & (long long)M2));
+    case '|': VS_FUNC(ST_SCALAR_INT, ((long long)*M1 | (long long)M2));
+    case 'E': VS_FUNC(ST_SCALAR_INT, (*M1 == M2) ? 1 : 0);
+    case 'N': VS_FUNC(ST_SCALAR_INT, (*M1 != M2) ? 1 : 0);
+    case 'L': VS_FUNC(ST_SCALAR_INT, (*M1 <= M2) ? 1 : 0);
+    case 'G': VS_FUNC(ST_SCALAR_INT, (*M1 >= M2) ? 1 : 0);
+    case 'A': VS_FUNC(ST_SCALAR_INT, (*M1 && M2) ? 1 : 0);
+    case 'O': VS_FUNC(ST_SCALAR_INT, (*M1 || M2) ? 1 : 0);
+    default:
+      snprintf (line, 512, "error: op %c not defined!", op[0]);
+      push_error (line);
+      return (FALSE);
+  }
 # undef VS_FUNC
 
@@ -584,7 +584,7 @@
 
   if (V1[0].type == ST_VECTOR_TMP) {
-  free (V1[0].vector[0].elements.Ptr);
-  free (V1[0].vector);
-}
+    free (V1[0].vector[0].elements.Ptr);
+    free (V1[0].vector);
+  }
 
   clear_stack (V1);
@@ -1061,29 +1061,29 @@
 
   switch (op[0]) { 
-  case '+': SS_FUNC(ST_SCALAR_INT, M1 + M2);
-  case '-': SS_FUNC(ST_SCALAR_INT, M1 - M2);
-  case '*': SS_FUNC(ST_SCALAR_INT, M1 * M2);
-  case '/': SS_FUNC(ST_SCALAR_FLT, M1 / (opihi_flt) M2);
-  case '%': SS_FUNC(ST_SCALAR_INT, (long long) M1 % (long long) M2);
-  case '^': SS_FUNC(ST_SCALAR_FLT, pow (M1, M2));
-  case '@': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
-  case 'a': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
-  case 'D': SS_FUNC(ST_SCALAR_INT, MIN (M1, M2));
-  case 'U': SS_FUNC(ST_SCALAR_INT, MAX (M1, M2));
-  case '<': SS_FUNC(ST_SCALAR_INT, (M1 < M2) ? 1 : 0);
-  case '>': SS_FUNC(ST_SCALAR_INT, (M1 > M2) ? 1 : 0);
-  case '&': SS_FUNC(ST_SCALAR_INT, ((long long)M1 & (long long)M2));
-  case '|': SS_FUNC(ST_SCALAR_INT, ((long long)M1 | (long long)M2));
-  case 'E': SS_FUNC(ST_SCALAR_INT, (M1 == M2) ? 1 : 0);
-  case 'N': SS_FUNC(ST_SCALAR_INT, (M1 != M2) ? 1 : 0);
-  case 'L': SS_FUNC(ST_SCALAR_INT, (M1 <= M2) ? 1 : 0);
-  case 'G': SS_FUNC(ST_SCALAR_INT, (M1 >= M2) ? 1 : 0);
-  case 'A': SS_FUNC(ST_SCALAR_INT, (M1 && M2) ? 1 : 0);
-  case 'O': SS_FUNC(ST_SCALAR_INT, (M1 || M2) ? 1 : 0);
-  default:
-    snprintf (line, 512, "error: op %c not defined!", op[0]);
-    push_error (line);
-    return (FALSE);
-}
+    case '+': SS_FUNC(ST_SCALAR_INT, M1 + M2);
+    case '-': SS_FUNC(ST_SCALAR_INT, M1 - M2);
+    case '*': SS_FUNC(ST_SCALAR_INT, M1 * M2);
+    case '/': SS_FUNC(ST_SCALAR_FLT, M1 / (opihi_flt) M2);
+    case '%': SS_FUNC(ST_SCALAR_INT, (long long) M1 % (long long) M2);
+    case '^': SS_FUNC(ST_SCALAR_FLT, pow (M1, M2));
+    case '@': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
+    case 'a': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
+    case 'D': SS_FUNC(ST_SCALAR_INT, MIN (M1, M2));
+    case 'U': SS_FUNC(ST_SCALAR_INT, MAX (M1, M2));
+    case '<': SS_FUNC(ST_SCALAR_INT, (M1 < M2) ? 1 : 0);
+    case '>': SS_FUNC(ST_SCALAR_INT, (M1 > M2) ? 1 : 0);
+    case '&': SS_FUNC(ST_SCALAR_INT, ((long long)M1 & (long long)M2));
+    case '|': SS_FUNC(ST_SCALAR_INT, ((long long)M1 | (long long)M2));
+    case 'E': SS_FUNC(ST_SCALAR_INT, (M1 == M2) ? 1 : 0);
+    case 'N': SS_FUNC(ST_SCALAR_INT, (M1 != M2) ? 1 : 0);
+    case 'L': SS_FUNC(ST_SCALAR_INT, (M1 <= M2) ? 1 : 0);
+    case 'G': SS_FUNC(ST_SCALAR_INT, (M1 >= M2) ? 1 : 0);
+    case 'A': SS_FUNC(ST_SCALAR_INT, (M1 && M2) ? 1 : 0);
+    case 'O': SS_FUNC(ST_SCALAR_INT, (M1 || M2) ? 1 : 0);
+    default:
+      snprintf (line, 512, "error: op %c not defined!", op[0]);
+      push_error (line);
+      return (FALSE);
+  }
 # undef SS_FUNC
 
@@ -1133,8 +1133,8 @@
     case 'E': 
       value = strcmp (V1[0].name, V2[0].name) ? 0 : 1;
-    break; 
+      break; 
     case 'N': 
       value = strcmp (V1[0].name, V2[0].name) ? 1 : 0;
-    break; 
+      break; 
     default:
       snprintf (line, 512, "error: op %c not defined for string operations!", op[0]);