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

Timestamp:

Apr 1, 2012, 3:24:39 PM (14 years ago)

Author:

eugene

Message:

support for parallel dvo in mextract, avextract, avmerge, gstar, gcat; remove some if-def-ed out code already moved to libdvo; list -vectors and -buffers options (store names of vectors and buffers in lists); list -copy give error if missing source; catlist, hosts & remote functions to support parallel dvos; skyregion -save option; new skycoverage modes (-min-ubercal; -min-dmag-sys; -min-mcal; -max-mcal); gstar output formatting cleanups; add more average info to gstar output; functions for spectral similarity analysis; coords returns nans for projections off the sphere; fix cumulative function; add name:type option to opihi/read function (eg read a:float 2 b:time 3 c:int 4); line -frac option; vtype function to get vector types; threshold function; write -fits option; code for unfinished mtype function (matching vtype)

File:

• trunk/Ohana/src/opihi/cmd.basic/list.c (modified) (4 diffs)

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

@@ -19 +19 @@
     remove_argument (N, &argc, argv);
     RunCommand = TRUE;
+  }
+
+  if ((N = get_argument (argc, argv, "-vectors"))) {
+    remove_argument (N, &argc, argv);
+    if (argc != 2) {
+      gprint (GP_ERR, "USAGE: list (root) -vectors\n");
+      return (FALSE);
+    }
+    ListVectorsToList (argv[1]);
+    return TRUE;
+  }
+
+  if ((N = get_argument (argc, argv, "-buffers"))) {
+    remove_argument (N, &argc, argv);
+    if (argc != 2) {
+      gprint (GP_ERR, "USAGE: list (root) -buffers\n");
+      return (FALSE);
+    }
+    ListBuffersToList (argv[1]);
+    return TRUE;
   }
 
@@ -85 +105 @@
     }
     
+    // old list must exist, or give an error
     sprintf (line, "%s:n", argv[3]);
     N = get_int_variable (line, &found);
+    if (!found) {
+      gprint (GP_ERR, "USAGE: list (newlist) -copy (oldlist) ...\n");
+      gprint (GP_ERR, "ERROR: missing input list\n");
+      return (FALSE);
+    }
+      
+
     sprintf (line, "%s:n", argv[1]);
     set_int_variable (line, N);
@@ -118 +146 @@
 
   // 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) {
@@ -155 +182 @@
 
   if (argc != 2) {
-    gprint (GP_ERR, "USAGE: list (root)                : supply list data, terminate with 'END'\n");
-    gprint (GP_ERR, "USAGE: list (root) -x (command)   : create list from shell output\n");
-    gprint (GP_ERR, "USAGE: list (root) -split (words) : create list from words\n");
-    gprint (GP_ERR, "USAGE: list (root) -add (words)   : extend a list\n");
+    gprint (GP_ERR, "USAGE: list (root)                                        : supply list data, terminate with 'END'\n");
+    gprint (GP_ERR, "USAGE: list (root) -x (command)                           : create list from shell output\n");
+    gprint (GP_ERR, "USAGE: list (root) -vectors                               : create list from vector names\n");
+    gprint (GP_ERR, "USAGE: list (root) -buffers                               : create list from buffer names\n");
+    gprint (GP_ERR, "USAGE: list (root) -split (words)                         : create list from words\n");
+    gprint (GP_ERR, "USAGE: list (root) -splitbychar (char) (word) [(words)..] : create list from words\n");
+    gprint (GP_ERR, "USAGE: list (root) -add (words)                           : extend a list\n");    
+    gprint (GP_ERR, "USAGE: list (root) -copy (list)                           : copy a list to a new name\n");
+    gprint (GP_ERR, "USAGE: list (root) -del (word)                            : delete the entry by value\n");
     return (FALSE);
   }