1234567891011121314151617181920212223242526272829303132333435363738394041 |
-
-
-
-
-
- parse arg params
-
- gs='@gsos2'
- inext='.pdf'
- outext='.ps'
-
- if params='' then call usage
-
- options='-dNOPAUSE -dBATCH -dSAFER -sDEVICE=pswrite'
-
-
- 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 do
- outfile=infile''outext
- infile=infile''inext
- end
-
- gs '-q -sOutputFile='outfile options infile
- exit
-
- usage:
- say 'Usage: pdf2ps [-dASCII85DecodePages=false] [-dLanguageLevel=n] input[.pdf output.ps]'
- exit
|