import StdEnv
import ReadLine
-Start :: *World -> (Int, String, HistoryState, *World)
+testHistory :: HistoryState
+testHistory = {HistoryState |
+ entries=[{HistoryItem | line="custom", timestamp=""}],
+ offset=1, flags=0}
+
+Start :: *World -> (String, *World)
Start w
-# (f, w) = stdio w
#! w = setReadLineName "Test program" w
#! w = usingHistory w
#! (_, w) = readHistory "readline.history" w
#! w = addHistory "testentry" w
+#! w = addHistoryTime "time" w
+#! (hi, w) = removeHistory 1 w
+#! (hy, w) = replaceHistoryEntry 1 "replacement" w
#! (s, w) = readLine "first prompt: " True w
#! (s, w) = readLine "uparrow should word with history: " False w
#! (_, w) = writeHistory "readline.history" w
#! (i, w) = historySearch "testentry" -1 w
+#! (_, w) = historyList w
+#! (_, w) = whereHistory w
+#! (_, w) = currentHistory w
+#! (_, w) = historyGet 1 w
+#! (_, w) = historyTotalBytes w
+#! w = stifleHistory 2 w
+#! (i, w) = historyIsStifled w
+#! w = unstifleHistory w
+#! (i, w) = historyIsStifled w
+#! (oh, w) = historyGetHistoryState w
+#! w = historySetHistoryState testHistory w
#! (h, w) = historyGetHistoryState w
#! w = clearHistory w
-= (i, s, h, w)
+= (
+ toString h,
+ w)