Changeset 11119 for trunk/Ohana/src/opihi/lib.shell/ListOps.c

Timestamp:

Jan 17, 2007, 3:39:12 PM (20 years ago)

Author:

eugene

Message:

fixed problem with list in macro

File:

• trunk/Ohana/src/opihi/lib.shell/ListOps.c (modified) (2 diffs)

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

@@ -157 +157 @@
 }
 
+// list (word) : nested list
+// list (word) -x : not nested list
+// list (word) -split : not nested list
+int is_list_data (char *line) {
+
+  char *comm, *temp;
+
+  temp = thisword (nextword (nextword (line)));
+  comm = thisword (line);
+
+  if (comm == NULL) goto escape;
+
+  if (strcmp (comm, "list")) goto escape;
+
+  /* if (cond) (command) does not define a complete block */
+  if (temp != NULL) {
+      if (!strcmp (temp, "-x")) goto escape;
+      if (!strcmp (temp, "-split")) goto escape;
+      if (!strcmp (temp, "-add")) goto escape;
+  }
+
+  if (temp != NULL) free (temp);
+  if (comm != NULL) free (comm);
+  return (TRUE);
+
+escape: 
+  if (comm != NULL) free (comm);
+  if (temp != NULL) free (temp);
+  return (FALSE);
+}
+
 int is_loop (char *line) {
 
@@ -216 +247 @@
   status |= is_macro_create (line);
   status |= is_for_loop (line);
+  status |= is_list_data (line);
   status |= is_loop (line);
   status |= is_task (line);