Bruce Hill
b6d3cbd61c
relative to the text, not the opening '("', code objects can now remove
all free vars, the REPL uses global vars. Error API is changing a bit.
86 lines
2.3 KiB
Plaintext
Executable File
86 lines
2.3 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V6.13.12.8
|
|
#
|
|
This file defines a Read-Evaluate-Print-Loop (REPL) for Nomsu
|
|
|
|
use "lib/consolecolor.nom"
|
|
use "lib/os.nom"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
externally [quit, exit] all mean: lua> "os.exit(0)"
|
|
externally (help) means:
|
|
say ("
|
|
This is the Nomsu v\(Nomsu version) interactive console.
|
|
You can type in Nomsu code here and hit 'enter' twice to run it.
|
|
To exit, type 'exit' or 'quit' and hit enter twice.
|
|
")
|
|
|
|
say ("
|
|
|
|
\(bright)\(underscore)Welcome to the Nomsu v\(Nomsu version) interactive console!\
|
|
..\(reset color)
|
|
press 'enter' twice to run a command
|
|
|
|
")
|
|
|
|
repeat:
|
|
say (bright (yellow ">> ")) inline
|
|
$buff = []
|
|
repeat:
|
|
say (bright) inline
|
|
$line = ($io.read "*L")
|
|
say (reset color) inline
|
|
if (($line == "\n") or (not $line)):
|
|
if ((size of $buff) > 0):
|
|
# clear the line
|
|
say "\027[1A\027[2K" inline
|
|
go to (run buffer)
|
|
$buff, add ($line, with "\t" -> " ")
|
|
say (dim (yellow ".. ")) inline
|
|
|
|
--- (run buffer) ---
|
|
|
|
if ((size of $buff) == 0): stop
|
|
$buff = ($buff, joined)
|
|
spoof file $buff
|
|
try:
|
|
$tree = ($buff parsed)
|
|
..and if it barfs $err:
|
|
say $err
|
|
do next
|
|
|
|
unless $tree:
|
|
do next
|
|
|
|
for $chunk in $tree:
|
|
try:
|
|
$lua = ($chunk as lua)
|
|
..and if it barfs $err: say $err
|
|
|
|
unless $lua:
|
|
do next
|
|
|
|
# TODO: this is a bit hacky, it just defaults variables to global
|
|
so that stuff mostly works across multiple lines. It would be
|
|
nicer if local variables actually worked.
|
|
$lua, remove free vars
|
|
try:
|
|
$ret = (run $lua)
|
|
..and if it barfs $err: say $err
|
|
..or if it succeeds:
|
|
if (type of $ret) is:
|
|
"nil":
|
|
do nothing
|
|
|
|
"boolean":
|
|
say "= \("yes" if $ret else "no")"
|
|
|
|
"table":
|
|
if $ret.as_nomsu:
|
|
say "= \($ret, as nomsu)"
|
|
..else:
|
|
say "= \$ret"
|
|
|
|
else:
|
|
say "= \$ret"
|