Changeset 13538 for trunk/Ohana/src/opihi/cmd.basic/list.c

Timestamp:

May 30, 2007, 12:10:43 PM (19 years ago)

Author:

eugene

Message:

adding -del option

File:

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

trunk/Ohana/src/opihi/cmd.basic/list.c

@@ -55 +55 @@
 
     return (TRUE);
+  }
+
+  // remove the single named entry from the list (finds entry with given name, reduces list length by one)
+  // return an error if -add is given with no other args
+  if ((argc > 2) && (!strcmp (argv[2], "-del"))) {
+    if (argc != 4) {
+      gprint (GP_ERR, "USAGE: list (root) -del (word)\n");
+      return (FALSE);
+    }
+    
+    int j;
+    char *value, *next_value;
+    char line2[1024];
+
+    sprintf (line, "%s:n", argv[1]);
+    N = get_int_variable (line, &found);
+    for (i = 0; i < N; i++) {
+      sprintf (line, "%s:%d", argv[1], i);
+      value = get_variable (line);
+      if (value == NULL) continue;
+      if (!strcmp (value, argv[3])) {
+        free (value);
+        for (j = i + 1; j < N; j++) {
+          sprintf (line2, "%s:%d", argv[1], j);
+          next_value = get_variable (line2);
+          set_str_variable (line, next_value);
+          strcpy (line, line2);
+        }
+        DeleteNamedScalar (line);
+        sprintf (line2, "%s:n", argv[1]);
+        set_int_variable (line2, N - 1);
+        return (TRUE);
+      }
+      free (value);
+    }      
+    gprint (GP_ERR, "value %s not found in list\n", argv[3]);
+    return (FALSE);
   }