From 60c2c496357d3259c2fb29f7e2f1c3804eb5ad33 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Mon, 14 Feb 2022 11:25:04 +0200
Subject: Add parser::parse_eval() public API function

---
 libbuild2/parser.cxx | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

(limited to 'libbuild2/parser.cxx')

diff --git a/libbuild2/parser.cxx b/libbuild2/parser.cxx
index f42666b..9fbcd2b 100644
--- a/libbuild2/parser.cxx
+++ b/libbuild2/parser.cxx
@@ -355,6 +355,50 @@ namespace build2
     return make_pair (move (lhs), move (t));
   }
 
+  value parser::
+  parse_eval (lexer& l, scope& rs, scope& bs, pattern_mode pmode)
+  {
+    path_ = &l.name ();
+    lexer_ = &l;
+
+    root_ = &rs;
+    scope_ = &bs;
+    target_ = nullptr;
+    prerequisite_ = nullptr;
+
+    pbase_ = scope_->src_path_;
+
+    // Note that root_ may not be a project root.
+    //
+    auto_project_env penv (
+      stage_ != stage::boot && root_ != nullptr && root_->root_extra != nullptr
+      ? auto_project_env (*root_)
+      : auto_project_env ());
+
+    token t;
+    type tt;
+    next (t, tt);
+
+    if (tt != type::lparen)
+      fail (t) << "expected '(' instead of " << t;
+
+    location loc (get_location (t));
+    mode (lexer_mode::eval, '@');
+    next_with_attributes (t, tt);
+
+    values vs (parse_eval (t, tt, pmode));
+
+    if (next (t, tt) != type::eos)
+      fail (t) << "unexpected " << t;
+
+    switch (vs.size ())
+    {
+    case 0:  return value (names ());
+    case 1:  return move (vs[0]);
+    default: fail (loc) << "expected single value" << endf;
+    }
+  }
+
   bool parser::
   parse_clause (token& t, type& tt, bool one)
   {
-- 
cgit v1.1