"Committed_by_peb"

src/GF/Parsing/MCFG/PInfo.hs

@@ -4,15 +4,14 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/19 10:46:08 $ 
+-- > CVS $Date: 2005/04/20 12:49:45 $ 
 -- > CVS $Author: peb $
--- > CVS $Revision: 1.1 $
+-- > CVS $Revision: 1.2 $
 --
 -- MCFG parsing, parser information
 -----------------------------------------------------------------------------
 
-module GF.NewParsing.MCFG.PInfo
-    (MCFParser, MCFPInfo(..), buildMCFPInfo) where
+module GF.NewParsing.MCFG.PInfo where
 
 import GF.System.Tracing
 import GF.Infra.Print
@@ -22,6 +21,7 @@ import GF.Formalism.GCFG
 import GF.Formalism.MCFG
 import GF.Data.SortedList
 import GF.Data.Assoc
+import GF.NewParsing.MCFG.Range
 
 ----------------------------------------------------------------------
 -- type declarations
@@ -32,10 +32,13 @@ type MCFParser c n l t = MCFPInfo c n l t
 		       -> Input t
 		       -> MCFChart c n l
 
-type MCFChart  c n l   = [(n, (c, RangeRec l), [(c, RangeRec l)])]
+type MCFChart  c n l   = [Abstract (c, RangeRec l) n]
 
 type MCFPInfo  c n l t = MCFGrammar c n l t
 
-buildCFPInfo :: (Ord n, Ord c, Ord l, Ord t) => MCFGrammar c n l t -> MCFPInfo c n l t
-buildCFPInfo = id
+buildMCFPInfo :: (Ord n, Ord c, Ord l, Ord t) => MCFGrammar c n l t -> MCFPInfo c n l t
+buildMCFPInfo = id
+
+makeFinalEdge :: c -> l -> (Int, Int) -> (c, RangeRec l)
+makeFinalEdge cat lbl bnds = (cat, [(lbl, makeRange bnds)])