Mercurial > urweb
comparison src/lacweb.lex @ 242:cc193f680193
Shorthand for multi-binding exp declaration
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 28 Aug 2008 14:05:47 -0400 |
parents | f5732dc1316c |
children | 2b9dfaffb008 |
comparison
equal
deleted
inserted
replaced
241:052126db06e7 | 242:cc193f680193 |
---|---|
272 <INITIAL> "datatype" => (Tokens.DATATYPE (pos yypos, pos yypos + size yytext)); | 272 <INITIAL> "datatype" => (Tokens.DATATYPE (pos yypos, pos yypos + size yytext)); |
273 <INITIAL> "of" => (Tokens.OF (pos yypos, pos yypos + size yytext)); | 273 <INITIAL> "of" => (Tokens.OF (pos yypos, pos yypos + size yytext)); |
274 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); | 274 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); |
275 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); | 275 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); |
276 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); | 276 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); |
277 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext)); | |
277 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); | 278 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); |
278 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext)); | 279 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext)); |
279 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext)); | 280 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext)); |
280 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext)); | 281 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext)); |
281 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext)); | 282 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext)); |