🚀 go-pugleaf

For those of you reading the Emacs Lisp Reference Manual with small paper
trays in their printers, or who must share your printer with other people,
here's a short shell script that uses Chris Torek's dviselect program to
split a dvi file into smaller chunks.

I modified dviselect slightly to exit with a 1 value if no pages of output
were generated. Let me know if you want it and I will mail it to you.

#!/bin/sh

# just a hack - invoke as
#	dvisplit NUM DVIFILE

NUM=$1
FIRST=1
LAST=$NUM
DOTSPERLINE=60
DOTS=0

dviselect -s -i $2 -o $2.$FIRST-$LAST $FIRST:$LAST

while [ $? = "0" ] ; do

    # a little feedback for the user
    echo -n "." ; DOTS=`expr $DOTS + 1`
    if [ $DOTS -ge $DOTSPERLINE ] ; then
	echo ""
	DOTS=0
    fi

    # select the pages
    FIRST=`expr $FIRST + $NUM`
    LAST=`expr $LAST + $NUM`
    dviselect -s -i $2 -o $2.$FIRST-$LAST $FIRST:$LAST

done

if [ $DOTS -gt 0 ] ; then
    echo ""
fi

rm -f $2.$FIRST-$LAST

exit 0

--
Skip Montanaro (montanaro@crdgw1.ge.com)