Changeset 33849 for branches/eam_branches/ipp-20120405/Ohana

Timestamp:

May 8, 2012, 1:10:28 PM (14 years ago)

Author:

eugene

Message:

add foreach loop

Location:

branches/eam_branches/ipp-20120405/Ohana/src/opihi

Files:

• cmd.basic/Makefile (modified) (1 diff)
• cmd.basic/init.c (modified) (2 diffs)
• cmd.basic/run_foreach.c (added)
• lib.shell/ListOps.c (modified) (2 diffs)

branches/eam_branches/ipp-20120405/Ohana/src/opihi/cmd.basic/Makefile

@@ -44 +44 @@
 $(SRC)/quit.$(ARCH).o        \
 $(SRC)/run_for.$(ARCH).o    \
+$(SRC)/run_foreach.$(ARCH).o    \
 $(SRC)/run_if.$(ARCH).o     \
 $(SRC)/run_while.$(ARCH).o  \

branches/eam_branches/ipp-20120405/Ohana/src/opihi/cmd.basic/init.c

@@ -31 +31 @@
 int quit            PROTO((int, char **));
 int run_for         PROTO((int, char **));
+int run_foreach     PROTO((int, char **));
 int run_if          PROTO((int, char **));
 int run_while       PROTO((int, char **));
@@ -81 +82 @@
   {1, "quit",          quit,               "exit program *"},
   {1, "for",           run_for,            "for loop"}, 
+  {1, "foreach",       run_foreach,        "foreach loop"}, 
   {1, "if",            run_if,             "logical cases *"}, 
   {1, "while",         run_while,          "while loop"}, 

branches/eam_branches/ipp-20120405/Ohana/src/opihi/lib.shell/ListOps.c

@@ -116 +116 @@
   
   status = !strcmp (comm, "for");
+  free (comm);
+  return (status);
+}
+
+int is_foreach_loop (char *line) {
+
+  int status;
+  char *comm;
+
+  comm = thisword (line);
+  if (comm == (char *) NULL) return (FALSE);
+  
+  status = !strcmp (comm, "foreach");
   free (comm);
   return (status);
@@ -266 +279 @@
   status |= is_macro_create (line);
   status |= is_for_loop (line);
+  status |= is_foreach_loop (line);
   status |= is_list_data (line);
   status |= is_loop (line);