mirror of
https://github.com/janet-lang/janet
synced 2024-11-15 05:04:49 +00:00
28 lines
648 B
Plaintext
28 lines
648 B
Plaintext
(namespace-set! "gst.repl")
|
|
|
|
"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."
|
|
(while 1
|
|
(write stdout ">> ")
|
|
(: t (thread (fn [line]
|
|
(: ret 1)
|
|
(while line
|
|
(: line (parse-charseq p line))
|
|
(if (parse-hasvalue p)
|
|
(: ret ((compile (parse-consume p))))))
|
|
ret)))
|
|
(: res (tran t (readline)))
|
|
(if (= (status t) "dead") (print (debugp res)) (print "Error: " (debugp res))))
|