2019-01-06 08:23:03 +00:00
|
|
|
# Copyright 2017-2019 (C) Calvin Rose
|
|
|
|
|
2019-02-03 20:34:41 +00:00
|
|
|
(print (string "Janet " janet/version "-" janet/build " Copyright (C) 2017-2019 Calvin Rose"))
|
2019-04-16 19:41:45 +00:00
|
|
|
(setdyn :pretty-format "%.20P")
|
2018-10-17 03:08:26 +00:00
|
|
|
|
2018-12-01 03:54:17 +00:00
|
|
|
(fiber/new (fn webrepl []
|
2018-11-26 14:02:07 +00:00
|
|
|
(repl (fn get-line [buf p]
|
2018-12-14 02:36:19 +00:00
|
|
|
(def offset (parser/where p))
|
|
|
|
(def prompt (string "janet:" offset ":" (parser/state p) "> "))
|
2018-11-26 14:02:07 +00:00
|
|
|
(repl-yield prompt buf)
|
|
|
|
(yield)
|
|
|
|
buf))))
|