Changeset 27838 for branches/tap_branches/Ohana/src/opihi/cmd.basic/list.c

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• Ohana (modified) (1 prop)
• Ohana/src/opihi/cmd.basic/list.c (modified) (1 diff)

branches/tap_branches/Ohana/src/opihi/cmd.basic/list.c

@@ -35 +35 @@
     set_int_variable (line, i);
 
+    return (TRUE);
+  }
+
+  // return an error if -add is given with no other args
+  if ((argc > 2) && (!strcmp (argv[2], "-splitbychar"))) {
+    if (argc < 4) {
+      gprint (GP_ERR, "USAGE: list (root) -splitbychar (char) (word) [(word)...]\n");
+      return (FALSE);
+    }
+    
+    int j, nWords;
+    char splitter;
+    char *new, *word, *ptr;
+
+    nWords = 0;
+    splitter = argv[3][0];
+
+    for (i = 0; i < argc - 3; i++) {
+      new = strcreate (argv[i+3]);
+      for (j = 0; new[j]; j++) {
+        if (new[j] == splitter) new[j] = ' ';
+      }
+
+      ptr = new;
+      while (ptr) {
+        word = thisword (ptr);
+        if (!word) break;
+        
+        sprintf (line, "%s:%d", argv[1], nWords);
+        set_str_variable (line, word);
+        FREE (word);
+        ptr = nextword (ptr);
+        nWords ++;
+      }
+      FREE (new);
+    }
+    sprintf (line, "%s:n", argv[1]);
+    set_int_variable (line, nWords);
+
+    return (TRUE);
+  }
+
+  // return an error if -copy is given with no other args
+  if ((argc > 2) && (!strcmp (argv[2], "-copy"))) {
+    char *value;
+    if (argc == 3) {
+      gprint (GP_ERR, "USAGE: list (newlist) -copy (oldlist) ...\n");
+      return (FALSE);
+    }
+    
+    sprintf (line, "%s:n", argv[3]);
+    N = get_int_variable (line, &found);
+    sprintf (line, "%s:n", argv[1]);
+    set_int_variable (line, N);
+    for (i = 0; i < N; i++) {
+      sprintf (line, "%s:%d", argv[3], i);
+      value = get_variable (line);
+      sprintf (line, "%s:%d", argv[1], i);
+      set_str_variable (line, value);
+    }
     return (TRUE);
   }