Subversion Repositories planix.SVN

#!/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 ''