1
1
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 21:57:38 +03:00
mal/impls/chuck/step0_repl.ck

43 lines
537 B
Plaintext
Raw Normal View History

// @import readline.ck
2016-04-20 23:31:28 +03:00
fun string READ(string input)
{
return input;
}
fun string EVAL(string input)
{
return input;
}
fun string PRINT(string input)
{
return input;
}
fun string rep(string input)
{
return input => READ => EVAL => PRINT;
}
fun void main()
{
int done;
2016-04-20 23:31:28 +03:00
while( !done )
2016-04-20 23:31:28 +03:00
{
Readline.readline("user> ") => string input;
if( input != null )
{
chout <= rep(input) + "\n";
}
else
{
true => done;
}
2016-04-20 23:31:28 +03:00
}
}
main();