ref: 520a39efcd135556b21e196bfd64802fd3236ce1
dir: /sys/src/cmd/gs/lib/ps2ps.cmd/
/* $Id: ps2ps.cmd,v 1.3 2002/02/21 21:49:28 giles Exp $ */ /* * This file is maintained by a user: if you have any questions about it, * please contact Mark Hale (mark.hale@physics.org). */ /* "Distill" PostScript. */ parse arg params gs='@gsos2' if params='' then call usage options='-dNOPAUSE -dBATCH' /* extract options from command line */ i=1 param=word(params,i) do while substr(param,1,1)='-' options=options param i=i+1 param=word(params,i) end infile=param if infile='' then call usage outfile=word(params,i+1) if outfile='' then call usage gs '-q -sDEVICE=pswrite -sOutputFile='outfile options infile exit usage: say 'Usage: ps2ps ...switches... input.ps output.ps' exit