GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

store the total number of PMCFG categories in the PGF file

Browse Source
This commit is contained in:
krasimir
2008-10-15 07:47:57 +00:00
parent 50fc82d4db
commit ebef7ecb7b
5 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/PGF/Parsing/FCFG/Incremental.hs
View File

@@ -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