new function SSL_is_server to which returns 1 is the corresponding SSL context is for a server

ssl/ssl.h

@@ -2177,6 +2177,7 @@ void SSL_set_not_resumable_session_callback(SSL *ssl,
 
 void SSL_set_debug(SSL *s, int debug);
 int SSL_cache_hit(SSL *s);
+int SSL_is_server(SSL *s);
 
 #ifndef OPENSSL_NO_SSL_TRACE
 void SSL_trace(int write_p, int version, int content_type,

ssl/ssl_lib.c

@@ -3341,6 +3341,11 @@ int SSL_cache_hit(SSL *s)
 	return s->hit;
 	}
 
+int SSL_is_server(SSL *s)
+	{
+	return s->server;
+	}
+
 #if defined(_WINDLL) && defined(OPENSSL_SYS_WIN16)
 #include "../crypto/bio/bss_file.c"
 #endif