From b7419ec90436c09ac5cf1b0363cdba5d7e882bfb Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 26 Jun 2015 19:09:49 -0700
Subject: Third round of quasiliteral-related fixes.

* parser.l (char_esc): Recognize \@ escape.
(grammar): Add a rule for a \@ escape in quasiliterals,
and quasi word list literals.
---
 parser.l | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'parser.l')

diff --git a/parser.l b/parser.l
index 7ec31991..37bbdc70 100644
--- a/parser.l
+++ b/parser.l
@@ -142,6 +142,7 @@ static wchar_t char_esc(int letter)
   case '\'': return L'\'';
   case '`': return L'`';
   case '/': return L'/';
+  case '@': return L'@';
   case '\\': return L'\\';
   }
 
@@ -841,6 +842,11 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return LITCHAR;
 }
 
+<QSILIT,QWLIT>[\\]@ {
+  yylval->chr = char_esc(yytext[1]);
+  return LITCHAR;
+}
+
 <STRLIT,QSILIT,WLIT,QWLIT>{WS}[\\]\n{WS} {
   yyextra->lineno++;
 }
-- 
cgit v1.2.3