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

command eh ; lib/doc/tour started

Browse Source
This commit is contained in:
aarne
2010-02-03 20:55:54 +00:00
parent b90e56a94e
commit 064cfef331
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/summerschool/foods/LexFoodsGer.gf
View File

@@ -5,7 +5,7 @@ instance LexFoodsGer of LexFoods =
oper oper
wine_N = mkN "Wein" ; wine_N = mkN "Wein" ;
pizza_N = mkN "Pizza" "Pizzen" feminine ; pizza_N = mkN "Pizza" "Pizzen" feminine ;
cheese_N = mkN "Käse" "Käsen" masculine ; cheese_N = mkN "Käse" "Käse" masculine ;
fish_N = mkN "Fisch" ; fish_N = mkN "Fisch" ;
fresh_A = mkA "frisch" ; fresh_A = mkA "frisch" ;
warm_A = mkA "warm" "wärmer" "wärmste" ; warm_A = mkA "warm" "wärmer" "wärmste" ;

4
src/compiler/GFI.hs
View File

@@ -130,6 +130,10 @@ loop opts gfenv0 = do
writeFile "_gfdepgraph.dot" (depGraph sgr) writeFile "_gfdepgraph.dot" (depGraph sgr)
putStrLn "wrote graph in file _gfdepgraph.dot" putStrLn "wrote graph in file _gfdepgraph.dot"
loopNewCPU gfenv loopNewCPU gfenv
"eh":w:_ -> do
cs <- readFile w >>= return . map (interpretCommandLine enc env) . lines
loopNewCPU gfenv
"i":args -> do "i":args -> do
gfenv' <- case parseOptions args of gfenv' <- case parseOptions args of
Ok (opts',files) -> do Ok (opts',files) -> do