implement working windows

1 files changed, 50 insertions, 6 deletions

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;
 }