summaryrefslogtreecommitdiff
path: root/systems/mac/textures/utilities/ehandler.ps
blob: 9a781d1bcc140a5dbb1c4f352d741ba066bb5541 (plain)
1
%!
% lib/ehandler.ps -- Downloaded Error Break-page handler
% Copyright (c) 1984, 1985, 1986 Adobe Systems Incorporated. 
% All Rights Reserved.
% RCSID: $Header: ehandler.ps,v 2.1 85/11/24 12:20:03 shore Rel $
% ed for class use, mjf, Mon Nov 24 09:26:51 1986

% Change or remove this section to use ehandler.ps on a job-by-job basis.
0000 % serverloop password
/$brkpage where
{pop pop(Error Handler in place - not loaded again\n)print flush 
 stop}  %aborts to end-of-job.
{dup serverdict begin statusdict begin checkpassword
 {(Error Handler downloaded.\n)print flush exitserver}
 {pop(Bad Password on loading error handler!!!\n)print flush stop}ifelse
}ifelse

/$brkpage 64 dict def $brkpage begin
/prnt
 {dup type/stringtype ne{=string cvs}if dup length 6 mul
  /tx exch def/ty 10 def
  currentpoint/toy exch def/tox exch def 1 setgray newpath
  tox toy 2 sub moveto 0 ty rlineto tx 0 rlineto 0 ty neg rlineto
  closepath fill tox toy moveto 0 setgray show}bind def
/nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
/=={/cp 0 def typeprint nl}def
/typeprint{dup type dup currentdict exch known
  {exec}{unknowntype}ifelse}readonly def
/lmargin 72 def
/rmargin 72 def
/tprint
 {dup length cp add rmargin gt{nl/cp 0 def}if
  dup length cp add/cp exch def prnt}readonly def
/cvsprint{=string cvs tprint( )tprint}readonly def
/unknowntype{exch pop cvlit(??)tprint cvsprint}readonly def
/integertype{cvsprint}readonly def
/realtype{cvsprint}readonly def
/booleantype{cvsprint}readonly def
/operatortype{(//)tprint cvsprint}readonly def
/marktype{pop(-mark- )tprint}readonly def
/dicttype{pop(-dictionary- )tprint}readonly def
/nulltype{pop(-null- )tprint}readonly def
/filetype{pop(-filestream- )tprint}readonly def
/savetype{pop(-savelevel- )tprint}readonly def
/fonttype{pop(-fontid- )tprint}readonly def
/nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
/stringtype
 {dup rcheck{(\()tprint tprint(\))tprint}{pop(-string- )tprint}ifelse
 }readonly def
/arraytype
 {dup rcheck{dup xcheck
  {({)tprint{typeprint}forall(})tprint}
  {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-array- )tprint}ifelse
 }readonly def
/packedarraytype
 {dup rcheck{dup xcheck
  {({)tprint{typeprint}forall(})tprint}
  {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-packedarray- )tprint}
  ifelse
 }readonly def
/courier/Courier findfont 10 scalefont def
/OLDhandleerror errordict /handleerror get def
end %$brkpage


errordict
/handleerror
 {systemdict begin $error begin $brkpage begin 
  %Note -- newerror is created in $error by all default error operators.
  newerror
   {/newerror false store 
    $error /errorname get (ioerror) ne $error /command get (exec) ne or
     {	%the above conditional is to prevent spurious error reports caused
	%by a  minor communication bug in the AppleTalk implementation.
      vmstatus pop pop 0 ne{grestoreall}if initgraphics courier setfont
      lmargin 720 moveto(ERROR: )prnt errorname prnt
      nl(OFFENDING COMMAND: )prnt/command load prnt
      $error/ostack known
        {nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
      systemdict/showpage get exec
      /newerror true store/OLDhandleerror load end end end exec}
     {end end end} ifelse}
   {end end end}
  ifelse}
dup 0 systemdict put	%bind true systemdict value
dup 4 $brkpage put 	%bind true $breakpage value
bind readonly 		%lock it up
put			%into errordict