1 files changed, 67 insertions, 0 deletions
diff --git a/postscript/prologues/patch.err.ps b/postscript/prologues/patch.err.ps
new file mode 100644
index 00000000..f9f2fabb
--- /dev/null
+++ b/postscript/prologues/patch.err.ps
@@ -0,0 +1,67 @@
+%!PS-Adobe
+% lib/ehandler.ps -- Downloaded Error Break-page handler
+% Copyright (c) 1984, 1985, 1986 Adobe Systems Incorporated. 
+% All Rights Reserved.
+
+0000 % serverloop password
+/$brkpage where
+{pop pop(Error Handler in place - not loaded again\n)print flush stop}
+{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
+ {<< /PageSize [612 792] /ImagingBBox null >> setpagedevice
+   systemdict begin $error begin $brkpage begin newerror
+   {/newerror false store 
+    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}
+dup 0 systemdict put dup 4 $brkpage put bind readonly put