Mercurial > urweb

comparison src/lacweb.lex @ 170:a158f8c5aa55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parsing basic patterns
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 16:38:15 -0400
parents 34ccd7d2bea8
children 7ee424760d2f
comparison
equal deleted inserted replaced
169:2232ab355f66 170:a158f8c5aa55
257 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); 257 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext));
258 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); 258 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext));
259 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); 259 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext));
260 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); 260 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext));
261 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext)); 261 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext));
262 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext));
262 263
263 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext)); 264 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext));
264 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext)); 265 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext));
265 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext)); 266 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext));
266 <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext)); 267 <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext));