h45784

s 00025/00000/00000

d D 1.1 91/03/08 04:49:03 hopkins 1 0

c date and time created 91/03/08 04:49:03 by hopkins

e

u

U

f e 0

t

T

I 1
%
% log message to the console
%

/log_message {	% ... - ...
	target self eq {
		sender self eq {
			dbf (% -- %\() [namestr message] fprintf 
		} {
			dbf (% to % -- %\() [
				/namestr sender send namestr message
			] fprintf 
		} ifelse
	} {
		dbf (% via % to % -- %\() [
			/namestr sender send /namestr target send namestr message
		] fprintf 
	} ifelse
	args {
		dbf exch 200 string cvs writestring
		dbf ( ) writestring
	} forall
	dbf (\)\n) writestring
	dbf flushfile
} def

E 1