From 3246deb437054ff67e600a95d05535251642ad76 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 19 Dec 2024 17:18:08 -0500
Subject: [PATCH] include, test.fth

---
 main.cpp | 12 +++++++++---
 test.fth |  5 +++++
 2 files changed, 14 insertions(+), 3 deletions(-)
 create mode 100644 test.fth

diff --git a/main.cpp b/main.cpp
index 83c3a81..ec2e02c 100644
--- a/main.cpp
+++ b/main.cpp
@@ -25,6 +25,8 @@
 
 constinit static sforth::forth<4096> forth {sforth::initialize<&forth>()};
 
+static bool parse_stream(auto&, std::istream&, bool say_okay = false);
+
 constinit static sforth::native_word<".", [](auto) {
     char buf[8 * sizeof(sforth::cell) + 1] = {};
     std::to_chars(buf, buf + sizeof(buf), forth.pop(), forth.base);
@@ -43,14 +45,18 @@ constinit static sforth::native_word<"TYPE", [](auto) {
     const auto caddr = reinterpret_cast<const char *>(forth.pop());
     std::cout << std::string_view{caddr, u};
 }, &emit> type;
-
-static bool parse_stream(auto&, std::istream&, bool say_okay = false);
+constinit static sforth::native_word<"INCLUDE", [](auto) {
+    const auto w = forth.parse();
+    std::string s {w.begin(), w.end()};
+    std::ifstream file {s};
+    parse_stream(forth, file);
+}, &type> incl;
 
 int main(int argc, const char *argv[])
 {
     std::span args (argv + 1, argc - 1);
 
-    dot.next = std::exchange(forth.next, &type);
+    dot.next = std::exchange(forth.next, &incl);
 
     for (auto arg : args) {
         if (std::ifstream file {arg}; parse_stream(forth, file))
diff --git a/test.fth b/test.fth
new file mode 100644
index 0000000..0a3bc1a
--- /dev/null
+++ b/test.fth
@@ -0,0 +1,5 @@
+include core.fth
+include forth2012-test-suite/src/tester.fr
+include forth2012-test-suite/src/core.fr
+cr
+bye