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

fix the unicode encoding problem with the cc command

Browse Source
This commit is contained in:
krasimir
2009-08-18 07:08:44 +00:00
parent acb930a349
commit 3ee04cc42d
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GFI.hs
View File

@@ -16,6 +16,7 @@ import GF.Infra.Option
import GF.System.Readline
import GF.Text.Coding
import GF.Compile.Coding
import PGF
import PGF.Data
@@ -106,10 +107,10 @@ loop opts gfenv0 = do
pOpts style q ("-qual" :ws) = pOpts style Qualified ws
pOpts style q ws = (style,q,unwords ws)
(style,q,s) = pOpts TermPrintDefault Qualified ws
(style,q,s) = pOpts TermPrintDefault Qualified (tail (words s0))
case runP pExp (BS.pack s) of
Left (_,msg) -> putStrLn msg
Right t -> case checkTerm sgr t >>= computeTerm sgr of
Right t -> case checkTerm sgr (codeTerm (decode gfenv) t) >>= computeTerm sgr of
Ok x -> putStrLn $ enc (showTerm style q x)
Bad s -> putStrLn $ enc s
loopNewCPU gfenv