1 implementation module ReadLine
5 import code from "readLine.o"
7 readLine :: !String !Bool !*env -> (!String, !*env)
8 readLine s h e = code {
9 ccall cleanReadLine "SI:S:A"
12 readHistory :: !String !*env -> (!Bool, !*env)
13 readHistory s e = code {
14 ccall cleanReadHistory "S:I:A"
17 readHistoryRange :: !String !Int !Int !*env -> (!Bool, !*env)
18 readHistoryRange s i1 i2 e = code {
19 ccall cleanReadHistoryRange "SII:I:A"
22 writeHistory :: !String !*env -> (!Bool, !*env)
23 writeHistory s e = code {
24 ccall cleanWriteHistory "S:I:A"
27 appendHistory :: !Int !String !*env -> (!Bool, !*env)
28 appendHistory i s e = code {
29 ccall cleanWriteHistory "IS:I:A"
32 historyTruncateFile :: !String !Int !*env -> (!Bool, !*env)
33 historyTruncateFile i s e = code {
34 ccall cleanWriteHistory "SI:I:A"