msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

file name completion for command i

Browse Source
This commit is contained in:
kr.angelov
2008-06-05 12:12:44 +00:00
parent abea46022e
commit c4d298a347
4 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src-3.0/GF/System/NoReadline.hs
View File

@@ -12,7 +12,7 @@
-- Do not use readline. -- Do not use readline.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GF.System.NoReadline (fetchCommand, setCompletionFunction) where module GF.System.NoReadline (fetchCommand, setCompletionFunction, filenameCompletionFunction) where
import System.IO.Error (try) import System.IO.Error (try)
import System.IO (stdout,hFlush) import System.IO (stdout,hFlush)
@@ -28,3 +28,6 @@ fetchCommand s = do
setCompletionFunction :: Maybe (String -> String -> Int -> IO [String]) -> IO () setCompletionFunction :: Maybe (String -> String -> Int -> IO [String]) -> IO ()
setCompletionFunction _ = return () setCompletionFunction _ = return ()
filenameCompletionFunction :: String -> IO [String]
filenameCompletionFunction _ = return []

6
src-3.0/GF/System/Readline.hs
View File

@@ -14,14 +14,14 @@
-- Uses the right readline library to read user input. -- Uses the right readline library to read user input.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GF.System.Readline (fetchCommand, setCompletionFunction) where module GF.System.Readline (fetchCommand, setCompletionFunction, filenameCompletionFunction) where
#ifdef USE_READLINE #ifdef USE_READLINE
import GF.System.UseReadline (fetchCommand, setCompletionFunction) import GF.System.UseReadline
#else #else
import GF.System.NoReadline (fetchCommand, setCompletionFunction) import GF.System.NoReadline
#endif #endif

2
src-3.0/GF/System/UseReadline.hs
View File

@@ -12,7 +12,7 @@
-- Use GNU readline -- Use GNU readline
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GF.System.UseReadline (fetchCommand, setCompletionFunction) where module GF.System.UseReadline (fetchCommand, setCompletionFunction, filenameCompletionFunction) where
import System.Console.Readline import System.Console.Readline

2
src-3.0/GFI.hs
View File

@@ -133,6 +133,8 @@ wordCompletion cmdEnv line prefix p =
ret (if null flg_compls then ' ' else '=') ret (if null flg_compls then ' ' else '=')
(flg_compls++opt_compls) (flg_compls++opt_compls)
Nothing -> ret ' ' [] Nothing -> ret ' ' []
CmplIdent (Just (Command "i" _ _)) _ -- HACK: file name completion for command i
-> filenameCompletionFunction prefix
CmplIdent _ pref CmplIdent _ pref
-> do mb_abs <- try (evaluate (abstract pgf)) -> do mb_abs <- try (evaluate (abstract pgf))
case mb_abs of case mb_abs of