123456789101112131415161718192021222324252627282930313233343536 |
- /* $Id: eps2eps.cmd,v 1.2 2000/12/30 18:45:37 alexcher Exp $ */
- /*
- * This file is maintained by a user: if you have any questions about it,
- * please contact Mark Hale (mark.hale@physics.org).
- */
- /* "Distill" Encapsulated PostScript. */
- parse arg params
- gs='@gsos2'
- if params='' then call usage
- options='-dNOPAUSE -dBATCH -dSAFER'
- /* 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=epswrite -sOutputFile='outfile options infile
- exit
- usage:
- say 'Usage: eps2eps ...switches... input.eps output.eps'
- exit
|