psyced/world/net/output.c
psyc://psyced.org/~lynX a602585399 upgrade gammas
2009-03-07 10:30:44 +01:00

75 lines
1.8 KiB
C

// $Id: output.c,v 1.20 2008/08/05 12:21:33 lynx Exp $ // vim:syntax=lpc
//
// 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