diff options
| author |  Gabriel Riba Faura <griba2001@gmail.com> | 2015-06-03 08:34:23 +0200 |
|---|---|---|
| committer | Gabriel Riba Faura <griba2001@gmail.com> | 2015-06-03 08:34:23 +0200 |
| commit | de90e13f1cd152318791f47d75280f03e768c7cc (patch) | |
| tree | e8f2de102e2aa9ecedd07538a874b4660bbe6e26 /src/urweb.lex | |
| parent | 57424b901657e7c798fc7e4b20427c2d42835203 (diff) | |
location literal _LOC_
Diffstat (limited to 'src/urweb.lex')
| -rw-r--r-- | src/urweb.lex | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index c44a4c1d..eada3611 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -537,6 +537,12 @@ xint = x[0-9a-fA-F][0-9a-fA-F]; <INITIAL> "CURRENT_TIMESTAMP" => (Tokens.CURRENT_TIMESTAMP (pos yypos, pos yypos + size yytext)); +<INITIAL> "_LOC_" => (let val strLoc = ErrorMsg.spanToString (ErrorMsg.spanOf + (pos yypos, pos yypos + size yytext)) + in + Tokens.STRING (strLoc, pos yypos, pos yypos + size yytext) + end); + <INITIAL> {id} => (Tokens.SYMBOL (yytext, pos yypos, pos yypos + size yytext)); <INITIAL> {cid} => (Tokens.CSYMBOL (yytext, pos yypos, pos yypos + size yytext)); |