DataMuseum.dk

top - metrics - download

    Length: 1678 (0x68e)
    Types: TextFile
    Names: »iptex.sh«

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

TextFile

#! /bin/sh
#
# print a dvi file on the imagen

# should work with either Imagen's ipr or BRL's MDQS, though only
# the latter is tested.  Uncomment IPR sections for IPR, MDQS sections
# for MDQS.

flags=
cflag=-c
prog=imagen1
# 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
	-g)
		prog=imagen1g;;
	-c)
		cflag=;;
	-d|-m|-r|-X|-Y)
		flags="$flags $1 $2"; shift;;
### MDQS:
	-q)
		queue="$2"; shift;;
### :MDQS
	-)
		break;;
	-*)
		flags="$flags $1";;
	*)
		break;;
	esac
	shift
done

if [ $# != 1 ]; then
### IPR:
#	echo "Usage: $0 [-cls] [-m mag] [-d drift] [-r resol] filename" 2>&1
### :IPR MDQS:
	echo "Usage: $0 [-cls] [-m mag] [-d drift] [-r resol] [-q que] filename" 2>&1
### :MDQS
	exit 1
fi

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

dvifile=$1
case $dvifile in
-)	dvifile= ;;
*)	# people insist that iptex 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}/iptex$$
case $cflag in
-c)	trap '/bin/rm -f $tmpfile' 0 1 2 3 15
	if $prog $offset $flags $dvifile > $tmpfile; then
### IPR:
#		ipr $tmpfile
### :IPR MDQS:
		qpr -q "$queue" $tmpfile
### :MDQS
	else
		echo "$0: output not spooled (use -c to force)" 1>&2
		exit 1
	fi;;
*)
### IPR:
#	$prog $offset $flags $dvifile | ipr
### :IPR MDQS:
	$prog $offset $flags $dvifile | qpr -q "$queue"
### :MDQS
	;;
esac