Mercurial > urweb

comparison src/lacweb.grm @ 110:3739af9e727a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Starting with closure links
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 11:43:57 -0400
parents 813e5a52063d
children e3041657d653
comparison
equal deleted inserted replaced
109:813e5a52063d 110:3739af9e727a
279 279
280 eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright)) 280 eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright))
281 281
282 | path (EVar path, s (pathleft, pathright)) 282 | path (EVar path, s (pathleft, pathright))
283 | LBRACE rexp RBRACE (ERecord rexp, s (LBRACEleft, RBRACEright)) 283 | LBRACE rexp RBRACE (ERecord rexp, s (LBRACEleft, RBRACEright))
284 | UNIT (ERecord [], s (UNITleft, UNITright))
284 285
285 | INT (EPrim (Prim.Int INT), s (INTleft, INTright)) 286 | INT (EPrim (Prim.Int INT), s (INTleft, INTright))
286 | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright)) 287 | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright))
287 | STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright)) 288 | STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright))
288 289
343 attr : SYMBOL EQ attrv ((CName (uppercaseFirst SYMBOL), s (SYMBOLleft, SYMBOLright)), attrv) 344 attr : SYMBOL EQ attrv ((CName (uppercaseFirst SYMBOL), s (SYMBOLleft, SYMBOLright)), attrv)
344 345
345 attrv : INT (EPrim (Prim.Int INT), s (INTleft, INTright)) 346 attrv : INT (EPrim (Prim.Int INT), s (INTleft, INTright))
346 | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright)) 347 | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright))
347 | STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright)) 348 | STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright))
349 | LBRACE eexp RBRACE (eexp)