Changeset 182 for trunk/thune/eval.c

Timestamp:

06/11/06 04:56:12 (3 years ago)

Author:

krobillard

Message:

Thune - Added 'forever & 'break.

Files:

• trunk/thune/eval.c (modified) (4 diffs)

trunk/thune/eval.c

@@ -528 +528 @@
             case CC_EVAL:
             case CC_EVAL_RUNNING:
+            case CC_FOREVER:
             case CC_REDUCE:
                  toc -= CC_LEN_EVAL;
@@ -783 +784 @@
                         break;
 
+                    case OP_FOREVER:        // (block! -- )
+                        PUSHC_EVAL( blkN, start, pc + 1 );
+                        UR_TOC->eval.code = CC_FOREVER;
+                        UR_TOC->eval.n    = UR_TOS->series.n;
+                        UR_TOC->eval.it   = UR_TOS->series.it;
+                        UR_C_GROW;
+                        UR_S_DROP;
+                        goto control;
+
                     //case OP_END:
                     //    goto finish;
@@ -987 +997 @@
             goto control;
 
+        case CC_FOREVER:
+            SET_BLK_PC( UR_TOC->eval.n, UR_TOC->eval.it );
+            UR_C_GROW;
+            goto execute;
+
         case CC_REDUCE:
         {
@@ -1079 +1094 @@
                 break;
 
+            case CC_FOREVER:
+                UR_C_DECN( CC_LEN_FOREVER );
+check_break:
+                if( ur_is(UR_TOS, UT_LITWORD) &&
+                    ur_atom(UR_TOS) == UR_ATOM_BREAK )
+                {
+                    UR_S_DROP;
+                    goto control;
+                }
+                break;
+
             case CC_ITER:
                 UR_C_DECN( CC_LEN_ITER );
-                break;
+                goto check_break;
 
             case CC_CATCH: