Added support for server name

library/tcp_stream_socket.e

@@ -10,11 +10,24 @@ inherit
 	NETWORK_STREAM_SOCKET
 
 create
+	make_server_by_address_and_port,
 	make_server_by_port
 
 create {NETWORK_STREAM_SOCKET}
 	make_from_descriptor_and_address
 
+feature {NONE} -- Initialization
+
+	make_server_by_address_and_port (an_address: INET_ADDRESS; a_port: INTEGER)
+			-- Create server socket on `an_address' and `a_port'.
+		require
+			valid_port: a_port >= 0
+		do
+			make
+			create address.make_from_address_and_port (an_address, a_port)
+			bind
+		end
+
 feature -- Basic operation
 
 	send_message (a_msg: STRING)