xref: /plan9/sys/src/cmd/gs/lib/ps2pdf.cmd (revision 593dc095aefb2a85c828727bbfa9da139a49bdf4)
1*593dc095SDavid du Colombier/* $Id: ps2pdf.cmd,v 1.4 2005/08/31 18:31:01 igor 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
7*593dc095SDavid du Colombier/* Convert PostScript to PDF 1.4 (Acrobat 4-and-later compatible). */
83ff48bf5SDavid du Colombier/* The PDF compatibility level may change in the future: */
93ff48bf5SDavid du Colombier/* use ps2pdf12 or ps2pdf13 if you want a specific level. */
103ff48bf5SDavid du Colombier
113ff48bf5SDavid du Colombierparse arg params
123ff48bf5SDavid du Colombier
133ff48bf5SDavid du Colombiergs='@gsos2'
143ff48bf5SDavid du Colombierinext='.ps'
153ff48bf5SDavid du Colombieroutext='.pdf'
163ff48bf5SDavid du Colombier
173ff48bf5SDavid du Colombierif params='' then call usage
183ff48bf5SDavid du Colombier
193ff48bf5SDavid du Colombieroptions=''
203ff48bf5SDavid du Colombier
213ff48bf5SDavid du Colombier/* extract options from command line */
223ff48bf5SDavid du Colombieri=1
233ff48bf5SDavid du Colombierparam=word(params,i)
243ff48bf5SDavid du Colombierdo while substr(param,1,1)='-'
253ff48bf5SDavid du Colombier	options=options param
263ff48bf5SDavid du Colombier	i=i+1
273ff48bf5SDavid du Colombier	param=word(params,i)
283ff48bf5SDavid du Colombierend
293ff48bf5SDavid du Colombier
303ff48bf5SDavid du Colombierinfile=param
313ff48bf5SDavid du Colombierif infile='' then call usage
323ff48bf5SDavid du Colombieroutfile=word(params,i+1)
333ff48bf5SDavid du Colombierif outfile='' then do
343ff48bf5SDavid du Colombier	outfile=infile''outext
353ff48bf5SDavid du Colombier	infile=infile''inext
363ff48bf5SDavid du Colombierend
373ff48bf5SDavid du Colombier
383ff48bf5SDavid du Colombiergs options '-q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile='outfile options '-c save pop -f' infile
393ff48bf5SDavid du Colombierexit
403ff48bf5SDavid du Colombier
413ff48bf5SDavid du Colombierusage:
423ff48bf5SDavid du Colombiersay 'Usage: ps2pdf [options...] input[.ps output.pdf]'
433ff48bf5SDavid du Colombierexit
44