Changeset 10846 for trunk/Ohana/src/opihi/cmd.basic/run_for.c

Timestamp:

Dec 27, 2006, 10:43:47 AM (20 years ago)

Author:

eugene

Message:

added last, next, return, fixed continue

File:

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

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

@@ -79 +79 @@
 
   status = TRUE;
-  interrupt = loop_break = FALSE;
+  interrupt = FALSE;
   for (value = start; (sign*value < sign*end) && !interrupt; value += delta) {
-    loop_continue = loop_break = FALSE;
     if ((int)value == value) 
       set_int_variable (argv[1], (int) value);
@@ -88 +87 @@
     status = exec_loop (&loop);
     value = get_double_variable (argv[1]);
+    if (loop_next) continue;
+    if (loop_last) break;
     if (loop_break) break;
-    if (loop_continue) continue;
   }
-  loop_continue = loop_break = FALSE;
+  loop_last = loop_next = FALSE; 
+  /* 'last' and 'next' should only affect one loop */
   if (auto_break && !status) loop_break = TRUE;
 
@@ -99 +100 @@
   }
   free (loop.line);
+
   if (loop_break) return (FALSE);
   return (TRUE);
@@ -109 +111 @@
 */
      
+/* while processing the loop, the loop status variables may be set
+   by the loop commands, or the loop may quite on a failed command,
+   setting the exec_loop return status to false. the loop status variables
+   are:
+   loop_next : stop this loop, but try another loop
+   loop_last : stop loop processing, but return true so external loop may continue
+   loop_break : stop loop processing, and return false so external loop will break
+   interrupt : external interrupt signal
+*/
+