mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user