GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Use readline for word completion

Browse Source
This commit is contained in:
kr.angelov
2008-06-03 17:06:45 +00:00
parent ea145ddf52
commit b5ca08c9c2
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src-3.0/GF/Command/Commands.hs
View File

@@ -21,6 +21,7 @@ import qualified PGF.Parsing.FCFG.Incremental as Incremental
import GF.Compile.Export import GF.Compile.Export
import GF.Infra.UseIO import GF.Infra.UseIO
import GF.Data.ErrM ---- import GF.Data.ErrM ----
import GF.System.Readline
import Data.Maybe import Data.Maybe
import qualified Data.Map as Map import qualified Data.Map as Map
@@ -167,9 +168,9 @@ allCommands pgf = Map.fromAscList [
cat = optCat opts cat = optCat opts
pinfo = fromMaybe (error ("Unknown language: " ++ lang)) (lookParser pgf (mkCId lang)) pinfo = fromMaybe (error ("Unknown language: " ++ lang)) (lookParser pgf (mkCId lang))
state0 = Incremental.initState pinfo (mkCId cat) state0 = Incremental.initState pinfo (mkCId cat)
putStrFlush ">> " setCompletionFunction (Just (myCompletion pinfo state0))
s <- getLine s <- fetchCommand ">> "
if null s if s == "q"
then return () then return ()
else do cpu1 <- getCPUTime else do cpu1 <- getCPUTime
st <- parse pinfo state0 (words s) st <- parse pinfo state0 (words s)
@@ -184,3 +185,9 @@ allCommands pgf = Map.fromAscList [
parse pinfo st (t:ts) = do putStrFlush "." parse pinfo st (t:ts) = do putStrFlush "."
st1 <- return $! (Incremental.nextState pinfo t st) st1 <- return $! (Incremental.nextState pinfo t st)
parse pinfo st1 ts parse pinfo st1 ts
myCompletion pinfo state0 line prefix p = do
let ws = words (take (p-length prefix) line)
state = foldl (\st t -> Incremental.nextState pinfo t st) state0 ws
compls = Incremental.getCompletions pinfo prefix state
return (Map.keys compls)