1*593dc095SDavid du Colombier/* $Id: ps2ps2.cmd,v 1.1 2005/07/20 06:00:54 igor Exp $ */ 2*593dc095SDavid du Colombier/* 3*593dc095SDavid du Colombier * This file is maintained by a user: if you have any questions about it, 4*593dc095SDavid du Colombier * please contact Mark Hale (mark.hale@physics.org). 5*593dc095SDavid du Colombier */ 6*593dc095SDavid du Colombier 7*593dc095SDavid du Colombier/* "Distill" PostScript. */ 8*593dc095SDavid du Colombier 9*593dc095SDavid du Colombierparse arg params 10*593dc095SDavid du Colombier 11*593dc095SDavid du Colombiergs='@gsos2' 12*593dc095SDavid du Colombier 13*593dc095SDavid du Colombierif params='' then call usage 14*593dc095SDavid du Colombier 15*593dc095SDavid du Colombieroptions='-dNOPAUSE -dBATCH' 16*593dc095SDavid du Colombier 17*593dc095SDavid du Colombier/* extract options from command line */ 18*593dc095SDavid du Colombieri=1 19*593dc095SDavid du Colombierparam=word(params,i) 20*593dc095SDavid du Colombierdo while substr(param,1,1)='-' 21*593dc095SDavid du Colombier options=options param 22*593dc095SDavid du Colombier i=i+1 23*593dc095SDavid du Colombier param=word(params,i) 24*593dc095SDavid du Colombierend 25*593dc095SDavid du Colombier 26*593dc095SDavid du Colombierinfile=param 27*593dc095SDavid du Colombierif infile='' then call usage 28*593dc095SDavid du Colombieroutfile=word(params,i+1) 29*593dc095SDavid du Colombierif outfile='' then call usage 30*593dc095SDavid du Colombier 31*593dc095SDavid du Colombiergs '-q -sDEVICE=ps2write -sOutputFile='outfile options infile 32*593dc095SDavid du Colombierexit 33*593dc095SDavid du Colombier 34*593dc095SDavid du Colombierusage: 35*593dc095SDavid du Colombiersay 'Usage: ps2ps ...switches... input.ps output.ps' 36*593dc095SDavid du Colombierexit 37