1 files changed, 74 insertions, 0 deletions
diff --git a/src/3cl.c b/src/3cl.c
new file mode 100644
index 0000000..c8016a9
--- /dev/null
+++ b/src/3cl.c
@@ -0,0 +1,74 @@
+#include "3cl.h"
+
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "instruction.h"
+
+
+int ccl_init(struct CCL *ccl, const char *code, int (*in)(), void (*out)(int))
+{
+    *ccl = (struct CCL)
+    {
+        .code = code,
+        .in = in,
+        .out = out,
+        .rootframe = (struct CCLFrame)
+        {
+            .prev = NULL, .next = NULL,
+            .type = CCL_ROOT,
+            .ep = 0,
+            .vars = (struct CCLVariable)
+            {
+                .prev = NULL,
+                .next = NULL,
+                .name = '_',
+                .value = 0
+            },
+        },
+        .stack = (struct CCLStack)
+        {
+            .length = CCL_STACKSIZE,
+            .stack = (CCLNum *)malloc(CCL_STACKSIZE)
+        },
+    };
+
+    return errno;
+}
+
+void ccl_free(struct CCL *ccl)
+{
+    free(ccl->stack.stack);
+    if (ccl->rootframe.next != NULL)
+    {
+        for (struct CCLFrame *frame = ccl->rootframe.next, *new;;)
+        {
+            if (frame->vars.next != NULL)
+            {
+                for (struct CCLVariable *var = frame->vars.next, *new;;)
+                {
+                    if (var->next == NULL)
+                        break;
+                    new = var->next;
+                    free(var);
+                    var = new;
+                }
+            }
+
+            if (frame->next == NULL)
+                break;
+            new = frame->next;
+            free(frame);
+            frame = new;
+        }
+    }
+}
+
+void ccl_exec(struct CCL *ccl)
+{
+    struct CCLFrame *curframe = &ccl->rootframe;
+
+    for (;;++curframe->ep)
+        curframe = ccl_instruction(ccl, curframe);
+}