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

restored readline

Browse Source
This commit is contained in:
aarne
2008-05-22 07:38:41 +00:00
parent b7ff446966
commit 3a27dd455e
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src-3.0/GF/Devel/GFI.hs
View File

@@ -7,6 +7,7 @@ import GF.GFCC.API
import GF.Devel.UseIO import GF.Devel.UseIO
import GF.Devel.Arch import GF.Devel.Arch
import GF.System.Arch (fetchCommand)
import GF.Infra.Option ---- Haskell's option lib import GF.Infra.Option ---- Haskell's option lib
@@ -20,8 +21,7 @@ mainGFI xx = do
loop :: GFEnv -> IO GFEnv loop :: GFEnv -> IO GFEnv
loop gfenv0 = do loop gfenv0 = do
let env = commandenv gfenv0 let env = commandenv gfenv0
putStrFlush (prompt env) s <- fetchCommand (prompt env)
s <- getLine
let gfenv = gfenv0 {history = s : history gfenv0} let gfenv = gfenv0 {history = s : history gfenv0}
case words s of case words s of
@@ -68,7 +68,10 @@ welcome = unlines [
"Some things may work. " "Some things may work. "
] ]
prompt env = abstractName (multigrammar env) ++ "> " prompt env = absname ++ "> " where
absname = case abstractName (multigrammar env) of
"_" -> "" --- created by new Ident handling 22/5/2008
n -> n
data GFEnv = GFEnv { data GFEnv = GFEnv {
commandenv :: CommandEnv, commandenv :: CommandEnv,

4
src-3.0/Makefile
View File

@@ -4,7 +4,7 @@ include config.mk
GHMAKE=$(GHC) --make GHMAKE=$(GHC) --make
GHCXMAKE=ghcxmake GHCXMAKE=ghcxmake
GHCFLAGS+= -fglasgow-exts GHCFLAGS+= -fglasgow-exts
GHCOPTFLAGS=-O2 GHCOPTFLAGS=-O2 -prof
GHCFUDFLAG= GHCFUDFLAG=
JAVAFLAGS=-target 1.4 -source 1.4 JAVAFLAGS=-target 1.4 -source 1.4
GFEDITOR=JavaGUI2 GFEDITOR=JavaGUI2
@@ -207,7 +207,7 @@ gfc: gf3
gfi: gf3 gfi: gf3
gf3: gf3:
$(GHMAKE) $(GHCOPTFLAGS) -o gf3 GF/Devel/GF.hs $(GHMAKE) $(GHCOPTFLAGS) $(GHCFLAGS) -o gf3 GF/Devel/GF.hs
strip $(GF3_EXE) strip $(GF3_EXE)
mv $(GF3_EXE) ../bin/ mv $(GF3_EXE) ../bin/