diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-24 15:02:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-24 15:02:03 -0400 |
| commit | 92af3391b64df0a2082006c39ed1335dd1bf7256 (patch) | |
| tree | 88b7d3545d1b46e288c0f1f0d41a9be6abdb0ce1 /src/lacweb.lex | |
| parent | 84f7c995c0ad553d3fc91d1b31f320fc9de58d79 (diff) | |
Start of datatype support
Diffstat (limited to 'src/lacweb.lex')
| -rw-r--r-- | src/lacweb.lex | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lacweb.lex b/src/lacweb.lex index 4412d9e4..506537e5 100644 --- a/src/lacweb.lex +++ b/src/lacweb.lex @@ -248,9 +248,12 @@ notags = [^<{\n]+; <INITIAL> "__" => (Tokens.UNDERUNDER (pos yypos, pos yypos + size yytext)); <INITIAL> "_" => (Tokens.UNDER (pos yypos, pos yypos + size yytext)); <INITIAL> "~" => (Tokens.TWIDDLE (pos yypos, pos yypos + size yytext)); +<INITIAL> "|" => (Tokens.BAR (pos yypos, pos yypos + size yytext)); <INITIAL> "con" => (Tokens.CON (pos yypos, pos yypos + size yytext)); <INITIAL> "type" => (Tokens.LTYPE (pos yypos, pos yypos + size yytext)); +<INITIAL> "datatype" => (Tokens.DATATYPE (pos yypos, pos yypos + size yytext)); +<INITIAL> "of" => (Tokens.OF (pos yypos, pos yypos + size yytext)); <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); |