aboutsummaryrefslogtreecommitdiff
path: root/libbuild2
diff options
context:
space:
mode:
Diffstat (limited to 'libbuild2')
-rw-r--r--libbuild2/lexer.cxx11
-rw-r--r--libbuild2/lexer.hxx2
-rw-r--r--libbuild2/parser.cxx12
3 files changed, 18 insertions, 7 deletions
diff --git a/libbuild2/lexer.cxx b/libbuild2/lexer.cxx
index 17b0c7d..61d7fbf 100644
--- a/libbuild2/lexer.cxx
+++ b/libbuild2/lexer.cxx
@@ -63,8 +63,8 @@ namespace build2
}
case lexer_mode::case_patterns:
{
- s1 = " $(){}[],|#\t\n";
- s2 = " ";
+ s1 = " $(){}[],|:#\t\n";
+ s2 = " ";
break;
}
case lexer_mode::attribute:
@@ -201,9 +201,10 @@ namespace build2
// The following characters are special in the normal, variable, and
// switch_expressions modes.
//
- if (m == lexer_mode::normal ||
- m == lexer_mode::variable ||
- m == lexer_mode::switch_expressions)
+ if (m == lexer_mode::normal ||
+ m == lexer_mode::variable ||
+ m == lexer_mode::switch_expressions ||
+ m == lexer_mode::case_patterns)
{
switch (c)
{
diff --git a/libbuild2/lexer.hxx b/libbuild2/lexer.hxx
index 72ec050..90d546d 100644
--- a/libbuild2/lexer.hxx
+++ b/libbuild2/lexer.hxx
@@ -33,7 +33,7 @@ namespace build2
// a few extra characters:
//
// switch_expressions values plus `:`
- // case_patterns values plus '|'
+ // case_patterns values plus '|' and ':'
//
// Note that the normal, value/values and derived, as well as eval modes
// split words separated by the pair character (to disable pairs one can
diff --git a/libbuild2/parser.cxx b/libbuild2/parser.cxx
index d457c68..a8abbfb 100644
--- a/libbuild2/parser.cxx
+++ b/libbuild2/parser.cxx
@@ -2141,7 +2141,7 @@ namespace build2
// multiple `case`s per line/block) optionally followed by the `default`
// lines/blocks followed by the closing `}`.
//
- bool taken (false); // One of the cases/default has been taken.
+ bool taken (false); // One of the case/default has been taken.
bool seen_default (false);
auto special = [&seen_default, this] (const token& t, const type& tt)
@@ -2279,6 +2279,16 @@ namespace build2
break;
}
+ // We reserve the ':' separator for possible future match
+ // extraction support:
+ //
+ // case '...': x
+ // info "$x"
+ //
+ if (tt == type::colon)
+ fail (t) << "unexpected ':' (match extraction is not yet "
+ << "supported)";
+
if (tt != type::comma)
break;
}