move main loop into honey_run

1 files changed, 59 insertions, 8 deletions

diff --git a/src/honey.c b/src/honey.c
index c3b4856..da55ca6 100644
--- a/src/honey.c
+++ b/src/honey.c
@@ -80,20 +80,71 @@ bool honey_setup(lua_State** L)
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
 
-void honey_run(honey_window window) {
-    /*float prevTime = 0;
+bool honey_run(lua_State* L, honey_options opts) {
+    lua_rawgeti(L, LUA_REGISTRYINDEX, honey_window_info_ref);
+    honey_window_information* info = lua_touserdata(L, -1);
+    honey_window window = info->window;
+
+    char* script;
+    honey_result res = honey_format_string(&script,
+                                           "%s/main.lua",
+                                           opts.script_directory);
+    if (res != HONEY_OK) {
+        fprintf(stderr, "[honey] FATAL: could not allocate space for script filename!");
+        return false;
+    }
+    
+    if (luaL_loadfile(L, script) == 0) {
+        if (!honey_lua_pcall(L, 0, 1) == 0) {
+            const char* error = lua_tostring(L, -1);
+            fprintf(stderr, "[honey] ERROR: %s\n", error);
+            return false;
+        }
+    }
+    else {
+        fprintf(stderr, "ERROR: failed to open %s!\n", script);
+        return false;
+    }
+
+    int update_callback = honey_get_callback(L, "update");
+    int draw_callback   = honey_get_callback(L, "draw");
+    
+    float prevTime = 0;
     float currentTime = 0;
     float dt;
-    float draw_dt = 0;
-
-    while(!glfwWindowShouldClose(window)) {
+    
+    while (!glfwWindowShouldClose(window)) {
         currentTime = (float) glfwGetTime();
         dt = currentTime - prevTime;
         prevTime = currentTime;
+        glfwPollEvents();
+
+        if (update_callback != LUA_NOREF) {
+            lua_rawgeti(L, LUA_REGISTRYINDEX, update_callback);
+            lua_pushnumber(L, dt);
+            int result = honey_lua_pcall(L, 1, 0);
+            if (result != 0) {
+                const char* error = lua_tostring(L, -1);
+                fprintf(stderr, "[honey] ERROR: %s\n", error);
+                glfwSetWindowShouldClose(window, true);
+            }
+        }
 
-        honey_update_callback(dt);
-        honey_draw_callback();
-        }*/
+        if (draw_callback != LUA_NOREF) {
+            lua_rawgeti(L, LUA_REGISTRYINDEX, draw_callback);
+            int result = honey_lua_pcall(L, 0, 0);
+            if (result != 0) {
+                const char* error = lua_tostring(L, -1);
+                fprintf(stderr, "[honey] ERROR: %s\n", error);
+                glfwSetWindowShouldClose(window, true);
+            }
+        }
+    }
+
+    lua_close(L);
+    
+    glfwTerminate();
+    return true;
 }
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */