diff options
| author | aarne <unknown> | 2004-04-30 15:18:38 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-30 15:18:38 +0000 |
| commit | fc99b225a7f39e8762e23acc78bf12398c9c11d9 (patch) | |
| tree | 22be2304e9bb959f601d7bb8620235e51d3a4a37 /src/GF/Shell.hs | |
| parent | c9d10ab5ed8b82ba0f74a25ca30103ccf0985e6d (diff) | |
generation command gt n
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 2fdf6dabd..8a0152e10 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -54,6 +54,7 @@ data Command = | CParse | CTranslate Language Language | CGenerateRandom Int + | CGenerateTrees Int | CPutTerm | CWrapTerm Ident | CMorphoAnalyse @@ -187,6 +188,8 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of _ -> do ts <- randomTreesIO opts gro (optIntOrN opts flagNumber n) returnArg (ATrms ts) sa + CGenerateTrees n -> returnArg (ATrms $ generateTrees opts gro n) sa + CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa ----- CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa |