From d327d9da6c25349757fb87f4cc8bcb3ba69ca8f4 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 20 Oct 2008 14:52:50 +0000
Subject: Added --parser=ondemand flag.

---
 src/PGF.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/PGF.hs')

diff --git a/src/PGF.hs b/src/PGF.hs
index 17f1d8af8..754bcf34f 100644
--- a/src/PGF.hs
+++ b/src/PGF.hs
@@ -214,12 +214,12 @@ readPGF f = do
   g <- parseGrammar s
   return $! addParsers $ toPGF g
 
--- Adds parsers for all concretes that don't have a parser.
+-- Adds parsers for all concretes that don't have a parser and that have parser=ondemand.
 addParsers :: PGF -> PGF
-addParsers pgf = pgf { concretes = Map.map conv (concretes pgf) }
-  where
-    conv cnc | isJust (parser cnc) = cnc
-             | otherwise = cnc { parser = Just (PMCFG.convertConcrete (abstract pgf) cnc) }
+addParsers pgf = mapConcretes (\cnc -> if wantsParser cnc then addParser cnc else cnc) pgf
+    where
+      wantsParser cnc = isNothing (parser cnc) && Map.lookup (mkCId "parser") (cflags cnc) == Just "ondemand"
+      addParser cnc = cnc { parser = Just (PMCFG.convertConcrete (abstract pgf) cnc) }
 
 linearize pgf lang = concat . take 1 . PGF.Linearize.linearizes pgf lang
 
-- 
cgit v1.2.3