Mercurial > urweb

comparison src/urweb.grm @ 1420:146b69c53304

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow negative int patterns
author Adam Chlipala <adam@chlipala.net>
date Thu, 03 Feb 2011 11:12:48 -0500
parents 5f4fee8a4dcd
children 7f6ac9f33d4d
comparison
equal deleted inserted replaced
1419:00b79f39be25 1420:146b69c53304
1321 1321
1322 pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright)) 1322 pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright))
1323 | cpath (PCon (#1 cpath, #2 cpath, NONE), s (cpathleft, cpathright)) 1323 | cpath (PCon (#1 cpath, #2 cpath, NONE), s (cpathleft, cpathright))
1324 | UNDER (PWild, s (UNDERleft, UNDERright)) 1324 | UNDER (PWild, s (UNDERleft, UNDERright))
1325 | INT (PPrim (Prim.Int INT), s (INTleft, INTright)) 1325 | INT (PPrim (Prim.Int INT), s (INTleft, INTright))
1326 | MINUS INT (PPrim (Prim.Int (~INT)), s (MINUSleft, INTright))
1326 | STRING (PPrim (Prim.String STRING), s (STRINGleft, STRINGright)) 1327 | STRING (PPrim (Prim.String STRING), s (STRINGleft, STRINGright))
1327 | CHAR (PPrim (Prim.Char CHAR), s (CHARleft, CHARright)) 1328 | CHAR (PPrim (Prim.Char CHAR), s (CHARleft, CHARright))
1328 | LPAREN pat RPAREN (pat) 1329 | LPAREN pat RPAREN (pat)
1329 | LBRACE RBRACE (PRecord ([], false), s (LBRACEleft, RBRACEright)) 1330 | LBRACE RBRACE (PRecord ([], false), s (LBRACEleft, RBRACEright))
1330 | UNIT (PRecord ([], false), s (UNITleft, UNITright)) 1331 | UNIT (PRecord ([], false), s (UNITleft, UNITright))