diff --git a/libs/repl.gst b/libs/repl.gst new file mode 100644 index 00000000..b6536251 --- /dev/null +++ b/libs/repl.gst @@ -0,0 +1,22 @@ +(namespace-set! "gst.repl") + +"Hold all compile time evaluators" +(export! "evaluators" {}) + +"Read a line" +(export! "readline" (fn [] + (: b (buffer)) + (read stdin 1 b) + (while (not (= (get "\n" 0) (get b (- (length b) 1)))) + (read stdin 1 b) + ) + (string b) +)) + +"Create a parser" +(export! "p" (parser)) + +(while 1 + (: line (readline)) + (print "Read line: " line) +)