home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / traceop.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  3.0 KB  |  87 lines
  1. %    Copyright (C) 1992, 1993, 1994, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: traceop.ps,v $ $Revision: 1.2.2.1 $
  20. % Trace individual operators or procedures.
  21. % <opref> is <opname> or <opname> <dict>
  22. %    (dict defaults to dict where op is currently defined, if writable;
  23. %    otherwise uses userdict)
  24. % <opref> traceop prints vmem usage before;
  25. % <opref> <numargs|preproc> prints arguments or runs proc before;
  26. % <opref> <numargs|preproc> <numresults|postproc>
  27. %    also prints results or runs proc after.
  28. % If traceflush is true, flush the output after each printout.
  29. /traceflush true def
  30.  
  31. currentpacking true setpacking
  32. .currentglobal true .setglobal
  33.  
  34. % Define the default "before" action
  35. /tracebefore { vmstatus 3 traceprint pop pop pop } def
  36.  
  37. % Define the default "after" action
  38. /traceafter { } def
  39.  
  40. /traceprint {
  41.   dup type /integertype eq {
  42.     1 sub -1 0 { ( ) print index ==only } for
  43.   } {
  44.     exec
  45.   } ifelse
  46. } bind def
  47. /traceend {
  48.   traceflush { flush } if
  49. } bind def
  50. /traceop {
  51.   userdict begin
  52.   dup type dup /nametype eq exch /dicttype eq or { { tracebefore } } if
  53.   1 index type dup /nametype eq exch /dicttype eq or { { traceafter } } if
  54.   /.tpost exch def /.tpre exch def
  55.   dup type /dicttype ne {
  56.     dup where not { userdict 1 index {} put userdict } if
  57.   } if
  58.   dup dup wcheck not {
  59.     (Warning: substituting userdict for non-writable dictionary.) =
  60.     pop userdict
  61.   } if
  62.   /.tddict exch def   /.tdict exch def   /.tname exch cvlit def
  63.   .currentglobal [
  64.   .tname /=only cvx ( ) /print cvx
  65.     /.tpre load /traceprint cvx /traceend cvx
  66.     .tdict .tname get /.tdef 1 index cvlit def
  67.     dup xcheck {
  68.       dup type dup /arraytype eq exch /packedarraytype eq or {
  69.     /exec cvx
  70.       } if
  71.     } if
  72.     /.tpost load /traceprint cvx () /= cvx /traceend cvx
  73.   .tdef gcheck /.tpre load gcheck and /.tpost load gcheck and .setglobal
  74.   ] cvx
  75.   .tdef type /operatortype eq {
  76.     .tname exch .makeoperator
  77.   } if
  78.   exch .setglobal
  79.   .tddict exch .tname exch put
  80.   end        % userdict
  81. } bind def
  82. /tracebind /bind load def    % in case someone wants to put it back
  83. /bind { } def        % disable
  84.  
  85. .setglobal
  86. setpacking
  87.