Mercurial > urweb

comparison src/urweb.lex @ 1590:60d438cdb3a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjust for different ml-lex behavior between SML/NJ and MLton
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 Nov 2011 12:32:20 -0400
parents 5530a8075b62
children 1c9f8f06c1d6
comparison
equal deleted inserted replaced
1589:fb0388f1180e 1590:60d438cdb3a5
414 414
415 415
416 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext)); 416 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext));
417 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext)); 417 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext));
418 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext)); 418 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext));
419 <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext)); 419 <INITIAL> "sig" => (if yypos <= 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext));
420 <INITIAL> "let" => (Tokens.LET (pos yypos, pos yypos + size yytext)); 420 <INITIAL> "let" => (Tokens.LET (pos yypos, pos yypos + size yytext));
421 <INITIAL> "in" => (Tokens.IN (pos yypos, pos yypos + size yytext)); 421 <INITIAL> "in" => (Tokens.IN (pos yypos, pos yypos + size yytext));
422 <INITIAL> "end" => (Tokens.END (pos yypos, pos yypos + size yytext)); 422 <INITIAL> "end" => (Tokens.END (pos yypos, pos yypos + size yytext));
423 <INITIAL> "functor" => (Tokens.FUNCTOR (pos yypos, pos yypos + size yytext)); 423 <INITIAL> "functor" => (Tokens.FUNCTOR (pos yypos, pos yypos + size yytext));
424 <INITIAL> "where" => (Tokens.WHERE (pos yypos, pos yypos + size yytext)); 424 <INITIAL> "where" => (Tokens.WHERE (pos yypos, pos yypos + size yytext));