1
0
forked from GitHub/gf-core

Improved generation algorithm (old with -old, all with -all (-lin))

This commit is contained in:
aarne
2006-08-15 19:59:10 +00:00
parent 6ee69593f0
commit 28245481a7
2 changed files with 25 additions and 12 deletions

View File

@@ -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