prompt: fixed history file handling

bc.cabal

@@ -14,6 +14,6 @@ cabal-version:       >=1.10
 executable bc
   main-is:             Main.hs
   hs-source-dirs:      src/
-  build-depends:       base >=4.9 && <4.10, directory, hashmap, numbers, parsec, unix
+  build-depends:       base >=4.9 && <4.10, directory, hashmap, numbers, parsec, strict, unix
   hs-source-dirs:      src
   default-language:    Haskell2010

src/BC/Config.hs

@@ -7,3 +7,5 @@ promptStr = "> "
 returnStr = "=> "
 
 historyFile = ".bc_history"
+
+historyLen = 1000::Int

src/BC/Prompt.hs

@@ -7,6 +7,8 @@ import System.Directory (doesFileExist, getHomeDirectory)
 import System.IO
 import System.Posix.Signals
 
+import qualified System.IO.Strict as S
+
 import BC.Config
 import BC.Eval
 import BC.Parse
@@ -24,19 +26,16 @@ newPrompt = do
     exists <- doesFileExist f
     if exists
       then do
-        contents <- readFile f
+        contents <- S.readFile f
-        return $ PState (-1) (split contents)
+        let s = lines contents
+        length s `seq` return $ PState (-1) s
       else return $ PState (-1) []
-  where split [] = []
-        split s = takeWhile (/= '\n') s : split (dropWhile (/= '\n') s)
 
 
 savePrompt :: Prompt -> IO ()
 savePrompt (PState _ strs) = do
     home <- getHomeDirectory
-    f <- openFile (home ++ "/" ++ historyFile) WriteMode
+    writeFile (home ++ "/" ++ historyFile) (intercalate "\n" $ reverse strs)
-    hPrint f (intercalate "\n" strs)
-    hClose f
 
 
 printHeader :: IO ()
@@ -126,7 +125,8 @@ readline state = read' "" 0
           c <- getChar
           case c of
             '\EOT' -> return Nothing
-            '\n'   -> return (Just acc)
+            '\n'   -> do putStrLn ""
+                         return (Just acc)
             '\DEL' ->
               if null acc || pos == 0
               then read' acc pos pstate
@@ -152,14 +152,9 @@ prompt :: State -> Prompt -> IO Prompt
 prompt state pstate@(PState _ history) = do
     input <- readline state pstate
     case input of
-      Nothing -> do
+      Nothing -> return pstate
-        putStrLn "\nBye!"
+      Just "quit" -> return pstate
-        return pstate
-      Just "quit" -> do
-        putStrLn "\nBye!"
-        return pstate
       Just str -> do
-        putStrLn ""
         newstate <- output state str
         let newpstate = PState (-1) (str:history)
         prompt newstate newpstate
@@ -180,3 +175,4 @@ startPrompt = do
     p <- newPrompt
     state <- prompt newState p
     savePrompt state
+    putStrLn "Bye!"