Add simple parser for future shell-like lang

1 files changed, 26 insertions, 0 deletions

diff --git a/sh9util.b b/sh9util.b
new file mode 100644
index 0000000..f74032e
--- /dev/null
+++ b/sh9util.b
@@ -0,0 +1,26 @@
+implement Sh9Util;
+
+include "sh9util.m";
+
+reverse_list[T](toks: list of T): list of T
+{
+  lt := len toks;
+  out : list of T;
+  for (i := 0; i < lt; i ++) {
+    tok := hd toks;
+    #toks = tl toks;
+    out = tok :: out;
+  }
+  return out;
+}
+
+to_array[T](toks: list of T): array of T {
+  lt := len toks;
+  out := array[lt] of T;
+  for (i := 0; i < lt; i ++) {
+    tok := hd toks;
+    toks = tl toks;
+    out[i] = tok;
+  }
+  return out;
+}