improved htroff script for troff2lj

[David MacKenzie]

Here is an improved "htroff" command that replaces the one distributed
in troff2lj-v2.  It solves a problem I was having, that I had to send
the soft fonts I needed and the document text itself to the LaserJet as
separate jobs, and often someone else's print job would get in between
them and erase all of my downloaded fonts.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  htroff.1 htroff
# Wrapped by dave at edfdc  on Tue Sep 20 02:18:58 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'htroff.1' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'htroff.1'\"
else
echo shar: Extracting \"'htroff.1'\" \(815 characters\)
sed "s/^X//" >'htroff.1' <<'END_OF_FILE'
X.TH HTROFF 1
X.SH NAME
Xhtroff \- text formatter for HP LaserJet
X.SH SYNOPSIS
X.B htroff
X[
X.B \-options
X] [
X.B files
X]
X.SH DESCRIPTION
X.I Htroff
Xis a front end for the troff(1) text formatting program.  It sends its 
Xoutput to a Hewlett-Packard LaserJet or compatible printer.  In addition
Xto all of the standard troff options, 
X.I htroff
Xalso accepts arguments of the form
X.I \-nXX,
Xwhich indicate that the font with name
X.I XX
Xis to be mounted on font position
X.I n
X(1 <=
X.I n
X<= 3).  Fonts 1-3 default to "R", "I", and "B", (Times Roman, Times
XBold, and Times Italic) respectively.
X.PP
XAlso, arguments of the form
X.I \-dfontfile
Xare accepted, and cause the named
X.I fontfile
Xto be downloaded to the printer before the text is printed.
X.SH "SEE ALSO"
Xdownload(1), troff(1)
X.SH AUTHORS
XSverre Froyen, David MacKenzie
END_OF_FILE
if test 815 -ne `wc -c <'htroff.1'`; then
    echo shar: \"'htroff.1'\" unpacked with wrong size!
fi
# end of 'htroff.1'
fi
if test -f 'htroff' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'htroff'\"
else
echo shar: Extracting \"'htroff'\" \(1117 characters\)
sed "s/^X//" >'htroff' <<'END_OF_FILE'
X:
X# htroff - troff for HP LaserJet
X# Usage: htroff [-options] [files]
X#
X# Special options:
X# -nXX	mount font XX on position n (n = 1-3)
X# -dYY	download font YY
X#
X# Sends its output to the LaserJet automatically.
X# Latest revision: 07/26/88
X
Xtranslate=troff2lj
X#translate=/usr/local/lib/troff2lj
Xprintcmd='lpr -plaserjet'
X#printcmd='uux -n - "sst!/usr/ucb/lpr -Prhp"'
Xdownload= # null to start out with
Xdfiles=
X
Xoptions=-t # Send output to stdout instead of /dev/cat.
Xljopts=
Xfiles=
Xfont1=R
Xfont2=I
Xfont3=B
X
Xfor arg
Xdo
X    case $arg in
X	-) files="$files $arg" ;;
X	-d*) download="download -d";
X	     dfiles="$dfiles `echo $arg|sed 's/-d//'`" ;;
X	-1*) font1=`echo $arg|sed 's/-1//'`; ljopts="$ljopts $arg" ;;
X	-2*) font2=`echo $arg|sed 's/-2//'`; ljopts="$ljopts $arg" ;;
X	-3*) font3=`echo $arg|sed 's/-3//'`; ljopts="$ljopts $arg" ;;
X	-[4-9]*|-0*) echo "Illegal font mount: $arg" >&2; exit 1 ;;
X	-*) options="$options $arg" ;;
X	*) files="$files $arg" ;;
X    esac
Xdone
X
X{
X$download $dfiles
X{
Xecho "\
X.fp 1 $font1
X.fp 2 $font2
X.fp 3 $font3
X.fp 4 S
X.lg 0"
X
Xcat $files
X} | troff $options | $translate $ljopts
X} | $printcmd
END_OF_FILE
if test 1117 -ne `wc -c <'htroff'`; then
    echo shar: \"'htroff'\" unpacked with wrong size!
fi
chmod +x 'htroff'
# end of 'htroff'
fi
echo shar: End of shell archive.
exit 0
-----
David MacKenzie
Environmental Defense Fund
edf at rocky2.rockefeller.edu (...rutgers!cmcl2!rocky2!edf)