From ece4003beebd23082a5fd7a324de40c5572161d1 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 16 Mar 2017 10:35:32 +0200
Subject: Add support for passing parameters to (meta-) operations

---
 build2/lexer.cxx | 53 ++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 38 insertions(+), 15 deletions(-)

(limited to 'build2/lexer.cxx')

diff --git a/build2/lexer.cxx b/build2/lexer.cxx
index ab8d96a..5989548 100644
--- a/build2/lexer.cxx
+++ b/build2/lexer.cxx
@@ -12,15 +12,6 @@ namespace build2
 {
   using type = token_type;
 
-  token lexer::
-  next ()
-  {
-    token t (next_impl ());
-    if (processor_ != nullptr)
-      processor_ (t, *this);
-    return t;
-  }
-
   pair<char, bool> lexer::
   peek_char ()
   {
@@ -69,6 +60,20 @@ namespace build2
         s2 = "   = &|             ";
         break;
       }
+    case lexer_mode::buildspec:
+      {
+        // Like the value mode with these differences:
+        //
+        // 1. Returns '(' as a separated token provided the state stack depth
+        //    is less than or equal to 3 (initial state plus two buildspec)
+        //    (see parse_buildspec() for details).
+        //
+        // 2. Recognizes comma.
+        //
+        s1 = " $(){}[],\t\n";
+        s2 = "           ";
+        break;
+      }
     case lexer_mode::single_quoted:
     case lexer_mode::double_quoted:
       s = false;
@@ -86,7 +91,7 @@ namespace build2
   }
 
   token lexer::
-  next_impl ()
+  next ()
   {
     const state& st (state_.top ());
     lexer_mode m (st.mode);
@@ -98,7 +103,8 @@ namespace build2
     case lexer_mode::normal:
     case lexer_mode::value:
     case lexer_mode::attribute:
-    case lexer_mode::variable:      break;
+    case lexer_mode::variable:
+    case lexer_mode::buildspec:     break;
     case lexer_mode::eval:          return next_eval ();
     case lexer_mode::double_quoted: return next_quoted ();
     default:                        assert (false); // Unhandled custom mode.
@@ -150,14 +156,21 @@ namespace build2
         return make_token (type::rsbrace);
       }
     case '$': return make_token (type::dollar);
-    case '(': return make_token (type::lparen);
     case ')': return make_token (type::rparen);
+    case '(':
+      {
+        // Left paren is always separated in the buildspec mode.
+        //
+        if (m == lexer_mode::buildspec && state_.size () <= 3)
+          sep = true;
+
+        return make_token (type::lparen);
+      }
     }
 
-    // The following characters are not treated as special in the value and
-    // attribute modes.
+    // The following characters are special in the normal and variable modes.
     //
-    if (m != lexer_mode::value && m != lexer_mode::attribute)
+    if (m == lexer_mode::normal || m == lexer_mode::variable)
     {
       switch (c)
       {
@@ -186,6 +199,16 @@ namespace build2
       }
     }
 
+    // The following characters are special in the buildspec mode.
+    //
+    if (m == lexer_mode::buildspec)
+    {
+      switch (c)
+      {
+      case ',': return make_token (type::comma);
+      }
+    }
+
     // Otherwise it is a word.
     //
     unget (c);
-- 
cgit v1.1