GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 51120decdb
commit ff573ca0de
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 (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
ppSeqId seqid = char 'S' <> int seqid