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
}