mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +03:00
8a19f60386
- 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.
39 lines
576 B
Tcl
39 lines
576 B
Tcl
source mal_readline.tcl
|
|
source types.tcl
|
|
source reader.tcl
|
|
source printer.tcl
|
|
|
|
proc READ str {
|
|
read_str $str
|
|
}
|
|
|
|
proc EVAL {ast env} {
|
|
return $ast
|
|
}
|
|
|
|
proc PRINT exp {
|
|
pr_str $exp 1
|
|
}
|
|
|
|
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
|
|
}
|
|
if { [catch { puts [REP $line] } exception] } {
|
|
puts "Error: $exception"
|
|
}
|
|
}
|
|
puts ""
|