From 859c33f37f0174a7b9d76cdcbe889ff12047c99c Mon Sep 17 00:00:00 2001
From: Bad Diode <bd@badd10de.dev>
Date: Sat, 9 Oct 2021 19:00:17 +0200
Subject: Split main into separate files

---
 src/bootstrap/objects.c | 156 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 156 insertions(+)
 create mode 100644 src/bootstrap/objects.c

(limited to 'src/bootstrap/objects.c')

diff --git a/src/bootstrap/objects.c b/src/bootstrap/objects.c
new file mode 100644
index 0000000..985709a
--- /dev/null
+++ b/src/bootstrap/objects.c
@@ -0,0 +1,156 @@
+typedef enum ObjectType {
+    OBJ_TYPE_FIXNUM,
+    OBJ_TYPE_BOOL,
+    OBJ_TYPE_NIL,
+    OBJ_TYPE_SYMBOL,
+    OBJ_TYPE_STRING,
+    OBJ_TYPE_PAIR,
+    OBJ_TYPE_PROCEDURE,
+} ObjectType;
+
+typedef struct Object {
+    ObjectType type;
+    union {
+        // OBJ_TYPE_FIXNUM
+        ssize_t fixnum;
+
+        // OBJ_TYPE_BOOL
+        bool boolean;
+
+        // OBJ_TYPE_STRING
+        struct {
+            char *string;
+            size_t string_n;
+        };
+
+        // OBJ_TYPE_PAIR
+        struct {
+            struct Object *car;
+            struct Object *cdr;
+        };
+
+        // OBJ_TYPE_SYMBOL
+        struct {
+            char *symbol;
+            size_t symbol_n;
+        };
+
+        // OBJ_TYPE_PROCEDURE
+        struct Object *(*proc)(struct Object *args);
+    };
+} Object;
+
+//
+// Singletons.
+//
+
+Object *obj_nil;
+Object *obj_true;
+Object *obj_false;
+
+//
+// Constructors.
+//
+
+Object *
+make_fixnum(ssize_t num) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_FIXNUM;
+    obj->fixnum = num;
+    return obj;
+}
+
+Object *
+make_boolean(bool b) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_BOOL;
+    obj->boolean = b;
+    return obj;
+}
+
+Object *
+make_empty_string(void) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_STRING;
+    obj->string = NULL;
+    obj->string_n = 0;
+    return obj;
+}
+
+void
+append_string(Object *string, StringView sv) {
+    assert(string != NULL);
+    assert(string->type == OBJ_TYPE_STRING);
+
+    if (sv.n == 0) {
+        return;
+    }
+
+    string->string = realloc(string->string, (string->string_n + sv.n) * sizeof(char));
+    memcpy(string->string + string->string_n, sv.start, sv.n);
+    string->string_n += sv.n;
+}
+
+Object *
+make_symbol(const char *str, size_t n) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_SYMBOL;
+    obj->string = malloc(sizeof(char) * n);
+    memcpy(obj->string, str, n);
+    obj->string_n = n;
+    return obj;
+}
+
+Object *
+make_empty_list(void) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_NIL;
+    return obj;
+}
+
+Object *
+make_procedure(Object *(*proc)(struct Object *args)) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_PROCEDURE;
+    obj->proc = proc;
+    return obj;
+}
+
+Object *
+make_pair(Object *car, Object *cdr) {
+    Object *obj = malloc(sizeof(Object));
+    obj->type = OBJ_TYPE_PAIR;
+    obj->car = car;
+    obj->cdr = cdr;
+    return  obj;
+}
+
+bool
+symbol_eq(Object *a, Object *b) {
+    if (a->type != b->type || a->type != OBJ_TYPE_SYMBOL || a->symbol_n != b->symbol_n) {
+        return false;
+    }
+    for (size_t i = 0; i < a->symbol_n; i++) {
+        if (a->symbol[i] != b->symbol[i]) {
+            return false;
+        }
+    }
+    return true;
+}
+
+void display(Object *root);
+
+void
+display_pair(Object *root) {
+    display(root->car);
+    if (root->cdr->type == OBJ_TYPE_PAIR) {
+        printf(" ");
+        display_pair(root->cdr);
+    } else if (root->cdr->type == OBJ_TYPE_NIL) {
+        return;
+    } else {
+        printf(" . ");
+        display(root->cdr);
+    }
+}
+
-- 
cgit v1.2.1