init commit

test/enfload.c

@@ -0,0 +1,29 @@
+#include "enfilade_s7.h"
+
+#include <stdio.h>
+
+int main(void)
+{
+    s7_scheme *sc = s7_init();
+    s7_pointer value;
+
+    init_enfilade_s7(sc);
+
+    value = s7_eval_c_string(sc,
+        "(let ((e (make-enfilade)))"
+        "  (enfilade-put-data e \"1.2.3\" 42)"
+        "  (enfilade-put-data e \"1.2.4\" 43)"
+        "  (enfilade-put-data e \"1.3.1\" 99)"
+        "  (list"
+        "    (enfilade-get-by-tumbler e \"1.2\")"
+        "    (enfilade-get-range e 1 3)"
+        "    (tumbler-compare \"1.2\" \"1.2.1\")"
+        "    (tumbler-add \"25.6.46.93\" \"0.0.3.1.21\")"
+        "    (tumbler-subtract \"1.4.3\" \"1.1.1\")"
+        "    (enfilade-remove e \"1.2.3\")"
+        "    (enfilade-get-by-tumbler e \"1.2.3\")))");
+
+    puts(s7_object_to_c_string(sc, value));
+    s7_free(sc);
+    return 0;
+}