From f97ff31913211b5cd34278782285e920788583f9 Mon Sep 17 00:00:00 2001
From: Gabriel Riba Faura <griba2001@gmail.com>
Date: Wed, 3 Jun 2015 08:34:23 +0200
Subject: location literal _LOC_

---
 src/urweb.lex | 6 ++++++
 1 file changed, 6 insertions(+)

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));
 
-- 
cgit v1.2.3