summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Gabriel Riba Faura <griba2001@gmail.com>2015-06-03 08:34:23 +0200
committerGravatar Gabriel Riba Faura <griba2001@gmail.com>2015-06-03 08:34:23 +0200
commitde90e13f1cd152318791f47d75280f03e768c7cc (patch)
treee8f2de102e2aa9ecedd07538a874b4660bbe6e26 /src
parent57424b901657e7c798fc7e4b20427c2d42835203 (diff)
location literal _LOC_
Diffstat (limited to 'src')
-rw-r--r--src/urweb.lex6
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));