home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / errpage.ps < prev    next >
Text File  |  2000-03-09  |  9KB  |  365 lines
  1. %!
  2. %    Copyright (C) 1992, 1996, 1998 Aladdin Enterprises.  All rights reserved.
  3. %
  4. % This file is part of Aladdin Ghostscript.
  5. % 
  6. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  7. % or distributor accepts any responsibility for the consequences of using it,
  8. % or for whether it serves any particular purpose or works at all, unless he
  9. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  10. % License (the "License") for full details.
  11. % 
  12. % Every copy of Aladdin Ghostscript must include a copy of the License,
  13. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  14. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  15. % under certain conditions described in the License.  Among other things, the
  16. % License requires that the copyright notice and this notice be preserved on
  17. % all copies.
  18.  
  19. % $Id: errpage.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  20. % Print an informative error page if an error occurs.
  21. % Inspired by Adobe's `ehandler.ps' and David Holzgang's PinPoint.
  22.  
  23. /EPdict 80 dict def
  24. EPdict begin
  25.  
  26. /escale 12 def
  27. /efont /Helvetica findfont escale scalefont def
  28. /eheight escale 1.2 mul def
  29.  
  30. % Miscellaneous utilities
  31. /xdef
  32.  { exch def
  33.  } bind def
  34.  
  35. % Define `show' equivalents of = and ==
  36.  
  37. /show=
  38.  { =string { cvs } stopped { pop pop (==unprintable==) } if show
  39.  } bind def
  40.  
  41. /.dict 18 dict def
  42. .dict begin
  43.   /.buf =string def
  44.   /.cvp {.buf cvs show} bind def
  45.   /.nop {(-) .p type .cvp (-) .p} bind def
  46.   /.p {show} bind def
  47.   /.p1 {( ) dup 0 4 -1 roll put show} bind def
  48.   /.print
  49.     {dup type .dict exch known
  50.      {dup type exec} {.nop} ifelse
  51.     } bind def
  52.   /integertype /.cvp load def
  53.   /nulltype { pop (null) .p } bind def
  54.   /realtype /.cvp load def
  55.   /booleantype /.cvp load def
  56.   /nametype
  57.     {dup xcheck not {(/) .p} if
  58.      dup length .buf length gt
  59.       {dup length string}
  60.       {.buf}
  61.      ifelse cvs .p} bind def
  62.   /arraytype
  63.     {dup rcheck
  64.       {dup xcheck {(})({)} {(])([)} ifelse .p
  65.        exch () exch
  66.        {exch .p .print ( )} forall pop .p}
  67.       {.nop}
  68.      ifelse} bind def
  69.   /operatortype
  70.       {(--) .p .cvp (--) .p} bind def
  71.   /packedarraytype /arraytype load def
  72.   /stringtype
  73.     {dup rcheck
  74.       {(\() .p
  75.        {/.ch exch def
  76.         .ch 32 lt .ch 127 ge or
  77.         {(\\) .p .ch 8#1000 add 8 .buf cvrs 1 3 getinterval .p}
  78.         {.ch 40 eq .ch 41 eq or .ch 92 eq or
  79.          {(\\) .p} if
  80.          .ch .p1}
  81.         ifelse}
  82.        forall (\)) .p}
  83.       {.nop}
  84.      ifelse} bind def
  85. end
  86. /show==
  87.  { .dict begin .print end
  88.  } bind def
  89.  
  90. % Printing utilities
  91.  
  92. /eol
  93.  { /ey ey eheight sub def
  94.    ex ey moveto
  95.  } bind def
  96. /setx
  97.  { /ex xdef ex ey moveto
  98.  } bind def
  99. /setxy
  100.  { /ey xdef /ex xdef
  101.    ex ey moveto
  102.  } bind def
  103. /indent
  104.  { /lx ex def
  105.    (    ) show currentpoint setxy
  106.  } bind def
  107. /unindent
  108.  { lx setx
  109.  } bind def
  110.  
  111. % Get the name of the n'th dictionary on the (saved) dictionary stack.
  112. /nthdictname    % n -> name true | false
  113.  { dup dstack exch get
  114.    exch -1 0
  115.     { dstack exch get
  116.        { 2 index eq { exch pop exit } { pop } ifelse
  117.        }
  118.       forall
  119.       dup type /nametype eq { exit } if
  120.     }
  121.    for
  122.    dup type /nametype eq { true } { pop false } ifelse
  123.  } bind def
  124.  
  125. % Find the name of a currently executing procedure.
  126. /findprocname    % <proctail> findprocname <dstackindex> <procname> true
  127.         % <proctail> findprocname false
  128.  { dup length /proclength xdef
  129.    dup type cvlit /proctype xdef
  130.    dstack length 1 sub -1 0
  131.     { dup dstack exch get
  132.        { dup type proctype eq
  133.           { dup rcheck { dup length } { -1 } ifelse proclength gt
  134.          { dup length proclength sub proclength getinterval 3 index eq
  135.             { 3 -1 roll pop exit }
  136.         { pop }
  137.            ifelse
  138.          }
  139.          { pop pop
  140.          }
  141.         ifelse
  142.       }
  143.       { pop pop
  144.       }
  145.      ifelse
  146.        }
  147.       forall
  148.       dup type /nametype eq { exit } if
  149.       pop
  150.     }
  151.    for
  152.    dup type /nametype eq { true } { pop false } ifelse
  153.  } bind def
  154.  
  155. % Error printing routine.
  156. % The top 2 elements of the o-stack are systemdict and EPdict.
  157. % For the moment, we ignore the possibility of stack overflow or VMerror.
  158. /showerror    % <command> <countexecstack> <errorname> showerror -
  159.  {
  160.     % Restore the error handlers.
  161.  
  162.    saveerrordict { errordict 3 1 roll put } forall
  163.    $error /recordstacks false put
  164.  
  165.     % Save information from the stacks.
  166.  
  167.    /saveerror xdef
  168.    countexecstack array execstack
  169.    0 3 -1 roll 1 sub getinterval
  170.    /estack xdef
  171.    /savecommand xdef
  172.  
  173.    countdictstack array dictstack
  174.    dup length 2 sub 0 exch getinterval
  175.    /dstack xdef
  176.  
  177.     % Save state variables that will be reset.
  178.     % (We could save and print a lot more of the graphics state.)
  179.  
  180.    /savefont currentfont def
  181.    mark { savefont /FontName get =string cvs cvn } stopped
  182.     { cleartomark null }
  183.     { exch pop dup length 0 eq { pop null } if }
  184.    ifelse /savefontname xdef
  185.    efont setfont
  186.  
  187.     { currentpoint } stopped { null null } if
  188.    /savey xdef /savex xdef
  189.    0 0
  190.     { pop pop }
  191.     { pop pop 1 add }
  192.     { pop pop pop pop pop pop exch 1 add exch }
  193.     { }
  194.    pathforall
  195.    /savelines xdef /savecurves xdef
  196.    /savepathbbox { [ pathbbox ] } stopped { pop null } if def
  197.  
  198.    initmatrix
  199.  
  200.    clippath pathbbox
  201.      /savecliptop xdef /saveclipright xdef
  202.      /saveclipbottom xdef /saveclipleft xdef
  203.    initclip
  204.  
  205.    initgraphics
  206.  
  207.     % Eject the current page.
  208.  
  209.    showpage
  210.  
  211.     % Print the page heading.
  212.  
  213.    18 clippath pathbbox newpath
  214.    4 1 roll pop pop pop eheight sub 12 sub setxy
  215.    product (Product: )
  216.    statusdict /printername known
  217.     { 100 string statusdict begin printername end
  218.       dup length 0 gt
  219.        { exch pop exch pop (Printer name: ) }
  220.        { pop }
  221.       ifelse
  222.     }
  223.    if show show eol
  224.    (Interpreter version ) show version show eol
  225.    (Error: ) show saveerror show= eol
  226.    (Command being executed: ) show /savecommand load show= eol
  227.    currentfile { fileposition } stopped
  228.     { pop }
  229.     { (Position in input file: ) show show= eol }
  230.    ifelse eol
  231.  
  232.     % Print the current graphics state.
  233.  
  234.    (Page parameters:) show eol indent
  235.    (page size: ) show
  236.      gsave clippath pathbbox grestore
  237.      exch 3 index sub show= (pt x ) show
  238.      exch sub show= (pt) show pop eol
  239.    (current position: ) show
  240.    savex null eq
  241.     { (none) show }
  242.     { (x = ) show savex show= (, y = ) show savey show= }
  243.    ifelse eol
  244.    savelines savecurves add 0 eq
  245.     { (current path is empty) show
  246.     }
  247.     { (current path: ) show savelines show= ( line(s), ) show
  248.       savecurves show= ( curve(s)) show eol
  249.       (path bounding box: ) show savepathbbox show==
  250.     }
  251.    ifelse eol
  252.    (current font: ) show
  253.      savefontname dup null eq
  254.       { pop (--no name--) show }
  255.       { show= ( ) show
  256.         gsave
  257.         savefontname findfont /FontMatrix get matrix invertmatrix
  258.     grestore
  259.         savefont /FontMatrix get matrix concatmatrix
  260.     dup 1 get 0 eq 1 index 2 get 0 eq and
  261.     1 index 4 get 0 eq and 1 index 5 get 0 eq and
  262.     1 index 0 get 2 index 3 get eq and
  263.      { 0 get show= (pt) show }
  264.      { (scaled by ) show show= }
  265.     ifelse
  266.       }
  267.      ifelse eol
  268.    eol unindent
  269.  
  270.     % Print the operand stack.
  271.  
  272.    /stky ey def
  273.    (Operand stack:) show eol indent
  274.    count { show== eol } repeat
  275.    eol unindent
  276.  
  277.     % Print the dictionary stack.
  278.  
  279.    (Dictionary stack:) show eol indent
  280.    dstack length 1 sub -1 0
  281.     { nthdictname { show= } { (<unknown>) show } ifelse eol
  282.     } for
  283.    eol unindent
  284.  
  285.     % Print the execution stack.
  286.  
  287.    280 stky setxy
  288.    (Execution stack:) show eol indent
  289.    estack length 1 sub -1 1
  290.     { estack exch get
  291.       dup type /operatortype eq
  292.        { show= eol
  293.        }
  294.        { dup type dup /arraytype eq exch /packedarraytype eq or
  295.           { dup xcheck
  296.          { dup rcheck
  297.             { findprocname
  298.            { show= nthdictname { ( in ) show show= } if eol
  299.            }
  300.           if
  301.         }
  302.         { pop
  303.         }
  304.            ifelse
  305.          }
  306.          { pop
  307.          }
  308.         ifelse
  309.       }
  310.       { pop
  311.       }
  312.      ifelse
  313.        }
  314.       ifelse
  315.     } for eol unindent
  316.  
  317.     % Print the next few lines of input.
  318.     % Unfortunately, this crashes on an Adobe printer.
  319.  
  320. (
  321.    (Next few lines of input:) show eol indent
  322.    /input currentfile def
  323.    mark { 4
  324.     { input ( ) readstring not { pop exit } if
  325.       dup 0 get dup 10 eq
  326.        { pop pop eol 1 sub dup 0 eq { pop exit } if }
  327.        { dup 13 eq { pop pop } { pop show } ifelse }
  328.       ifelse
  329.     }
  330.    loop } stopped cleartomark eol unindent
  331. ) pop
  332.  
  333.     % Wrap up.
  334.  
  335.    showpage
  336.    quit
  337.  
  338.  } def
  339.  
  340. % Define the common procedure for handling errors.
  341. /doerror
  342.  { systemdict begin EPdict begin showerror
  343.  } bind def
  344.  
  345. end
  346.  
  347. % Install our own error handlers.
  348.  
  349. /EPinstall
  350.  { EPdict begin
  351.    /saveerrordict errordict length dict def
  352.    errordict saveerrordict copy pop
  353.    errordict
  354.     { pop [ /countexecstack load 2 index cvlit /doerror load /exec load ] cvx
  355.       errordict 3 1 roll put
  356.     } forall
  357.    errordict /handleerror
  358.      [ /countexecstack load /handleerror /doerror load /exec load
  359.      ] cvx
  360.    put
  361.    end
  362.  } bind def
  363.  
  364. EPinstall
  365.