jinterface: transport factory implementation

Transport factory basic implementation added. This makes possible
creating connections between nodes using ssh channels for example.
Default transport factory based on standart Socket/ServerSocket
classes is provided. Modifications are backward compatible.

3 files changed, 104 insertions, 1 deletions

diff --git a/lib/jinterface/test/jinterface_SUITE.erl b/lib/jinterface/test/jinterface_SUITE.erl
index 00abc97ff5..3743e763c5 100644
--- a/lib/jinterface/test/jinterface_SUITE.erl
+++ b/lib/jinterface/test/jinterface_SUITE.erl
@@ -22,7 +22,8 @@
 	 init_per_suite/1, end_per_suite/1,
 	 init_per_testcase/2, end_per_testcase/2]).
 
--export([nodename/1, register_and_whereis/1, get_names/1, boolean_atom/1,
+-export([transport_factory/1,
+	 nodename/1, register_and_whereis/1, get_names/1, boolean_atom/1,
 	 node_ping/1, mbox_ping/1,
 	 java_erlang_send_receive/1,
 	 java_internal_send_receive_same_node/1,
@@ -103,6 +104,7 @@ end_per_group(_GroupName, Config) ->
 
 fundamental() ->
     [
+     transport_factory,    % TransportFactoryTest.java
      nodename,             % Nodename.java
      register_and_whereis, % RegisterAndWhereis.java
      get_names,            % GetNames.java
@@ -201,6 +203,16 @@ end_per_testcase(_Case,Config) ->
 %%%-----------------------------------------------------------------
 %%% TEST CASES
 %%%-----------------------------------------------------------------
+transport_factory(doc) ->
+    ["TransportFactoryTest.java: Test custom OTP Transport Factory"];
+transport_factory(suite) ->
+    [];
+transport_factory(Config) when is_list(Config) ->
+    ok = jitu:java(?config(java, Config),
+		   ?config(data_dir, Config),
+		   "TransportFactoryTest").
+
+%%%-----------------------------------------------------------------
 nodename(doc) ->
     ["Nodename.java: "
      "Test OtpNode.node(), OtpNode.alive() and OtpNode.host()"];
diff --git a/lib/jinterface/test/jinterface_SUITE_data/Makefile.src b/lib/jinterface/test/jinterface_SUITE_data/Makefile.src
index cd68f1ead5..eca043913e 100644
--- a/lib/jinterface/test/jinterface_SUITE_data/Makefile.src
+++ b/lib/jinterface/test/jinterface_SUITE_data/Makefile.src
@@ -38,6 +38,7 @@ JINTERFACE_CLASSPATH = @jinterface_classpath@
 CLASSPATH = .@PS@$(JINTERFACE_CLASSPATH)@PS@
 
 JAVA_FILES = \
+	TransportFactoryTest.java \
 	Nodename.java \
 	RegisterAndWhereis.java \
 	GetNames.java \
diff --git a/lib/jinterface/test/jinterface_SUITE_data/TransportFactoryTest.java b/lib/jinterface/test/jinterface_SUITE_data/TransportFactoryTest.java
new file mode 100644
index 0000000000..367e28a512
--- /dev/null
+++ b/lib/jinterface/test/jinterface_SUITE_data/TransportFactoryTest.java
@@ -0,0 +1,90 @@
+/*
+ * %CopyrightBegin%
+ *
+ * Copyright Ericsson AB 2015. All Rights Reserved.
+ *
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ *
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ *
+ * %CopyrightEnd%
+ */
+
+import java.io.IOException;
+import java.net.InetAddress;
+
+import com.ericsson.otp.erlang.OtpSelf;
+import com.ericsson.otp.erlang.OtpServerTransport;
+import com.ericsson.otp.erlang.OtpSocketTransportFactory;
+import com.ericsson.otp.erlang.OtpTransport;
+import com.ericsson.otp.erlang.OtpTransportFactory;
+
+/**
+ * @author Dmitriy Kargapolov
+ */
+public class TransportFactoryTest {
+
+    /**
+     * example of custom transport factory wrapping default one
+     */
+    public static class TransportFactory implements OtpTransportFactory {
+
+        OtpSocketTransportFactory tf = new OtpSocketTransportFactory();
+
+        public OtpTransport createTransport(final String addr, final int port)
+                throws IOException {
+            clientOk = true;
+            System.out.println("creating transport to " + addr + ", " + port);
+            return tf.createTransport(addr, port);
+        }
+
+        public OtpTransport createTransport(final InetAddress addr,
+                final int port) throws IOException {
+            clientOk = true;
+            System.out.println("creating transport to " + addr + ", " + port);
+            return tf.createTransport(addr, port);
+        }
+
+        public OtpServerTransport createServerTransport(final int port)
+                throws IOException {
+            serverOk = true;
+            System.out.println("creating server transport to " + port);
+            return tf.createServerTransport(port);
+        }
+
+    }
+
+    static boolean serverOk = false;
+    static boolean clientOk = false;
+
+    public static void main(final String[] args) throws IOException {
+
+        // check server transport
+        final OtpSelf self = new OtpSelf("local", new TransportFactory());
+        if (!serverOk) {
+            fail("custom server transport was not created");
+        }
+        System.out.println("accepting connections on " + self.port());
+
+        // check client transport
+        try {
+            self.publishPort();
+        } catch (final Exception e) {
+        }
+        if (!clientOk) {
+            fail("custom client transport was not created");
+        }
+    }
+
+    private static void fail(final String string) {
+        System.err.println(string);
+        System.exit(1);
+    }
+}