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