1 files changed, 32 insertions, 0 deletions
diff --git a/v_windows/v/vlib/net/openssl/openssl.v b/v_windows/v/vlib/net/openssl/openssl.v
new file mode 100644
index 0000000..ffcabf5
--- /dev/null
+++ b/v_windows/v/vlib/net/openssl/openssl.v
@@ -0,0 +1,32 @@
+module openssl
+
+// ssl_error returns non error ssl code or error if unrecoverable and we should panic
+pub fn ssl_error(ret int, ssl voidptr) ?SSLError {
+	res := C.SSL_get_error(ssl, ret)
+	match SSLError(res) {
+		.ssl_error_syscall {
+			return error_with_code('unrecoverable syscall ($res)', res)
+		}
+		.ssl_error_ssl {
+			return error_with_code('unrecoverable ssl protocol error ($res)', res)
+		}
+		else {
+			return SSLError(res)
+		}
+	}
+}
+
+pub enum SSLError {
+	ssl_error_none = 0 // SSL_ERROR_NONE
+	ssl_error_ssl = 1 // SSL_ERROR_SSL
+	ssl_error_want_read = 2 // SSL_ERROR_WANT_READ
+	ssl_error_want_write = 3 // SSL_ERROR_WANT_WRITE
+	ssl_error_want_x509_lookup = 4 // SSL_ERROR_WANT_X509_LOOKUP
+	ssl_error_syscall = 5 // SSL_ERROR_SYSCALL
+	ssl_error_zero_return = 6 // SSL_ERROR_ZERO_RETURN
+	ssl_error_want_connect = 7 // SSL_ERROR_WANT_CONNECT
+	ssl_error_want_accept = 8 // SSL_ERROR_WANT_ACCEPT
+	ssl_error_want_async = 9 // SSL_ERROR_WANT_ASYNC
+	ssl_error_want_async_job = 10 // SSL_ERROR_WANT_ASYNC_JOB
+	ssl_error_want_early = 11 // SSL_ERROR_WANT_EARLY
+}