let the past begone in cvs land. welcome to igit igit!

world/net/psyc/active.c

@@ -0,0 +1,95 @@
+// vim:foldmethod=marker:syntax=lpc:noexpandtab
+// $Id: active.c,v 1.40 2008/02/20 14:03:30 fippo Exp $
+//
+#include <net.h>
+#include <services.h>
+
+inherit PSYC_PATH "circuit";
+inherit NET_PATH "circuit";
+
+volatile object super;
+
+void takeover() {
+    super = previous_object();
+    if (super == ME) /* TODO: prevent elsewhere */ {
+	super = 0;
+    }
+    unless (interactive(ME)) runQ();
+}
+
+// we love multiple inheritance.. rock'n'roll!
+int logon(int failure) {
+	int ret;
+
+	P2(("%O logon kriegt %O, prev: %O\n", ME, failure, previous_object()))
+	ret = NET_PATH "circuit"::logon(failure);
+	if (failure >= 0 && ret > 0) {
+#if 0 // apparently wrong
+		emit(".\n"); // should we do the greeting?
+		PSYC_PATH "circuit"::logon(failure);
+
+		peeraddr = peerhost = host;
+		if (port && port != PSYC_SERVICE) peeraddr += ":"+port;
+#else // probably better
+		peeraddr = peerhost = host;
+		peerport = port;
+		if (port && port != PSYC_SERVICE) peeraddr += ":"+port;
+		// circuit::logon now also implies a full greeting
+		// therefore it needs peeraddr, and the emit is redundant
+		PSYC_PATH "circuit"::logon(failure);
+#endif
+		return 1;
+	}
+	return 0;
+}
+
+int msg(string source, string method, string data,
+	mapping vars, int showingLog, string target) {
+	P3(("active.c:msg(%O, %O, %O) in %O%s\n", source, method, data, ME,
+	    (interactive()) ? "(connected)" : "(not connected)"))
+
+	unless (interactive())
+#ifdef FORK // {{{
+	{
+	    if (!member(vars, "_source"))
+		vars["_source"] = UNIFORM(source);
+	    unless (super)
+		return enqueue(source, method, data, vars, showingLog, target);
+	    return super->msg(source, method, data, vars, showingLog, target);
+	}
+	return ::msg(source, method, data, vars, showingLog, target);
+#else // }}}
+	{
+	    P2(("%O ist nicht interactive\n", ME))
+	    if (!member(vars, "_source"))
+		vars["_source"] = UNIFORM(source);
+// this stuff is causing loops and i don't know how to fix it right now
+//	    unless (super)
+# ifdef SPYC
+    // NOTE: SPYC uses a per-host verification and therefore 
+    // 		may not send certain packets before verification
+    // 		is done (those packets usually have source and target)
+    // 		for now, this check works most of the time
+# endif
+		return enqueue(source, method, data, vars, showingLog, target);
+//	    return super->msg(source, method, data, vars, showingLog, target);
+	}
+	return ::msg(source, method, data, vars, showingLog, target);
+#endif // !FORK
+}
+
+#if 0
+connect(host, port) {
+	if (host) {
+		// funky but who needs this?
+		if (interactive()) {
+		    if (ahost == host && aport == port) return -8;
+		    else remove_interactive(ME);
+		}
+	...
+
+	P1(("PSYC/TCP %O * net_connect(%O, %O) = %O\n",
+		 ME, host, port, rc))
+	return rc;
+}
+#endif