From b808c255b6a9ddba085bf5646e7d20ec344f2e2d Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Tue, 28 Apr 2020 08:48:53 +0200
Subject: Initial support for ad hoc recipes (still work in progress)

---
 libbuild2/script/lexer.test.cxx | 76 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 libbuild2/script/lexer.test.cxx

(limited to 'libbuild2/script/lexer.test.cxx')

diff --git a/libbuild2/script/lexer.test.cxx b/libbuild2/script/lexer.test.cxx
new file mode 100644
index 0000000..b8de241
--- /dev/null
+++ b/libbuild2/script/lexer.test.cxx
@@ -0,0 +1,76 @@
+// file      : libbuild2/script/lexer.test.cxx -*- C++ -*-
+// license   : MIT; see accompanying LICENSE file
+
+#include <cassert>
+#include <iostream>
+
+#include <libbuild2/types.hxx>
+#include <libbuild2/utility.hxx>
+
+#include <libbuild2/script/token.hxx>
+#include <libbuild2/script/lexer.hxx>
+
+using namespace std;
+
+namespace build2
+{
+  namespace script
+  {
+    // Usage: argv[0] <lexer-mode>
+    //
+    int
+    main (int argc, char* argv[])
+    {
+      lexer_mode m;
+      {
+        assert (argc == 2);
+        string s (argv[1]);
+
+        if      (s == "command-expansion") m = lexer_mode::command_expansion;
+        else if (s == "here-line-single")  m = lexer_mode::here_line_single;
+        else if (s == "here-line-double")  m = lexer_mode::here_line_double;
+        else                               assert (false);
+      }
+
+      try
+      {
+        cin.exceptions (istream::failbit | istream::badbit);
+
+        path_name in ("<stdin>");
+
+        using type = token_type;
+
+        redirect_aliases ra {type (type::in_file),
+                             type (type::in_doc),
+                             type (type::in_str),
+                             type (type::out_file_ovr),
+                             type (type::out_file_app),
+                             nullopt};
+
+        lexer l (cin, in, m, ra);
+
+        // No use printing eos since we will either get it or loop forever.
+        //
+        for (token t (l.next ()); t.type != token_type::eos; t = l.next ())
+        {
+          // Print each token on a separate line without quoting operators.
+          //
+          t.printer (cout, t, print_mode::normal);
+          cout << endl;
+        }
+      }
+      catch (const failed&)
+      {
+        return 1;
+      }
+
+      return 0;
+    }
+  }
+}
+
+int
+main (int argc, char* argv[])
+{
+  return build2::script::main (argc, argv);
+}
-- 
cgit v1.1