From 5f33e0bda955c66aa81356c6636ec65d9a40bc2e Mon Sep 17 00:00:00 2001 From: krasimir Date: Wed, 15 Oct 2008 07:47:57 +0000 Subject: store the total number of PMCFG categories in the PGF file --- src/PGF/Parsing/FCFG/Incremental.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/PGF/Parsing/FCFG') diff --git a/src/PGF/Parsing/FCFG/Incremental.hs b/src/PGF/Parsing/FCFG/Incremental.hs index c8d9d8f8d..8dc3c3da5 100644 --- a/src/PGF/Parsing/FCFG/Incremental.hs +++ b/src/PGF/Parsing/FCFG/Incremental.hs @@ -35,12 +35,8 @@ initState pinfo start = (lbl,seqid) <- assocs lins return (Active 0 0 funid seqid args (AK cat lbl)) - max_fid = maximum (0:[maximum (cat:args) | (cat, set) <- IntMap.toList (productions pinfo) - , p <- Set.toList set - , let args = case p of {FApply _ args -> args; FCoerce cat -> [cat]}])+1 - in State pinfo - (Chart emptyAC [] emptyPC (productions pinfo) max_fid 0) + (Chart emptyAC [] emptyPC (productions pinfo) (totalCats pinfo) 0) (Set.fromList items) -- | From the current state and the next token -- cgit v1.2.3