1*593dc095SDavid du Colombier/* $Id: pdf2ps.cmd,v 1.4 2002/02/21 21:49:28 giles Exp $ */ 23ff48bf5SDavid du Colombier/* 33ff48bf5SDavid du Colombier * This file is maintained by a user: if you have any questions about it, 43ff48bf5SDavid du Colombier * please contact Mark Hale (mark.hale@physics.org). 53ff48bf5SDavid du Colombier */ 63ff48bf5SDavid du Colombier 73ff48bf5SDavid du Colombier/* Convert PDF to PostScript. */ 83ff48bf5SDavid du Colombier 93ff48bf5SDavid du Colombierparse arg params 103ff48bf5SDavid du Colombier 113ff48bf5SDavid du Colombiergs='@gsos2' 123ff48bf5SDavid du Colombierinext='.pdf' 133ff48bf5SDavid du Colombieroutext='.ps' 143ff48bf5SDavid du Colombier 153ff48bf5SDavid du Colombierif params='' then call usage 163ff48bf5SDavid du Colombier 173ff48bf5SDavid du Colombieroptions='-dNOPAUSE -dBATCH -dSAFER -sDEVICE=pswrite' 183ff48bf5SDavid du Colombier 193ff48bf5SDavid du Colombier/* extract options from command line */ 203ff48bf5SDavid du Colombieri=1 213ff48bf5SDavid du Colombierparam=word(params,i) 223ff48bf5SDavid du Colombierdo while substr(param,1,1)='-' 233ff48bf5SDavid du Colombier options=options param 243ff48bf5SDavid du Colombier i=i+1 253ff48bf5SDavid du Colombier param=word(params,i) 263ff48bf5SDavid du Colombierend 273ff48bf5SDavid du Colombier 283ff48bf5SDavid du Colombierinfile=param 293ff48bf5SDavid du Colombierif infile='' then call usage 303ff48bf5SDavid du Colombieroutfile=word(params,i+1) 313ff48bf5SDavid du Colombierif outfile='' then do 323ff48bf5SDavid du Colombier outfile=infile''outext 333ff48bf5SDavid du Colombier infile=infile''inext 343ff48bf5SDavid du Colombierend 353ff48bf5SDavid du Colombier 363ff48bf5SDavid du Colombiergs '-q -sOutputFile='outfile options infile 373ff48bf5SDavid du Colombierexit 383ff48bf5SDavid du Colombier 393ff48bf5SDavid du Colombierusage: 403ff48bf5SDavid du Colombiersay 'Usage: pdf2ps [-dASCII85DecodePages=false] [-dLanguageLevel=n] input[.pdf output.ps]' 413ff48bf5SDavid du Colombierexit 42