From ae30eca84446f8968341275518fe263660ec0534 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 31 Mar 2006 13:20:40 +0000
Subject: gt -noexpand

---
 src/GF/UseGrammar/Generate.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/GF/UseGrammar')

diff --git a/src/GF/UseGrammar/Generate.hs b/src/GF/UseGrammar/Generate.hs
index f2482e8e8..c96bb5e40 100644
--- a/src/GF/UseGrammar/Generate.hs
+++ b/src/GF/UseGrammar/Generate.hs
@@ -43,17 +43,18 @@ import Data.List
 generateTrees :: Options -> GFCGrammar -> Cat -> Int -> Maybe Int -> Maybe Tree -> [Exp]
 generateTrees opts gr cat n mn mt = map str2tr $ generate gr' ifm cat' n mn mt'
   where
-    gr'  = gr2sgr ats gr
+    gr'  = gr2sgr noe ats gr
     cat' = prt $ snd cat
     mt'  = maybe Nothing (return . tr2str) mt
     ifm  = oElem withMetas opts
     ats  = getOptInt opts (aOpt "atoms")
+    noe  = maybe [] (chunks ',') $ getOptVal opts (aOpt "noexpand")
 
 ------------------------------------------
 -- translate grammar to simpler form and generated trees back
 
-gr2sgr :: Maybe Int -> GFCGrammar -> SGrammar
-gr2sgr un gr = buildTree [(c,rs) | rs@((_,(_,c)):_) <- prune rules] where
+gr2sgr :: [SIdent] -> Maybe Int -> GFCGrammar -> SGrammar
+gr2sgr noe un gr = buildTree [(c,noexp c rs) | rs@((_,(_,c)):_) <- prune rules] where
   rules =
     groupBy (\x y -> scat x == scat y) $
       sortBy (\x y -> compare (scat x) (scat y)) 
@@ -71,8 +72,11 @@ gr2sgr un gr = buildTree [(c,rs) | rs@((_,(_,c)):_) <- prune rules] where
     in take n rs1 ++ rs2
   atom = null . fst . snd
 
+  noexp c rs = if elem c noe then [('?':c,([],c))] else rs
+
 -- str2tr :: STree -> Exp
 str2tr t = case t of
+  SApp ('?':c,[]) -> mkMeta 0 -- from noexpand=c
   SApp (f,ts) -> mkApp (trId f) (map str2tr ts) 
   SMeta _     -> mkMeta 0
 ----  SString s   -> K s
-- 
cgit v1.2.3