2009-01-26 20:12:53 +00:00
|
|
|
// $Id: output.c,v 1.20 2008/08/05 12:21:33 lynx Exp $ // vim:syntax=lpc
|
2009-01-26 19:21:29 +00:00
|
|
|
//
|
|
|
|
|
// binary output functions, used by user.c and psyc/server.c
|
|
|
|
|
|
|
|
|
|
#include <net.h>
|
|
|
|
|
|
|
|
|
|
// protected..? now used by psyc/library.
|
|
|
|
|
int emit(string message) {
|
|
|
|
|
unless (strlen(message)) {
|
|
|
|
|
PT(("%O got empty emit call\n", ME))
|
|
|
|
|
#if DEBUG > 1
|
|
|
|
|
tell_object(ME, "**EMPTY**");
|
|
|
|
|
raise_error("empty");
|
|
|
|
|
#endif
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if 0 //def EMIT_CAN_WRITE
|
|
|
|
|
// ... no.. emit can't write(). it fails when a user disconnects
|
|
|
|
|
// and is still in the room, then the output goes
|
|
|
|
|
// to the sender's socket. terrible.
|
|
|
|
|
//
|
|
|
|
|
// also: gets in conflict when both ME and this_interactive()
|
|
|
|
|
// are given and not the same, like in user->htget().
|
|
|
|
|
// in that case you _have_ to use write() or
|
|
|
|
|
// this_interactive()->emit()
|
|
|
|
|
if (!interactive(ME)) {
|
|
|
|
|
// when a place calls emit() it probably intends to
|
|
|
|
|
// output to this_interactive() .. but we don't wanna guess!
|
|
|
|
|
if (this_interactive()) {
|
|
|
|
|
write(message);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
#if __EFUN_DEFINED__(binary_message)
|
|
|
|
|
int l, rc;
|
|
|
|
|
|
|
|
|
|
l = strlen(message);
|
|
|
|
|
rc = binary_message(message);
|
|
|
|
|
// D("\t"+message);
|
|
|
|
|
# ifdef VOLATILE
|
|
|
|
|
if (rc != l && rc != -1 && ME) ME->quit();
|
|
|
|
|
// macht ärger: if (ME) destruct(ME);
|
|
|
|
|
# else
|
|
|
|
|
D4( if (rc != l && rc != -1 && ME)
|
|
|
|
|
PP(("emit: (%O) %O of %O returned for %O from %O.\n",
|
|
|
|
|
rc > 256 ? rc/256 : rc, rc, l, ME->qName(), ME->vQuery("host"))));
|
|
|
|
|
# endif
|
|
|
|
|
return rc == l;
|
|
|
|
|
#else
|
|
|
|
|
tell_object(ME, message);
|
|
|
|
|
return 1;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// right now no purpose in classic psyc server
|
|
|
|
|
printStyle(mc) { return ([]); }
|
|
|
|
|
|
|
|
|
|
#ifdef LPC3
|
|
|
|
|
// hm, this could move away TODO
|
|
|
|
|
telnet_negotiation(int cmd, int option, array(int) optargs) {
|
|
|
|
|
P2(("telnet_negotiation(%O,%O,%O)\n", cmd,option,optargs))
|
|
|
|
|
// und heute sahen wir sowas:
|
|
|
|
|
// telnet_negotiation(250,31,({ /* #1, size: 4 */
|
|
|
|
|
// 0,
|
|
|
|
|
// 81,
|
|
|
|
|
// 0,
|
|
|
|
|
// 30
|
|
|
|
|
// }))
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
#endif
|
