h51417

s 00028/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
%
% error handling
%

/report_error  {	% errordict --
	begin
	dbf (\n**** HyperNeWS error ****\n) writestring
	message null ne {
		message 12 {
			(\n) search {
				dbf exch writestring
				dbf exch writestring
			} {exit} ifelse
		} repeat pop
	} {
		dbf (command: %\n) [/command load] fprintf
		dbf (error:   %\n) [/errorname load] fprintf
	} ifelse
	dbf (\n) writestring
	dbf flushfile
	end
} def

/handle_error {	% --
	$error /errorname get where {
		$error /errorname get cvx exec
	} {$error report_error} ifelse
} def

E 1