mirror of
https://github.com/kanaka/mal.git
synced 2024-11-11 00:52:44 +03:00
dd7a4f55f3
Fixes made to: ada, c, chuck, clojure, coffee, common-lisp, cpp, crystal, d, dart, elm, erlang, es6, factor, fsharp, gnu-smalltalk, groovy, guile, haxe, hy, js, livescript, matlab, miniMAL, nasm, nim, objc, objpascal, ocaml, perl, perl6, php, plsql, ps, python, r, rpython, ruby, scheme, swift3, tcl, ts, vb, vimscript, wasm, yorick. Catchless try* test is an optional test. Not all implementations support catchless try* but a number were fixed so they at least don't crash on catchless try*.
65 lines
1.7 KiB
Hy
Executable File
65 lines
1.7 KiB
Hy
Executable File
#!/usr/bin/env hy
|
|
|
|
(import sys traceback)
|
|
(import [reader [read-str Blank]])
|
|
(import [printer [pr-str]])
|
|
|
|
;; read
|
|
(defn READ [str]
|
|
(read-str str))
|
|
|
|
;; eval
|
|
(defn eval-ast [ast env]
|
|
(if
|
|
(symbol? ast) (if (.has_key env ast) (get env ast)
|
|
(raise (Exception (+ ast " not found"))))
|
|
(instance? dict ast) (dict (map (fn [k]
|
|
[(EVAL k env) (EVAL (get ast k) env)])
|
|
ast))
|
|
(instance? tuple ast) (tuple (map (fn [x] (EVAL x env)) ast))
|
|
(instance? list ast) (list (map (fn [x] (EVAL x env)) ast))
|
|
True ast))
|
|
|
|
(defn EVAL [ast env]
|
|
;; indented to match later steps
|
|
(if (not (instance? tuple ast))
|
|
(eval-ast ast env)
|
|
|
|
;; apply list
|
|
(if
|
|
(empty? ast)
|
|
ast
|
|
|
|
;; apply
|
|
(do
|
|
(setv el (eval-ast ast env)
|
|
f (first el)
|
|
args (list (rest el)))
|
|
(apply f args)))))
|
|
|
|
;; print
|
|
(defn PRINT [exp]
|
|
(pr-str exp True))
|
|
|
|
;; repl
|
|
(def repl-env {'+ +
|
|
'- -
|
|
'* *
|
|
'/ (fn [a b] (int (/ a b)))})
|
|
|
|
(defn REP [str]
|
|
(PRINT (EVAL (READ str) repl-env)))
|
|
|
|
(defmain [&rest args]
|
|
;; indented to match later steps
|
|
(while True
|
|
(try
|
|
(do (setv line (raw_input "user> "))
|
|
(if (= "" line) (continue))
|
|
(print (REP line)))
|
|
(except [EOFError] (break))
|
|
(except [Blank])
|
|
(except [e Exception]
|
|
(print (.join "" (apply traceback.format_exception
|
|
(.exc_info sys))))))))
|