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

regex patterns for tokens

Browse Source
This commit is contained in:
aarne
2006-01-07 12:26:11 +00:00
parent a641bf4004
commit 4e42d73ee5
16 changed files with 358 additions and 199 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Source/PrintGF.hs
View File

@@ -399,6 +399,9 @@ instance Print Patt where
PC id patts -> prPrec i 1 (concatD [prt 0 id , prt 0 patts])
PQC id0 id patts -> prPrec i 1 (concatD [prt 0 id0 , doc (showString ".") , prt 0 id , prt 0 patts])
PDisj patt0 patt -> prPrec i 0 (concatD [prt 0 patt0 , doc (showString "|") , prt 1 patt])
PSeq patt0 patt -> prPrec i 0 (concatD [prt 0 patt0 , doc (showString "+") , prt 1 patt])
PRep patt -> prPrec i 1 (concatD [prt 2 patt , doc (showString "*")])
PAs id patt -> prPrec i 1 (concatD [prt 0 id , doc (showString "@") , prt 2 patt])
prtList es = case es of
[x] -> (concatD [prt 2 x])