Mercurial > urweb
comparison src/lacweb.lex @ 40:e3d3c2791105
Functor parsing
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 19 Jun 2008 15:15:00 -0400 |
parents | 1c91c5e6840f |
children | b3fbbc6cb1e5 |
comparison
equal
deleted
inserted
replaced
39:02f42e9a1825 | 40:e3d3c2791105 |
---|---|
131 <INITIAL> "structure" => (Tokens.STRUCTURE (yypos, yypos + size yytext)); | 131 <INITIAL> "structure" => (Tokens.STRUCTURE (yypos, yypos + size yytext)); |
132 <INITIAL> "signature" => (Tokens.SIGNATURE (yypos, yypos + size yytext)); | 132 <INITIAL> "signature" => (Tokens.SIGNATURE (yypos, yypos + size yytext)); |
133 <INITIAL> "struct" => (Tokens.STRUCT (yypos, yypos + size yytext)); | 133 <INITIAL> "struct" => (Tokens.STRUCT (yypos, yypos + size yytext)); |
134 <INITIAL> "sig" => (Tokens.SIG (yypos, yypos + size yytext)); | 134 <INITIAL> "sig" => (Tokens.SIG (yypos, yypos + size yytext)); |
135 <INITIAL> "end" => (Tokens.END (yypos, yypos + size yytext)); | 135 <INITIAL> "end" => (Tokens.END (yypos, yypos + size yytext)); |
136 <INITIAL> "functor" => (Tokens.FUNCTOR (yypos, yypos + size yytext)); | |
136 | 137 |
137 <INITIAL> "Type" => (Tokens.TYPE (yypos, yypos + size yytext)); | 138 <INITIAL> "Type" => (Tokens.TYPE (yypos, yypos + size yytext)); |
138 <INITIAL> "Name" => (Tokens.NAME (yypos, yypos + size yytext)); | 139 <INITIAL> "Name" => (Tokens.NAME (yypos, yypos + size yytext)); |
139 | 140 |
140 <INITIAL> {id} => (Tokens.SYMBOL (yytext, yypos, yypos + size yytext)); | 141 <INITIAL> {id} => (Tokens.SYMBOL (yytext, yypos, yypos + size yytext)); |