// $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