added filtering for useless productions in PMCFG

2009-05-18 15:52:10 +00:00
parent 7508fa5785
commit 5f986f5992
4 changed files with 22 additions and 6 deletions
@@ -329,6 +329,7 @@ getParserInfo :: GrammarEnv -> ParserInfo
 getParserInfo (GrammarEnv last_id catSet seqSet funSet prodSet) =
  ParserInfo { functions   = mkArray funSet
             , sequences   = mkArray seqSet
+	     , productions0= prodSet
 	     , productions = prodSet
 	     , startCats   = Map.map getFCatList catSet
 	     , totalCats   = last_id+1