Mercurial > urweb

comparison src/urweb.lex @ 623:588b9d16b00a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of kind polymorphism, up to the point where demo/hello elaborates with updated Basis/Top
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Feb 2009 16:10:25 -0500
parents 8998114760c1
children e68de2a5506b
comparison
equal deleted inserted replaced
622:d64533157f40 623:588b9d16b00a
245 <INITIAL> "{" => (enterBrace (); 245 <INITIAL> "{" => (enterBrace ();
246 Tokens.LBRACE (pos yypos, pos yypos + size yytext)); 246 Tokens.LBRACE (pos yypos, pos yypos + size yytext));
247 <INITIAL> "}" => (exitBrace (); 247 <INITIAL> "}" => (exitBrace ();
248 Tokens.RBRACE (pos yypos, pos yypos + size yytext)); 248 Tokens.RBRACE (pos yypos, pos yypos + size yytext));
249 249
250 <INITIAL> "-->" => (Tokens.KARROW (pos yypos, pos yypos + size yytext));
250 <INITIAL> "->" => (Tokens.ARROW (pos yypos, pos yypos + size yytext)); 251 <INITIAL> "->" => (Tokens.ARROW (pos yypos, pos yypos + size yytext));
252 <INITIAL> "==>" => (Tokens.DKARROW (pos yypos, pos yypos + size yytext));
251 <INITIAL> "=>" => (Tokens.DARROW (pos yypos, pos yypos + size yytext)); 253 <INITIAL> "=>" => (Tokens.DARROW (pos yypos, pos yypos + size yytext));
252 <INITIAL> "++" => (Tokens.PLUSPLUS (pos yypos, pos yypos + size yytext)); 254 <INITIAL> "++" => (Tokens.PLUSPLUS (pos yypos, pos yypos + size yytext));
253 <INITIAL> "--" => (Tokens.MINUSMINUS (pos yypos, pos yypos + size yytext)); 255 <INITIAL> "--" => (Tokens.MINUSMINUS (pos yypos, pos yypos + size yytext));
254 <INITIAL> "---" => (Tokens.MINUSMINUSMINUS (pos yypos, pos yypos + size yytext)); 256 <INITIAL> "---" => (Tokens.MINUSMINUSMINUS (pos yypos, pos yypos + size yytext));
255 257
289 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); 291 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext));
290 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); 292 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext));
291 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext)); 293 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext));
292 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); 294 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext));
293 <INITIAL> "map" => (Tokens.MAP (pos yypos, pos yypos + size yytext)); 295 <INITIAL> "map" => (Tokens.MAP (pos yypos, pos yypos + size yytext));
294 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext));
295 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext)); 296 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext));
296 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext)); 297 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext));
297 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext)); 298 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext));
298 <INITIAL> "else" => (Tokens.ELSE (pos yypos, pos yypos + size yytext)); 299 <INITIAL> "else" => (Tokens.ELSE (pos yypos, pos yypos + size yytext));
299 300