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

Timestamp:

May 8, 2025, 4:29:52 PM (12 months ago)

Author:

eugene

Message:

merge changes from eam_branches/ipp-20230313

Location:

trunk/Ohana

Files:

• . (modified) (1 prop)
• src/opihi/lib.shell/stack_math.c (modified) (2 diffs)

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

@@ -1615 +1615 @@
   int i, Nx;
   
+  // handle string vectors in the L_unary function
+  if (V1->vector->type == OPIHI_STR) {
+    int status = L_unary (OUT, V1, op);
+    return status;
+  }
+
   Nx = V1[0].vector[0].Nelements;
 
   OUT[0].vector = InitVector ();
   OUT[0].type = ST_VECTOR_TMP; /*** <<--- says this is a temporary matrix ***/
-
-  if (V1->vector->type == OPIHI_STR) {
-    ResetVector (OUT->vector, V1->vector->type, V1->vector->Nelements);
-    for (i = 0; i < V1->vector->Nelements; i++) {
-      OUT->vector->elements.Str[i] = strcreate (V1->vector->elements.Str[i]);
-    }
-    goto escape;
-  }
 
 # define V_FUNC(OP,FTYPE) {                                             \
@@ -1744 +1742 @@
     for (int i = 0; i < Nx; i++) {                      
       Ov[i] = strcreate (Iv[i]);
+    }                                                                   
+    goto escape;                                                        
+  }
+  if (!strcmp (op, "toupper")) {
+    for (int i = 0; i < Nx; i++) {                      
+      Ov[i] = strcreate (Iv[i]);
+      for (int j = 0; Ov[i][j]; j++) {
+        Ov[i][j] = toupper ((unsigned int) Ov[i][j]);
+      }
+    }                                                                   
+    goto escape;                                                        
+  }
+  if (!strcmp (op, "tolower")) {
+    for (int i = 0; i < Nx; i++) {                      
+      Ov[i] = strcreate (Iv[i]);
+      for (int j = 0; Ov[i][j]; j++) {
+        Ov[i][j] = tolower ((unsigned int) Ov[i][j]);
+      }
     }                                                                   
     goto escape;