store the total number of PMCFG categories in the PGF file

2026-04-23 03:32:51 -06:00 · 2008-10-15 07:47:57 +00:00
parent 57ee52103d
commit 5f33e0bda9
5 changed files with 7 additions and 7 deletions
--- a/src/GF/Compile/GenerateFCFG.hs
+++ b/src/GF/Compile/GenerateFCFG.hs
@@ -330,6 +330,7 @@ getParserInfo (GrammarEnv last_id catSet seqSet funSet prodSet) =
             , sequences   = mkArray seqSet
 	     , productions = prodSet
 	     , startCats   = Map.map getFCatList catSet
+	     , totalCats   = last_id+1
 	     }
  where
    mkArray map = array (0,Map.size map-1) [(v,k) | (k,v) <- Map.toList map]