From 873a160537bf72ead6cfcd6b739d4c7821eb4c85 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 12 Oct 2007 16:00:37 +0000
Subject: FCat is just a plain integer now

---
 src/GF/Parsing/FCFG/PInfo.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/GF/Parsing/FCFG')

diff --git a/src/GF/Parsing/FCFG/PInfo.hs b/src/GF/Parsing/FCFG/PInfo.hs
index 9c201c225..2d7edb89d 100644
--- a/src/GF/Parsing/FCFG/PInfo.hs
+++ b/src/GF/Parsing/FCFG/PInfo.hs
@@ -15,9 +15,13 @@ import GF.Formalism.FCFG
 import GF.Data.SortedList
 import GF.Data.Assoc
 import GF.Parsing.FCFG.Range
+import qualified GF.GFCC.AbsGFCC as AbsGFCC
 
 import Data.Array
 import Data.Maybe
+import qualified Data.Map as Map
+import qualified Data.Set as Set
+import Debug.Trace
 
 ----------------------------------------------------------------------
 -- type declarations
@@ -48,6 +52,7 @@ data FCFPInfo
 		 -- ^ used in 'GF.Parsing.MCFG.Active' (Kilbury):
 	       , grammarCats        :: SList FCat
 	       , grammarToks        :: SList FToken
+	       , startupCats        :: Map.Map AbsGFCC.CId [FCat]
 	       }
 
 
@@ -68,7 +73,7 @@ getLeftCornerCat lins
     syms = lins ! 0
 
 buildFCFPInfo :: FGrammar -> FCFPInfo
-buildFCFPInfo grammar =
+buildFCFPInfo (grammar,startup) = -- trace (unlines [prt (x,Set.toList set) | (x,set) <- Map.toList leftcornFilter]) $
     FCFPInfo { allRules = allrules
              , topdownRules = topdownrules
 	     -- , emptyRules = emptyrules
@@ -77,6 +82,7 @@ buildFCFPInfo grammar =
 	     , leftcornerTokens = leftcorntoks
 	     , grammarCats = grammarcats
 	     , grammarToks = grammartoks
+	     , startupCats = startup
 	     }
 
     where allrules = listArray (0,length grammar-1) grammar
-- 
cgit v1.2.3