From 98b24d0e33e2cb90244773f8ad7d3c4f3f73ecd0 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 8 Feb 2006 10:18:00 +0000 Subject: command tb for creating treebanks --- src/GF/Shell.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/GF/Shell.hs') diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 36dfc5b14..150b756c1 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -27,6 +27,7 @@ import qualified GF.Canon.CMacros as CMacros import qualified GF.Compile.GrammarToCanon as GrammarToCanon import GF.Grammar.Values import GF.UseGrammar.GetTree +import GF.UseGrammar.Treebank import GF.Shell.ShellCommands @@ -289,6 +290,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com _ -> Nothing returnArg (ATrms $ generateTrees opts gro mt) sa + CTreeBank -> do + let ts = strees $ s2t $ snd sa + comm = "command" ---- + justOutput opts (mkTreebank opts st comm ts) sa + CShowTreeGraph | oElem emitCode opts -> do -- -o returnArg (AString $ visualizeTrees opts $ strees $ s2t a) sa CShowTreeGraph -> do -- cgit v1.2.3