diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
| commit | 95d278b9b8e9c314541b8251a34a32fe6deeb896 (patch) | |
| tree | f0f262173a66272d9d91248844f2facc40cc65a2 /src/lacweb.lex | |
| parent | 3316f3c317e587a5fc2ecf38f061a72b48e3b94e (diff) | |
Starting with closure links
Diffstat (limited to 'src/lacweb.lex')
| -rw-r--r-- | src/lacweb.lex | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/lacweb.lex b/src/lacweb.lex index 41163a61..b54d9e21 100644 --- a/src/lacweb.lex +++ b/src/lacweb.lex @@ -227,8 +227,10 @@ notags = [^<{\n]+; <INITIAL> ")" => (Tokens.RPAREN (pos yypos, pos yypos + size yytext)); <INITIAL> "[" => (Tokens.LBRACK (pos yypos, pos yypos + size yytext)); <INITIAL> "]" => (Tokens.RBRACK (pos yypos, pos yypos + size yytext)); -<INITIAL> "{" => (Tokens.LBRACE (pos yypos, pos yypos + size yytext)); -<INITIAL> "}" => (Tokens.RBRACE (pos yypos, pos yypos + size yytext)); +<INITIAL> "{" => (enterBrace (); + Tokens.LBRACE (pos yypos, pos yypos + size yytext)); +<INITIAL> "}" => (exitBrace (); + Tokens.RBRACE (pos yypos, pos yypos + size yytext)); <INITIAL> "->" => (Tokens.ARROW (pos yypos, pos yypos + size yytext)); <INITIAL> "=>" => (Tokens.DARROW (pos yypos, pos yypos + size yytext)); |