1 files changed, 126 insertions, 0 deletions

diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c
index 485799d..f6b354e 100644
--- a/src/bootstrap/primitives.c
+++ b/src/bootstrap/primitives.c
@@ -92,6 +92,10 @@ eval(Object *root) {
     return obj_nil;
 }
 
+//
+// Arithmetic procedures.
+//
+
 Object *
 proc_add(Object *args) {
     // Extract first parameter.
@@ -213,6 +217,40 @@ proc_div(Object *args) {
 }
 
 Object *
+proc_mod(Object *args) {
+    // Extract first parameter.
+    Object *car = eval(args->car);
+    if (car == NULL) {
+        fprintf(stderr, "error: not enough arguments\n");
+        return obj_nil;
+    }
+    args = args->cdr;
+    ssize_t tot = car->fixnum;
+
+    while (args->type == OBJ_TYPE_PAIR) {
+        Object *car = eval(args->car);
+        if (car == NULL) {
+            car = obj_nil;
+        }
+        if (car->type != OBJ_TYPE_FIXNUM) {
+            fprintf(stderr, "error: div not supported for type %d\n", car->type);
+            return obj_nil;
+        }
+        if (car->fixnum == 0) {
+            fprintf(stderr, "error: division by zero\n");
+            return obj_nil;
+        }
+        tot %= car->fixnum;
+        args = args->cdr;
+    }
+    return make_fixnum(tot);
+}
+
+//
+// Display/Evaluation procedues.
+//
+
+Object *
 proc_display(Object *args) {
     if (args == NULL) {
         return obj_nil;
@@ -256,6 +294,10 @@ proc_print(Object *args) {
     return NULL;
 }
 
+//
+// Type info procedures.
+//
+
 Object *
 proc_is_boolean(Object *args) {
     Object *obj = NULL;
@@ -268,6 +310,46 @@ proc_is_boolean(Object *args) {
 }
 
 Object *
+proc_is_null(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_is_symbol(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_is_string(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_is_fixnum(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_is_pair(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_is_procedure(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+//
+// Boolean/conditional procedures.
+//
+
+Object *
 proc_not(Object *args) {
     if (args->type == OBJ_TYPE_PAIR) {
         return eval(args->car) == obj_false ? obj_true : obj_false;
@@ -522,4 +604,48 @@ proc_num_equal(Object *args) {
     return obj_true;
 }
 
+//
+// List operation procedures.
+//
+
+Object *
+proc_car(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_cdr(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_cons(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+Object *
+proc_list(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
+//
+// Polymorphic procedures.
+//
+
+Object *
+proc_equal(Object *args) {
+    // TODO: stub
+    return NULL;
+}
+
 // TODO: fixnum left/right shift, mask, invert
+// TODO: implement and test missing procedures
+// TODO: properly implement nested environments
+// TODO: implement support for quotes and semi-quotes
+// TODO: LAMBDA
+// TODO: let
+// TODO: better error handling?