From 4cf7c8bacfc836cff5278317cb32dc029cb87273 Mon Sep 17 00:00:00 2001
From: Kimplul <kimi.h.kuparinen@gmail.com>
Date: Sun, 20 Oct 2024 22:47:03 +0300
Subject: play around with guile as a backend

+ I have officially devolved my language into an alternative syntax for
  Scheme. Oh well.
---
 include/lyn/lookup.h | 29 -----------------------------
 include/lyn/lyn.h    | 13 +++----------
 2 files changed, 3 insertions(+), 39 deletions(-)
 delete mode 100644 include/lyn/lookup.h

(limited to 'include')

diff --git a/include/lyn/lookup.h b/include/lyn/lookup.h
deleted file mode 100644
index 577d450..0000000
--- a/include/lyn/lookup.h
+++ /dev/null
@@ -1,29 +0,0 @@
-#ifndef LYN_LOOKUP_H
-#define LYN_LOOKUP_H
-
-#include <stddef.h>
-
-struct lookup_node {
-	unsigned long hash;
-	struct lookup_node *left, *right;
-	char data[]; /* should be max aligned */
-};
-
-struct lookup {
-	size_t ns;
-	struct lookup_node *root;
-};
-
-struct lookup lookup_create(size_t s);
-void lookup_destroy(struct lookup *l);
-
-void *lookup_insert(struct lookup *l, const char *key, const void *n);
-void *lookup_at(struct lookup *l, const char *key);
-
-#define lookupt_insert(type, l, key, n)\
-	(type *)lookup_insert(type, l, key, n)
-
-#define lookupt_at(type, l, key)\
-	*(type *)lookup_at(&l, key)
-
-#endif /* LYN_LOOKUP_H */
diff --git a/include/lyn/lyn.h b/include/lyn/lyn.h
index ff79979..40429c2 100644
--- a/include/lyn/lyn.h
+++ b/include/lyn/lyn.h
@@ -1,23 +1,16 @@
 #ifndef LYN_H
 #define LYN_H
 
+#include <stdio.h>
 #include <lyn/parser.h>
-#include <lyn/lookup.h>
 #include <lyn/vec.h>
 
 #define lyn_at(v, i)\
 	vect_at(struct lyn_value, v, i)
 
-struct lyn_scope {
-	struct lyn_scope *parent;
-	struct lookup visible;
-};
-
 struct lyn {
-	struct lyn_scope *root;
-	struct lyn_scope *cur;
-
-	struct lyn_value res;
+	FILE *output;
+	int depth;
 };
 
 typedef int (*lyn_call)(struct lyn *lyn, struct vec args);
-- 
cgit v1.2.3