Initialization.ps
Doug Wyatt, October 9, 1986 4:56:38 pm PDT
/executive {
execdict begin
clearinterrupt disableinterrupt
/execdepth execdepth 1 add def
(\nPostScript(tm) Version ) print version print
(\n\nCopyright (c) 1985 Adobe Systems Incorporated.\n) print
{ % loop ...
/quitflag false def
$error /newerror false put
% execute prompt
/prompt load stopped
{ % if stopped ...
handleerror
(Error during prompt execution\n) print
exit
} if
{ % open (%statementedit) ...
mark idleproc clearinterrupt
/stmtfile (%statementedit) (r) file def
disableinterrupt
} stopped
{ % if stopped ...
disableinterrupt cleartomark
$error /newerror get { % if ...
$error /errorname get
/undefinedfilename ne { % if ...
handleerror
} if
$error /newerror false put
exit
} if
}
{ % if not stopped ...
pop
stmtfile
end % execdict
{ clearinterrupt cvx exec disableinterrupt } stopped
execdict begin
{ % if stopped ...
disableinterrupt
handleerror
stmtfile closefile
} if
} ifelese
checkquit
} loop
/quitflag false def
/execdepth execdepth 1 sub def
end % execdict
$error /doclose false put
interrupt
} bind def
systemdict begin
/stack {
count dup 1 add copy
{ % repeat ...
{ dup type /stringtype ne { =string cvs } if print } exec
(\n) print
} repeat
pop
} bind def
/prompt { (PS) print execdepth { (>) print } repeat flush } bind def
end
userdict begin
/pstack { count dup 1 add copy { == } repeat pop } bind def
/cleardictstack { countdictstack 2 sub { end } repeat } bind def
end