the PMCFG lexical categories are not printed out with prefix C i.e. CInt,.. to make them different from the same PGF categories

This commit is contained in:
krasimir
2009-06-18 17:33:06 +00:00
parent 5f0a68c1a4
commit d2dd0830f1

View File

@@ -90,10 +90,10 @@ ppAlt (Alt ts ps) = ppStrs ts <+> char '/' <+> hsep (map (doubleQuotes . text) p
ppStrs ss = doubleQuotes (hsep (map text ss))
ppFCat fcat
| fcat == fcatString = text "String"
| fcat == fcatInt = text "Int"
| fcat == fcatFloat = text "Float"
| fcat == fcatVar = text "Var"
| fcat == fcatString = text "CString"
| fcat == fcatInt = text "CInt"
| fcat == fcatFloat = text "CFloat"
| fcat == fcatVar = text "CVar"
| otherwise = char 'C' <> int fcat
ppFunId funid = char 'F' <> int funid