ref: 311e5280279f8d56983df2abae50d545a24ff290
dir: /sys/lib/ghostscript/traceop.ps/
% Copyright (C) 1992, 1993, 1994, 1999 Aladdin Enterprises. All rights reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % For more information about licensing, please refer to % http://www.ghostscript.com/licensing/. For information on % commercial licensing, go to http://www.artifex.com/licensing/ or % contact Artifex Software, Inc., 101 Lucas Valley Road #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. % $Id: traceop.ps,v 1.4 2002/02/21 21:49:28 giles Exp $ % Trace individual operators or procedures. % <opref> is <opname> or <opname> <dict> % (dict defaults to dict where op is currently defined, if writable; % otherwise uses userdict) % <opref> traceop prints vmem usage before; % <opref> <numargs|preproc> prints arguments or runs proc before; % <opref> <numargs|preproc> <numresults|postproc> % also prints results or runs proc after. % If traceflush is true, flush the output after each printout. /traceflush true def currentpacking true setpacking .currentglobal true .setglobal % Define the default "before" action /tracebefore { vmstatus 3 traceprint pop pop pop } def % Define the default "after" action /traceafter { } def /traceprint { dup type /integertype eq { 1 sub -1 0 { ( ) print index ==only } for } { exec } ifelse } bind def /traceend { traceflush { flush } if } bind def /traceop { userdict begin dup type dup /nametype eq exch /dicttype eq or { { tracebefore } } if 1 index type dup /nametype eq exch /dicttype eq or { { traceafter } } if /.tpost exch def /.tpre exch def dup type /dicttype ne { dup where not { userdict 1 index {} put userdict } if } if dup dup wcheck not { (Warning: substituting userdict for non-writable dictionary.) = pop userdict } if /.tddict exch def /.tdict exch def /.tname exch cvlit def .currentglobal [ .tname /=only cvx ( ) /print cvx /.tpre load /traceprint cvx /traceend cvx .tdict .tname get /.tdef 1 index cvlit def dup xcheck { dup type dup /arraytype eq exch /packedarraytype eq or { /exec cvx } if } if /.tpost load /traceprint cvx () /= cvx /traceend cvx .tdef gcheck /.tpre load gcheck and /.tpost load gcheck and .setglobal ] cvx .tdef type /operatortype eq { .tname exch .makeoperator } if exch .setglobal .tddict exch .tname exch put end % userdict } bind def /tracebind /bind load def % in case someone wants to put it back /bind { } def % disable .setglobal setpacking