mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 08:49:31 -06:00
31 lines
812 B
Haskell
31 lines
812 B
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : GF.System.NoReadline
|
|
-- Maintainer : BB
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/05/10 15:04:01 $
|
|
-- > CVS $Author: bringert $
|
|
-- > CVS $Revision: 1.1 $
|
|
--
|
|
-- Do not use readline.
|
|
-----------------------------------------------------------------------------
|
|
|
|
module GF.System.NoReadline (fetchCommand, setCompletionFunction) where
|
|
|
|
import System.IO.Error (try)
|
|
import System.IO (stdout,hFlush)
|
|
|
|
fetchCommand :: String -> IO (String)
|
|
fetchCommand s = do
|
|
putStr s
|
|
hFlush stdout
|
|
res <- try getLine
|
|
case res of
|
|
Left e -> return "q"
|
|
Right l -> return l
|
|
|
|
setCompletionFunction :: Maybe (String -> String -> Int -> IO [String]) -> IO ()
|
|
setCompletionFunction _ = return ()
|