From e8e6bfa098bfe24fd5d6f021f030b64fffa453ff Mon Sep 17 00:00:00 2001
From: daurnimator <quae@daurnimator.com>
Date: Mon, 3 Apr 2017 19:49:34 +1000
Subject: Bind SSL_set_SSL_CTX

For #84
---
 src/openssl.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src')

diff --git a/src/openssl.c b/src/openssl.c
index dc67d8a..890ca2c 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -8316,6 +8316,18 @@ static int ssl_interpose(lua_State *L) {
 } /* ssl_interpose() */
 
 
+static int ssl_setContext(lua_State *L) {
+	SSL *ssl = checksimple(L, 1, SSL_CLASS);
+	SSL_CTX *ctx = checksimple(L, 2, SSL_CTX_CLASS);
+
+	if (!SSL_set_SSL_CTX(ssl, ctx))
+		return auxL_error(L, auxL_EOPENSSL, "ssl.setContext");
+
+	lua_pushboolean(L, 1);
+
+	return 1;
+} /* ssl_setContext() */
+
 static int ssl_setOptions(lua_State *L) {
 	SSL *ssl = checksimple(L, 1, SSL_CLASS);
 	auxL_Integer options = auxL_checkinteger(L, 2);
@@ -8676,6 +8688,7 @@ static int ssl__gc(lua_State *L) {
 
 
 static const auxL_Reg ssl_methods[] = {
+	{ "setContext",       &ssl_setContext },
 	{ "setOptions",       &ssl_setOptions },
 	{ "getOptions",       &ssl_getOptions },
 	{ "clearOptions",     &ssl_clearOptions },
-- 
cgit v1.2.3-55-g6feb