psyced/world/net/library/library2.i

22 lines
600 B
OpenEdge ABL
Raw Normal View History

// vim:noexpandtab:syntax=lpc
// $Id: library2.i,v 1.19 2007/10/08 11:00:31 lynx Exp $
#include <sandbox.h>
// one day this could be merged with PSYC_SYNCHRONIZE into
// channels of the same context
static object monitor;
void monitor_report(string mc, string text) {
#if DEBUG < 2
debug_message("MONITOR: "+ text +"\n");
#endif
log_file("MONITOR", mc +"\t"+ text +"\n");
#ifndef __PIKE__ // TPD
unless (monitor) monitor = load_object(PLACE_PATH "monitor");
2009-01-29 16:31:32 +00:00
if (monitor) monitor->msg(previous_object() || SERVER_UNIFORM,
mc, text, ([]));
#endif
}