1 #!/usr/local/plan9/bin/rc
4 # we don't go through postscript, because to
5 # get to postscript, we send the pdf through gs!
6 # much easier to just go directly.
9 # usage: pdfgs pdffile [gsdev]
15 GSDEVICE=`{echo $LPCLASS | sed 's/(.*\+)?gs!([^+]*)(\+.*)?/\2/'}
17 echo 'usage: pdfgs pdffile [gsdev]' >[1=2]
20 GSTMPFILE=/tmp/pdf^$pid
21 GSOPT=('-sDEVICE='$GSDEVICE '-sOutputFile='^$GSTMPFILE -dSAFER -dNOPAUSE -dQUIET -dBATCH -dNOPAUSE)
24 # RSC: pswrite produces weird overbars on various
25 # letters, most notably Times-Roman A and h, unless
26 # we use LanguageLevel=1. This doesn't seem to be
27 # constrained to hp4simx printers, so just use LanguageLevel 1
31 #if(~ $dev pswrite && ~ $LPCLASS *hp4simx*)
32 # GSOPT=($GSOPT '-dLanguageLevel=1')
33 if(~ $GSDEVICE pswrite)
34 GSOPT=($GSOPT '-dLanguageLevel=1')
39 PGLIST=`{echo $OLIST | sed 's/-o//;s/,/ /g;s/ / /g' | tr -cd '0-9 -'}
44 GSPGLIST=($GSPGLIST `{seq 1 `{echo $i|tr -d '-'}})
46 # BUG assume 100 >= number of pages
47 GSPGLIST=($GSPGLIST `{seq `{echo $i|tr -d '-'} 100})
49 GSPGLIST=($GSPGLIST `{seq `{echo $i|tr '-' ' '}})
51 GSPGLIST=($GSPGLIST $i)
60 /DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage} def
63 ('^$1^') (r) file pdfopen begin
64 /npage pdfpagecount def
68 1 ge exch npage le and
73 ' | gs $GSOPT - >/dev/null >[2=1]