init

guile-agar/src/core.c

@@ -0,0 +1,9 @@
+#include <core.h>
+
+void init_core() {
+  AG_InitCore("agar", 0);
+}
+
+void event_loop() {
+  AG_EventLoop();
+}

guile-agar/src/gui.c

@@ -0,0 +1,22 @@
+#include <gui.h>
+
+void init_gui() {
+  AG_InitGraphics(0);
+}
+
+AG_Window *make_window() {
+  return AG_WindowNew(AG_WINDOW_MAIN);
+}
+
+void show_window(AG_Window *win) {
+  AG_WindowShow(win);
+}
+
+AG_Label* make_label(void* parent) {
+  return AG_LabelNew(parent, 0, "");
+}
+
+void set_label_text(AG_Label* label, const char* text) {
+  AG_LabelText(label, text);
+}
+