From b42ef9c0544009b372e3da0275553ce08cf0ea2a Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Thu, 6 Dec 2007 10:20:58 +0000
Subject: * Syntax to escape '', ${.

---
 src/libexpr/lexer.l | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/libexpr/lexer.l')

diff --git a/src/libexpr/lexer.l b/src/libexpr/lexer.l
index 23a14324f32c..cf90f2939d24 100644
--- a/src/libexpr/lexer.l
+++ b/src/libexpr/lexer.l
@@ -128,6 +128,18 @@ inherit     { return INHERIT; }
                    yylval->t = makeIndStr(toATerm(yytext));
                    return IND_STR;
                  }
+<IND_STRING>\'\'\$ {
+                   yylval->t = makeIndStr(toATerm("$"));
+                   return IND_STR;
+                 }
+<IND_STRING>\'\'\' {
+                   yylval->t = makeIndStr(toATerm("''"));
+                   return IND_STR;
+                 }
+<IND_STRING>\'\'\\. {
+                   yylval->t = unescapeStr(yytext + 2);
+                   return IND_STR;
+                 }
 <IND_STRING>\$\{ { BEGIN(INITIAL); return DOLLAR_CURLY; }
 <IND_STRING>\'\' { BEGIN(INITIAL); return IND_STRING_CLOSE; }
 <IND_STRING>.    return yytext[0]; /* just in case: shouldn't be reached */
-- 
cgit 1.4.1