From 74371302593ee2ee365e697911c364246f460b63 Mon Sep 17 00:00:00 2001
From: nea <nea@nea.moe>
Date: Thu, 10 Aug 2023 01:37:33 +0200
Subject: Add builtins

---
 src/Builtins.kt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/Builtins.kt

(limited to 'src/Builtins.kt')

diff --git a/src/Builtins.kt b/src/Builtins.kt
new file mode 100644
index 0000000..484ea3a
--- /dev/null
+++ b/src/Builtins.kt
@@ -0,0 +1,18 @@
+package moe.nea.lisp
+
+object Builtins {
+    val builtinSource = Builtins::class.java.getResourceAsStream("/builtins.lisp")!!.bufferedReader().readText()
+    val builtinProgram = LispParser.parse("builtins.lisp", builtinSource)
+    fun loadBuiltins(
+        lispExecutionContext: LispExecutionContext,
+        consumer: (String, LispData) -> Unit,
+    ) {
+        val stackFrame = lispExecutionContext.genBindings()
+        stackFrame.setValueLocal("export", LispData.externalRawCall { context, callsite, stackFrame, args ->
+            val (name) = args
+            consumer((name as LispAst.Reference).label, context.resolveValue(stackFrame, name))
+            return@externalRawCall LispData.LispNil
+        })
+        lispExecutionContext.executeProgram(stackFrame, builtinProgram)
+    }
+}
\ No newline at end of file
-- 
cgit