Changeset 41991 for branches/eam_branches/ipp-20211108/Ohana/src/opihi/lib.shell/stack_math.c

Timestamp:

Jan 19, 2022, 6:39:42 AM (4 years ago)

Author:

eugene

Message:

add unary string-valued scalar functions (isflt, isnan, isword, isnum)

File:

• branches/eam_branches/ipp-20211108/Ohana/src/opihi/lib.shell/stack_math.c (modified) (3 diffs)

branches/eam_branches/ipp-20211108/Ohana/src/opihi/lib.shell/stack_math.c

@@ -1500 +1500 @@
     if ((FTYPE == ST_SCALAR_INT) && (V1->type == ST_SCALAR_INT)) {      \
       opihi_int M1  = V1[0].IntValue;                                   \
+      OUT[0].type = ST_SCALAR_INT;                                      \
+      OUT[0].IntValue = OP;                                             \
+      clear_stack (V1);                                                 \
+      return (TRUE);                                                    \
+    }                                                                   \
+  }
+
+# define W_FUNC(OP,FTYPE) {                                             \
+    if (V1->type == ST_SCALAR_FLT) {                                    \
+      OUT[0].type = ST_SCALAR_FLT;                                      \
+      OUT[0].FltValue = OP;                                             \
+      clear_stack (V1);                                                 \
+      return (TRUE);                                                    \
+    }                                                                   \
+    if ((FTYPE == ST_SCALAR_FLT) && (V1->type == ST_SCALAR_INT)) {      \
+      OUT[0].type = ST_SCALAR_FLT;                                      \
+      OUT[0].FltValue = OP;                                             \
+      clear_stack (V1);                                                 \
+      return (TRUE);                                                    \
+    }                                                                   \
+    if ((FTYPE == ST_SCALAR_INT) && (V1->type == ST_SCALAR_INT)) {      \
       OUT[0].type = ST_SCALAR_INT;                                      \
       OUT[0].IntValue = OP;                                             \
@@ -1536 +1557 @@
   if (!strcmp (op, "datan"))  S_FUNC(atan (M1)*DEG_RAD, ST_SCALAR_FLT);
   if (!strcmp (op, "lgamma")) S_FUNC(lgamma (M1), ST_SCALAR_FLT);
-  if (!strcmp (op, "rnd"))    S_FUNC(0.0*M1 + drand48(), ST_SCALAR_FLT);
-  if (!strcmp (op, "drnd"))   S_FUNC(0.0*M1 + drand48(), ST_SCALAR_FLT);
-  if (!strcmp (op, "lrnd"))   S_FUNC(0*M1 + lrand48(), ST_SCALAR_INT);
-  if (!strcmp (op, "mrnd"))   S_FUNC(0*M1 + mrand48(), ST_SCALAR_INT);
   if (!strcmp (op, "not"))    S_FUNC(!(M1), ST_SCALAR_INT);
   if (!strcmp (op, "--"))     S_FUNC(-1*M1, ST_SCALAR_INT); // NOTE: opihi_int is signed, 
@@ -1545 +1562 @@
   if (!strcmp (op, "isnan"))  S_FUNC(isnan((opihi_flt)(M1)), ST_SCALAR_FLT); // XXX modify in future   
 
+  // these ops do not use the V1 value (W_FUNC does define a temp variable M1)
+  if (!strcmp (op, "rnd"))    W_FUNC(drand48(), ST_SCALAR_FLT);
+  if (!strcmp (op, "drnd"))   W_FUNC(drand48(), ST_SCALAR_FLT);
+  if (!strcmp (op, "lrnd"))   W_FUNC(lrand48(), ST_SCALAR_INT);
+  if (!strcmp (op, "mrnd"))   W_FUNC(mrand48(), ST_SCALAR_INT);
+
+  // these are also valid for string values
+  if (!strcmp (op, "isword")) W_FUNC(FALSE, ST_SCALAR_INT);
+  if (!strcmp (op, "isnum"))  W_FUNC(TRUE,  ST_SCALAR_INT);
+  if (!strcmp (op, "isint"))  W_FUNC((V1->type == ST_SCALAR_INT), ST_SCALAR_INT);
+  if (!strcmp (op, "isflt"))  W_FUNC((V1->type == ST_SCALAR_FLT), ST_SCALAR_INT);
+
 # undef S_FUNC
-
-  clear_stack (V1);
-
-  char line[512]; // this is only used to report an error 
-  snprintf (line, 512, "error: op %s not defined as unary scalar op!", op);
+# undef W_FUNC
+
+  clear_stack (V1);
+
+  char line[512]; // this is only used to report an error 
+  snprintf (line, 512, "error: op %s not defined as unary scalar op for a numerical value!", op);
+  push_error (line);
+  return (FALSE);
+}
+
+int W_unary (StackVar *OUT, StackVar *V1, char *op) {
+
+# define W_FUNC(VALUE) {                                                \
+    OUT[0].type = ST_SCALAR_INT;                                        \
+    OUT[0].IntValue = VALUE;                                            \
+    clear_stack (V1);                                                   \
+    return (TRUE);                                                      \
+  }
+
+  // string unary functions (all result in int output values)
+  if (!strcmp (op, "isword")) W_FUNC(TRUE);
+  if (!strcmp (op, "isnum"))  W_FUNC(FALSE);
+  if (!strcmp (op, "isint"))  W_FUNC(FALSE);
+  if (!strcmp (op, "isflt"))  W_FUNC(FALSE);
+  if (!strcmp (op, "length")) W_FUNC(strlen(V1[0].name));
+
+# undef W_FUNC
+
+  clear_stack (V1);
+
+  char line[512]; // this is only used to report an error 
+  snprintf (line, 512, "error: op %s not defined as unary scalar op for a string value!", op);
   push_error (line);
   return (FALSE);