From eeca88e98212d7b61253b4be5f4ebb2f4b36e770 Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Mon, 29 May 2023 16:04:01 -0400
Subject: feat: tuck and clearstack commands

---
 optable.c | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'optable.c')

diff --git a/optable.c b/optable.c
index 8bbca07..ffc4d83 100644
--- a/optable.c
+++ b/optable.c
@@ -55,10 +55,11 @@ static wordop optable[OPTABLE_MAX_SIZE] = {
     {"then", builtin, {donothing}},
     {"depth", builtin, {depth}},
     {".s", builtin, {stack_printall}},
+    {"clearstack", builtin, {stack_clear}},
     {"if", directive, {ifdirective}},
     {":", directive, {defineop}},
 };
-static int optablelen = 25;
+static int optablelen = 26;
 #pragma clang diagnostic pop
 
 compileditem* compilewords(int len, char** script) {
@@ -87,13 +88,21 @@ void optable_init() {
     optable[optablelen].oplist = oplist;
     optablelen++;
 
+    optable[optablelen].word = "tuck";
+    optable[optablelen].optype = compiled;
+    oplistlen = 3;
+    optable[optablelen].oplistlen = oplistlen;
+    char* ws2[] = {"dup", "rot", "rot"};
+    oplist = compilewords(oplistlen, ws2);
+    optable[optablelen].oplist = oplist;
+    optablelen++;
 
     optable[optablelen].word = "incr";
     optable[optablelen].optype = compiled;
     oplistlen = 2;
     optable[optablelen].oplistlen = oplistlen;
-    char* ws2[] = {"1", "+"};
-    oplist = compilewords(2, ws2);
+    char* ws3[] = {"1", "+"};
+    oplist = compilewords(2, ws3);
     optable[optablelen].oplist = oplist;
     optablelen++;
 
-- 
cgit v1.2.3