aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorFabian Schmitthenner <development@schmitthenner.eu>2016-01-19 20:07:53 +0000
committerFabian Schmitthenner <development@schmitthenner.eu>2016-01-19 20:35:35 +0000
commited23c8568e10d15196bb4ff2b79fc14191d28109 (patch)
tree633a298bd97695734b663d293cea57201d7123e3 /src
parentef53735f281cf0f5c54ac13ff649c696539d691d (diff)
next try for "don't abort when given unmatched '}' with 'start-condition stack underflow'. This fixes #751"
This reverts commit 8120b6fb8a4924f8ae717bba9bbda4a2f89e2141 and fixes the regression introduced in 8d22b26448a091c76ab972c0b0603daac5e255e4.
Diffstat (limited to 'src')
-rw-r--r--src/libexpr/lexer.l24
1 files changed, 17 insertions, 7 deletions
diff --git a/src/libexpr/lexer.l b/src/libexpr/lexer.l
index 1f2957ec7..478f41641 100644
--- a/src/libexpr/lexer.l
+++ b/src/libexpr/lexer.l
@@ -8,6 +8,7 @@
%x STRING
%x IND_STRING
+%x INSIDE_DOLLAR_CURLY
%{
@@ -93,6 +94,8 @@ URI [a-zA-Z][a-zA-Z0-9\+\-\.]*\:[a-zA-Z0-9\%\/\?\:\@\&\=\+\$\,\-\_\.\!\~
%%
+<INITIAL,INSIDE_DOLLAR_CURLY>{
+
if { return IF; }
then { return THEN; }
@@ -124,11 +127,15 @@ or { return OR_KW; }
return INT;
}
-\$\{ { PUSH_STATE(INITIAL); return DOLLAR_CURLY; }
-\{ { PUSH_STATE(INITIAL); return '{'; }
-\} { POP_STATE(); return '}'; }
+\$\{ { PUSH_STATE(INSIDE_DOLLAR_CURLY); return DOLLAR_CURLY; }
+}
+
+\} { return '}'; }
+<INSIDE_DOLLAR_CURLY>\} { POP_STATE(); return '}'; }
+\{ { return '{'; }
+<INSIDE_DOLLAR_CURLY>\{ { PUSH_STATE(INSIDE_DOLLAR_CURLY); return '{'; }
-\" { PUSH_STATE(STRING); return '"'; }
+<INITIAL,INSIDE_DOLLAR_CURLY>\" { PUSH_STATE(STRING); return '"'; }
<STRING>([^\$\"\\]|\$[^\{\"\\]|\\.|\$\\.)*\$/\" |
<STRING>([^\$\"\\]|\$[^\{\"\\]|\\.|\$\\.)+ {
/* It is impossible to match strings ending with '$' with one
@@ -137,11 +144,11 @@ or { return OR_KW; }
yylval->e = unescapeStr(data->symbols, yytext);
return STR;
}
-<STRING>\$\{ { PUSH_STATE(INITIAL); return DOLLAR_CURLY; }
+<STRING>\$\{ { PUSH_STATE(INSIDE_DOLLAR_CURLY); return DOLLAR_CURLY; }
<STRING>\" { POP_STATE(); return '"'; }
<STRING>. return yytext[0]; /* just in case: shouldn't be reached */
-\'\'(\ *\n)? { PUSH_STATE(IND_STRING); return IND_STRING_OPEN; }
+<INITIAL,INSIDE_DOLLAR_CURLY>\'\'(\ *\n)? { PUSH_STATE(IND_STRING); return IND_STRING_OPEN; }
<IND_STRING>([^\$\']|\$[^\{\']|\'[^\'\$])+ {
yylval->e = new ExprIndStr(yytext);
return IND_STR;
@@ -158,7 +165,7 @@ or { return OR_KW; }
yylval->e = unescapeStr(data->symbols, yytext + 2);
return IND_STR;
}
-<IND_STRING>\$\{ { PUSH_STATE(INITIAL); return DOLLAR_CURLY; }
+<IND_STRING>\$\{ { PUSH_STATE(INSIDE_DOLLAR_CURLY); return DOLLAR_CURLY; }
<IND_STRING>\'\' { POP_STATE(); return IND_STRING_CLOSE; }
<IND_STRING>\' {
yylval->e = new ExprIndStr("'");
@@ -166,6 +173,8 @@ or { return OR_KW; }
}
<IND_STRING>. return yytext[0]; /* just in case: shouldn't be reached */
+<INITIAL,INSIDE_DOLLAR_CURLY>{
+
{PATH} { yylval->path = strdup(yytext); return PATH; }
{HPATH} { yylval->path = strdup(yytext); return HPATH; }
{SPATH} { yylval->path = strdup(yytext); return SPATH; }
@@ -177,6 +186,7 @@ or { return OR_KW; }
. return yytext[0];
+}
%%