From 6babc4110ebb377ff74d7a2db6d02fc559cf9b1a Mon Sep 17 00:00:00 2001
From: Oskari Timperi <oskari.timperi@iki.fi>
Date: Sun, 9 Apr 2017 17:43:43 +0300
Subject: Initial commit

---
 src/main.c | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 src/main.c

(limited to 'src/main.c')

diff --git a/src/main.c b/src/main.c
new file mode 100644
index 0000000..7b3bd26
--- /dev/null
+++ b/src/main.c
@@ -0,0 +1,43 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+
+int luaopen_hpdf(lua_State *L);
+
+extern const char mkpdf_lua[];
+extern const unsigned long mkpdf_lua_size;
+
+int main(int argc, char **argv)
+{
+    lua_State *L;
+    int rc = 0;
+
+    L = luaL_newstate();
+
+    luaL_openlibs(L);
+
+    lua_getglobal(L, "package");
+    lua_getfield(L, -1, "preload");
+    lua_pushcfunction(L, luaopen_hpdf);
+    lua_setfield(L, -2, "hpdf");
+    lua_pop(L, 2);
+
+    if (luaL_dostring(L, mkpdf_lua))
+    {
+        fprintf(stderr, "%s\n", lua_tostring(L, -1));
+        rc = 1;
+    }
+
+    if (luaL_dofile(L, argv[1]))
+    {
+        fprintf(stderr, "%s\n", lua_tostring(L, -1));
+        rc = 1;
+    }
+
+    lua_close(L);
+
+    return rc;
+}
-- 
cgit v1.2.3