DataMuseum.dk

top - metrics - download

    Length: 1569 (0x621)
    Types: TextFile
    Names: »pstex.sh«

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/mctex/postscript/pstex.sh« 

TextFile

#! /bin/sh
#
# print a dvi file on a postscript printer

flags=
cflag=-c
prog=postscript
# put default offset here: -X3 -Y-4 moves output .3in left, .4in up
# from the usual 1" margin in both directions.
offset=

# eat arguments

while [ $# -gt 0 ]
do
	case "$1" in
	-c)
		cflag=;;
	-d|-e|-m|-r|-I|-L|-X|-Y)
		flags="$flags $1 $2"; shift;;
	-o)
		# case "$2" in
		# a4|note|legal|letter)
		#	mode=$2; flags="$flags -o $2size";;
		# *)
		flags="$flags -o $2";;
		# esac;;
	-o*)
		# case "$1" in
		# -oa4|-onote|-olegal|-oletter)
		#	mode=`echo $1 | sed s/-o//`; flags="$flags -o$1size";;
		# *)
		flags="$flags $1";;
		# esac;;
### MDQS:
	-q)
		queue="$2"; shift;;
### :MDQS
	-)
		break;;
	-*)
		flags="$flags $1";;
	*)
		break;;
	esac
	shift
done

if [ $# != 1 ]; then
	echo "Usage: $0 [-cls] [-m mag] [-d drift] [etc] filename" 2>&1
	exit 1
fi

### MDQS:
case "$queue" in
"")	queue=$PS
	case "$queue" in
	"")	queue=postscript
		echo WARNING: using default queue \`$queue\' -- see the manual
	esac
esac
### :MDQS

dvifile=$1
case $dvifile in
-)	dvifile= ;;
*)	# people insist that pstex should look for file.dvi first:
	if [ -r $dvifile.dvi ]; then
		dvifile=$dvifile.dvi
	elif [ ! -r $dvifile ]; then
		echo "$0: cannot find $1 or $1.dvi" 1>&2
		exit 1
	fi;;
esac

tmpfile=${TMPDIR-/tmp}/pstex$$
case $cflag in
-c)	trap '/bin/rm -f $tmpfile' 0 1 2 3 15
	if $prog $offset $flags $dvifile > $tmpfile; then
		qpr -q "$queue" $tmpfile
	else
		echo "$0: output not spooled (use -c to force)" 1>&2
		exit 1
	fi;;
*)
	$prog $offset $flags $dvifile | qpr -q "$queue"
	;;
esac