From 474c14c92de165516f4302685e3fa8acc3a64f45 Mon Sep 17 00:00:00 2001
From: Julian Hurst <ark@mansus.space>
Date: Sat, 28 Mar 2026 19:17:16 +0100
Subject: Add finvoke parsing and interpreting

---
 cmd/hs/hs.ha | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'cmd/hs/hs.ha')

diff --git a/cmd/hs/hs.ha b/cmd/hs/hs.ha
index 758ad62..c0ad72f 100644
--- a/cmd/hs/hs.ha
+++ b/cmd/hs/hs.ha
@@ -40,6 +40,15 @@ export fn main() void = {
 		fmt::printfln("{}: {}", var.0, var.1)!;
 	};
 
+	let ast = parser::parse(&p);
+	let ast = match (ast) {
+	case let a: parser::ast =>
+		yield a;
+	case let e: parser::error =>
+		fmt::fatal(parser::strerror(e));
+	};
+	interpreter::interpret(&it, ast);
+
 	//let tk = parsetoken(&p);
 	//fmt::printfln("tk value: {}\ntk type: {}", tk.value, parser::strtktype(tk.tktype))!;
 	//tk = parsetoken(&p);
-- 
cgit v1.2.3