Intial commit

src/main.c

@@ -0,0 +1,95 @@
+/** 
+ * Copyright (c) 2014 rxi
+ *
+ * This library is free software; you can redistribute it and/or modify it
+ * under the terms of the MIT license. See LICENSE for details.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <time.h>
+#include <dos.h>
+
+#include "lib/dmt/dmt.h"
+#include "vga.h"
+#include "luaobj.h"
+#include "graphics.h"
+#include "keyboard.h"
+#include "image.h"
+
+
+static lua_State *L;
+
+static void deinit(void) {
+  /* Deinit and clear up everything. Called at exit */
+  vga_deinit();
+  graphics_deinit();
+  keyboard_deinit();
+  lua_close(L);
+  dmt_dump(stdout);
+}
+
+
+int luaopen_love(lua_State *L);
+
+int main(void) {
+
+  /* Init everything */
+  atexit(deinit);
+  vga_init();
+  graphics_init();
+  keyboard_init();
+
+  /* Init lua */
+  L = luaL_newstate();
+  luaL_openlibs(L);
+  luaL_requiref(L, "love", luaopen_love, 1);
+
+  int res = luaL_dostring(L,
+    "package.path = package.path .. ';' .."
+                   "package.path:gsub('%?', 'lua/?')\n"
+    "require 'main'\n"
+    "if not love.run then\n"
+      "function love.run()\n"
+        "if love.load then love.load() end\n"
+        "love.timer.step()\n"
+        "while true do\n"
+          /* Keyboard Events*/
+          "for _, e in pairs(love.keyboard.getEvents()) do\n"
+            "if e.type == 'down' then\n"
+              "if love.keypressed then love.keypressed(e.code) end\n"
+            "else\n"
+              "if love.keyreleased then love.keyreleased(e.code) end\n"
+            "end\n"
+          "end\n"
+          /* Update */
+          "love.timer.step()\n"
+          "local dt = love.timer.getDelta()\n"
+          "if love.update then love.update(dt) end\n"
+          /* Draw */
+          "love.graphics.clear()\n"
+          "if love.draw then love.draw() end\n"
+          "love.graphics.present()\n"
+        "end\n"
+      "end\n"
+    "end\n"
+    "if not love.errhand then\n"
+      "function love.errhand(msg)\n"
+        "love.system.deinitVGA()\n"
+        "print('error:')\n"
+        "print(msg)\n"
+        "print(debug.traceback('', 2))\n"
+      "end\n"
+    "end\n"
+    "xpcall(love.run, love.errhand)\n"
+    );
+
+  if (res) {
+    vga_deinit();
+    const char *err = lua_tostring(L, -1);
+    printf("error:\n%s\n", err);
+  }
+
+  return 0;
+}