72 lines
1.6 KiB
Text
72 lines
1.6 KiB
Text
|
#!/bin/rc
|
||
|
|
# pdfgs pdffile [gsdev] - generate PS from PDF
|
||
|
|
#
|
||
|
|
# we don't go through postscript, because to
|
||
|
|
# get to postscript, we send the pdf through gs!
|
||
|
|
# much easier to just go directly.
|
||
|
|
|
||
|
|
switch($#*) {
|
||
|
|
case 2
|
||
|
|
GSDEVICE=$2
|
||
|
|
case 1
|
||
|
|
GSDEVICE=`{echo $LPCLASS | sed 's/(.*\+)?gs!([^+]*)(\+.*)?/\2/'}
|
||
|
|
case *
|
||
|
|
echo 'usage: pdfgs pdffile [gsdev]' >[1=2]
|
||
|
|
exit usage
|
||
|
|
}
|
||
|
|
|
||
|
|
GSTMPFILE=/tmp/pdf^$pid
|
||
|
|
GSOPT=('-sDEVICE='$GSDEVICE '-sOutputFile='^$GSTMPFILE -dSAFER -dNOPAUSE \
|
||
|
|
-dQUIET -dBATCH -dNOPAUSE)
|
||
|
|
|
||
|
|
# ps level 1 is extremely verbose and tends to run our
|
||
|
|
# printers out of memory when printing images.
|
||
|
|
if(~ $GSDEVICE pswrite && ~ $LPCLASS *post2*)
|
||
|
|
GSOPT=($GSOPT '-dLanguageLevel=2')
|
||
|
|
if not if(~ $GSDEVICE pswrite)
|
||
|
|
GSOPT=($GSOPT '-dLanguageLevel=1')
|
||
|
|
|
||
|
|
if(~ $OLIST '')
|
||
|
|
gs $GSOPT $1
|
||
|
|
if not {
|
||
|
|
PGLIST=`{echo $OLIST | sed 's/-o//;s/,/ /g;s/ / /g' | tr -cd '0-9 -'}
|
||
|
|
GSPGLIST=()
|
||
|
|
for(i in $PGLIST){
|
||
|
|
switch($i){
|
||
|
|
case -*
|
||
|
|
GSPGLIST=($GSPGLIST `{seq 1 `{echo $i|tr -d '-'}})
|
||
|
|
case *-
|
||
|
|
# BUG assume 100 >= number of pages
|
||
|
|
GSPGLIST=($GSPGLIST `{seq `{echo $i|tr -d '-'} 100})
|
||
|
|
case *-*
|
||
|
|
GSPGLIST=($GSPGLIST `{seq `{echo $i|tr '-' ' '}})
|
||
|
|
case *
|
||
|
|
GSPGLIST=($GSPGLIST $i)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
GSPGLIST=$"GSPGLIST
|
||
|
|
echo '
|
||
|
|
/Page null def
|
||
|
|
/Page# 0 def
|
||
|
|
/PDFSave null def
|
||
|
|
/DSCPageCount 0 def
|
||
|
|
/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage} def
|
||
|
|
GS_PDF_ProcSet begin
|
||
|
|
pdfdict begin
|
||
|
|
('^$1^') (r) file pdfopen begin
|
||
|
|
/npage pdfpagecount def
|
||
|
|
['^$GSPGLIST^']
|
||
|
|
{
|
||
|
|
dup dup
|
||
|
|
1 ge exch npage le and
|
||
|
|
{ DoPDFPage }
|
||
|
|
{ pop }
|
||
|
|
ifelse
|
||
|
|
} forall
|
||
|
|
' | gs $GSOPT - >/dev/null >[2=1]
|
||
|
|
}
|
||
|
|
|
||
|
|
cat $GSTMPFILE
|
||
|
|
rm -f $GSTMPFILE
|
||
|
|
exit ''
|