From 28245481a73246ff9fa4e1bcf719019c2a00b6d3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 15 Aug 2006 19:59:10 +0000
Subject: Improved generation algorithm (old with -old, all with -all (-lin))

---
 src/GF/Shell.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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

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