From ba8933937e0b24e5a648ec176c4f0b8515fb0e2d Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 6 Oct 2021 22:06:05 +0200
Subject: Implemented missing functions for the interpreter

---
 src/stack.nim | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/stack.nim')

diff --git a/src/stack.nim b/src/stack.nim
index f08baf0..4565b5c 100644
--- a/src/stack.nim
+++ b/src/stack.nim
@@ -80,3 +80,19 @@ func Discard*(s: var Stack, n: int) =
 
 func Next*(s: Stack): ref Stack =
   return s.next
+
+func GetHeights*(s: Stack): seq[int] =
+  if s.next != nil:
+    result = s.next[].GetHeights()
+    result.add(s.height)
+  else:
+    return @[s.height]
+
+func YCommandPick*(s: var Stack, n, h: int) =
+  if n > s.height:
+    s.height = 1
+    s.data[0] = 0
+  else:
+    let v = s.data[s.height-n]
+    s.height = h
+    s.Push(v)
-- 
cgit v1.2.3