l -multi -all/-table ; same with tb

2006-05-30 22:02:25 +00:00
parent 6f57b5b530
commit 993f2b3e1e
19 changed files with 112 additions and 64 deletions
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -231,8 +231,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com

  CLinearize [] 
    | oElem showMulti opts -> 
-       changeArg (opTS2CommandArg (unlines. linearizeToAll
-          (allStateGrammars st)) . s2t) sa 
+
+       changeArg (opTS2CommandArg (
+         unlines . 
+         (\t -> [optLinearizeTreeVal opts gr t | gr <- allStateGrammars st])) . s2t) sa
+
    | otherwise -> changeArg (opTS2CommandArg (optLinearizeTreeVal opts gro) . s2t) sa
 ----  CLinearize m -> changeArg (opTS2CommandArg (optLinearizeArgForm opts gro m)) sa