diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 3dcec9fbd..66297ddc8 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -28,6 +28,7 @@ import qualified GF.Grammar.MMacros as MMacros import qualified GF.Compile.GrammarToCanon as GrammarToCanon import GF.Grammar.Values import GF.UseGrammar.GetTree +import GF.UseGrammar.Generate (generateAll) ---- should be in API import GF.UseGrammar.Treebank import GF.Shell.ShellCommands @@ -302,6 +303,10 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com _ -> do ts <- randomTreesIO opts gro (optIntOrN opts flagNumber 1) returnArg (ATrms ts) sa + + CGenerateTrees | oElem showAll opts -> do + let cat = firstAbsCat opts gro + justOutput opts (generateAll opts (putStrLn . prt_) cgr cat) sa CGenerateTrees -> do let a' = case a of |