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

lambda in GFCC

Browse Source
This commit is contained in:
aarne
2006-09-13 16:49:23 +00:00
parent a64131afbe
commit ba950aab14
7 changed files with 159 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Canon/GFCC/PrintGFCC.hs
View File

@@ -1,5 +1,4 @@
{-# OPTIONS -fno-warn-incomplete-patterns #-}
module GF.Canon.GFCC.PrintGFCC where
-- pretty-printer generated by the BNF converter
@@ -155,6 +154,8 @@ instance Print Term where
V n -> prPrec i 0 (concatD [doc (showString "$") , prt 0 n])
C n -> prPrec i 0 (concatD [prt 0 n])
F cid -> prPrec i 0 (concatD [prt 0 cid])
L cid -> prPrec i 0 (concatD [doc (showString "$") , prt 0 cid])
A cid term -> prPrec i 0 (concatD [doc (showString "(") , prt 0 cid , doc (showString "->") , prt 0 term , doc (showString ")")])
FV terms -> prPrec i 0 (concatD [doc (showString "[|") , prt 0 terms , doc (showString "|]")])
W str term -> prPrec i 0 (concatD [doc (showString "(") , prt 0 str , doc (showString "+") , prt 0 term , doc (showString ")")])