Mercurial > urweb

comparison src/urweb.lex @ 621:8998114760c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"Hello world" compiles, after replacing type-level fold with map
author Adam Chlipala <adamc@hcoop.net>
date Sat, 21 Feb 2009 15:33:20 -0500
parents ae03d09043c1
children 588b9d16b00a
comparison
equal deleted inserted replaced
620:d828b143e147 621:8998114760c1
288 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); 288 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext));
289 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); 289 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext));
290 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); 290 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext));
291 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext)); 291 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext));
292 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); 292 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext));
293 <INITIAL> "map" => (Tokens.MAP (pos yypos, pos yypos + size yytext));
293 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext)); 294 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext));
294 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext)); 295 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext));
295 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext)); 296 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext));
296 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext)); 297 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext));
297 <INITIAL> "else" => (Tokens.ELSE (pos yypos, pos yypos + size yytext)); 298 <INITIAL> "else" => (Tokens.ELSE (pos yypos, pos yypos + size yytext));