Intial commit

src/love.c

@@ -0,0 +1,62 @@
+/** 
+ * 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 "luaobj.h"
+
+#define LOVE_VERSION "0.0.0"
+
+
+int l_love_getVersion(lua_State *L) {
+  lua_pushstring(L, LOVE_VERSION);
+  return 1;
+}
+
+
+/* Submodules */
+int luaopen_system(lua_State *L);
+int luaopen_graphics(lua_State *L);
+int luaopen_timer(lua_State *L);
+int luaopen_keyboard(lua_State *L);
+/* Classes */
+int luaopen_image(lua_State *L);
+int luaopen_quad(lua_State *L);
+int luaopen_font(lua_State *L);
+
+int luaopen_love(lua_State *L) {
+  int i;
+  luaL_Reg reg[] = {
+    { "getVerson",  l_love_getVersion },
+    { 0, 0 },
+  };
+  luaL_newlib(L, reg);
+  /* Init submodules */
+  struct { char *name; int (*fn)(lua_State *L); } mods[] = {
+    { "system",   luaopen_system    },
+    { "graphics", luaopen_graphics  },
+    { "timer",    luaopen_timer     },
+    { "keyboard", luaopen_keyboard  },
+    { 0 },
+  };
+  for (i = 0; mods[i].name; i++) {
+    mods[i].fn(L);
+    lua_setfield(L, -2, mods[i].name);
+  }
+  /* Init classes -- all the built in classes are inited here as to create the
+   * metatables required by their constructors. Any new classes must also be
+   * registered here before they will work. */
+  int (*classes[])(lua_State *L) = {
+    luaopen_image,
+    luaopen_quad,
+    luaopen_font,
+    NULL,
+  };
+  for (i = 0; classes[i]; i++) {
+    classes[i](L);
+    lua_pop(L, 1);
+  }
+  return 1;
+}