clewis@ecicrl.UUCP (Chris Lewis) (11/17/90)
Submitted-by: Chris Lewis <clewis@ecicrl.uucp>
Archive-name: psroff2.0/Part07
#! /bin/sh
# This is a shell archive. Remove anything before this line, then feed it
# into a shell via "sh file" or similar. To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# Contents: audit.S cattab.c defs.h lib/Makefile utils.c
# utils/calcfonts.S
# Wrapped by clewis@ecicrl on Fri Nov 16 23:36:15 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo ' "shar: End of archive 7 (of 16)."'
if test -f 'audit.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'audit.S'\"
else
echo shar: Extracting \"'audit.S'\" \(11054 characters\)
sed "s/^X//" >'audit.S' <<'END_OF_FILE'
X%%STARTSHELL%%
X# Psroff checking script 2.4 90/08/29
Xchkinst=false
Xfor i
Xdo
X case $i in
X install)
X chkinst=true
X ;;
X *)
X printerlist="$printerlist $i"
X ;;
X esac
Xdone
Xeval "`sed -n -e 's/[()]//g' \
X -e 's/^LIBDIR.*=[ ]*/LIBDIR=/p' \
X -e 's/^LJF.*=[ ]*/LJF=/p' \
X -e 's/^FONTDIR.*=[ ]*/FONTDIR=/p' \
X Makefile`"
Xecho "LIBDIR = $LIBDIR"
Xecho "LJF = $LJF"
Xecho "FONTDIR = $FONTDIR"
Xif [ -z "$FONTDIR" ]
Xthen
X echo "ERROR: That's odd, can't find a FONTDIR setting in Makefile"
Xelif [ ! -d $FONTDIR ]
Xthen
X echo "ERROR: That's really odd, no such directory $FONTDIR"
X echo " This is where CAT's width tables are supposed to be"
X echo " It is usually /usr/lib/font"
X FONTDIR=
Xfi
Xif [ -z "$LIBDIR" ]
Xthen
X echo "ERROR: Bad configuration - no LIBDIR setting"
X exit 1
Xelif [ ! -d $LIBDIR ]
Xthen
X echo "INFO: You've not installed psroff yet - no LIBDIR ($LIBDIR) exists"
X if $chkinst
X then
X echo "ERROR: Can't check installed version unless it's installed"
X exit 1
X fi
Xfi
X
Xif $chkinst
Xthen
X psrofflib=$LIBDIR/lib/psrofflib
X libbase=$LIBDIR/lib
Xelse
X psrofflib=lib/psrofflib
X libbase=lib
Xfi
X
Xif [ ! -r $psrofflib ]
Xthen
X echo "ERROR: no $psrofflib to check"
X exit 1
Xfi
X
Xeval `grep '^troff=' $psrofflib`
Xecho "INFO: Your troff setting in psrofflib is troff=$troff"
Xif [ -n "$troff" ]
Xthen
X # This should be -x, but Ultrix sh doesn't believe in it
X if [ ! -f $troff ]
X then
X echo "ERROR: troff setting in $psrofflib ($troff) doesn't exist"
X troff=
X fi
Xelse
X mpath=`echo $PATH | sed -e 's/^:/.:/' -e 's/:$/:./' -e 's/:/ /g'`
X echo "INFO: Your path is $mpath"
X for i in $mpath
X do
X if [ -f $i/troff ]
X then
X echo "INFO: Troff appears to be $i/troff"
X troff=$i/troff
X break
X fi
X done
X if [ -z "$troff" ]
X then
X echo "ERROR: Can't find troff!"
X exit 1
X fi
Xfi
X
Xeval `grep '^trofftype=' $psrofflib`
Xecho "INFO: Your trofftype setting in $psrofflib is trofftype='$trofftype'"
X
Xif [ ! -r $FONTDIR/ftR -o ! -r $FONTDIR/ftI -o ! -r $FONTDIR/ftB -o \
X ! -r $FONTDIR/ftS ]
Xthen
Xcat <<!
XWARNING: Missing one of the $FONTDIR/ft[RIBS] files.
X I was hoping that FONTDIR was pointing at the place where
X your version of troff keeps its width tables (by default
X /usr/lib/font). Since this is not true, I will not be able
X to tell with complete accuracy whether your trofftype setting
X works. Therefore, take any ERROR messages about trofftype with
X a grain of salt. You could always copy widths/widthps/ft[RIBS]
X (after make widths) into $FONTDIR, but, I NEED a ftR from
X your ORIGINAL troff distribution to test HEADERSIZE properly.
X!
Xfi
X
Xif [ -n "$FONTDIR" ]
Xthen
X arglist="-F$FONTDIR/./ftXX"
Xfi
Xfor i in $arglist -T. ''
Xdo
X echo "INFO: Testing '$i' trofftype setting"
X $troff -t $i < /dev/null > /dev/null
X rc=$?
X if [ $rc = 0 ]
X then
X echo "... $i worked"
X case $i in
X -F*)
X workingtype="-F$FONTDIR/\$width/ftXX"
X ;;
X -T*)
X if [ -n "$FONTDIR" -a "$FONTDIR" != /usr/lib/font ]
X then
X echo "ERROR: FONTDIR must be /usr/lib/font with this"
X echo " type of troff"
X fi
X workingtype="-T\$width"
X ;;
X *)
X echo "INFO: Poor you, your troff doesn't understand -T or -F."
X echo " This means that you'll have to put all of your"
X echo " width files directly in $FONTDIR, and you'll not"
X echo " be able to support multiple sets of width tables"
X workingtype=" "
X ;;
X esac
X break
X else
X echo "... $i didn't work"
X fi
Xdone
Xif [ -z "$workingtype" ]
Xthen
X echo "ERROR: Oh my, your troff doesn't seem to work AT ALL!"
X echo " It's giving me non-zero return codes when I try"
X echo " all of the known different ways of setting width table"
X echo " directory (including none!). Egads. Get Help!!!!!!!"
X exit 1
Xfi
X
Xif [ "$workingtype" != "$trofftype" ]
Xthen
X echo "ERROR: You should have trofftype='$workingtype' in $psrofflib"
X echo " Psroff won't work AT ALL without this fixed"
Xelse
X echo "INFO: Your trofftype setting ($trofftype) appears correct"
Xfi
X
Xif [ ! -r $FONTDIR/ftR ]
Xthen
X echo "INFO: There isn't a $FONTDIR/ftR (it should be if you've installed"
X echo " Troff on your system. Without it, I can't test HEADERSIZE"
Xelse
X hdrsize=`sed -n \
X -e 's/^#define[ ]*HEADERSIZE[ ]*\([0-9]*\).*/\1/p' defs.h`
X echo "INFO: You have HEADERSIZE defined as $hdrsize"
X bytecount=`wc -c $FONTDIR/ftR | sed -e 's/^[ ]*//g' -e 's/[ ].*//`
X case $bytecount in
X 224)
X echo "INFO: You appear to have a Xenix-like troff - width tables"
X echo " have no extraneous garbage. Lucky you!"
X acthdr=0
X ;;
X *)
X echo "INFO: H'mm, you don't have a Xenix-like troff - Assuming"
X echo " your troff puts a.out.h headers on width tables, I"
X echo " will try compiling a teensy program to find out how"
X echo " big a.out.h headers actually are...."
X cat > AUDITP.c <<\!
X#include <a.out.h>
X#ifdef X_EXEC
X/* Xenix I think.... */
X#define HEADERSIZE sizeof(struct xexec)
X#endif
X#ifdef F_LNNO
X/* COFF format headers */
X#define HEADERSIZE (-sizeof(struct filehdr))
X#endif
X#ifndef HEADERSIZE
X/* Generalized V7 or BSD - non-coff format headers */
X#define HEADERSIZE sizeof(struct exec)
X#endif
Xmain() {
Xprintf ("%d\n", HEADERSIZE);
X}
X!
X rm -f AUDITP
X if [ -z "$MAKE" ]
X then
X MAKE=make
X fi
X $MAKE AUDITP > /dev/null 2>&1
X if [ ! -f AUDITP ]
X then
X echo "INFO: H'm, Wouldn't compile ..."
X # Common for 32 bitters (Sun/Ultrix f'r instance)
X acthdr=-32
X else
X acthdr=`./AUDITP`
X fi
X rm -f AUDITP AUDITP.c
X case $acthdr in
X -*)
X echo 'INFO: The following HEADERSIZE is *purely* a guess:'
X acthdr=`echo $acthdr | sed -e 's/-//'`
X ;;
X esac
X echo "INFO: It looks like HEADERSIZE should be $acthdr"
X ;;
X esac
X if [ "$hdrsize" != "$acthdr" ]
X then
X echo "ERROR: HEADERSIZE should be set to $acthdr, not $hdrsize"
X else
X echo "INFO: HEADERSIZE appears to be set correctly to $hdrsize"
X fi
Xfi
X
XTopts="`sed -e '/^[a-zA-Z]/!d' -e '/^troff/d' \
X -e '/^trofftype/d' -e 's/[ ].*//' $psrofflib | sort -u`"
Xecho "INFO: Commencing psrofflib ($psrofflib) checking"
Xif $chkinst
Xthen
X msgtyp='ERROR '
X troff2ps=$LIBDIR/troff2ps
Xelse
X msgtyp='WARNING'
X troff2ps=./troff2ps
Xfi
X
Xif [ ! -f $troff2ps ]
Xthen
X echo "WARNING: Can't test drivers, because troff2ps isn't built"
Xfi
Xrm -f PRINTERLIST
X
Xfor type in $Topts
Xdo
X troff="<not set>"
X trofftype="<not set>"
X width="<not set>"
X t2arg="<not set>"
X lparg="<not set>"
X ptr="<not set>"
X# If your system has no awk (or a busted one), you may have to
X# comment out the "line=`awk ... $psrofflib" lines, and uncomment
X# the sed script. If you do, you won't be able to continue
X# psrofflib lines, so you'll have to "join" the entries in psrofflib
X# (remembering to delete the name fields in the continuation lines).
X line=`awk '
X $1 ~ /^#/ {next}
X $0 ~ /^troff/ { print $0 }
X $1 == "'$type'" {
X seen=1
X print "F='T'" substr($0, length($1) + 1)
X next
X }
X { if (seen) exit(0) }
X ' $psrofflib`
X eval "$line"
X echo "INFO: psroff -T$type settings:"
X echo " troff $troff"
X echo " trofftype $trofftype"
X echo " width $width"
X if [ -n "$FONTDIR" -a ! -d $FONTDIR/$width ]
X then
X echo " * $msgtyp: FONTDIR/$width not installed yet"
X echo " psroff -T$width won't work until you do"
X fi
X if [ ! -d widths/width${width} ]
X then
X echo " * WARNING: no widths/width${width} directory"
X fi
X echo " t2arg $t2arg"
X drivertype=`echo $t2arg | sed -n -e 's/.*-T\([^ ]*\).*/\1/p'`
X printertype=`echo $t2arg | sed -n -e 's/.*-p\([^ ]*\).*/\1/p'`
X if [ -z "$drivertype" ]
X then
X echo " * INFO : no -T in $psrofflib t2arg - assuming ps"
X drivertype=ps
X fi
X if [ -z "$printertype" ]
X then
X printertype=$drivertype
X fi
X echo " Driver type: $drivertype, library prefix: $printertype"
X if [ -f $troff2ps ]
X then
X $troff2ps -T$drivertype < /dev/null > /dev/null 2>&1
X if [ $? != 0 ]
X then
X echo " * ERROR : troff2ps driver $drivertype not" \
X "configured psroff -T$width will die"
X fi
X fi
X set +x
X echo " lparg $lparg"
X echo " ptr $ptr"
X if [ ! -r $libbase/$printertype.lib ]
X then
X echo " * WARNING: no $libbase/$printertype.lib (no prolog)"
X fi
X if [ ! -r $libbase/$printertype.fonts ]
X then
X echo " * ERROR : Can't find $libbase/$printertype.fonts"
X echo " Won't be able to give you list of fonts available"
X continue
X fi
X echo "See $printertype.fonts below for listing of fonts"
X echo $printertype >> PRINTERLIST
Xdone
X
Xif [ -z "$printerlist" -a -s PRINTERLIST ]
Xthen
X printerlist=`sort -u PRINTERLIST`
Xfi
Xrm -f PRINTERLIST
X
Xfor printertype in $printerlist
Xdo
X (
X if [ -n "$FONTDIR" -a -d "$FONTDIR/$printertype" ]
X then
X ls $FONTDIR/$printertype | sed -n -e 's/^.*ft//p' | sort -u
X fi
X echo "troff2ps"
X cat $libbase/$printertype.fonts
X ) | awk '
X BEGIN {
X fontdir = "'"$FONTDIR"'"
X printertype = "'"$printertype"'"
X catfonts[""] = 0
X fonts[""] = 0
X printf("\n\nPrinter type %s.fonts\n\n", printertype);
X printf("%-4s %-20s %-25s %s\n", "Cat", "English Name", "Sequence", \
X "Flags");
X printf("Name\n\n");
X ignoring = 0
X }
X $1 == "troff2ps" {
X startlisting = 1;
X next
X }
X $1 == "normal" || $1 == "symbol" {
X ignoring = 1
X }
X $1 !~ /^[A-Za-z][A-Za-z]*/ {
X next
X }
X NF >= 1 {
X if (ignoring)
X next
X if (startlisting) {
X english = ""
X sequence = ""
X flags = ""
X name = $1
X if (NF > 1)
X english = $2
X if (NF > 2)
X sequence = $3
X if (NF > 3)
X flags = $4
X printf("%-4s %-20s %-25s %s\n", name, english, sequence, flags);
X fonts[name] = 1
X } else {
X catfonts[$1] = 1
X ftdirfound = 1
X }
X }
X END {
X if (ftdirfound) {
X for (name in fonts) {
X if (name && !catfonts[name])
X printf(" FONT %s: do not use: %s/%s/ft%s not installed\n",\
X name, fontdir, printertype, name);
X }
X }
X for (name in catfonts) {
X if (name && !fonts[name]) {
X printf(" FONT %s: do not use: %s/%s/ft%s exists, but", \
X name, fontdir, printertype, name)
X printf(" not in %s.fonts\n", printertype)
X }
X }
X }'
X if [ -n "$LJF" -a -d "$LJF" -a "$printertype" = lj ]
X then
X echo "I'm checking $printertype.fonts file for missing font"
X echo "files, please have patience"
X sed -e '/^[A-Za-z][A-Za-z]*/!d' $libbase/$printertype.fonts |
X while read troffname english sequence flags
X do
X for i in 6 7 8 9 10 11 12 14 16 18 20 22 24 28 36
X do
X suffix=
X case $flags in
X n* | b*) ;;
X p*)
X suffix=pk
X ;;
X s*)
X suffix=sfp
X ;;
X esac
X if [ -n "$suffix" -a ! -r $LJF/$troffname.$i.$suffix ]
X then
X echo "ERROR: $LJF/$troffname.$i.$suffix missing"
X fi
X flags=`echo $flags | sed -e 's/.\(.*\)/\1/'`
X done
X done
X fi
Xdone
END_OF_FILE
if test 11054 -ne `wc -c <'audit.S'`; then
echo shar: \"'audit.S'\" unpacked with wrong size!
fi
# end of 'audit.S'
fi
if test -f 'cattab.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cattab.c'\"
else
echo shar: Extracting \"'cattab.c'\" \(9903 characters\)
sed "s/^X//" >'cattab.c' <<'END_OF_FILE'
X/* Copyright 1985, 1986, 1987, 1988 Chris Lewis
X All Rights Reserved
X
X Permission to copy and further distribute is freely given provided
X this copyright notice remains intact and that this software is not
X sold for profit.
X
X Project: Generic Troff drivers
X Module: cattab.c
X Author: Chris Lewis
X Specs: CAT Translation tables.
X
X Notes:
X - There are two tables, one for normal and one for symbol fonts.
X - The CAT code is calculated in the following way from the CAT
X flash codes (see cat(5L)):
X 1) if lower flash, the code is the flash code minus 1.
X 2) if upper flash, the code is the flash code + 62
X (codes go from 0 to 107)
X - Some CAT codes are not allocated - they are denoted as "NOC"
X in the backend translation tables, but NTC here.
X (the backend translation tables are indexed by CAT code).
X - CAT codes of "NTC" in this table are "pseudo characters" which
X are here so that a width entry index can be specified. For example,
X "-" and \(hy are really the *same* CAT code, but have different
X widths. Ditto _ and \ul. Another is that space isn't really
X a character, but you gotta put its width somewhere.
X - The width table index is the offset from the beginning of the
X table (eg: not including any headers that your troff may
X require).
X - This table is primarily used for debugging and auxiliary purposes
X and is scanned at most once per troff2ps run (-z dumps, during
X *.fonts loading, and possibly in LJ w.r.t. font downloading), but
X other programs use it more extensively. The backends have
X the tables that are referenced on each character to obtain
X printer-specific translations.
X */
X
X
X#ifndef lint
Xstatic char SCCSid[] =
X "@(#)cattab.c: 2.1 Copyright 90/07/18 16:52:56 Chris Lewis";
X#endif
X
X#include "defs.h"
X
X/* +------------------------------------ Troff character name
X | (NOC means no character only
X | used here to terminate list)
X |
X | +----------------------------- N: standard font
X | | S: symbol font
X | |
X | | +------------------------ CAT Output Code table index
X | | | (must be sorted on this field!)
X | | |
X | | | +------------------- Width table index
X | | | |
X | | | | +---------------- Dummy used by dit2catwid
X | | | | |
X | | | | | +------------ Character description.
X | | | | | |
X v v v v v v */
X
Xstruct cattab tabN[] = {
X {"h", N, 0, 72, 0, "h"},
X {"t", N, 1, 84, 0, "t"},
X {"n", N, 2, 78, 0, "n"},
X {"m", N, 3, 77, 0, "m"},
X {"l", N, 4, 76, 0, "l"},
X {"i", N, 5, 73, 0, "i"},
X {"z", N, 6, 90, 0, "z"},
X {"s", N, 7, 83, 0, "s"},
X {"d", N, 8, 68, 0, "d"},
X {"b", N, 9, 66, 0, "b"},
X {"x", N, 10, 88, 0, "x"},
X {"f", N, 11, 70, 0, "f"},
X {"j", N, 12, 74, 0, "j"},
X {"u", N, 13, 85, 0, "u"},
X {"k", N, 14, 75, 0, "k"},
X {"", N, 15, -1, 0, NOC},
X {"p", N, 16, 80, 0, "p"},
X {"em", N, 17, 99, 0, "3/4 em"},
X {";", N, 18, 27, 0, ";"},
X {"", N, 19, -1, 0, NOC},
X {"a", N, 20, 65, 0, "a"},
X {"ru", N, 21, 100, 0, "horizontal rule"},
X {"c", N, 22, 67, 0, "c"},
X {"`", N, 23, 64, 0, "` open"},
X {"e", N, 24, 69, 0, "e"},
X {"'", N, 25, 7, 0, "' close"},
X {"o", N, 26, 79, 0, "o"},
X {"14", N, 27, 101, 0, "1/4"},
X {"r", N, 28, 82, 0, "r"},
X {"12", N, 29, 102, 0, "1/2"},
X {"v", N, 30, 86, 0, "v"},
X {"hy", N, 31, 96, 0, "hy hyphen"},
X {"w", N, 32, 87, 0, "w"},
X {"q", N, 33, 81, 0, "q"},
X {"/", N, 34, 15, 0, "/"},
X {".", N, 35, 14, 0, "."},
X {"g", N, 36, 71, 0, "g"},
X {"34", N, 37, 103, 0, "3/4"},
X {",", N, 38, 12, 0, ","},
X {"&", N, 39, 6, 0, "&"},
X {"y", N, 40, 89, 0, "y"},
X {"", N, 41, -1, 0, NOC},
X {"%", N, 42, 5, 0, "%"},
X {"", N, 43, -1, 0, NOC},
X {"Q", N, 44, 49, 0, "Q"},
X {"T", N, 45, 52, 0, "T"},
X {"O", N, 46, 47, 0, "O"},
X {"H", N, 47, 40, 0, "H"},
X {"N", N, 48, 46, 0, "N"},
X {"M", N, 49, 45, 0, "M"},
X {"L", N, 50, 44, 0, "L"},
X {"R", N, 51, 50, 0, "R"},
X {"G", N, 52, 39, 0, "G"},
X {"I", N, 53, 41, 0, "I"},
X {"P", N, 54, 48, 0, "P"},
X {"C", N, 55, 35, 0, "C"},
X {"V", N, 56, 54, 0, "V"},
X {"E", N, 57, 37, 0, "E"},
X {"Z", N, 58, 58, 0, "Z"},
X {"D", N, 59, 36, 0, "D"},
X {"B", N, 60, 34, 0, "B"},
X {"S", N, 61, 51, 0, "S"},
X {"Y", N, 62, 57, 0, "Y"},
X {"F", N, 63, 38, 0, "F"},
X {"X", N, 64, 56, 0, "X"},
X {"A", N, 65, 33, 0, "A"},
X {"W", N, 66, 55, 0, "W"},
X {"J", N, 67, 42, 0, "J"},
X {"U", N, 68, 53, 0, "U"},
X {"K", N, 69, 43, 0, "K"},
X {"0", N, 70, 16, 0, "0"},
X {"1", N, 71, 17, 0, "1"},
X {"2", N, 72, 18, 0, "2"},
X {"3", N, 73, 19, 0, "3"},
X {"4", N, 74, 20, 0, "4"},
X {"5", N, 75, 21, 0, "5"},
X {"6", N, 76, 22, 0, "6"},
X {"7", N, 77, 23, 0, "7"},
X {"8", N, 78, 24, 0, "8"},
X {"9", N, 79, 25, 0, "9"},
X {"*", N, 80, 10, 0, "*"},
X {"\\-", N, 81, 104, 0, "minus"},
X {"fi", N, 82, 105, 0, "fi"},
X {"fl", N, 83, 106, 0, "fl"},
X {"ff", N, 84, 107, 0, "ff"},
X {"ct", N, 85, 192, 0, "cent sign"},
X {"Fl", N, 86, 109, 0, "ffl"},
X {"Fi", N, 87, 108, 0, "ffi"},
X {"(", N, 88, 8, 0, "("},
X {")", N, 89, 9, 0, ")"},
X {"[", N, 90, 59, 0, "["},
X {"]", N, 91, 61, 0, "]"},
X {"de", N, 92, 110, 0, "degree"},
X {"dg", N, 93, 111, 0, "dagger"},
X {"=", N, 94, 29, 0, "="},
X {"rg", N, 95, 189, 0, "registered"},
X {":", N, 96, 26, 0, ":"},
X {"+", N, 97, 11, 0, "+"},
X {"", N, 98, -1, 0, NOC},
X {"!", N, 99, 1, 0, "!"},
X {"bu", N, 100, 97, 0, "bullet"},
X {"?", N, 101, 31, 0, "?"},
X {"fm", N, 102, 113, 0, "foot mark (minute)"},
X {"|", N, 103, 92, 0, "|"},
X {"", N, 104, -1, 0, NOC},
X {"co", N, 105, 190, 0, "copyright"},
X {"sq", N, 106, 98, 0, "square"},
X {"$", N, 107, 4, 0, "$"},
X {" ", N, NTC, 0, 0, "space"},
X {"\\|", N, NTC, 95, 0, "narrow space"},
X {"\\^", N, NTC, 118, 0, "half narrow space"},
X {"-", N, NTC, 13, 0, "hyphen character"},
X {NOC}
X};
X
Xstruct cattab tabS[] = {
X {"*q", S, 0, 142, 0, "psi"},
X {"*h", S, 1, 127, 0, "theta"},
X {"*n", S, 2, 132, 0, "nu"},
X {"*m", S, 3, 131, 0, "mu"},
X {"*l", S, 4, 130, 0, "lambda"},
X {"*i", S, 5, 128, 0, "iota"},
X {"*z", S, 6, 125, 0, "zeta"},
X {"*s", S, 7, 137, 0, "sigma"},
X {"*d", S, 8, 123, 0, "delta"},
X {"*b", S, 9, 121, 0, "beta"},
X {"*c", S, 10, 133, 0, "xi"},
X {"*y", S, 11, 126, 0, "eta"},
X {"*f", S, 12, 140, 0, "phi"},
X {"*u", S, 13, 139, 0, "upsilon"},
X {"*k", S, 14, 129, 0, "kappa"},
X {"", S, 15, -1, 0, NOC},
X {"*p", S, 16, 135, 0, "pi"},
X {"@", S, 17, 32, 0, "@"},
X {"da", S, 18, 169, 0, "down arrow"},
X {"", S, 19, -1, 0, NOC},
X {"*a", S, 20, 120, 0, "alpha"},
X {"or", S, 21, 198, 0, "or (was star)"},
X {"*x", S, 22, 141, 0, "chi"},
X {"\"", S, 23, 2, 0, "double quote"},
X {"*e", S, 24, 124, 0, "epsilon"},
X {"eq", S, 25, 170, 0, "equation equal"},
X {"*o", S, 26, 134, 0, "omicron"},
X {"<-", S, 27, 167, 0, "left arrow"},
X {"*r", S, 28, 136, 0, "rho"},
X {"ua", S, 29, 168, 0, "up arrow"},
X {"*t", S, 30, 138, 0, "tau"},
X {"ul", S, 31, 116, 0, "ul"},
X {"\\", S, 32, 60, 0, "back slash"},
X {"*Q", S, 33, 154, 0, "Psi"},
X {"bs", S, 34, 197, 0, "bell system sign"},
X {"if", S, 35, 180, 0, "infinity"},
X {"*g", S, 36, 122, 0, "gamma"},
X {"ip", S, 37, 179, 0, "improper superset"},
X {"pt", S, 38, 185, 0, "proportional to"},
X {"rh", S, 39, 194, 0, "right hand"},
X {"*w", S, 40, 143, 0, "omega"},
X {"", S, 41, -1, 0, NOC},
X {"gr", S, 42, 182, 0, "gradient"},
X {"", S, 43, -1, 0, NOC},
X {"*F", S, 44, 153, 0, "Phi"},
X {"*H", S, 45, 146, 0, "Theta"},
X {"*W", S, 46, 155, 0, "Omega"},
X {"cu", S, 47, 174, 0, "union"},
X {"rn", S, 48, 158, 0, "root en"},
X {"ts", S, 49, 157, 0, "terminal sigma"},
X {"*L", S, 50, 147, 0, "Lambda"},
X {"mi", S, 51, 162, 0, "equation minus"},
X {"*G", S, 52, 144, 0, "Gamma"},
X {"is", S, 53, 184, 0, "integral sign"},
X {"*P", S, 54, 149, 0, "Pi"},
X {"sb", S, 55, 176, 0, "subset of"},
X {"sp", S, 56, 177, 0, "superset of"},
X {"ap", S, 57, 164, 0, "approximates"},
X {"pd", S, 58, 181, 0, "partial derivative"},
X {"*D", S, 59, 145, 0, "Delta"},
X {"sr", S, 60, 156, 0, "square root"},
X {"*S", S, 61, 150, 0, "Sigma"},
X {"~=", S, 62, 163, 0, "approx ="},
X {">", S, 63, 30, 0, ">"},
X {"*C", S, 64, 148, 0, "Xi"},
X {"<", S, 65, 28, 0, "<"},
X {"sl", S, 66, 117, 0, "slash"},
X {"ca", S, 67, 175, 0, "intersect"},
X {"*U", S, 68, 152, 0, "Upsilon"},
X {"no", S, 69, 183, 0, "logical not"},
X {"rc", S, 70, 210, 0, "right ceiling"},
X {"lt", S, 71, 200, 0, "left top brace"},
X {"bv", S, 72, 206, 0, "bold vertical"},
X {"lk", S, 73, 204, 0, "left ctr brace"},
X {"lb", S, 74, 201, 0, "left bot brace"},
X {"rt", S, 75, 202, 0, "right top brace"},
X {"rk", S, 76, 205, 0, "right ctr brace"},
X {"rb", S, 77, 203, 0, "right bot brace"},
X {"rf", S, 78, 208, 0, "right floor"},
X {"lf", S, 79, 207, 0, "left floor"},
X {"lc", S, 80, 209, 0, "left ceiling"},
X {"mu", S, 81, 171, 0, "multiply"},
X {"di", S, 82, 172, 0, "divide"},
X {"+-", S, 83, 173, 0, "plus-minus"},
X {"<=", S, 84, 160, 0, "<="},
X {">=", S, 85, 159, 0, ">="},
X {"==", S, 86, 161, 0, "identically equal"},
X {"!=", S, 87, 165, 0, "not equal"},
X {"{", S, 88, 91, 0, "{"},
X {"}", S, 89, 93, 0, "}"},
X {"aa", S, 90, 114, 0, "acute accent"},
X {"ga", S, 91, 115, 0, "grave accent"},
X {"^", S, 92, 62, 0, "^"},
X {"#", S, 93, 3, 0, "#"},
X {"lh", S, 94, 195, 0, "left hand"},
X {"mo", S, 95, 187, 0, "member of"},
X {"~", S, 96, 94, 0, "~"},
X {"es", S, 97, 186, 0, "empty set"},
X {"", S, 98, -1, 0, NOC},
X {"dd", S, 99, 193, 0, "dbl dagger"},
X {"br", S, 100, 191, 0, "box rule (was parallel sign)"},
X {"**", S, 101, 196, 0, "math *"},
X {"ib", S, 102, 178, 0, "improper subset"},
X {"ci", S, 103, 199, 0, "circle"},
X {"", S, 104, -1, 0, NOC},
X {"pl", S, 105, 188, 0, "equation plus"},
X {"->", S, 106, 166, 0, "right arrow"},
X {"sc", S, 107, 112, 0, "section"},
X {"_", S, NTC, 63, 0, "_"},
X {NOC}
X};
END_OF_FILE
if test 9903 -ne `wc -c <'cattab.c'`; then
echo shar: \"'cattab.c'\" unpacked with wrong size!
fi
# end of 'cattab.c'
fi
if test -f 'defs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'defs.h'\"
else
echo shar: Extracting \"'defs.h'\" \(10777 characters\)
sed "s/^X//" >'defs.h' <<'END_OF_FILE'
X/* Copyright 1988, 1989 23:13:57 Chris Lewis
X All Rights Reserved
X
X Permission to copy and further distribute is freely given provided
X this copyright notice remains intact and that this software is not
X sold for profit.
X
X Project: Generic Troff drivers
X Module: defs.h 2.10 90/11/16 23:13:57
X Author: Chris Lewis
X Specs: Main header file - contains some customization
X */
X
X/* Official Release and Patch level: */
X#define T2VERSION "@(#)PSROFF Copyright 90/11/16 Chris Lewis - R2 P5"
X
X#ifndef LIBDIR
X/* Don't touch this */
X#define LIBDIR "/usr/lib/troff2"
X#endif
X
X/* Configuration parameters:
X */
X
X#undef BSD /* Define if you are a V7 or BSD machine */
X /* strchr vs. index etc.... */
X
X#define ATT /* Define if you are some sort of SIII or SV system */
X
X#undef BCOPY /* Define if you don't have memcpy and friends - eg:
X oldish BSD systems */
X
X#undef BCOPYLIB /* Define if BCOPY is defined and you have */
X /* a bcopy in your library */
X
X#undef UNSIGNEDCHAR /* Define if chars are unsigned on your machine */
X
X/* The name of a routine that can be called thusly:
X VFPRINTF(stream, format, ap)
X FILE *stream;
X char *format;
X va_list ap;
X (eg: you have varargs.h and you have a routine functionally compatible
X with System V vfprintf. I think BSD has one too)
X
X undef if you don't got, and maybe my fakeout will work.
X */
X
X#define VFPRINTF vfprintf
X
X/* If you have the stand-alone pk2sfp distribution, do not touch
X anything from here on */
X
X/* Font width file configuration:
X
X - If HEADERSIZE defined, use that many bytes as a prefix to the
X compiled font width table. HEADERSIZE 0 is the correct definition
X for Xenix and most System V Troffs. HEADERSIZE=32 works for Ultrix.
X HEADERSIZE=0 works properly for Suns (I think).
X - If COFF is defined instead, use a COFF header on the beginning of
X the file. I personally know of no machine that supports these.
X - If neither are defined, use a BSD/V7 style a.out.h header, this
X is appropriate for V7 and BSD troffs
X
X The headers I write out do not have anything in them, so some
X troff's may blow. Please let me know if they work for you...
X If you do need the headers, and these doesn't work for you, enable
X the COMPILE option in gfnttab. I know of no troff that *needs*
X COMPILE on.
X
X */
X
X#define HEADERSIZE 0 /* size of header in bytes */
X#undef COFF /* systems using COFF headers */
X
X/* What do your CAT codes look like?
X
X If BSDHACK defined, the code to magnify the next lead by 64 replaces the
X codes to set the tilt (tilt used only on 8-font CATs, which most CAT troff
X programs don't support).
X
X Both FONT8 and BSDHACK code are *untested*. FONT8 probably does *not*
X work.
X */
X
X#undef BSDHACK /* Has magnify lead opcode - untested */
X#undef FONT8 /* 8 Font device - untested */
X#define FONT4 /* Normal 4 font device */
X
X /* define a command for decompressing an argument
X file to stdout - allows you to compress SFP's.
X undef if you don't got. The -d option may be
X undocumented, but means decompress. "-dc"
X is equivalent to zcat. -dc appears to be
X in most versions of compress (eg: v3 & v4) */
X#define COMPRESS "/usr/lbin/compress -dc"
X
X/* Some postscript printers don't accept control-D as job termination
X (DEC scriptwriters for instance). In that case, define this
X macro. Alternately, if you have a proper printer manager that
X does this sort of stuff, define it too.
X */
X#undef NOCONTROLD
X
X/* define if you don't want your Postscript printer talking to you */
X#undef NOCHATTER
X
X/* The only advantage to commenting-out one of these is to make the
X binary executable of troff2?? smaller.
X */
X
X/* Basic drivers: */
X#define PS /* Postscript */
X#define LJ /* Laserjet - psroff will not build with this undef'd */
X#define DT /* ditroff */
X
X/* Laserjet driver config: */
X#define PK /* enable PK font downloading (needs LJ) */
X
X#define SFP /* enable SFP incremental font downloading (needs PK).
X You can still use SFP's without this turned on, but
X you won't get incremental downloading */
X
X#define PARTIAL /* partial (not incremental) font downloading */
X
X#define INCR /* enable incremental font downloading (needs PARTIAL) */
X
X#define MDLF 16 /* Max # downloaded fonts permitted by your laserjet
X per *page*. 16 is correct for HPLJ+ and most II's.
X IIP's are 32 I think. Some newer ones have higher
X restrictions (don't put this too high even if
X your printer supports it, you may run out of
X memory) */
X
X#define PRELOAD 0 /* set to number of LJ fonts permanently
X downloaded to printer. The backend will
X make sure that you don't go over the number
X of fonts permitted by the printer */
X
X#define DEBUG /* Do you want the debugger in? If you encounter
X problems and you want help from me, you'll have
X to have this turned on */
X
X#define OPT /* Experimental code */
X
X#define DEFPL 11 /* Default page length (11 inches).
X DO NOT change unless you absolutely HAVE to.
X You should only need to change this if you
X desire your printer to use something different
X as default. If so, you'll HAVE to change
X your macro package to agree on the default - RT
X owners take note! (the man macros are wrong) */
X
X#define DEFOFF 0.5 /* Default page offset. DO NOT change unless you
X absolutely HAVE to. You should only need this
X if: your vendor has buggered your macros to
X have a different default .po offset (Xenix),
X and you aren't using the macro adapter
X libraries that come with psroff (eg: you're
X using troff2ps directly). See README/TROUBLE/
X psroff(1) (-O vs. -rO options) */
X
X#define DEFYOFF 0 /* Default page vertical offset. See README/TROUBLE/
X psroff(1) -Y options too */
X
X#define INSPECIAL /* enables ditroff graphics capability */
X
X#define NODECMD "uuname -l" /* command to print on stdout the node name
X of your machine. Use hostname on BSD-derived
X systems that don't have UUCP. You can always
X use "echo <nodename>" if necessary */
X
X/* Edit no more .... */
X
X#define MAXDLFONTS (MDLF - PRELOAD) /* # fonts troff2ps can download */
X
X/* configuration verification */
X
X#if defined(BSDHACK) && defined(FONT8)
X#include "BSDHACK and FONT8 cannot be defined at the same time"
X#endif
X#if defined(FONT4) && defined(FONT8)
X#include "FONT4 and FONT8 cannot be defined at the same time"
X#endif
X
X#if !defined(LJ) && defined(PK)
X#include "Pointless to define PK without LJ"
X#endif
X
X#if !defined(PK) && (defined(INCR) || defined(PARTIAL))
X#include "Pointless to define INCR or PARTIAL without PK"
X#endif
X
X#if defined(INCR) && !defined(PARTIAL)
X#include "Don't support INCR without PARTIAL"
X#endif
X
X#if defined(SFP) && !defined(PK)
X#include "Can't define SFP without PK"
X#endif
X
X#include <stdio.h>
X#include <ctype.h>
X
X#ifdef BSD
X#include <strings.h>
X#define strchr index
X#define strrchr rindex
X#else
X#include <string.h>
X#endif
X
X#ifdef BCOPY
X#define memcpy(to, from, len) bcopy(from, to, len)
X#define clrarray(array, len) bzero(array, len)
X#else
X#define clrarray(array, len) memset(array, '\0', len)
X#endif
X
X#ifdef UNSIGNEDCHAR
X/* Ah heck, and this is probably not ANSI C either... */
X#define SIGNED(x) (((x)&0x80) ? ((x) - 256) : (x))
X#endif
X
X#define ESC 0x80
X#define FLASH 0x00
X#define CONTROL 0x40
X#define LEAD 0x60
X#define SIZE 0x50
X
X#define DOWN 0
X#define UP 1
X#define LOWER 2
X#define UPPER 3
X#define FORWARD 4
X#define BACKWARD 5
X
X#define TROFFRESOLUTION 432
X
X#define SPECIAL /* define if you want to supports special directives */
X#define FORM /* define if you want the forms facility */
X
XFILE *diagFile;
X
X#ifdef DEBUG
X#define DBP(x) if (diagFile) dprintf x
Xextern dprintf();
X#else
X#define DBP(x)
X#endif
X
Xtypedef int(*FUNC)();
X
X#define FNULL (FUNC) NULL
X
Xstruct troff2befont {
X short t2b_font; /* font (troff nomenclature) S=don't change */
X short t2b_xc; /* X-shift */
X short t2b_yc; /* Y-shift */
X short t2b_scale; /* point size scale adjust */
X char *t2b_charseq; /* character sequence - may include PS */
X};
X
Xstruct cattab {
X char *ch_name;
X char ch_set;
X unsigned char ch_catidx;
X unsigned char ch_wididx;
X unsigned char ch_info; /* used by some auxiliary programs */
X char *ch_desc;
X};
X
Xstruct backend {
X char *bename;
X FUNC beprolog,
X beepilog,
X beputchar,
X bepage,
X befontsel, /* special function F */
X beoverlay, /* special function O */
X bepassthru, /* special function P */
X bexlat, /* Xlate function */
X bedraw; /* Ditroff draw emulation routine */
X struct troff2befont
X *bestdfont, /* standard font translate table */
X *besymfont; /* symbol font translate table */
X};
X
X#define MAXFONTS 50
X
Xstruct fonttable {
X char *tab[4];
X long flags;
X#ifdef INCR
X struct downmaps *map;
X#endif
X#ifdef OPT
X char *widthtable;
X#endif
X};
X
X/* Symbolic names for tab entries in fonttable */
X#define troffName tab[0] /* troff name */
X#define fontName tab[1] /* back-end name (if used) */
X#define fontSeq tab[2] /* sequence to emit to shift to it
X lj builtin's mostly */
X
X/* fontFlags is 16 characters that reflect the state of the font
X at a particular pointsize - mainly for lj */
X
X/* Use of flags:
X s: unloaded SFP
X S: loaded SFP
X p: unloaded PK
X P: loaded PK
X n: non-existant
X b: builtin.
X */
X#define fontFlags tab[3]
X
X
X
Xextern struct fonttable fonttable[MAXFONTS+1];
Xextern struct fonttable *xlatetable[8];
X
Xstruct backend *be;
X#define BNULL (struct backend *) NULL
X
Xextern char *skipblanks();
X
X/* Common Back-end definitions */
X
X#define N (unsigned char) (0xff) /* Use standard font */
X#define S (unsigned char) (0xfe) /* Use symbol font */
X#define D (unsigned char) (0xfd) /* Draw macro exists - use string directly */
X#define NTC (unsigned char) (0xfc) /* No font/Special flag */
X
X#define NOC NULL
X
Xextern int currentPage;
Xextern int pageoffset;
Xextern int pageyoffset;
Xextern int pagelength;
Xextern int pagePending;
X
X#ifdef OPT
Xextern char *widthtables;
Xextern char *widthptr;
Xextern int optimize;
X#endif
X
Xextern int lastFont, lastPoints;
Xextern int lastYPos, lastXPos, specXPos, specYPos;
Xextern char *progname, *printer, *device;
Xextern char **prologs;
X
Xint metrics;
X
XFILE *libopen();
X
X/* Encoding format for generating width tables from font files */
X/* Used by pk2ditwid and friends */
Xstruct enctab {
X char *e_name;
X char *e_seq;
X char e_wid;
X};
X
X/* Points in an inch */
X#define POINT 72.27
X
X#define min(a,b) ((a) < (b) ? (a) : (b))
X#define max(a,b) ((a) > (b) ? (a) : (b))
X
X/* debug flags */
X#define D_CAT 1
X#define D_SPEC 2
X#define D_CHAR 4
X#define D_FONT 8
X#define D_BEND 0x10
X#define D_PK 0x20
X#define D_VERB 0x40
X
Xextern int debug;
X
Xextern char username[];
X
Xextern char *mustmalloc();
X
Xextern char *version, *shortversion;
X
X#ifdef ALONE
X#undef PARTIAL
X#undef INCR
X#endif
END_OF_FILE
if test 10777 -ne `wc -c <'defs.h'`; then
echo shar: \"'defs.h'\" unpacked with wrong size!
fi
# end of 'defs.h'
fi
if test -f 'lib/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/Makefile'\"
else
echo shar: Extracting \"'lib/Makefile'\" \(363 characters\)
sed "s/^X//" >'lib/Makefile' <<'END_OF_FILE'
X#2.1 90/07/18
X
Xinclude ../makeincl
X
XLIBS = confid.ps lethead.ps \
X dj.fonts dj.lib \
X dt.fonts \
X jt.fonts \
X lj.fonts lj.lib \
X ps.fonts ps.lib \
X psrofflib
X
Xall: subst.done $(LIBS)
X
Xsubst.done: ../makeincl ../sedscript
X rm -f psrofflib
X touch subst.done
X
Xclean:
X rm -f psrofflib
X
Xinstall:
X cd $(LIBDIR)/lib ; rm -f $(LIBS)
X cp $(LIBS) $(LIBDIR)/lib
END_OF_FILE
if test 363 -ne `wc -c <'lib/Makefile'`; then
echo shar: \"'lib/Makefile'\" unpacked with wrong size!
fi
# end of 'lib/Makefile'
fi
if test -f 'utils.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils.c'\"
else
echo shar: Extracting \"'utils.c'\" \(9576 characters\)
sed "s/^X//" >'utils.c' <<'END_OF_FILE'
X/* Copyright 1985, 1986, 1987, 1988 Chris Lewis
X All Rights Reserved
X
X Permission to copy and further distribute is freely given provided
X this copyright notice remains intact and that this software is not
X sold for profit.
X
X Project: Generic Troff drivers
X Module: utils.c
X Author: Chris Lewis
X Specs: Utility functions
X */
X
X#include "defs.h"
X
X#ifndef lint
Xstatic char SCCSid[] =
X "@(#)utils.c: 2.3 Copyright 90/10/24 13:37:08 Chris Lewis";
X#endif
X
Xextern struct cattab tabN[], tabS[];
X
Xint lastFont, lastPoints;
Xint lastYPos, lastXPos;
X
Xextern char *malloc();
X
Xchar *skipblanks(p)
Xregister char *p; {
X while (*p && isspace(*p)) p++;
X return(p);
X}
X
Xchar *gettok(p, bp)
Xregister char *p, *bp; {
X p = skipblanks(p);
X while(*p && !isspace(*p)) *bp++ = *p++;
X *bp = '\0';
X return(p);
X}
X
Xinterp(buf, xlator, suf)
Xchar *buf, *suf; FUNC xlator; {
X register char *p;
X char token[512];
X p = gettok(buf, token);
X if (0 == strcmp(token, "include") || 0 == strcmp(token, "binclude")) {
X int binary;
X FILE *inc;
X binary = (token[0] == 'b') ? 1: 0;
X p = gettok(p, token);
X DBP((D_SPEC, "Trying to include %s\n", token));
X if (!(inc = fopen(token, "r"))) {
X strcat(token, ".");
X strcat(token, suf);
X DBP((D_SPEC, "Trying to include %s\n", token));
X if (!(inc = fopen(token, "r"))) {
X char nbuf[512];
X if (token[0] != '/') {
X sprintf(nbuf, "%s/%s", LIBDIR, token);
X DBP((D_SPEC, "Trying to include %s\n", nbuf));
X inc = fopen(nbuf, "r");
X }
X }
X }
X if (!inc) {
X fprintf(stderr, "%s: cannot open file %s\n", progname, token);
X exit(1);
X } else {
X DBP((D_SPEC, "Successfull include\n"));
X if (binary || !xlator)
X while ((binary = fread(token, 1, sizeof(token), inc)) > 0)
X fwrite(token, 1, binary, stdout);
X else
X (*xlator)(inc);
X fclose(inc);
X }
X }
X
X else {
X fprintf(stderr, "%s: unknown directive: %s\n", progname, token);
X exit(1);
X }
X}
X
Xchar nodename[25];
Xgetnodename() {
X FILE *uuname;
X if ((uuname = popen(NODECMD, "r")) == NULL)
X strcpy(nodename, "<noname>");
X else {
X fscanf(uuname, "%s", nodename);
X if (pclose(uuname))
X strcpy(nodename, "<noname>");
X }
X}
X
Xstruct fonttable fonttable[MAXFONTS+1];
Xstruct fonttable *xlatetable[8];
X
X#define READFONT 0
X#define READNORM 1
X#define READSYMB 2
X
Xloadfont(normfont, symfont)
Xstruct troff2befont *normfont, *symfont; {
X
X char buffer[BUFSIZ];
X char buf[6][64];
X int tableindex;
X int state, i, count;
X register char *first;
X extern int atoi();
X struct cattab *tab;
X struct troff2befont *otab;
X int done;
X
X FILE *fontfile;
X
X for (tableindex = 0; tableindex < 8; tableindex++) {
X xlatetable[tableindex] = &fonttable[tableindex];
X }
X
X fontfile = libopen(printer, "fonts");
X
X tableindex = 0;
X
X state = READFONT;
X
X while(fgets(buffer, sizeof(buffer), fontfile)) {
X
X first = buffer;
X
X for(;*first && isspace(*first); first++);
X
X if (!*first || *first == '#')
X continue;
X
X switch(count = sscanf(first, "%s%s%s%s%s%s",
X buf[0], buf[1], buf[2], buf[3], buf[4], buf[5])) {
X case 1: buf[1][0] = '\0';
X case 2: buf[2][0] = '\0';
X case 3: buf[3][0] = '\0';
X case 4: buf[4][0] = '\0';
X case 5: buf[5][0] = '\0';
X case 6:
X if (strcmp(buf[0], "normal") == 0) {
X state = READNORM;
X break;
X } else if (strcmp(buf[0], "symbol") == 0) {
X state = READSYMB;
X break;
X }
X switch(state) {
X case READFONT:
X if (tableindex == MAXFONTS) {
X fprintf(stderr, "%s: Too many fonts for %s!\n",
X progname, printer);
X exit(1);
X }
X for(i = 0; i < 4; i++) {
X first = mustmalloc(strlen(buf[i])+1,
X "fonttable");
X strcpy(first, buf[i]);
X fonttable[tableindex].tab[i] = first;
X }
X#ifdef OPT
X fonttable[tableindex].widthtable = (char *) NULL;
X#endif
X tableindex++;
X break;
X case READNORM: case READSYMB:
X done = 0;
X if (count <= 1) {
X fprintf(stderr, "%s: bad font.%s line: %s\n",
X progname, printer, buffer);
X exit(1);
X }
X tab = (state == READNORM) ? tabN : tabS;
X otab = (state == READNORM) ? normfont : symfont;
X for (i = 0; tab[i].ch_name; i++) {
X if (strcmp(tab[i].ch_name, buf[0]) == 0) {
X switch(buf[1][0]) {
X case 'N':
X otab[i].t2b_font = N; break;
X case 'S':
X otab[i].t2b_font = S; break;
X case 'D':
X otab[i].t2b_font = D; break;
X case '0':
X case '1':
X case '2':
X case '3':
X case '4':
X case '5':
X case '6':
X case '7':
X case '8':
X case '9':
X otab[i].t2b_font = atoi(buf[1]);
X break;
X default:
X fprintf(stderr, "%s: bad font in %s\n",
X progname, buffer);
X exit(1);
X }
X switch(count) {
X case 6:
X otab[i].t2b_scale = atoi(buf[5]);
X case 5:
X otab[i].t2b_yc = atoi(buf[4]);
X case 4:
X otab[i].t2b_xc = atoi(buf[3]);
X case 3:
X octdecode(buf[2]);
X first = mustmalloc(strlen(buf[2]) + 1,
X "fonttable");
X strcpy(first, buf[2]);
X otab[i].t2b_charseq = first;
X }
X done = 1;
X break;
X }
X }
X if (!done) {
X fprintf(stderr, "%s: couldn't apply fonts.%s: %s\n",
X progname, printer, buffer);
X exit(1);
X }
X }
X }
X }
X fclose(fontfile);
X#ifdef OPT
X loadwidth(xlatetable[0]);
X loadwidth(xlatetable[1]);
X loadwidth(xlatetable[2]);
X loadwidth(xlatetable[3]);
X#endif
X}
X
X/* Translate any octal escapes *inplace* */
Xoctdecode(str)
Xregister char *str; {
X register char *from, *to;
X int tmp, i;
X from = to = str;
X while(*from) {
X if (*from != '\\')
X *to++ = *from++;
X else {
X tmp = 0;
X from++;
X i = 3;
X while(i-- > 0 && *from && *from >= '0' && *from <= '7')
X tmp = (tmp << 3) + *from++ - '0';
X *to++ = tmp&0xff;
X }
X }
X *to++ = '\0';
X}
X
X
Xdumpsequence(sequence)
Xregister char *sequence; {
X printf("\t");
X for(;*sequence;sequence++)
X if (isascii(*sequence) && isprint(*sequence))
X printf("%c", *sequence);
X else
X printf("\\%03o", (*sequence)&0xff);
X}
X
Xdumpline(name, tp)
Xregister char *name;
Xregister struct troff2befont *tp; {
X if (name != NOC) {
X printf("%s\t", name);
X switch(tp->t2b_font) {
X case N: printf("N"); break;
X case S: printf("S"); break;
X case D: printf("D"); break;
X default: printf("%d", tp->t2b_font); break;
X }
X dumpsequence(tp->t2b_charseq);
X printf("\t%d\t%d\t%d", tp->t2b_xc, tp->t2b_yc, tp->t2b_scale);
X printf("\n");
X }
X}
X
Xdumplist(namelist, tp)
Xregister struct cattab *namelist;
Xregister struct troff2befont *tp; {
X register int i;
X for (i = 0; namelist[i].ch_name && namelist[i].ch_catidx != NTC;
X i++, tp++) {
X if (strlen(namelist[i].ch_name) == 0)
X continue;
X if (strcmp(namelist[i].ch_name, "hy") == 0)
X dumpline("-", tp);
X dumpline(namelist[i].ch_name, tp);
X }
X}
X
Xdumptables(bep)
Xstruct backend *bep; {
X if (!bep) {
X fprintf(stderr, "%s: no backend selected for table dump\n", progname);
X exit(1);
X }
X printf("normal\n");
X dumplist(tabN, bep->bestdfont);
X printf("symbol\n");
X dumplist(tabS, bep->besymfont);
X}
X
XFontSel(from, to)
Xchar from, *to; {
X#ifdef DEBUG
X register int i;
X#endif
X register struct fonttable *p;
X DBP((D_SPEC, "FontSel: %c -> %s\n", from, to));
X if (from < '1' || from > '8') {
X fprintf(stderr, "Bad arguments to FontSel: %c %s\n", from, to);
X return;
X }
X
X for (p = fonttable; p->troffName; p++)
X if (strcmp(p->troffName, to) == 0) {
X xlatetable[from - '1'] = p;
X break;
X }
X if (!p->troffName) {
X fprintf(stderr, "Could not translate font %c (%s)\n", from, to);
X }
X#ifdef OPT
X if (p->troffName && !p->widthtable)
X loadwidth(p);
X#endif
X
X#ifdef DEBUG
X for (i = 0; i < 8; i++)
X DBP((D_SPEC, "Font %d->%s\n", i+1, xlatetable[i]->fontName));
X#endif
X}
X
XFILE *libopen(pref, suf)
Xregister char *pref, *suf; {
X
X register char *buffer = mustmalloc(strlen(LIBDIR) + 50, "libopen");
X register FILE *library;
X
X sprintf(buffer, "%s.%s", pref, suf);
X if ((library = fopen(buffer, "r")) == NULL) {
X sprintf(buffer, "lib/%s.%s", pref, suf);
X if ((library = fopen(buffer, "r")) == NULL) {
X sprintf(buffer, "%s/%s.%s", LIBDIR, pref, suf);
X if ((library = fopen(buffer, "r")) == NULL) {
X fprintf(stderr, "Cannot find %s.%s in . or lib or %s\n", pref, suf,
X LIBDIR);
X exit(1);
X }
X }
X }
X free(buffer);
X return(library);
X}
X
XresetState() {
X lastFont = -1;
X lastPoints = -1;
X lastYPos = -1;
X lastXPos = -1;
X}
X
Xdoprologs() {
X if (!prologs)
X return;
X while(*prologs)
X dospecial(*prologs++);
X}
X
X#ifdef OPT
Xloadwidth(p)
Xstruct fonttable *p; {
X FILE *f;
X int c;
X if ((int) p->widthtable == 1)
X return;
X p->widthtable = mustmalloc(224, "widthtable");
X strcpy(widthptr, "ft");
X strcat(widthptr, p->troffName);
X DBP((D_SPEC, "Attempting to read font file %s\n", widthtables));
X if (f = fopen(widthtables, "r")) {
X for (c = 0; c < HEADERSIZE; c++) getc(f);
X if (224 != fread(p->widthtable, 1, 224, f)) {
X fprintf(stderr, "%s: badly formed width table %s\n",
X progname, widthtables);
X free(p->widthtable);
X p->widthtable = (char *) 1;
X DBP((D_SPEC, "Load of %s failed\n", widthtables));
X } else {
X for (c = 0; c < 224; c++)
X p->widthtable[c] &= 0x3f;
X DBP((D_SPEC, "Load of %s succeeded\n", widthtables));
X }
X } else {
X DBP((D_SPEC, "Failed to open widthtable %s\n", widthtables));
X free(p->widthtable);
X p->widthtable = (char *) 1;
X }
X}
X#endif
X
X#ifdef NULLCHECK
Xmab() {
X fprintf(stderr, "KABOOM\n");
X abort();
X}
X#endif
END_OF_FILE
if test 9576 -ne `wc -c <'utils.c'`; then
echo shar: \"'utils.c'\" unpacked with wrong size!
fi
# end of 'utils.c'
fi
if test -f 'utils/calcfonts.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/calcfonts.S'\"
else
echo shar: Extracting \"'utils/calcfonts.S'\" \(9988 characters\)
sed "s/^X//" >'utils/calcfonts.S' <<'END_OF_FILE'
X#!/usr/bin/perl
Xeval "exec /usr/bin/perl -S $0 $*"
X if $running_under_some_shell;
X#Copyright 1990/07/18 Chris Lewis 2.1
X
X# Set to path of sfp2pk if you have it, otherwise NULL.
X$sfp2pk = '';
X# Threshold for acceptable point sizes (default 10%).
X$thresh = 1.1;
X# Place to build new fonts
X$newfonts = "/tmp/newfonts";
X# You might also want to adjust the "do gen"'s at the end.
X
X# Don't touch from here on.
X$basedir = `pwd`;
Xchop($basedir);
X@pointlist = (6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 36);
X$verbose = 0;
X$dirlist = '';
X# If non-null, each font matching this pattern not needed to
X# build a particular size will be DELETED.
X$discardpat = "";
X
X$oldname = '';
X
Xsub discard {
X local($file) = $_[0];
X if ($discard && $file =~ $discardpat) {
X unlink($file);
X printf DISCARD ("deleted %s\n", $file);
X }
X}
X
Xsub gen {
X local($outf, $engname, $escape, $outtype) = ($_[0], $_[1], $_[2], $_[3]);
X if ($sfontonly && $outf ne 'S') {
X return;
X }
X @namelist = @_;
X shift(namelist);
X shift(namelist);
X shift(namelist);
X shift(namelist);
X unlink("$outf.build");
X foreach $pointsize (@pointlist) {
X $found[$pointsize] = 0;
X $missing = '';
X $cmdline = "$basedir/pk2sfp -m \\\n";
X $usedfonts = '';
X $looklist = '';
X for ($i = 0; $i <= $#namelist; $i++) {
X ($rnamelist, $map) = split(/\//, $namelist[$i]);
X $best = '';
X $bestratio = 1000;
X $tmplist = '';
X
X @alternates = split(/,/, $rnamelist);
X foreach $rname (@alternates) {
X $ratio = $ratios{$rname, $pointsize};
X if (!$ratio) {
X $looked = "$rname(notfound)";
X } else {
X ($np, $size) = split(/ /, $table{$rname, $pointsize});
X #$looked = sprintf("$rname$np.$size(%.2f)", $ratio);
X $looked = sprintf("%s(%.2f)", $path{$rname, $pointsize},
X $ratio);
X if ($ratio && $ratio <= $bestratio) {
X $best = $rname;
X $bestratio = $ratio;
X $bestentry = $looked;
X }
X }
X $looklist .= "$looked\n";
X $tmplist .= "$looked ";
X }
X if ($best && $bestratio <= $thresh) {
X $usedfonts .= "$bestentry\n";
X $tdir = $path{$best, $pointsize};
X if (!$map) {
X $map = $best;
X if (! -r "$md/$map.$outtype") {
X $map = $alternates[0];
X }
X }
X if (! -r "$md/$map.$outtype") {
X $missing .= sprintf("Map file $map (for entry %s)\n",
X $namelist[$i]);
X }
X $cmdline .= "\t$md/$map.$outtype $tdir\\\n";
X } else {
X $missing .= "($tmplist) ";
X }
X }
X if ($missing) {
X chop($missing);
X printf STDERR ("Missing $missing, won't generate $outf at $pointsize\n");
X printf STDERR ("Acceptable ones: $usedfonts\n");
X } else {
X $cmdline .= "\t\t> t";
X $found[$pointsize] = 1;
X chop($usedfonts);
X printf STDERR ("Generating $outf at $pointsize using $usedfonts\n");
X if (system($cmdline)) {
X printf STDERR ("failed ($!) $cmdline\n");
X exit(1);
X }
X if (system("$basedir/pk2sfp t > $newfonts/$outf.$pointsize.sfp")) {
X printf STDERR ("pk2sfp sort to build $outf.$pointsize.sfp failed\n");
X exit(1);
X }
X unlink('t');
X if ($sfp2pk) {
X if (system("$sfp2pk < $newfonts/$outf.$pointsize.sfp " .
X "> $newfonts/$outf.$pointsize.pk")) {
X printf STDERR ("sfp2pk < $outf.$pointsize.sfp failed\n");
X exit(1);
X }
X unlink("$newfonts/$outf.$pointsize.sfp");
X }
X close(GEN);
X }
X }
X open(TABLE, ">>lj.fonts.new");
X# The second field can be truncated, but none of the others.
X#HI Helvetica-Italic \033(8U\033(s1p1s-3b04T nnnnpnnnnnnnnnn
X#HB Helvetica-Bold \033(8U\033(s1p0s03b04T nnnnnnnnnnnnnnn
X printf TABLE ("%-2s %-16.16s %-23s ", $outf, $engname, $escape);
X foreach $pointsize (@pointlist) {
X if ($found[$pointsize]) {
X if ($sfp2pk) {
X printf TABLE 'p';
X } else {
X printf TABLE 's';
X }
X } else {
X printf TABLE 'n';
X }
X }
X printf TABLE "\n";
X close(TABLE);
X}
Xsub findcomplete {
X foreach $name (sort keys(listofnames)) {
X $complete{$name} = 0;
X foreach $p (@pointlist) {
X if ($ratios{$name, $p} <= $thresh) {
X $complete{$name}++;
X next;
X }
X }
X }
X foreach $name (sort keys(listofnames)) {
X printf STDERR ("I have %d reasonable sizes of %s\n", $complete{$name},
X $name);
X }
X}
X
X
Xsub dumplist {
X foreach $name (sort keys(listofnames)) {
X foreach $p (@pointlist) {
X ($rp, $rs) = split(/ /, $table{$name, $p});
X printf STDERR ("%-8s %4d %4d %4d %4.4g%% %s\n",
X $name, $p, $rp, $rs, (1 - $ratios{$name,$p}) * 100,
X $path{$name, $p});
X }
X }
X}
X
Xwhile($arg = shift(@ARGV)) {
X if ($arg eq '-v') {
X $verbose = 1;
X } elsif ($arg =~ /-S/) {
X $sfontonly = 1;
X } elsif ($arg =~ /^-D(.*)/) {
X $basedir = $1;
X } elsif ($arg =~ /^-s(.*)/) {
X $sfp2pk = $1;
X } elsif ($arg =~ /^-f(.*)/) {
X $newfonts = $1;
X } elsif ($arg !~ /^-/) {
X if (-d $arg) {
X $dirlist = "$dirlist $arg";
X } else {
X printf STDERR ("No directory %s, skipping\n", $arg);
X }
X } else {
X printf STDERR ("calcfonts: bad option %s\n", $arg);
X exit(1);
X }
X}
X
Xif ($sfp2pk && ! -x $sfp2pk) {
X printf STDERR
X ("sfp2pk ($sfp2pk) not found - will generate SFP's not PK's\n");
X $sfp2pk = '';
X}
X
Xif (!$dirlist) {
X printf STDERR ("No directories to search - aborting\n");
X exit(0);
X}
X
X$md = "$basedir/maps";
X$dirlist = "$basedir/fonts $dirlist";
X
Xunlink("$basedir/lj.fonts.new");
Xunlink("discard");
Xopen(DISCARD, ">discard");
X
X$cmdline =
X "find $dirlist -type f '(' -name '*pk' -o -name '*.sfp' ')' -print";
Xprintf STDERR ("Commandline: $cmdline\n");
Xopen(INLIST, "$cmdline|") || die "Cannot start $cmdline\n";
X
Xwhile(<INLIST>) {
X chop;
X #/([a-z]+)([0-9]+)\s*:\s*(.*)/;
X $path = $_;
X if (/^\S+\/([a-z]+)([0-9]+)\.([0-9]+)pk/) {
X $name = $1;
X $points = $2;
X $size = $3;
X } elsif (/^\S+\/[a-z]+([0-9]+)\/([a-z]+)([0-9]+)\.pk/) {
X $size = $1;
X $name = $2;
X $points = $3;
X } elsif (/^\S+\/([a-z]+)([0-9]+)\.pk/) {
X $size = 300;
X $name = $1;
X $points = $2;
X } elsif (/^\S+\/([a-z]+)([0-9]+)\.sfp/) {
X $size = 300;
X $name = $1;
X $points = $2;
X } else {
X printf STDERR ("Skipping %s\n", $path);
X do discard($path);
X next;
X }
X $listofnames{$name} = 1;
X $actpoints = $points * $size / 300;
X#printf("path: $path, name: $name, points: $points");
X#printf(" size: $size, actpoints: $actpoints\n");
X $foundany = 0;
X foreach $needpoint (@pointlist) {
X $ratio = $actpoints / $needpoint;
X if ($ratio < 1) {
X $ratio = 1 / $ratio;
X }
X#printf("ratio: (to get %d) %.2f\n", $needpoint, $ratio);
X if ($ratios{$name, $needpoint} eq '') {
X $ratios{$name, $needpoint} = 100;
X }
X
X if ($ratio <= $ratios{$name, $needpoint}) {
X $ratios{$name, $needpoint} = $ratio;
X $table{$name, $needpoint} = "$points $size";
X $refcnt{$path}++;
X if ($path{$name, $needpoint}) {
X $opath = $path{$name, $needpoint};
X $refcnt{$opath}--;
X if ($refcnt{$opath} == 0) {
X printf DISCARD "%s\n", $opath;
X do discard($opath);
X }
X }
X $path{$name, $needpoint} = $path;
X $foundany++;
X }
X }
X if (!$foundany) {
X do discard($path);
X printf DISCARD "%s\n", $path;
X }
X}
X
Xif ($verbose) {
X do findcomplete();
X do dumplist();
X}
X
X# Example of do gen call:
X# do gen(
X# 'R', Cat Troff name
X# 'Times-Roman', English name (useful only in debugging)
X# '\033(8U\033(s1p0s00b05T', Escape to emit if not present or builtin
X# 'ROMAN8', map suffix to use.
X# 'cmr,jmr', a font entry
X# 'cmsy,jmsy', a font entry
X# 'cmti,jmti', a font entry
X# 'cmtrf,jmtrf'); a font entry
X#
X# There can be any number of font entries, and it is of the following
X# generalized form:
X#
X# <font>,<font>,<font>..../<map prefix>
X#
X# Where: the list of fonts is a comma-separated list of
X# PK/SFP font name prefixes of fonts that would be acceptable
X# for merging with the other font entries to build the CAT font.
X# A font with that prefix closest to each desired point size will
X# be the one selected. In case of ties, the later one wins in the
X# list. The map prefix (along with the suffix) is used to select
X# which merge control file to use. See pk2sfp and utils/maps.
X# If omitted, the map prefix will default to the font prefix that
X# it used if present. If not present, it will default to the first
X# font prefix.
X# See LASERFONTS if you want more information on what the heck this
X# junk is doing.
X
Xdo gen('R', 'Times-Roman', '\033(8U\033(s1p0s00b05T', 'ROMAN8',
X 'cmr,jmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('I', 'Times-Italic', '\033(8U\033(s1p1s-3b05T', 'ROMAN8',
X 'cmsl,jmsl/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('B', 'Times-Bold', '\033(8U\033(s1p0s03b05T', 'ROMAN8',
X 'cmbx,jmbx/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
X# Shipped with psroff (as PK's):
Xdo gen('S', 'Symbol', '\033(8M\033(s1p0s00b05T', 'MATH8',
X 'cmr,jmr', 'cmsy,jmsy', 'cmmi,jmmi', 'cmtrf,jmtrf');
X
Xdo gen('C', 'Courier', '\033(8U\033(s0p0s00b03T', 'ROMAN8',
X 'cmtt,cmvtt,jmtt/cmtt', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('CI', 'Courier-Italic', '\033(8U\033(s1p1s-3b03T', 'ROMAN8',
X 'cmit,cmsltt,jmit,jmsltt/cmtt', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('H', 'Helvetica', '\033(8U\033(s1p0s00b04T', 'ROMAN8',
X 'cmss,lcmss,jmss/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('HI', 'Helvetica-Italic', '\033(8U\033(s1p1s-3b04T', 'ROMAN8',
X 'cmssi,lcmssi,jmssi/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('HB', 'Helvetica-Bold', '\033(8U\033(s1p0s03b04T', 'ROMAN8',
X 'cmssb,lcmssb,jmssbx/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('E', 'English', '\033(8U\033(s1p0s00b05T', 'ROMAN8',
X 'eufm/alnum', 'cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
Xdo gen('EB', 'English-Bold', '\033(8U\033(s1p0s00b05T', 'ROMAN8',
X 'eufb/alnum', 'cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
X
X#"CI", "Courier-Italic", "\033(8U\033(s0p1s-3b03T", "ROMAN8",
X#"CB", "Courier-Bold", "\033(8U\033(s0p0s03b03T", "ROMAN8",
X#"L", "LinePrinter", "\033(8U\033(s0p0s00b00T", "ROMAN8",
X#"LI", "LinePrinter-Ital", "\033(8U\033(s0p1s-3b00T", "ROMAN8",
X#"LB", "LinePrinter-Bold", "\033(8U\033(s0p0s03b00T", "ROMAN8",
END_OF_FILE
if test 9988 -ne `wc -c <'utils/calcfonts.S'`; then
echo shar: \"'utils/calcfonts.S'\" unpacked with wrong size!
fi
# end of 'utils/calcfonts.S'
fi
echo shar: End of archive 7 \(of 16\).
cp /dev/null ark7isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 16 archives.
echo "Read the README to get started with psroff installation"
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still must unpack the following archives:
echo " " ${MISSING}
fi
exit 0
--
Chris Lewis, Phone: TBA
UUCP: uunet!utai!lsuc!ecicrl!clewis
Moderator of the Ferret Mailing List (ferret-request@eci386)
Psroff mailing list (psroff-request@eci386)