(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))

"Run a simple repl. Does not handle errors and other
such details."
(while 1
    (: t (thread (fn []
        (write stdout ">> ")
        (: line (readline))
        (while line
            (: line (parse-charseq p line))
            (if (parse-hasvalue p)
                ((compile (parse-consume p))))))))
    (transfer t))