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
  12 readHistory :: !String !*env -> (!Bool, !*env)
  13 readHistory s e = code {
  14                         ccall cleanReadHistory "S:I:A"
  15         }
  16
  17 readHistoryRange :: !String !Int !Int !*env -> (!Bool, !*env)
  18 readHistoryRange s i1 i2 e = code {
  19                         ccall cleanReadHistoryRange "SII:I:A"
  20         }
  21
  22 writeHistory :: !String !*env -> (!Bool, !*env)
  23 writeHistory s e = code {
  24                         ccall cleanWriteHistory "S:I:A"
  25         }
  26
  27 appendHistory :: !Int !String !*env -> (!Bool, !*env)
  28 appendHistory i s e = code {
  29                         ccall cleanWriteHistory "IS:I:A"
  30         }
  31
  32 historyTruncateFile :: !String !Int !*env -> (!Bool, !*env)
  33 historyTruncateFile i s e = code {
  34                         ccall cleanWriteHistory "SI:I:A"
  35         }