%    Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.% % This file is part of Aladdin Ghostscript.% % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author% or distributor accepts any responsibility for the consequences of using it,% or for whether it serves any particular purpose or works at all, unless he% or she says so in writing.  Refer to the Aladdin Ghostscript Free Public% License (the "License") for full details.% % Every copy of Aladdin Ghostscript must include a copy of the License,% normally in a plain ASCII text file named PUBLIC.  The License grants you% the right to copy, modify and redistribute Aladdin Ghostscript, but only% under certain conditions described in the License.  Among other things, the% License requires that the copyright notice and this notice be preserved on% all copies. % bench.ps% This file is a "wrapper" for benchmarking.% It writes timing results on a file called: /BOF where { pop } {  /BOF (bench.out) def} ifelse 		% Switch to global VM so odef will work. /currentglobal where { pop currentglobal true setglobal /setglobal cvx } { { } }ifelse 		% Make sure all execution occurs under a `save'. save pop 		% Set the output device to an image device. (%END) .skipeof			%**************** /Resolution where { pop } { /Resolution 100 def } ifelse[ Resolution 72.0 div 0 0 Resolution -72.0 div 0 792 ]  Resolution 8.5 mul cvi  Resolution 11.0 mul cvi  <00 ff>makeimagedevicesetdevice %END 		% Redefine 'run' so that it collects timing information. /.orig.run /run load def/.run.finish	% <file> <time> .run.finish <file> { usertime exch sub   1 index =string cvs .bench.file exch writestring   .bench.file (: run time = ) writestring   =string cvs .bench.file exch writestring   .bench.file ( ms\n) writestring   .bench.file flushfile } bind def/run		% <string> run - {		% We construct a bound procedure here so that		% we can invoke run recursively.   cvlit   2    { /.orig.run load      save countdictstack 3 index usertime /.run.finish cvx      7 array astore cvx exec      exch countdictstack exch sub { end } repeat      exch restore    }   repeat		% Don't do the save & restore the last time.   /.orig.run load   1 index usertime /.run.finish cvx   5 array astore cvx exec pop } bind odef 		% Force a quit after processing files. /.bench.file BOF (w) file def/executive { .bench.file closefile quit } def 		% Make sure we don't incur any pauses. /NOPAUSE true def exec		% restore currentglobal