msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

special cases for printing the build-in PMCFG categories

Browse Source
This commit is contained in:
krasimir
2009-03-09 18:08:54 +00:00
parent 50f8db750a
commit 85d9c76b5c
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/PGF/PMCFG.hs
View File

@@ -85,6 +85,12 @@ ppSymbol (FSymCat d r) = char '<' <> int d <> comma <> int r <> char '>'
ppSymbol (FSymLit d r) = char '<' <> int d <> comma <> int r <> char '>' ppSymbol (FSymLit d r) = char '<' <> int d <> comma <> int r <> char '>'
ppSymbol (FSymTok (KS t)) = text (show t) ppSymbol (FSymTok (KS t)) = text (show t)
ppFCat fcat = char 'C' <> int fcat ppFCat fcat
| fcat == fcatString = text "String"
| fcat == fcatInt = text "Int"
| fcat == fcatFloat = text "Float"
| fcat == fcatVar = text "Var"
| otherwise = char 'C' <> int fcat
ppFunId funid = char 'F' <> int funid ppFunId funid = char 'F' <> int funid
ppSeqId seqid = char 'S' <> int seqid ppSeqId seqid = char 'S' <> int seqid