#!/usr/bin/env bash source $[dirname $0]/reader.sh source $[dirname $0]/printer.sh source $[dirname $0]/env.sh # read proc READ { test $(1) && setglobal r = $(1) || READLINE READ_STR $(r) } # eval proc EVAL_AST { var ast = $(1), env = $(2) #_pr_str "${ast}"; echo "EVAL_AST '${ast}:${r} / ${env}'" _obj_type $(ast); var ot = $(r) match $(ot) { with symbol ENV_GET $(env) $(ast) return with list _map_with_type _list EVAL $(ast) $(env) with vector _map_with_type _vector EVAL $(ast) $(env) with hash_map var res = '',"" key = '', val = '',"" hm = $(ANON["${ast}"]) _hash_map; var new_hm = $(r) eval local keys="\${!$(hm)[@]}" for key in [$(keys)] { eval val="\${$(hm)[\"$(key)\"]}" EVAL $(val) $(env) _assoc! $(new_hm) $(key) $(r) } setglobal r = $(new_hm) with * setglobal r = $(ast) } } proc EVAL { var ast = $(1), env = $(2) setglobal r = '' [[ "${__ERROR}" ]] && return 1 #_pr_str "${ast}"; echo "EVAL '${r} / ${env}'" _obj_type $(ast); var ot = $(r) if [[ "${ot}" != "list" ]] { EVAL_AST $(ast) $(env) return } _empty? $(ast) && setglobal r = $(ast) && return # apply list _nth $(ast) 0; var a0 = $(r) _nth $(ast) 1; var a1 = $(r) _nth $(ast) 2; var a2 = $(r) match $(ANON["${a0}"]) { with def! EVAL $(a2) $(env) [[ "${__ERROR}" ]] && return 1 ENV_SET $(env) $(a1) $(r) return with let* ENV $(env); var let_env = $(r) var let_pairs = '('${ANON["${a1}"]}) var idx = '0' { EVAL $(let_pairs[$(( idx + 1))]) $(let_env) ENV_SET $(let_env) $(let_pairs[${idx}]) $(r) set idx = $shExpr(' idx + 2') } EVAL $(a2) $(let_env) return with * EVAL_AST $(ast) $(env) [[ "${__ERROR}" ]] && setglobal r = '' && return 1 var el = $(r) _first $(el); var f = $(r) _rest $(el); var args = $(ANON["${r}"]) #echo "invoke: ${f} ${args}" eval $(f) $(args) return } } # print proc PRINT { if [[ "${__ERROR}" ]] { _pr_str $(__ERROR) yes setglobal r = ""Error: $(r)"" setglobal __ERROR = '' } else { _pr_str $(1) yes } } # repl ENV; setglobal REPL_ENV = $(r) proc REP { setglobal r = '' READ $(1) EVAL $(r) $(REPL_ENV) PRINT $(r) } proc plus { setglobal r = $shExpr(' ${ANON["${1}"]} + ${ANON["${2}"]} '); _number $(r); } proc minus { setglobal r = $shExpr(' ${ANON["${1}"]} - ${ANON["${2}"]} '); _number $(r); } proc multiply { setglobal r = $shExpr(' ${ANON["${1}"]} * ${ANON["${2}"]} '); _number $(r); } proc divide { setglobal r = $shExpr(' ${ANON["${1}"]} / ${ANON["${2}"]} '); _number $(r); } _symbol "+"; ENV_SET $(REPL_ENV) $(r) plus _symbol "-"; ENV_SET $(REPL_ENV) $(r) minus _symbol "__STAR__"; ENV_SET $(REPL_ENV) $(r) multiply _symbol "/"; ENV_SET $(REPL_ENV) $(r) divide # repl loop while true { READLINE "user> " || exit "$?" [[ "${r}" ]] && REP $(r) && echo $(r) }