|
public connection ( System node ) : |
||
| node | System | |
| return | ||
/*
* Send a message to a remote {@link Pid pid}, representing
* either another {@link OtpMbox mailbox} or an Erlang process.
*
* @param to the {@link Pid pid} identifying the intended
* recipient of the message.
*
* @param msg the body of the message to send.
*
**/
public void send(Erlang.Pid to, Erlang.Object msg)
{
try
{
System.String node = to.node();
if (node.Equals(home.node()))
{
home.deliver(new OtpMsg(to, (Erlang.Object)(msg.clone())));
}
else
{
OtpCookedConnection conn = home.connection(node);
if (conn == null)
{
return;
}
conn.send(_self, to, msg);
}
}
catch (System.Exception)
{
}
}
public static void Main(String[] args)
{
System.Console.Out.WriteLine("Otp test...");
string cookie = OtpNode.defaultCookie;
AbstractConnection.traceLevel = OtpTrace.Type.sendThreshold;
if (args.Length < 1)
{
System.Console.Out.WriteLine(
"Usage: {0} nodename [cookie] [-notrace]\n"+
" nodename - is the name of the remote Erlang node\n"+
" cookie - is the optional cookie string to use\n"+
" -notrace - disable debug trace\n",
Environment.GetCommandLineArgs()[0]);
return;
}
else if (args.Length > 1)
{
cookie = args[1].ToString();
}
for (int i=0; i < args.Length; i++)
if (args[i].Equals("-notrace"))
{
AbstractConnection.traceLevel = OtpTrace.Type.defaultLevel;
break;
}
String host = System.Net.Dns.GetHostName();
String remote = (args[0].IndexOf('@') < 0) ? args[0]+"@"+host : args[0];
OtpNode node = new OtpNode(false, Environment.UserName + "123@" + host, cookie, true);
System.Console.Out.WriteLine("This node is called {0} and is using cookie='{1}'.",
node.node(), node.cookie());
bool ok=node.ping(remote, 1000);
if (!ok)
{
Console.WriteLine("Can't connect to node " + remote);
return;
}
// If using short names, get the short name of the peer.
remote = node.connection(remote).peer.node();
if (remote != null)
System.Console.Out.WriteLine(" successfully pinged node "+remote+"\n");
else
System.Console.Out.WriteLine(" could not ping node "+remote+"\n");
OtpMbox mbox = null;
try
{
mbox = node.createMbox();
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "lists", "reverse", new Otp.Erlang.List("Abcdef!"));
System.Console.Out.WriteLine("<= [REPLY1]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "global", "register_name",
new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()));
System.Console.Out.WriteLine("<= [REPLY2]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(remote, "global", "register_name", new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()), 5000);
System.Console.Out.WriteLine("<= [REPLY3]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "io", "format",
new Otp.Erlang.List(
"Test: ~w -> ~w\n",
new Otp.Erlang.List(mbox.self(), new Otp.Erlang.Atom("ok"))
));
System.Console.Out.WriteLine("<= [REPLY4]:" + (reply == null ? "null" : reply.ToString()));
}
while (true)
{
Otp.Erlang.Object msg = mbox.receive();
if (msg is Otp.Erlang.Tuple)
{
Otp.Erlang.Tuple m = msg as Otp.Erlang.Tuple;
if (m.arity() == 2 && m.elementAt(0) is Otp.Erlang.Pid)
{
mbox.send(m.elementAt(0) as Otp.Erlang.Pid, m.elementAt(1));
}
}
System.Console.Out.WriteLine("IN msg: " + msg.ToString() + "\n");
}
}
catch (System.Exception e)
{
System.Console.Out.WriteLine("Error: " + e.ToString());
}
finally
{
node.closeMbox(mbox);
}
node.close();
}
static public void Main(String[] args)
{
System.Console.Out.WriteLine("Otp test...");
string cookie = OtpNode.defaultCookie;
string host = System.Net.Dns.GetHostName();
string remote = (args[0].IndexOf('@') < 0) ? args[0] + "@" + host : args[0];
string nodename = Environment.UserName + "123@" + host;
AbstractConnection.traceLevel = OtpTrace.Type.sendThreshold;
if (args.Length < 1)
{
System.Console.Out.WriteLine(
"Usage: {0} remotenode [cookie] [-notrace]\n" +
" nodename - is the name of the remote Erlang node\n" +
" cookie - is the optional cookie string to use\n" +
" -name - this node name\n" +
" -wire - wire-level tracing\n" +
" -notrace - disable debug trace\n",
Environment.GetCommandLineArgs()[0]);
return;
}
else if (args.Length > 1 && args[1][0] != '-')
{
cookie = args[1].ToString();
}
for (int i = 0; i < args.Length; i++)
{
if (args[i].Equals("-wire"))
{
AbstractConnection.traceLevel = OtpTrace.Type.wireThreshold;
}
else if (args[i].Equals("-notrace"))
{
AbstractConnection.traceLevel = OtpTrace.Type.defaultLevel;
}
else if (args[i].Equals("-name") && i + 1 < args.Length)
{
nodename = args[i++ + 1];
if (nodename.IndexOf('@') < 0)
{
nodename += '@' + host;
}
}
}
OtpNode node = new OtpNode(false, nodename, cookie, true);
System.Console.Out.WriteLine("This node is called {0} and is using cookie='{1}'.",
node.node(), node.cookie());
OtpCookedConnection.ConnectTimeout = 2000;
OtpCookedConnection conn = node.connection(remote);
conn.OnReadWrite += OnReadWrite;
if (conn == null)
{
Console.WriteLine("Can't connect to node " + remote);
return;
}
// If using short names or IP address as the host part of the node name,
// get the short name of the peer.
remote = conn.peer.node();
System.Console.Out.WriteLine(" successfully connected to node " + remote + "\n");
OtpMbox mbox = null;
try
{
mbox = node.createMbox();
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "lists", "reverse", new Otp.Erlang.List("Abcdef!"));
System.Console.Out.WriteLine("<= [REPLY1]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "global", "register_name",
new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()));
System.Console.Out.WriteLine("<= [REPLY2]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(remote, "global", "register_name", new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()), 5000);
System.Console.Out.WriteLine("<= [REPLY3]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "io", "format",
new Otp.Erlang.List(
"Test: ~w -> ~w\n",
new Otp.Erlang.List(mbox.self(), new Otp.Erlang.Atom("ok"))
));
System.Console.Out.WriteLine("<= [REPLY4]:" + (reply == null ? "null" : reply.ToString()));
}
while (true)
{
Otp.Erlang.Object msg = mbox.receive();
if (msg is Otp.Erlang.Tuple)
{
Otp.Erlang.Tuple m = msg as Otp.Erlang.Tuple;
if (m.arity() == 2 && m.elementAt(0) is Otp.Erlang.Pid)
{
mbox.send(m.elementAt(0) as Otp.Erlang.Pid, m.elementAt(1));
}
}
System.Console.Out.WriteLine("IN msg: " + msg.ToString() + "\n");
}
}
catch (System.Exception e)
{
System.Console.Out.WriteLine("Error: " + e.ToString());
}
finally
{
node.closeMbox(mbox);
}
node.close();
}
private void ProcessInternal()
{
OtpNode node = new OtpNode(false, nodename, cookie, true);
WriteLine("This node is called {0} and is using cookie='{1}'.",
node.node(), node.cookie());
OtpMbox mbox = node.createMbox();
OtpCookedConnection.ConnectTimeout = CONNECT_TIMEOUT;
OtpCookedConnection conn = null;
try
{
while (!Stopping)
{
bool needReconnect = (conn == null || conn.isConnected() == false);
if (needReconnect)
conn = node.connection(remote);
if (conn == null)
{
fireChanged(false);
Thread.Sleep(RECONNECT_DELAY);
continue;
}
if (needReconnect)
{
conn.OnReadWrite += OnReadWrite;
// If using short names or IP address as the host part of the node name,
// get the short name of the peer.
remote = conn.peer.node();
WriteLine(" successfully connected to node " + remote + "\n");
fireChanged(true);
}
if (_commands.Count == 0)
{
Thread.Sleep(100);
continue;
}
OTPWorkerCommand cmd = new OTPWorkerCommand { type = OTPWorkerCommandType.NO_COMMAND, param = null };
lock (_commands_lock)
{
if (_commands.Count < 0)
continue;
cmd = _commands.Dequeue();
}
switch (cmd.type)
{
case OTPWorkerCommandType.GETLIST:
GetList(mbox, (Action<IEnumerable<Tuple<String, object>>>)cmd.param);
break;
case OTPWorkerCommandType.CLICKED:
SendDo(mbox, (Erlang.Object)cmd.param);
break;
default:
WriteLine("Unknown command: {0} {1}", cmd.type, cmd.param);
break;
}
}
}
finally
{
node.closeMbox(mbox);
}
node.close();
}
static public void Main(String[] args)
{
System.Console.Out.WriteLine("Otp test...");
string cookie = OtpNode.defaultCookie;
string host = System.Net.Dns.GetHostName();
string remote = (args[0].IndexOf('@') < 0) ? args[0] + "@" + host : args[0];
string nodename = Environment.UserName + "123@" + host;
AbstractConnection.traceLevel = OtpTrace.Type.sendThreshold;
if (args.Length < 1)
{
System.Console.Out.WriteLine(
"Usage: {0} remotenode [cookie] [-notrace]\n" +
" nodename - is the name of the remote Erlang node\n" +
" cookie - is the optional cookie string to use\n" +
" -name - this node name\n" +
" -wire - wire-level tracing\n" +
" -notrace - disable debug trace\n",
Environment.GetCommandLineArgs()[0]);
return;
}
else if (args.Length > 1 && args[1][0] != '-')
{
cookie = args[1].ToString();
}
for (int i = 0; i < args.Length; i++) {
if (args[i].Equals("-wire"))
AbstractConnection.traceLevel = OtpTrace.Type.wireThreshold;
else if (args[i].Equals("-notrace"))
AbstractConnection.traceLevel = OtpTrace.Type.defaultLevel;
else if (args[i].Equals("-name") && i+1 < args.Length) {
nodename = args[i++ + 1];
if (nodename.IndexOf('@') < 0)
nodename += '@' + host;
}
}
OtpNode node = new OtpNode(false, nodename, cookie, true);
System.Console.Out.WriteLine("This node is called {0} and is using cookie='{1}'.",
node.node(), node.cookie());
OtpCookedConnection.ConnectTimeout = 2000;
OtpCookedConnection conn = node.connection(remote);
conn.OnReadWrite += OnReadWrite;
if (conn == null)
{
Console.WriteLine("Can't connect to node " + remote);
return;
}
// If using short names or IP address as the host part of the node name,
// get the short name of the peer.
remote = conn.peer.node();
System.Console.Out.WriteLine(" successfully connected to node " + remote + "\n");
OtpMbox mbox = null;
try
{
mbox = node.createMbox();
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "lists", "reverse", new Otp.Erlang.List("Abcdef!"));
System.Console.Out.WriteLine("<= [REPLY1]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "global", "register_name",
new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()));
System.Console.Out.WriteLine("<= [REPLY2]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(remote, "global", "register_name", new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()), 5000);
System.Console.Out.WriteLine("<= [REPLY3]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "io", "format",
new Otp.Erlang.List(
"Test: ~w -> ~w\n",
new Otp.Erlang.List(mbox.self(), new Otp.Erlang.Atom("ok"))
));
System.Console.Out.WriteLine("<= [REPLY4]:" + (reply == null ? "null" : reply.ToString()));
}
while (true)
{
Otp.Erlang.Object msg = mbox.receive();
if (msg is Otp.Erlang.Tuple)
{
Otp.Erlang.Tuple m = msg as Otp.Erlang.Tuple;
if (m.arity() == 2 && m.elementAt(0) is Otp.Erlang.Pid)
{
mbox.send(m.elementAt(0) as Otp.Erlang.Pid, m.elementAt(1));
}
}
System.Console.Out.WriteLine("IN msg: " + msg.ToString() + "\n");
}
}
catch (System.Exception e)
{
System.Console.Out.WriteLine("Error: " + e.ToString());
}
finally
{
node.closeMbox(mbox);
}
node.close();
}
static public void Main(String[] args)
{
{
Erlang.Object obj1 = Erlang.Object.Format("{a, b, 10, 2.0}");
Erlang.Object obj2 = Erlang.Object.Format("{a, [b, 1, 2.0, \"abc\"], {1, 2}}");
}
System.Console.Out.WriteLine("Otp test...");
string cookie = OtpNode.defaultCookie;
AbstractConnection.traceLevel = OtpTrace.Type.sendThreshold;
if (args.Length < 1)
{
System.Console.Out.WriteLine(
"Usage: {0} nodename [cookie] [-notrace]\n" +
" nodename - is the name of the remote Erlang node\n" +
" cookie - is the optional cookie string to use\n" +
" -notrace - disable debug trace\n",
Environment.GetCommandLineArgs()[0]);
return;
}
else if (args.Length > 1)
{
cookie = args[1].ToString();
}
for (int i = 0; i < args.Length; i++)
{
if (args[i].Equals("-notrace"))
{
AbstractConnection.traceLevel = OtpTrace.Type.defaultLevel;
break;
}
}
String host = System.Net.Dns.GetHostName();
String remote = (args[0].IndexOf('@') < 0) ? args[0] + "@" + host : args[0];
OtpNode node = new OtpNode(false, Environment.UserName + "123@" + host, cookie, true);
System.Console.Out.WriteLine("This node is called {0} and is using cookie='{1}'.",
node.node(), node.cookie());
bool ok = node.ping(remote, 1000);
if (!ok)
{
Console.WriteLine("Can't connect to node " + remote);
return;
}
// If using short names, get the short name of the peer.
remote = node.connection(remote).peer.node();
if (remote != null)
{
System.Console.Out.WriteLine(" successfully pinged node " + remote + "\n");
}
else
{
System.Console.Out.WriteLine(" could not ping node " + remote + "\n");
}
OtpMbox mbox = null;
try
{
mbox = node.createMbox();
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "lists", "reverse", new Otp.Erlang.List("Abcdef!"));
System.Console.Out.WriteLine("<= [REPLY1]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "global", "register_name",
new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()));
System.Console.Out.WriteLine("<= [REPLY2]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(remote, "global", "register_name", new Otp.Erlang.List(new Otp.Erlang.Atom("me"), mbox.self()), 5000);
System.Console.Out.WriteLine("<= [REPLY3]:" + (reply == null ? "null" : reply.ToString()));
}
{
Otp.Erlang.Object reply = mbox.rpcCall(
remote, "io", "format",
new Otp.Erlang.List(
"Test: ~w -> ~w\n",
new Otp.Erlang.List(mbox.self(), new Otp.Erlang.Atom("ok"))
));
System.Console.Out.WriteLine("<= [REPLY4]:" + (reply == null ? "null" : reply.ToString()));
}
while (true)
{
Otp.Erlang.Object msg = mbox.receive();
if (msg is Otp.Erlang.Tuple)
{
Otp.Erlang.Tuple m = msg as Otp.Erlang.Tuple;
if (m.arity() == 2 && m.elementAt(0) is Otp.Erlang.Pid)
{
mbox.send(m.elementAt(0) as Otp.Erlang.Pid, m.elementAt(1));
}
}
System.Console.Out.WriteLine("IN msg: " + msg.ToString() + "\n");
}
}
catch (System.Exception e)
{
System.Console.Out.WriteLine("Error: " + e.ToString());
}
finally
{
node.closeMbox(mbox);
}
node.close();
}