mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +03:00
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
34 lines
448 B
Tcl
34 lines
448 B
Tcl
source mal_readline.tcl
|
|
|
|
proc READ str {
|
|
return $str
|
|
}
|
|
|
|
proc EVAL {ast env} {
|
|
return $ast
|
|
}
|
|
|
|
proc PRINT exp {
|
|
return $exp
|
|
}
|
|
|
|
proc REP str {
|
|
PRINT [EVAL [READ $str] {}]
|
|
}
|
|
|
|
fconfigure stdout -translation binary
|
|
|
|
# repl loop
|
|
while {true} {
|
|
set res [_readline "user> "]
|
|
if {[lindex $res 0] == "EOF"} {
|
|
break
|
|
}
|
|
set line [lindex $res 1]
|
|
if {$line == ""} {
|
|
continue
|
|
}
|
|
puts [REP $line]
|
|
}
|
|
puts ""
|