diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-08-15 19:59:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-08-15 19:59:10 +0000 |
| commit | 28245481a73246ff9fa4e1bcf719019c2a00b6d3 (patch) | |
| tree | 38309ce0fc68fc40987fb50fe882dc5d2d9a5b44 /src/GF/Shell.hs | |
| parent | 6ee69593f06d57d1a8fd25a333fe0c934137ad45 (diff) | |
Improved generation algorithm (old with -old, all with -all (-lin))
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 66297ddc8..06be45209 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -305,8 +305,12 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com returnArg (ATrms ts) sa CGenerateTrees | oElem showAll opts -> do - let cat = firstAbsCat opts gro - justOutput opts (generateAll opts (putStrLn . prt_) cgr cat) sa + let + cat = firstAbsCat opts gro + outp + | oElem (iOpt "lin") opts = optLinearizeTreeVal opts gro . term2tree gro + | otherwise = prt_ + justOutput opts (generateAll opts (putStrLn . outp) cgr cat) sa CGenerateTrees -> do let a' = case a of |