From fc99b225a7f39e8762e23acc78bf12398c9c11d9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 30 Apr 2004 15:18:38 +0000
Subject: generation command gt n

---
 src/GF/Shell.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Shell.hs')

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
-- 
cgit v1.2.3