GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 02:02:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix command cc for Unicode

Browse Source
This commit is contained in:
krasimir
2010-04-19 15:41:23 +00:00
parent 7c67a90327
commit 50a7512c1b
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GFI.hs
View File

@@ -20,6 +20,7 @@ import GF.Infra.UseIO
import GF.Infra.Option import GF.Infra.Option
import GF.Infra.Modules (greatestResource, modules, emptyModInfo) import GF.Infra.Modules (greatestResource, modules, emptyModInfo)
import qualified System.Console.Haskeline as Haskeline import qualified System.Console.Haskeline as Haskeline
import GF.Text.Coding
import GF.Compile.Coding import GF.Compile.Coding
@@ -123,9 +124,9 @@ loop opts gfenv0 = do
inferLType gr [] t inferLType gr [] t
computeConcrete sgr t computeConcrete sgr t
case runP pExp (BS.pack s) of case runP pExp (encodeUnicode utf8 s) of
Left (_,msg) -> putStrLn msg Left (_,msg) -> putStrLn msg
Right t -> case checkComputeTerm sgr (codeTerm (decode gfenv) (L (0,0) t)) of Right t -> case checkComputeTerm sgr (codeTerm (decodeUnicode utf8 . BS.pack) (L (0,0) t)) of
Ok x -> putStrLn $ showTerm sgr style q x Ok x -> putStrLn $ showTerm sgr style q x
Bad s -> putStrLn $ s Bad s -> putStrLn $ s
loopNewCPU gfenv loopNewCPU gfenv
@@ -272,8 +273,6 @@ emptyGFEnv :: IO GFEnv
emptyGFEnv = do emptyGFEnv = do
return $ GFEnv emptySourceGrammar{modules=[(identW,emptyModInfo)]} (mkCommandEnv emptyPGF) [] 0 return $ GFEnv emptySourceGrammar{modules=[(identW,emptyModInfo)]} (mkCommandEnv emptyPGF) [] 0
decode _ = id -- decodeUnicode . coding
wordCompletion gfenv (left,right) = do wordCompletion gfenv (left,right) = do
case wc_type (reverse left) of case wc_type (reverse left) of
CmplCmd pref CmplCmd pref