diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-02-08 21:58:36 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-02-08 21:58:36 +0000 |
| commit | f916352116bb2d3c3caf7aa38e8fe585f2f2150e (patch) | |
| tree | 3e53caf338f2b6c223de4be5a6a23e640fb2d0ec /src/GF/Shell.hs | |
| parent | c9ae662c24d59c323e1bde89efde876d11df1899 (diff) | |
testing treebanks
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 150b756c1..1c7f4527e 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -290,10 +290,13 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com _ -> Nothing returnArg (ATrms $ generateTrees opts gro mt) sa + CTreeBank | oElem doCompute opts -> do -- -c + let bank = prCommandArg a + returnArg (AString $ unlines $ testTreebank opts st bank) sa CTreeBank -> do let ts = strees $ s2t $ snd sa comm = "command" ---- - justOutput opts (mkTreebank opts st comm ts) sa + returnArg (AString $ unlines $ mkTreebank opts st comm ts) sa CShowTreeGraph | oElem emitCode opts -> do -- -o returnArg (AString $ visualizeTrees opts $ strees $ s2t a) sa |