# HG changeset patch
# User jbe
# Date 1471722855 -7200
# Node ID 1fd00eed96eea65e6c758f21aec740e291f37ec3
# Parent  5f2a2f73e9d372e01ce2b2069669df26219fbdf1
Work on optional libtls integration for moonbridge_io (tls_config stub)

diff -r 5f2a2f73e9d3 -r 1fd00eed96ee Makefile
--- a/Makefile	Tue Jul 26 16:22:21 2016 +0200
+++ b/Makefile	Sat Aug 20 21:54:15 2016 +0200
@@ -61,6 +61,10 @@
 moonbridge_io.so: moonbridge_io.o
 	ld -shared -o moonbridge_io.so moonbridge_io.o $(UTIL_FLAGS)
 
+freebsd_with_tls::
+	#TODO
+	cc -D MOONBR_IO_USE_TLS -c -Wall -O2 -fPIC -I /usr/local/include/lua52 -I /usr/local/include -o moonbridge_io.o moonbridge_io.c && ld -L/usr/local/lib -shared -o moonbridge_io.so moonbridge_io.o -lutil -ltls
+
 clean::
 	rm -f moonbridge moonbridge_io.o moonbridge_io.so
 
diff -r 5f2a2f73e9d3 -r 1fd00eed96ee moonbridge_io.c
--- a/moonbridge_io.c	Tue Jul 26 16:22:21 2016 +0200
+++ b/moonbridge_io.c	Sat Aug 20 21:54:15 2016 +0200
@@ -25,6 +25,10 @@
 #include <bsd/unistd.h>
 #endif
 
+#ifdef MOONBR_IO_USE_TLS
+#include <tls.h>
+#endif
+
 #include <lua.h>
 #include <lauxlib.h>
 #include <lualib.h>
@@ -48,6 +52,10 @@
 #define MOONBR_IO_CHILD_MT_REGKEY "moonbridge_io_child"
 #define MOONBR_IO_CHILD_PT_REGKEY "moonbridge_io_child_pt"
 
+#ifdef MOONBR_IO_USE_TLS
+#define MOONBR_IO_TLSCONF_MT_REGKEY "moonbridge_io_tlsconf"
+#endif
+
 typedef struct {
   int fd;
   int issock;
@@ -1630,6 +1638,54 @@
   return 1;
 }
 
+#ifdef MOONBR_IO_USE_TLS
+static int moonbr_io_tlsconf(lua_State *L) {
+  struct tls_config *tlsconf;
+  luaL_checktype(L, 1, LUA_TTABLE);
+  tlsconf = tls_config_new();
+  if (!tlsconf) {
+    return luaL_error(L, "Could not allocate memory for TLS configuration");
+  }
+  lua_pushlightuserdata(L, tlsconf);
+  luaL_setmetatable(L, MOONBR_IO_TLSCONF_MT_REGKEY);
+  lua_pushvalue(L, 1);
+  lua_setuservalue(L, -2);
+  return 1;
+}
+
+static int moonbr_io_tlsconfindex(lua_State *L) {
+  struct tls_config *tlsconf;
+  tlsconf = luaL_checkudata(L, 1, MOONBR_IO_TLSCONF_MT_REGKEY);
+  luaL_checkany(L, 2);
+#if LUA_VERSION_NUM >= 503
+  if (lua_getuservalue(L, 1) == LUA_TNIL) {
+#else
+  lua_getuservalue(L, 1);
+  if (lua_isnil(L, -1)) {
+#endif
+    return luaL_error(L, "Attempt to use a destroyed TLS configuration");
+  }
+  lua_pushvalue(L, 2);
+  lua_gettable(L, -2);
+  return 1;
+}
+
+static int moonbr_io_tlsconfgc(lua_State *L) {
+  struct tls_config *tlsconf;
+  tlsconf = luaL_checkudata(L, 1, MOONBR_IO_TLSCONF_MT_REGKEY);
+#if LUA_VERSION_NUM >= 503
+  if (lua_getuservalue(L, 1) == LUA_TNIL) return 0;
+#else
+  lua_getuservalue(L, 1);
+  if (lua_isnil(L, -1)) return 0;
+#endif
+  tls_config_free(tlsconf);
+  lua_pushnil(L);
+  lua_setuservalue(L, 1);
+  return 0;
+}
+#endif
+
 static const struct luaL_Reg moonbr_io_handle_methods[] = {
   {"read", moonbr_io_read},
   {"read_nb", moonbr_io_read_nb},
@@ -1698,9 +1754,20 @@
   {"exec", moonbr_io_exec},
   {"poll", moonbr_io_poll},
   {"timeref", moonbr_io_timeref},
+#ifdef MOONBR_IO_USE_TLS
+  {"tlsconf", moonbr_io_tlsconf},
+#endif
   {NULL, NULL}
 };
 
+#ifdef MOONBR_IO_USE_TLS
+static const struct luaL_Reg moonbr_io_tlsconf_metamethods[] = {
+  {"__index", moonbr_io_tlsconfindex},
+  {"__gc", moonbr_io_tlsconfgc},
+  {NULL, NULL}
+};
+#endif
+
 int luaopen_moonbridge_io(lua_State *L) {
 
   signal(SIGPIPE, SIG_IGN);  /* generate I/O errors instead of signal 13 */
@@ -1743,6 +1810,17 @@
   lua_setfield(L, -3, "child_mt");
   lua_setfield(L, LUA_REGISTRYINDEX, MOONBR_IO_CHILD_MT_REGKEY);
 
+#ifdef MOONBR_IO_USE_TLS
+  if(tls_init()) {
+    return luaL_error(L, "Could not initialize TLS library");
+  }
+  lua_newtable(L);  // tlsconf metatable
+  luaL_setfuncs(L, moonbr_io_tlsconf_metamethods, 0);
+  lua_pushvalue(L, -1);
+  lua_setfield(L, -3, "tlsconf_mt");
+  lua_setfield(L, LUA_REGISTRYINDEX, MOONBR_IO_TLSCONF_MT_REGKEY);
+#endif
+
   moonbr_io_pushhandle(L, 0);
   lua_setfield(L, -2, "stdin");
   moonbr_io_pushhandle(L, 1);