home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / traceop.ps < prev    next >
Text File  |  2000-03-09  |  3KB  |  86 lines
  1. %    Copyright (C) 1992, 1993, 1994, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: traceop.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % Trace individual operators or procedures.
  20. % <opref> is <opname> or <opname> <dict>
  21. %    (dict defaults to dict where op is currently defined, if writable;
  22. %    otherwise uses userdict)
  23. % <opref> traceop prints vmem usage before;
  24. % <opref> <numargs|preproc> prints arguments or runs proc before;
  25. % <opref> <numargs|preproc> <numresults|postproc>
  26. %    also prints results or runs proc after.
  27. % If traceflush is true, flush the output after each printout.
  28. /traceflush true def
  29.  
  30. currentpacking true setpacking
  31. .currentglobal true .setglobal
  32.  
  33. % Define the default "before" action
  34. /tracebefore { vmstatus 3 traceprint pop pop pop } def
  35.  
  36. % Define the default "after" action
  37. /traceafter { } def
  38.  
  39. /traceprint {
  40.   dup type /integertype eq {
  41.     1 sub -1 0 { ( ) print index ==only } for
  42.   } {
  43.     exec
  44.   } ifelse
  45. } bind def
  46. /traceend {
  47.   traceflush { flush } if
  48. } bind def
  49. /traceop {
  50.   userdict begin
  51.   dup type dup /nametype eq exch /dicttype eq or { { tracebefore } } if
  52.   1 index type dup /nametype eq exch /dicttype eq or { { traceafter } } if
  53.   /.tpost exch def /.tpre exch def
  54.   dup type /dicttype ne {
  55.     dup where not { userdict 1 index {} put userdict } if
  56.   } if
  57.   dup dup wcheck not {
  58.     (Warning: substituting userdict for non-writable dictionary.) =
  59.     pop userdict
  60.   } if
  61.   /.tddict exch def   /.tdict exch def   /.tname exch cvlit def
  62.   .currentglobal [
  63.   .tname /=only cvx ( ) /print cvx
  64.     /.tpre load /traceprint cvx /traceend cvx
  65.     .tdict .tname get /.tdef 1 index cvlit def
  66.     dup xcheck {
  67.       dup type dup /arraytype eq exch /packedarraytype eq or {
  68.     /exec cvx
  69.       } if
  70.     } if
  71.     /.tpost load /traceprint cvx () /= cvx /traceend cvx
  72.   .tdef gcheck /.tpre load gcheck and /.tpost load gcheck and .setglobal
  73.   ] cvx
  74.   .tdef type /operatortype eq {
  75.     .tname exch .makeoperator
  76.   } if
  77.   exch .setglobal
  78.   .tddict exch .tname exch put
  79.   end        % userdict
  80. } bind def
  81. /tracebind /bind load def    % in case someone wants to put it back
  82. /bind { } def        % disable
  83.  
  84. .setglobal
  85. setpacking
  86.