initial commit, working readline function
[CleanReadLine.git] / ReadLine.icl
1 implementation module ReadLine
2
3 import StdEnv
4
5 import code from "readLine.o"
6
7 readLine :: !String !Bool !*env -> (!String, !*env)
8 readLine s h e = code {
9 ccall cleanReadLine "SI:S:A"
10 }
11