From 2416a8654e3c1a4b74fcc0379dac5294670a1f46 Mon Sep 17 00:00:00 2001
From: Nicholas Noll <nnoll523@gmail.com>
Date: Tue, 26 Oct 2021 12:35:22 -0700
Subject: feat(rc): keywords now recognized. for and while loop

Prototypes for loops sketched. This required recognizing keywords and
returning from yylex. Debugging/testing will be required.
---
 sys/cmd/rc/code.c | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

(limited to 'sys/cmd/rc/code.c')

diff --git a/sys/cmd/rc/code.c b/sys/cmd/rc/code.c
index 0723279..786f284 100644
--- a/sys/cmd/rc/code.c
+++ b/sys/cmd/rc/code.c
@@ -163,6 +163,43 @@ walk(Tree *node)
         }
         node = n;
         break;
+    /* control structures */
+    case Twhile:
+        addr1 = interpreter.i; // head of loop
+        walk(node->child[0]);
+        if(addr1 == interpreter.i)
+            fatal("TODO");
+        emitf(Xtrue);
+        addr2 = emiti(0); // goto end of loop
+
+        walk(node->child[1]);
+        emitf(Xgoto);
+        emiti(addr1);   // goto top of loop
+        storepc(addr2);
+        break;
+
+    case Tfor:
+        emitf(Xmark);
+        if(node->child[1]){ // for( x in X )
+            walk(node->child[1]);
+            // emitf(Xglob)
+        }else{              // for(X)
+            fatal("TODO");
+        }
+        emitf(Xmark); // null initial value for Xlocal
+        emitf(Xmark);
+        walk(node->child[0]);
+        emitf(Xlocal);
+
+        addr1 = emitf(Xfor);
+        addr2 = emiti(0);
+
+        walk(node->child[2]);
+        emitf(Xgoto);
+        emiti(addr1);
+        storepc(addr2);
+        emitf(Xunlocal);
+        break;
 
     /* forks */
     case '&':
-- 
cgit v1.2.1