diff options
| author | aarne <aarne@chalmers.se> | 2010-02-08 10:52:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-02-08 10:52:08 +0000 |
| commit | f0f9c0acfa193969bce80d803478fe8b46e03386 (patch) | |
| tree | febe7e44a66bdeac72ee59aa3e059e8aa702bd56 | |
| parent | 9564d85fa50b4381b7f12cfa56145d945a11e363 (diff) | |
generalized tour to a variable language by the script MkTour
| -rw-r--r-- | contrib/summerschool/foods/FoodsGer.gf | 2 | ||||
| -rw-r--r-- | src/compiler/GFI.hs | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/contrib/summerschool/foods/FoodsGer.gf b/contrib/summerschool/foods/FoodsGer.gf index 934cefb9c..d7ba99c11 100644 --- a/contrib/summerschool/foods/FoodsGer.gf +++ b/contrib/summerschool/foods/FoodsGer.gf @@ -1,4 +1,4 @@ ---# -path=.:present +FL--# -path=.:present -- (c) 2009 Aarne Ranta under LGPL diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index d53be2195..84bfc43c5 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -94,6 +94,12 @@ loop opts gfenv0 = do -- special commands, requiring source grammar in env case pwords of +{- + "eh":w:_ -> do + cs <- readFile w >>= return . map words . lines + gfenv' <- foldM (flip (process False benv)) gfenv cs + loopNewCPU gfenv' +-} "q":_ -> ifv (putStrLn "See you.") >> return gfenv |