implement working windows

7 files changed, 130 insertions, 9 deletions

diff --git a/src/gl/gl.c b/src/gl/gl.c
new file mode 100644
index 0000000..8613e70
--- /dev/null
+++ b/src/gl/gl.c
@@ -0,0 +1,34 @@
+#include "gl/glad/glad.h"
+#include <GLFW/glfw3.h>
+#include <lua.h>
+#include <honeysuckle.h>
+
+
+int gl_init(lua_State *L);
+int gl_terminate(lua_State *L);
+
+
+void setup_gl(lua_State *L, int honey_index)
+{
+	hs_create_table(L,
+		hs_str_cfunc("init", gl_init),
+		hs_str_cfunc("terminate", gl_terminate)
+	);
+	lua_setfield(L, honey_index, "gl");
+}
+
+
+int gl_init(lua_State *L)
+{
+	if (!glfwInit()) {
+		hs_throw_error(L, "failed to initialize GLFW");
+	}
+	return 0;
+}
+
+
+int gl_terminate(lua_State *L)
+{
+	glfwTerminate();
+	return 0;
+}
diff --git a/src/gl/gl.h b/src/gl/gl.h
new file mode 100644
index 0000000..2e27851
--- /dev/null
+++ b/src/gl/gl.h
@@ -0,0 +1,9 @@
+#ifndef HONEY_GL_H
+#define HONEY_GL_H
+
+#include <lua.h>
+
+void setup_gl(lua_State *L, int honey_index);
+void setup_window(lua_State *L, int honey_index);
+
+#endif
diff --git a/src/gl/window.test.c b/src/gl/gl.test.c
index b4fb5d4..9bacbf9 100644
--- a/src/gl/window.test.c
+++ b/src/gl/gl.test.c
@@ -12,7 +12,7 @@ void mock_glfwTerminate_();
 #define glfwInit mock_glfwInit_
 #define hs_throw_error mock_hs_throw_error_
 #define glfwTerminate mock_glfwTerminate_
-#include "gl/window.c"
+#include "gl/gl.c"
 #undef glfwTerminate
 #undef hs_throw_error
 #undef glfwInit
@@ -102,7 +102,7 @@ void gl_terminate_works()
 }
 
 
-void suite_window()
+void suite_gl()
 {
 	lily_run_test(gl_init_succeeds);
 	lily_run_test(gl_init_fails);
diff --git a/src/gl/window.c b/src/gl/window.c
index bc654f9..8434a5a 100644
--- a/src/gl/window.c
+++ b/src/gl/window.c
@@ -3,17 +3,61 @@
 #include <lua.h>
 #include <honeysuckle.h>
 
-int gl_init(lua_State *L)
+
+int window_create(lua_State *L);
+int window_destroy(lua_State *L);
+int window_should_close(lua_State *L);
+int window_poll_events(lua_State *L);
+
+
+void setup_window(lua_State *L, int honey_index)
+{
+	hs_create_table(L,
+		hs_str_cfunc("create", window_create),
+		hs_str_cfunc("destroy", window_destroy),
+		hs_str_cfunc("shouldClose", window_should_close),
+		hs_str_cfunc("pollEvents", window_poll_events)
+	);
+	lua_setfield(L, honey_index, "window");
+}
+
+
+int window_create(lua_State *L)
+{
+	lua_Integer width, height;
+	char *title;
+	hs_parse_args(L, hs_int(width), hs_int(height), hs_str(title));
+
+	GLFWwindow *win = glfwCreateWindow(width, height, title, NULL, NULL);
+	if (win == NULL)
+		hs_throw_error(L, "failed to create window");
+	lua_pushlightuserdata(L, win);
+	return 1;
+}
+
+
+int window_destroy(lua_State *L)
 {
-	if (!glfwInit()) {
-		hs_throw_error(L, "failed to initialize GLFW");
-	}
+	void *ptr;
+	hs_parse_args(L, hs_light(ptr));
+	GLFWwindow *win = ptr;
+	glfwDestroyWindow(win);
 	return 0;
 }
 
 
-int gl_terminate(lua_State *L)
+int window_should_close(lua_State *L)
+{
+	void *ptr;
+	hs_parse_args(L, hs_light(ptr));
+	GLFWwindow *win = ptr;
+	lua_pushboolean(L, glfwWindowShouldClose(win));
+	return 1;
+}
+
+
+int window_poll_events(lua_State *L)
 {
-	glfwTerminate();
+	glfwPollEvents();
 	return 0;
 }
diff --git a/src/logging/logging.c b/src/logging/logging.c
index 255da4c..db4611a 100644
--- a/src/logging/logging.c
+++ b/src/logging/logging.c
@@ -1,4 +1,5 @@
 #include <stdio.h>
+#include <stdarg.h>
 #include "logging/logging.h"
 
 int _honey_log_level = HONEY_WARN;
diff --git a/src/main.c b/src/main.c
index e69de29..a42e285 100644
--- a/src/main.c
+++ b/src/main.c
@@ -0,0 +1,32 @@
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+#include <honeysuckle.h>
+#include "gl/gl.h"
+
+
+int main(int argc, char **argv)
+{
+	lua_State *L = luaL_newstate();
+	luaL_openlibs(L);
+
+	lua_createtable(L, 0, 2);
+	int honey_index = lua_gettop(L);
+	setup_gl(L, honey_index);
+	setup_window(L, honey_index);
+	lua_setglobal(L, "honey");
+
+	int err = luaL_loadfile(L, "honey.lua");
+	if (err != 0) {
+		printf("cannot open file!\n");
+		lua_close(L);
+		return 0;
+	}
+	err = hs_call(L, 0, 0);
+	if (err != 0) {
+		const char *err_str = lua_tostring(L, -1);
+		printf("failed to run: %s\n", err_str);
+	}
+	lua_close(L);
+	return 0;
+}
diff --git a/src/test/honey-test.h b/src/test/honey-test.h
index 5ac5b8f..87eb5e6 100644
--- a/src/test/honey-test.h
+++ b/src/test/honey-test.h
@@ -29,10 +29,11 @@
 
 
 void suite_logging();
+void suite_gl();
 void suite_window();
 
 #define RUN_TESTS() \
 	lily_run_suite(suite_logging); \
-	lily_run_suite(suite_window); \
+	lily_run_suite(suite_gl); \
 
 #endif