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

added mode 'gf --run' for running silently a script ; made quizzes handle character encoding correctly ; for this end, collected coding functions in GF.Text.Coding

Browse Source
This commit is contained in:
aarne
2008-10-01 16:01:51 +00:00
parent 307042a6a1
commit 429092ac6a
8 changed files with 93 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Command/Interpreter.hs
View File

@@ -28,11 +28,11 @@ data CommandEnv = CommandEnv {
expmacros :: Map.Map String Tree
}
mkCommandEnv :: (String -> String) -> PGF -> CommandEnv
mkCommandEnv :: String -> PGF -> CommandEnv
mkCommandEnv enc pgf = CommandEnv pgf (allCommands enc pgf) Map.empty Map.empty
emptyCommandEnv :: CommandEnv
emptyCommandEnv = mkCommandEnv encodeUTF8 emptyPGF
emptyCommandEnv = mkCommandEnv "utf8" emptyPGF
interpretCommandLine :: (String -> String) -> CommandEnv -> String -> IO ()
interpretCommandLine enc env line =