mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
miniMAL: step6
This commit is contained in:
parent
dc2c5b3d8f
commit
9d8f029932
@ -21,6 +21,8 @@
|
||||
["do",
|
||||
["println", ["pr-list", "a", false, ["`", " "]]],
|
||||
null]],
|
||||
["`", "read-string"], "read-str",
|
||||
["`", "slurp"], "slurp",
|
||||
|
||||
["`", "<"], "<",
|
||||
["`", "<="], "<=",
|
||||
|
@ -37,8 +37,8 @@
|
||||
["EVAL", ["nth", "ast", 2], "let-env"]]],
|
||||
["if", ["=", ["`", "do"], "a0"],
|
||||
["do",
|
||||
["eval-ast", ["slice", "ast", 1, ["-", ["count", "ast"], 1]]],
|
||||
["EVAL", ["nth", "ast", ["-", ["count", "el"], 1]]]],
|
||||
["eval-ast", ["slice", "ast", 1, ["-", ["count", "ast"], 1]], "env"],
|
||||
["EVAL", ["nth", "ast", ["-", ["count", "ast"], 1]], "env"]],
|
||||
["if", ["=", ["`", "if"], "a0"],
|
||||
["let", ["cond", ["EVAL", ["nth", "ast", 1], "env"]],
|
||||
["if", ["or", ["=", "cond", null], ["=", "cond", false]],
|
||||
|
97
miniMAL/step6_file.json
Normal file
97
miniMAL/step6_file.json
Normal file
@ -0,0 +1,97 @@
|
||||
["do",
|
||||
|
||||
["load-file", ["`", "miniMAL-core.json"]],
|
||||
["load-file", ["`", "types.json"]],
|
||||
["load-file", ["`", "reader.json"]],
|
||||
["load-file", ["`", "printer.json"]],
|
||||
["load-file", ["`", "env.json"]],
|
||||
["load-file", ["`", "core.json"]],
|
||||
|
||||
["def", "READ", ["fn", ["strng"], ["read-str", "strng"]]],
|
||||
|
||||
["def", "eval-ast", ["fn", ["ast", "env"],
|
||||
["if", ["symbol?", "ast"],
|
||||
["env-get", "env", "ast"],
|
||||
["if", ["list?", "ast"],
|
||||
["map", ["fn", ["x"], ["EVAL", "x", "env"]], "ast"],
|
||||
"ast"]]]],
|
||||
|
||||
["def", "LET", ["fn", ["env", "args"],
|
||||
["if", [">", ["count", "args"], 0],
|
||||
["do",
|
||||
["env-set", "env", ["nth", "args", 0],
|
||||
["EVAL", ["nth", "args", 1], "env"]],
|
||||
["LET", "env", ["rest", ["rest", "args"]]]]]]],
|
||||
|
||||
["def", "EVAL", ["fn", ["ast", "env"],
|
||||
["if", ["not", ["list?", "ast"]],
|
||||
["eval-ast", "ast", "env"],
|
||||
["let", ["a0", ["get", ["first", "ast"], ["`", "val"]]],
|
||||
["if", ["=", ["`", "def!"], "a0"],
|
||||
["env-set", "env", ["nth", "ast", 1],
|
||||
["EVAL", ["nth", "ast", 2], "env"]],
|
||||
["if", ["=", ["`", "let*"], "a0"],
|
||||
["let", ["let-env", ["env-new", "env"]],
|
||||
["do",
|
||||
["LET", "let-env", ["nth", "ast", 1]],
|
||||
["EVAL", ["nth", "ast", 2], "let-env"]]],
|
||||
["if", ["=", ["`", "do"], "a0"],
|
||||
["do",
|
||||
["eval-ast", ["slice", "ast", 1, ["-", ["count", "ast"], 1]], "env"],
|
||||
["EVAL", ["nth", "ast", ["-", ["count", "ast"], 1]], "env"]],
|
||||
["if", ["=", ["`", "if"], "a0"],
|
||||
["let", ["cond", ["EVAL", ["nth", "ast", 1], "env"]],
|
||||
["if", ["or", ["=", "cond", null], ["=", "cond", false]],
|
||||
["if", [">", ["count", "ast"], 3],
|
||||
["EVAL", ["nth", "ast", 3], "env"],
|
||||
null],
|
||||
["EVAL", ["nth", "ast", 2], "env"]]],
|
||||
["if", ["=", ["`", "fn*"], "a0"],
|
||||
["malfunc",
|
||||
["fn", ["&", "args"],
|
||||
["let", ["e", ["env-new", "env", ["nth", "ast", 1], "args"]],
|
||||
["EVAL", ["nth", "ast", 2], "e"]]],
|
||||
["nth", "ast", 2], "env", ["nth", "ast", 1]],
|
||||
["let", ["el", ["eval-ast", "ast", "env"],
|
||||
"f", ["first", "el"],
|
||||
"args", ["rest", "el"]],
|
||||
["if", ["malfunc?", "f"],
|
||||
["EVAL", ["get", "f", ["`", "ast"]],
|
||||
["env-new", ["get", "f", ["`", "env"]],
|
||||
["get", "f", ["`", "params"]],
|
||||
"args"]],
|
||||
["apply", "f", "args"]]]]]]]]]]]],
|
||||
|
||||
["def", "PRINT", ["fn", ["exp"],
|
||||
["pr-str", "exp", true]]],
|
||||
|
||||
|
||||
["def", "repl-env", ["env-new"]],
|
||||
|
||||
["def", "rep", ["fn", ["strng"],
|
||||
["try",
|
||||
["PRINT", ["EVAL", ["READ", "strng"], "repl-env"]],
|
||||
["catch", "exc",
|
||||
["str", ["`", "Error: "], [".", "exc", ["`", "toString"]]]]]]],
|
||||
|
||||
["`", "core.mal: defined using miniMAL"],
|
||||
["map", ["fn", ["k"], ["env-set", "repl-env",
|
||||
["symbol", "k"],
|
||||
["get", "core-ns", "k"]]],
|
||||
["keys", "core-ns"]],
|
||||
["env-set", "repl-env", ["symbol", ["`", "eval"]],
|
||||
["fn", ["ast"], ["EVAL", "ast", "repl-env"]]],
|
||||
["env-set", "repl-env", ["symbol", ["`", "*ARGV*"]],
|
||||
["slice", "*ARGV*", 1]],
|
||||
|
||||
["`", "core.mal: defined using mal itself"],
|
||||
["rep", ["`", "(def! not (fn* (a) (if a false true)))"]],
|
||||
["rep", ["`", "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"]],
|
||||
|
||||
["if", ["not", ["empty?", "*ARGV*"]],
|
||||
["rep", ["str", ["`", "(load-file \""], ["get", "*ARGV*", 0], ["`", "\")"]]],
|
||||
["repl", ["`", "user> "], "rep"]],
|
||||
|
||||
null
|
||||
|
||||
]
|
@ -1,3 +1,9 @@
|
||||
;;; TODO: really a step5 test
|
||||
;;
|
||||
;; Testing that (do (do)) not broken by TCO
|
||||
(do (do 1 2))
|
||||
;=>2
|
||||
|
||||
;; Testing read-string, eval and slurp
|
||||
|
||||
(read-string "(+ 2 3)")
|
||||
@ -21,12 +27,6 @@
|
||||
(inc3 9)
|
||||
;=>12
|
||||
|
||||
;;; TODO: really a step5 test
|
||||
;;
|
||||
;; Testing that (do (do)) not broken by TCO
|
||||
(do (do 1 2))
|
||||
;=>2
|
||||
|
||||
;;
|
||||
;; Testing that *ARGV* exists and is an empty list
|
||||
(list? *ARGV*)
|
||||
|
Loading…
Reference in New Issue
Block a user