1 files changed, 30 insertions, 0 deletions
diff --git a/scaf/system/scaf_feeder_test.c b/scaf/system/scaf_feeder_test.c
new file mode 100644
index 0000000..23a2661
--- /dev/null
+++ b/scaf/system/scaf_feeder_test.c
@@ -0,0 +1,30 @@
+#include <dlfcn.h>
+
+void scaf_feeder_asm (void *tos, void *reg, void (*ca_rule)(), void *env);
+
+void ca_test() {}
+
+main()
+{
+    int stack[256];
+    int reg[8];
+    int env[8];
+
+    void *libhandle;
+    void *ca_routine;
+
+
+    if (!(libhandle = dlopen("../modules/test.scafo", RTLD_NOW))){
+	printf("error: %s\n", dlerror());
+	exit(1);
+    }
+    
+    if (!(ca_routine = dlsym(libhandle, "carule_1"))){
+	printf("error: %s\n", dlerror());
+	exit(1);
+    }
+
+    scaf_feeder_asm(stack+254, reg, ca_routine, env);
+
+    dlclose(libhandle);
+}