Reuse http_network library.

Reintroduced HTTPD_STREAM_SOCKET for backward compatibility, and ease of usage.
Added websocket libraries (client, and protocol).

library/network/http_network/src/http_stream_socket.e

@@ -19,6 +19,14 @@ create
 create {NETWORK_STREAM_SOCKET}
 	make_from_descriptor_and_address
 
+feature -- Status report
+
+	is_ssl_supported: BOOLEAN
+			-- SSL supported?
+		once
+			Result := False
+		end
+
 feature -- Input	
 
 	read_character_noexception

library/network/http_network/src/no_ssl/http_stream_ssl_socket.e

@@ -20,6 +20,18 @@ create
 create {HTTP_STREAM_SSL_SOCKET}
 	make_from_descriptor_and_address
 
+feature -- Element change	
+
+	set_certificate_file_path (a_crt_filename: PATH)
+		do
+		end
+
+	set_key_file_path (a_key_filename: PATH)
+		do
+		end
+
+invariant
+	ssl_not_supported: not is_ssl_supported -- Current is a Fake SSL interface!
 note
 	copyright: "2011-2013, Javier Velilla, Jocelyn Fiat and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"

library/network/http_network/src/ssl/http_stream_ssl_socket.e

@@ -20,6 +20,7 @@ inherit
 			connect, shutdown,
 			do_accept
 		redefine
+			is_ssl_supported,
 			put_managed_pointer,
 			read_stream_noexception,
 			read_into_pointer_noexception,
@@ -41,6 +42,46 @@ create
 create {SSL_NETWORK_STREAM_SOCKET}
 	make_from_descriptor_and_address
 
+feature -- Status report
+
+	is_ssl_supported: BOOLEAN
+			-- SSL supported?
+		once
+			Result := True
+		end
+
+feature -- SSL Helpers
+
+	set_ssl_protocol_to_ssl_2_or_3
+			-- Set `ssl_protocol' with `Ssl_23'.
+		do
+			set_tls_protocol ({SSL_PROTOCOL}.Ssl_23)
+		end
+
+	set_ssl_protocol_to_tls_1_0
+			-- Set `ssl_protocol' with `Tls_1_0'.
+		do
+			set_tls_protocol ({SSL_PROTOCOL}.Tls_1_0)
+		end
+
+	set_ssl_protocol_to_tls_1_1
+			-- Set `ssl_protocol' with `Tls_1_1'.
+		do
+			set_tls_protocol ({SSL_PROTOCOL}.Tls_1_1)
+		end
+
+	set_ssl_protocol_to_tls_1_2
+			-- Set `ssl_protocol' with `Tls_1_2'.
+		do
+			set_tls_protocol ({SSL_PROTOCOL}.Tls_1_2)
+		end
+
+	set_ssl_protocol_to_dtls_1_0
+			-- Set `ssl_protocol' with `Dtls_1_0'.
+		do
+			set_tls_protocol ({SSL_PROTOCOL}.Dtls_1_0)
+		end
+
 feature -- Input
 
 	read_stream_noexception (nb_char: INTEGER)
@@ -130,18 +171,6 @@ feature -- Output
 			end
 		end
 
-feature -- Element change	
-
-	set_certificate_filenames (a_crt_filename, a_key_filename: detachable READABLE_STRING_GENERAL)
-		do
-			if a_crt_filename /= Void then
-				set_certificate_file_name (a_crt_filename)
-			end
-			if a_key_filename /= Void then
-				set_key_file_name (a_key_filename)
-			end
-		end
-
 note
 	copyright: "2011-2013, Javier Velilla, Jocelyn Fiat and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"