From 7ed1e815b0633e4aa4e0041c6eb411c91e18937b Mon Sep 17 00:00:00 2001
From: Jocelyn Fiat <git@djoce.net>
Date: Mon, 28 May 2018 16:11:24 +0200
Subject: [PATCH] Updated to compile with upcoming EiffelStudio 18.05  .

---
 library/network/http_network/http_network.ecf | 13 ++++++++++-
 .../src/ssl/http_stream_secure_socket_ext.e   | 13 -----------
 .../http_stream_secure_socket_ext.e           | 23 +++++++++++++++++++
 3 files changed, 35 insertions(+), 14 deletions(-)
 create mode 100644 library/network/http_network/src/ssl/until_18.05/http_stream_secure_socket_ext.e

diff --git a/library/network/http_network/http_network.ecf b/library/network/http_network/http_network.ecf
index d6b4e52c..c7b8ca20 100644
--- a/library/network/http_network/http_network.ecf
+++ b/library/network/http_network/http_network.ecf
@@ -27,10 +27,21 @@
 					<custom name="ssl_enabled" excluded_value="true"/>
 				</condition>
 			</cluster>
-			<cluster name="ssl_network" location="$|ssl\" recursive="true">
+			<cluster name="ssl_network" location="$|ssl\" recursive="false">
 				<condition>
 					<custom name="ssl_enabled" value="true"/>
 				</condition>
+				<file_rule>
+					<exclude>/http_stream_secure_socket_ext\.e$</exclude>
+					<condition>
+						<version type="compiler" max="18.05.0.0"/>
+					</condition>
+				</file_rule>
+			</cluster>
+			<cluster name="ssl_network_until_18_05" location="$|ssl\until_18.05" recursive="true">
+				<condition>
+					<version type="compiler" max="18.05.0.0"/>
+				</condition>
 			</cluster>
 		</cluster>
 	</target>
diff --git a/library/network/http_network/src/ssl/http_stream_secure_socket_ext.e b/library/network/http_network/src/ssl/http_stream_secure_socket_ext.e
index 504ce3f0..2e671a42 100644
--- a/library/network/http_network/src/ssl/http_stream_secure_socket_ext.e
+++ b/library/network/http_network/src/ssl/http_stream_secure_socket_ext.e
@@ -2,22 +2,9 @@ note
 	description: "[
 			Extension to HTTP_STREAM_SOCKET to support backward compatibility.
 			
-			TO BE REMOVED IN THE FUTURE, WHEN 16.05 IS OLD.
 		]"
 
 deferred class
 	HTTP_STREAM_SECURE_SOCKET_EXT
 
-feature {NONE} -- SSL bridge
-
-	ssl_write (a_ssl: SSL; a_pointer: POINTER; a_byte_count: INTEGER): INTEGER
-		do
-			Result := a_ssl.write (a_pointer, a_byte_count)
-			if a_ssl.was_error then
-				if Result >= 0 then
-					Result := -1
-				end
-			end
-		end
-
 end
diff --git a/library/network/http_network/src/ssl/until_18.05/http_stream_secure_socket_ext.e b/library/network/http_network/src/ssl/until_18.05/http_stream_secure_socket_ext.e
new file mode 100644
index 00000000..504ce3f0
--- /dev/null
+++ b/library/network/http_network/src/ssl/until_18.05/http_stream_secure_socket_ext.e
@@ -0,0 +1,23 @@
+note
+	description: "[
+			Extension to HTTP_STREAM_SOCKET to support backward compatibility.
+			
+			TO BE REMOVED IN THE FUTURE, WHEN 16.05 IS OLD.
+		]"
+
+deferred class
+	HTTP_STREAM_SECURE_SOCKET_EXT
+
+feature {NONE} -- SSL bridge
+
+	ssl_write (a_ssl: SSL; a_pointer: POINTER; a_byte_count: INTEGER): INTEGER
+		do
+			Result := a_ssl.write (a_pointer, a_byte_count)
+			if a_ssl.was_error then
+				if Result >= 0 then
+					Result := -1
+				end
+			end
+		end
+
+end