mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 17:12:50 -06:00
generalized tour to a variable language by the script MkTour
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
--# -path=.:present
|
FL--# -path=.:present
|
||||||
|
|
||||||
-- (c) 2009 Aarne Ranta under LGPL
|
-- (c) 2009 Aarne Ranta under LGPL
|
||||||
|
|
||||||
|
|||||||
@@ -94,6 +94,12 @@ loop opts gfenv0 = do
|
|||||||
-- special commands, requiring source grammar in env
|
-- special commands, requiring source grammar in env
|
||||||
|
|
||||||
case pwords of
|
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
|
"q":_ -> ifv (putStrLn "See you.") >> return gfenv
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user