home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 800 < prev   
Text File  |  1997-05-07  |  3KB  |  114 lines
  1. %%BeginResource: procset Adobe_ErrorHandler_AI7 1.0 0
  2. %%Title: (Adobe Illustrator (R) Version 7.0 Error Handler)
  3. %%Version: 1.0 0
  4. %%CreationDate: (9/30/1996) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. /$brkpage 64 dict def $brkpage begin
  7. /prnt {
  8.     dup type /stringtype ne { =string cvs } if
  9.     dup length 6 mul
  10.     /tx exch def
  11.     /ty 10 def
  12.     currentpoint /toy exch def
  13.     /tox exch def
  14.     1 setgray newpath
  15.     tox toy 2 sub moveto
  16.     0 ty rlineto tx 0 rlineto
  17.     0 ty neg rlineto
  18.     closepath fill
  19.     tox toy moveto 0 setgray show
  20. } bind def
  21. /nl {
  22.     currentpoint exch pop lmargin exch moveto
  23.     0 -10 rmoveto
  24. } def
  25. /== { /cp 0 def typeprint nl } def
  26. /typeprint {
  27.     dup type currentdict exch known { exec } {
  28.         unknowntype
  29.     } ifelse
  30. } readonly def
  31. /lmargin 72 def
  32. /rmargin 72 def
  33. /tprint {
  34.     dup length cp add rmargin gt { nl /cp 0 def } if
  35.     dup length cp add /cp exch def
  36.     prnt
  37. } readonly def
  38. /cvsprint { =string cvs tprint () tprint } readonly def
  39. /unknowntype {
  40.     exch pop cvlit (??) tprint cvsprint
  41. } readonly def
  42. /integertype { cvsprint } readonly def
  43. /realtype { cvsprint } readonly def
  44. /booleantype { cvsprint } readonly def
  45. /operatortype { (//) tprint cvsprint } readonly def
  46. /marktype { pop (-mark-) tprint } readonly def
  47. /dicttype { pop (-dictionary-) tprint } readonly def
  48. /nulltype { pop (-null-) tprint } readonly def
  49. /filetype { pop (-filestream-) tprint } readonly def
  50. /savetype { pop (-savelevel-) tprint } readonly def
  51. /fonttype { pop (-fontid-) tprint } readonly def
  52. /nametype {
  53.     dup xcheck not { (/) tprint } if cvsprint
  54. } readonly def
  55. /stringtype {
  56.     dup rcheck {
  57.         (\() tprint tprint (\) ) tprint
  58.     } {
  59.         pop (-string-) tprint
  60.     } ifelse
  61. } readonly def
  62. /arraytype {
  63.     dup rcheck {
  64.         dup xcheck {
  65.             ({) tprint { typeprint } forall (}) tprint
  66.         } {
  67.             ([) tprint { typeprint } forall (]) tprint
  68.         } ifelse
  69.     } {
  70.         pop (-array-) tprint
  71.     } ifelse
  72. } readonly def
  73. /packedarraytype {
  74.     dup rcheck {
  75.         dup xcheck {
  76.             ({) tprint { typeprint } forall (}) tprint
  77.         } {
  78.             ([) tprint { typeprint } forall (]) tprint
  79.         } ifelse
  80.     } {
  81.         pop (-packedarray-) tprint
  82.     } ifelse
  83. } readonly def
  84. /courier /Courier findfont 10 scalefont def
  85. /OLDhandleerror errordict /handleerror get def
  86. end
  87.  
  88. /handleerror {
  89.     systemdict begin $error begin $brkpage begin
  90.     newerror {
  91.         /newerror false store
  92.         vmstatus pop pop 0 ne { grestoreall } if
  93.         initgraphics courier setfont
  94.         lmargin 720 moveto
  95.         (An error occurred while processing this page.) prnt nl nl
  96.         (Error: ) prnt errorname prnt nl
  97.         (Command: ) prnt /command load prnt nl
  98.         $error /ostack known {
  99.             (Stack: ) prnt nl
  100.             $error /ostack get aload length {==} repeat
  101.         } if
  102.         systemdict /showpage get exec
  103.         /newerror true store
  104.         end end end
  105.     } {
  106.         end end end
  107.     } ifelse
  108. }
  109. dup 0 systemdict put
  110. dup 4 $brkpage put
  111. bind readonly
  112. errordict 3 1 roll put
  113. %%EndResource
  114.