Mercurial > urweb
comparison src/lacweb.lex @ 67:9f89f0b00b84
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)); |