%!
% executive.ps
% Doug Wyatt, May 29, 1987 11:46:49 am PDT
%
/executive {
execdict begin
clearinterrupt disableinterrupt
/execdepth execdepth 1 add def
(\nCedar PostScript(tm) Version ) print version print
(\nCopyright (c) 1985 Adobe Systems Incorporated.) print
(\nCopyright (c) 1987 Xerox Corporation.\n) print
{ % loop
/quitflag false def
$error /newerror false put
/prompt load stopped
{ % if
handleerror (Error during prompt execution\n) print exit
} if
{ % stopped
mark idleproc clearinterrupt
/stmtfile (%statementedit) (r) file def
disableinterrupt
} stopped
{ % if....
disableinterrupt cleartomark
$error /newerror get
{ % if
$error /errorname get
/undefinedfilename ne { handleerror } if
$error /newerror false put
exit
} if
}
{ % ..else
pop stmtfile
end
{ clearinterrupt cvx exec disableinterrupt } stopped
execdict begin
{ disableinterrupt handleerror stmtfile closefile } if
} ifelse
checkquit
} loop
/quitflag false def
/execdepth execdepth 1 sub def
end
$error /doclose false put
interrupt
} bind def