1 13f7391e 2004-05-15 devnull %!PS-Adobe
 2 13f7391e 2004-05-15 devnull % lib/ehandler.ps -- Downloaded Error Break-page handler
 3 13f7391e 2004-05-15 devnull % Copyright (c) 1984, 1985, 1986 Adobe Systems Incorporated. 
 4 13f7391e 2004-05-15 devnull % All Rights Reserved.
 5 13f7391e 2004-05-15 devnull 
 6 13f7391e 2004-05-15 devnull 0000 % serverloop password
 7 13f7391e 2004-05-15 devnull /$brkpage where
 8 13f7391e 2004-05-15 devnull {pop pop(Error Handler in place - not loaded again\n)print flush stop}
 9 13f7391e 2004-05-15 devnull {dup serverdict begin statusdict begin checkpassword
10 13f7391e 2004-05-15 devnull  {(Error Handler downloaded.\n)print flush exitserver}
11 13f7391e 2004-05-15 devnull  {pop(Bad Password on loading error handler!!!\n)print flush stop}ifelse
12 13f7391e 2004-05-15 devnull }ifelse
13 13f7391e 2004-05-15 devnull /$brkpage 64 dict def $brkpage begin
14 13f7391e 2004-05-15 devnull /prnt
15 13f7391e 2004-05-15 devnull  {dup type/stringtype ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def
16 13f7391e 2004-05-15 devnull   currentpoint/toy exch def/tox exch def 1 setgray newpath
17 13f7391e 2004-05-15 devnull   tox toy 2 sub moveto 0 ty rlineto tx 0 rlineto 0 ty neg rlineto
18 13f7391e 2004-05-15 devnull   closepath fill tox toy moveto 0 setgray show}bind def
19 13f7391e 2004-05-15 devnull /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
20 13f7391e 2004-05-15 devnull /=={/cp 0 def typeprint nl}def
21 13f7391e 2004-05-15 devnull /typeprint{dup type dup currentdict exch known
22 13f7391e 2004-05-15 devnull   {exec}{unknowntype}ifelse}readonly def
23 13f7391e 2004-05-15 devnull /lmargin 72 def/rmargin 72 def
24 13f7391e 2004-05-15 devnull /tprint{dup length cp add rmargin gt{nl/cp 0 def}if
25 13f7391e 2004-05-15 devnull   dup length cp add/cp exch def prnt}readonly def
26 13f7391e 2004-05-15 devnull /cvsprint{=string cvs tprint( )tprint}readonly def
27 13f7391e 2004-05-15 devnull /unknowntype{exch pop cvlit(??)tprint cvsprint}readonly def
28 13f7391e 2004-05-15 devnull /integertype{cvsprint}readonly def
29 13f7391e 2004-05-15 devnull /realtype{cvsprint}readonly def
30 13f7391e 2004-05-15 devnull /booleantype{cvsprint}readonly def
31 13f7391e 2004-05-15 devnull /operatortype{(//)tprint cvsprint}readonly def
32 13f7391e 2004-05-15 devnull /marktype{pop(-mark- )tprint}readonly def
33 13f7391e 2004-05-15 devnull /dicttype{pop(-dictionary- )tprint}readonly def
34 13f7391e 2004-05-15 devnull /nulltype{pop(-null- )tprint}readonly def
35 13f7391e 2004-05-15 devnull /filetype{pop(-filestream- )tprint}readonly def
36 13f7391e 2004-05-15 devnull /savetype{pop(-savelevel- )tprint}readonly def
37 13f7391e 2004-05-15 devnull /fonttype{pop(-fontid- )tprint}readonly def
38 13f7391e 2004-05-15 devnull /nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
39 13f7391e 2004-05-15 devnull /stringtype
40 13f7391e 2004-05-15 devnull  {dup rcheck{(\()tprint tprint(\))tprint}{pop(-string- )tprint}ifelse
41 13f7391e 2004-05-15 devnull  }readonly def
42 13f7391e 2004-05-15 devnull /arraytype
43 13f7391e 2004-05-15 devnull  {dup rcheck{dup xcheck
44 13f7391e 2004-05-15 devnull   {({)tprint{typeprint}forall(})tprint}
45 13f7391e 2004-05-15 devnull   {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-array- )tprint}ifelse
46 13f7391e 2004-05-15 devnull  }readonly def
47 13f7391e 2004-05-15 devnull /packedarraytype
48 13f7391e 2004-05-15 devnull  {dup rcheck{dup xcheck
49 13f7391e 2004-05-15 devnull   {({)tprint{typeprint}forall(})tprint}
50 13f7391e 2004-05-15 devnull   {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse
51 13f7391e 2004-05-15 devnull  }readonly def
52 13f7391e 2004-05-15 devnull /courier/Courier findfont 10 scalefont def
53 13f7391e 2004-05-15 devnull /OLDhandleerror errordict /handleerror get def
54 13f7391e 2004-05-15 devnull end %$brkpage
55 13f7391e 2004-05-15 devnull errordict/handleerror
56 13f7391e 2004-05-15 devnull  {<< /PageSize [612 792] /ImagingBBox null >> setpagedevice
57 13f7391e 2004-05-15 devnull    systemdict begin $error begin $brkpage begin newerror
58 13f7391e 2004-05-15 devnull    {/newerror false store 
59 13f7391e 2004-05-15 devnull     vmstatus pop pop 0 ne{grestoreall}if initgraphics courier setfont
60 13f7391e 2004-05-15 devnull     lmargin 720 moveto(ERROR: )prnt errorname prnt
61 13f7391e 2004-05-15 devnull     nl(OFFENDING COMMAND: )prnt/command load prnt
62 13f7391e 2004-05-15 devnull     $error/ostack 
63 13f7391e 2004-05-15 devnull     known{nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
64 13f7391e 2004-05-15 devnull     systemdict/showpage get exec
65 13f7391e 2004-05-15 devnull     /newerror true store/OLDhandleerror load end end end exec}{end end end}
66 13f7391e 2004-05-15 devnull   ifelse}
67 13f7391e 2004-05-15 devnull dup 0 systemdict put dup 4 $brkpage put bind readonly put