Parent Directory
| 
Revision Log
| 
Patch
| revision 235 by abate, Tue Jul 10 17:17:31 2007 UTC | revision 236 by abate, Tue Jul 10 17:17:48 2007 UTC | |
|---|---|---|
| # | Line 236 | Line 236 |
| 236 | ||
| 237 | ||
| 238 | regexp: [ | regexp: [ |
| 239 | [ x = regexp; "|"; y = regexp -> Alt (x,y) ] | [ x = regexp; "|"; y = regexp -> |
| 240 | match (x,y) with | |
| 241 | | Elem x, Elem y -> Elem (mk loc (Or (x,y))) | |
| 242 | | _ -> Alt (x,y) | |
| 243 | ] | |
| 244 | | [ x = regexp; y = regexp -> Seq (x,y) ] | | [ x = regexp; y = regexp -> Seq (x,y) ] |
| 245 | | [ a = LIDENT; "::"; x = regexp -> SeqCapture (ident a,x) ] | | [ a = LIDENT; "::"; x = regexp -> SeqCapture (ident a,x) ] |
| 246 | | [ x = regexp; "*" -> Star x | | [ x = regexp; "*" -> Star x |
|
||||||||
| CVS Admin">CVS Admin | ViewVC Help |
| Powered by ViewVC 1.1.5 |