From 800815c8dd216b3b3a09df2e33b7d6ab7db0750e Mon Sep 17 00:00:00 2001
From: Jocelyn Fiat <github@djoce.net>
Date: Thu, 1 Dec 2011 17:48:15 +0100
Subject: [PATCH] Added put_readable_string_8 to avoid call to .as_string_8

---
 library/tcp_stream_socket.e | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/library/tcp_stream_socket.e b/library/tcp_stream_socket.e
index 06d0c00c..797cd5e6 100644
--- a/library/tcp_stream_socket.e
+++ b/library/tcp_stream_socket.e
@@ -29,6 +29,17 @@ feature -- Basic operation
 			send (a_package, 1)
 		end
 
+feature -- Output
+
+	put_readable_string_8 (s: READABLE_STRING_8)
+			-- Write readable string `s' to socket.
+		local
+			ext: C_STRING
+		do
+			create ext.make (s)
+			put_managed_pointer (ext.managed_data, 0, s.count)
+		end
+
 note
 	copyright: "2011-2011, Javier Velilla and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"