Mercurial > urweb

comparison src/lacweb.lex @ 67:9f89f0b00b84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating cfold
author Adam Chlipala <adamc@hcoop.net>
date Thu, 26 Jun 2008 09:48:54 -0400
parents fd8a81ecd598
children b4f2a258e52c
comparison
equal deleted inserted replaced
66:1ec5703c09c4 67:9f89f0b00b84
144 144
145 <INITIAL> "con" => (Tokens.CON (pos yypos, pos yypos + size yytext)); 145 <INITIAL> "con" => (Tokens.CON (pos yypos, pos yypos + size yytext));
146 <INITIAL> "type" => (Tokens.LTYPE (pos yypos, pos yypos + size yytext)); 146 <INITIAL> "type" => (Tokens.LTYPE (pos yypos, pos yypos + size yytext));
147 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); 147 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext));
148 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); 148 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext));
149 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext));
149 150
150 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext)); 151 <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext));
151 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext)); 152 <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext));
152 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext)); 153 <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext));
153 <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext)); 154 <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext));