From 2eee382a62a909d5a3f2f5eda94f30fe68fd5335 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 20 Jan 2012 13:41:10 +0000
Subject: initial import of the C runtime

---
 src/runtime/c/gu/fun.h | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 src/runtime/c/gu/fun.h

(limited to 'src/runtime/c/gu/fun.h')

diff --git a/src/runtime/c/gu/fun.h b/src/runtime/c/gu/fun.h
new file mode 100644
index 000000000..0004e9923
--- /dev/null
+++ b/src/runtime/c/gu/fun.h
@@ -0,0 +1,65 @@
+#ifndef GU_FUN_H_
+#define GU_FUN_H_
+
+#include <gu/defs.h>
+
+typedef void (*GuFn)();
+typedef void (*GuFn0)(GuFn* clo);
+typedef void (*GuFn1)(GuFn* clo, void* arg1);
+typedef void (*GuFn2)(GuFn* clo, void* arg1, void* arg2);
+
+#define gu_fn(fn_) (&(GuFn){ fn_ })
+
+static inline void
+gu_apply0(GuFn* fn) {
+	(*fn)(fn);
+}
+
+static inline void
+gu_apply1(GuFn* fn, void* arg1) {
+	(*fn)(fn, arg1);
+}
+
+static inline void
+gu_apply2(GuFn* fn, void* arg1, void* arg2) {
+	(*fn)(fn, arg1, arg2);
+}
+
+#define gu_apply(fn_, ...)			\
+	((fn_)->fn((fn_), __VA_ARGS__))
+
+typedef struct GuClo0 GuClo0;
+
+struct GuClo0 {
+	GuFn fn;
+};
+
+typedef struct GuClo1 GuClo1;
+
+struct GuClo1 {
+	GuFn fn;
+	void *env1;
+};
+
+typedef struct GuClo2 GuClo2;
+struct GuClo2 {
+	GuFn fn;
+	void *env1;
+	void *env2;
+};
+
+typedef struct GuClo3 GuClo3;
+struct GuClo3 {
+	GuFn fn;
+	void *env1;
+	void *env2;
+	void *env3;
+};
+
+typedef const struct GuEquality GuEquality;
+
+struct GuEquality {
+	bool (*is_equal)(GuEquality* self, const void* a, const void* b);
+};
+
+#endif // GU_FUN_H_
-- 
cgit v1.2.3