GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

the pmcfg_pretty printer now prints the actual grammar used for parsing

Browse Source
This commit is contained in:
krasimir
2009-09-23 06:28:36 +00:00
parent 884747508e
commit ea10ce93c4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/PGF/PMCFG.hs
View File

@@ -56,7 +56,7 @@ isLiteralFCat = (`elem` [fcatString, fcatInt, fcatFloat, fcatVar])
ppPMCFG :: ParserInfo -> Doc ppPMCFG :: ParserInfo -> Doc
ppPMCFG pinfo = ppPMCFG pinfo =
text "productions" $$ text "productions" $$
nest 2 (vcat [ppProduction (fcat,prod) | (fcat,set) <- IntMap.toList (productions0 pinfo), prod <- Set.toList set]) $$ nest 2 (vcat [ppProduction (fcat,prod) | (fcat,set) <- IntMap.toList (productions pinfo), prod <- Set.toList set]) $$
text "functions" $$ text "functions" $$
nest 2 (vcat (map ppFun (assocs (functions pinfo)))) $$ nest 2 (vcat (map ppFun (assocs (functions pinfo)))) $$
text "sequences" $$ text "sequences" $$