add extension:text metho

1 files changed, 44 insertions, 1 deletions

diff --git a/src/openssl.c b/src/openssl.c
index 108ae3d..2390be0 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -694,6 +694,13 @@ static auxL_Integer (auxL_checkinteger)(lua_State *L, int index, auxL_Integer mi
         return i;
 } /* auxL_checkinteger() */
 
+#define auxL_optinteger_(a, b, c, d, e, ...) auxL_optinteger((a), (b), (c), (d), (e))
+#define auxL_optinteger(...) auxL_optinteger_(__VA_ARGS__, auxL_IntegerMin, auxL_IntegerMax, 0)
+
+static auxL_Integer (auxL_optinteger)(lua_State *L, int index, auxL_Integer def, auxL_Integer min, auxL_Integer max) {
+        return (lua_isnoneornil(L, index))? def : auxL_checkinteger(L, index, min, max);
+} /* auxL_optinteger() */
+
 #define auxL_checkunsigned_(a, b, c, d, ...) auxL_checkunsigned((a), (b), (c), (d))
 #define auxL_checkunsigned(...) auxL_checkunsigned_(__VA_ARGS__, auxL_UnsignedMin, auxL_UnsignedMax, 0)
 
@@ -714,6 +721,13 @@ static auxL_Unsigned (auxL_checkunsigned)(lua_State *L, int index, auxL_Unsigned
         return i;
 } /* auxL_checkunsigned() */
 
+#define auxL_optunsigned_(a, b, c, d, e, ...) auxL_optunsigned((a), (b), (c), (d), (e))
+#define auxL_optunsigned(...) auxL_optunsigned_(__VA_ARGS__, auxL_UnsignedMin, auxL_UnsignedMax, 0)
+
+static auxL_Unsigned (auxL_optunsigned)(lua_State *L, int index, auxL_Unsigned def, auxL_Unsigned min, auxL_Unsigned max) {
+        return (lua_isnoneornil(L, index))? def : auxL_checkunsigned(L, index, min, max);
+} /* auxL_optunsigned() */
+
 typedef struct {
         const char *name;
         auxL_Integer value;
@@ -3135,6 +3149,25 @@ static int xe_getCritical(lua_State *L) {
 } /* xe_getCritical() */
 
 
+static int xe_text(lua_State *L) {
+        X509_EXTENSION *ext = checksimple(L, 1, X509_EXT_CLASS);
+        unsigned long flags = auxL_optunsigned(L, 2, 0, 0, ULONG_MAX);
+        int indent = auxL_optinteger(L, 3, 0, 0, INT_MAX);
+        BIO *bio = getbio(L);
+        char *data;
+        size_t len;
+
+        if (!X509V3_EXT_print(bio, ext, flags, indent))
+                return auxL_error(L, auxL_EOPENSSL, "x509.extension.text");
+
+        len = BIO_get_mem_data(bio, &data);
+
+        lua_pushlstring(L, data, len);
+
+        return 1;
+} /* xe_text() */
+
+
 static int xe__gc(lua_State *L) {
         X509_EXTENSION **ud = luaL_checkudata(L, 1, X509_EXT_CLASS);
 
@@ -3154,6 +3187,7 @@ static const luaL_Reg xe_methods[] = {
         { "getLongName",  &xe_getLongName },
         { "getData",      &xe_getData },
         { "getCritical",  &xe_getCritical },
+        { "text",         &xe_text },
         { NULL,           NULL },
 };
 
@@ -3169,10 +3203,19 @@ static const luaL_Reg xe_globals[] = {
         { NULL,        NULL },
 };
 
+static const auxL_IntegerReg xe_textopts[] = {
+        { "UNKNOWN_MASK", X509V3_EXT_UNKNOWN_MASK },
+        { "DEFAULT", X509V3_EXT_DEFAULT },
+        { "ERROR_UNKNOWN", X509V3_EXT_ERROR_UNKNOWN },
+        { "PARSE_UNKNOWN", X509V3_EXT_PARSE_UNKNOWN },
+        { "DUMP_UNKNOWN", X509V3_EXT_DUMP_UNKNOWN },
+};
+
 int luaopen__openssl_x509_extension(lua_State *L) {
         initall(L);
 
         luaL_newlib(L, xe_globals);
+        auxL_setintegers(L, xe_textopts);
 
         return 1;
 } /* luaopen__openssl_x509_extension() */
@@ -6672,7 +6715,7 @@ static void randL_checkpid(struct randL_state *st) {
 
 
 static int rand_stir(lua_State *L) {
-        int error = randL_stir(randL_getstate(L), luaL_optunsigned(L, 1, 16));
+        int error = randL_stir(randL_getstate(L), auxL_optunsigned(L, 1, 16, 0, UINT_MAX));
 
         if (error) {
                 lua_pushboolean(L, 0);