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

PGF.Printer now dumps the printnames as well

Browse Source
This commit is contained in:
krasimir
2010-06-18 10:04:10 +00:00
parent ad814e12c5
commit fd3cddcf5e
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/runtime/haskell/PGF/Printer.hs
View File

@@ -51,7 +51,9 @@ ppCnc name cnc =
text "sequences" $$ text "sequences" $$
nest 2 (vcat (map ppSeq (assocs (sequences cnc)))) $$ nest 2 (vcat (map ppSeq (assocs (sequences cnc)))) $$
text "categories" $$ text "categories" $$
nest 2 (vcat (map ppCncCat (Map.toList (cnccats cnc))))) $$ nest 2 (vcat (map ppCncCat (Map.toList (cnccats cnc)))) $$
text "printnames" $$
nest 2 (vcat (map ppPrintName (Map.toList (printnames cnc))))) $$
char '}' char '}'
ppProduction (fcat,PApply funid args) = ppProduction (fcat,PApply funid args) =
@@ -71,6 +73,9 @@ ppCncCat (id,(CncCat start end labels)) =
ppCId id <+> text ":=" <+> (text "range " <+> brackets (ppFCat start <+> text ".." <+> ppFCat end) $$ ppCId id <+> text ":=" <+> (text "range " <+> brackets (ppFCat start <+> text ".." <+> ppFCat end) $$
text "labels" <+> brackets (vcat (map (text . show) (elems labels)))) text "labels" <+> brackets (vcat (map (text . show) (elems labels))))
ppPrintName (id,name) =
ppCId id <+> text ":=" <+> ppStrs [name]
ppSymbol (SymCat d r) = char '<' <> int d <> comma <> int r <> char '>' ppSymbol (SymCat d r) = char '<' <> int d <> comma <> int r <> char '>'
ppSymbol (SymLit d r) = char '<' <> int d <> comma <> int r <> char '>' ppSymbol (SymLit d r) = char '<' <> int d <> comma <> int r <> char '>'
ppSymbol (SymKS ts) = ppStrs ts ppSymbol (SymKS ts) = ppStrs ts