ref: 6d429cf9e8418ec69d2516ccba370860e20afd63
dir: /sys/src/cmd/gs/lib/ps2ps2.cmd/
/* $Id: ps2ps2.cmd,v 1.1 2005/07/20 06:00:54 igor 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=ps2write -sOutputFile='outfile options infile exit usage: say 'Usage: ps2ps ...switches... input.ps output.ps' exit