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.

1 files changed, 6 insertions, 0 deletions

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++;
 }