mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 02:27:10 +03:00
30 lines
389 B
VimL
30 lines
389 B
VimL
|
source readline.vim
|
||
|
|
|
||
|
|
function READ(str)
|
||
|
|
return a:str
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function EVAL(ast, env)
|
||
|
|
return a:ast
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function PRINT(exp)
|
||
|
|
return a:exp
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function REP(str)
|
||
|
|
return PRINT(EVAL(READ(a:str), {}))
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
while 1
|
||
|
|
let [eof, line] = Readline("user> ")
|
||
|
|
if eof
|
||
|
|
break
|
||
|
|
endif
|
||
|
|
if line == ""
|
||
|
|
continue
|
||
|
|
endif
|
||
|
|
call PrintLn(REP(line))
|
||
|
|
endwhile
|
||
|
|
qall!
|