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

world/net/psyc/user.c

@@ -0,0 +1,35 @@
+// $Id: user.c,v 1.13 2008/03/11 13:42:27 lynx Exp $ // vim:syntax=lpc
+//
+// handler for PSYC clients
+
+#include <net.h>
+#include <user.h>
+
+qHasCurrentPlace() { return 0; }                
+
+logon() {
+#ifdef NO_EXTERNAL_LOGINS
+       return destruct(ME);
+#endif
+	// psyc users dont have their own socket, so the driver 
+	// does not call disconnected() for them - this enables the
+	// psyc socket to do that
+	this_interactive()->do_notify_on_disconnect(ME);
+	// no lang support here either
+	vSet("scheme", "psyc");
+	return ::logon();
+}
+
+// errors only, it says
+pr(mc, fmt, a,b,c,d,e,f,g,h) {
+#if 1 //def PRO_PATH
+	if (abbrev("_message",mc)) return;
+	if (v("location"))
+	    sendmsg(v("location"), mc+"_print", sprintf(fmt, a,b,c,d,e,f,g,h) );
+#else
+	// checkVar() still calls pr() .... grmlblmblm TODO
+	raise_error("pr() called\n");
+#endif
+}
+
+wAction(mc, data, vars, source, variant, nick) { return 0; }