Mercurial > urweb

diff src/lacweb.grm @ 7:2ce5bf227d01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add type keyword
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:51:39 -0500
parents 38bf996e1c2e
children a455a9f85cc3
line wrap: on
line diff
--- a/src/lacweb.grm	Sat Jan 26 16:44:39 2008 -0500
+++ b/src/lacweb.grm	Sat Jan 26 16:51:39 2008 -0500
@@ -39,7 +39,8 @@
  | SYMBOL of string | CSYMBOL of string
  | LPAREN | RPAREN | LBRACK | RBRACK | LBRACE | RBRACE
  | EQ | COMMA | COLON | DCOLON | TCOLON | DOT | HASH
- | CON | TYPE | NAME
+ | CON | LTYPE
+ | TYPE | NAME
  | ARROW | LARROW | DARROW
  | FN | PLUSPLUS | DOLLAR
 
@@ -85,6 +86,8 @@
 
 decl   : CON SYMBOL EQ cexp             (DCon (SYMBOL, NONE, cexp), s (CONleft, cexpright))
        | CON SYMBOL DCOLON kind EQ cexp (DCon (SYMBOL, SOME kind, cexp), s (CONleft, cexpright))
+       | LTYPE SYMBOL EQ cexp           (DCon (SYMBOL, SOME (KType, s (LTYPEleft, cexpright)), cexp),
+                                         s (LTYPEleft, cexpright))
 
 kind   : TYPE                           (KType, s (TYPEleft, TYPEright))
        | NAME                           (KName, s (NAMEleft, NAMEright))