1 files changed, 16 insertions, 0 deletions
diff --git a/libbuild2/lexer.cxx b/libbuild2/lexer.cxx
index 992e5d1..76c31be 100644
--- a/libbuild2/lexer.cxx
+++ b/libbuild2/lexer.cxx
@@ -42,6 +42,22 @@ namespace build2
     return make_pair (make_pair (r[0], r[1]), sep_);
   }
 
+  pair<char, bool> lexer::
+  peek_char ()
+  {
+    auto p (skip_spaces ());
+    assert (!p.second);
+    sep_ = p.first;
+
+    char r ('\0');
+
+    xchar c (peek ());
+    if (!eos (c))
+      r = c;
+
+    return make_pair (r, sep_);
+  }
+
   void lexer::
   mode (lexer_mode m, char ps, optional<const char*> esc, uintptr_t data)
   {