Subversion Repositories planix.SVN

#!/bin/rc
# pdf2ps [-e] [gs-options] [input.pdf [output.ps]] - generate (e)ps from pdf
rfork e

fn usage {
        echo 'usage: pdf2ps [-e] [gs-options] [input.pdf [output.ps]]' >[1=2]
        exit usage
}

outdev=pswrite
fin=/fd/0
fout=/fd/1
lang=(-'dLanguageLevel=2')
opt=()
while(! ~ $#* 0 && ~ $1 -* && ! ~ $1 - --){
        if(~ $1 '-dLanguageLevel='*)
                lang=()
        if not if(~ '-?' $1)
                usage
        if(~ $1 -e)
                outdev=epswrite
        if not
                opt=($opt $1)
        shift
}
if(~ $1 --)
        shift

switch($#*){
case 0
        ;
case 1
        fin=$1
case 2
        fin=$1
        fout=$2
case *
        usage
}

if(~ $fin -)
        fin=/fd/0
if(~ $fout -)
        fout=/fd/1

# Doing an inital `save' helps keep fonts from being flushed between
# pages.  We have to include the options twice because -I only takes
# effect if it appears before other options.

exec gs $opt -dSAFER -dNOPAUSE -dBATCH -q -s'DEVICE='$outdev $opt $lang \
        -s'OutputFile=-' -c save pop -f $fin >$fout