Psroff 2.0 Part 16 of 16
Chris Lewis
clewis at ecicrl.UUCP
Sat Nov 17 16:02:27 AEST 1990
Submitted-by: Chris Lewis <clewis at ecicrl.uucp>
Archive-name: psroff2.0/Part16
#! /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 at uunet.uu.net if you want that tool.
# Contents: adapters/Makefile adapters/cmn.pre.S adapters/tmac.an.S
# adapters/tmac.e.S adapters/tmac.m.S adapters/tmac.s.S
# adapters/tmac.t2.S dt.h lib/confid.ps lib/dj.fonts lib/dj.lib
# lib/jt.fonts lib/lj.lib lib/ps.fonts lj.h makeincl.S man/Makefile
# pkc.h ps.h t2conf.c tests/Makefile utils/fonts/README
# utils/maps/S.cmtrf utils/maps/cmmi.MATH8 utils/maps/cmr.MATH8
# utils/maps/cmr.ROMAN8 utils/maps/cmss.ROMAN8 utils/maps/cmsy.MATH8
# utils/maps/cmsy.ROMAN8 utils/maps/cmti.MATH8
# utils/maps/cmti.ROMAN8 utils/maps/cmtrf.MATH8
# utils/maps/cmtrf.ROMAN8 utils/maps/cmtt.ROMAN8 utils/mkenctab.S
# widths/widthps/DESC widths/widthps/ZD
# Wrapped by clewis at ecicrl on Fri Nov 16 23:37:50 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 16 (of 16)."'
if test -f 'adapters/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/Makefile'\"
else
echo shar: Extracting \"'adapters/Makefile'\" \(447 characters\)
sed "s/^X//" >'adapters/Makefile' <<'END_OF_FILE'
X# 2.2 90/10/27
XADAPTERS = cmn.post cmn.pre tmac.an tmac.m tmac.s tmac.e
XMACROS = tmac.t2
X
Xinclude ../makeincl
X
Xall: subst.done $(ADAPTERS) $(MACROS)
X
Xsubst.done: ../makeincl ../sedscript
X rm -f $(ADAPTERS) $(MACROS)
X touch subst.done
X
Xclean:
X rm -f $(ADAPTERS) $(MACROS)
X
Xinstall:
X cd $(LIBDIR)/adapters ; rm -f $(ADAPTERS)
X cp cmn.post cmn.pre tmac.an tmac.m tmac.s $(LIBDIR)/adapters
X cd $(RTMACDIR) ; rm -f $(MACROS)
X cp $(MACROS) $(RTMACDIR)
END_OF_FILE
if test 447 -ne `wc -c <'adapters/Makefile'`; then
echo shar: \"'adapters/Makefile'\" unpacked with wrong size!
fi
# end of 'adapters/Makefile'
fi
if test -f 'adapters/cmn.pre.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/cmn.pre.S'\"
else
echo shar: Extracting \"'adapters/cmn.pre.S'\" \(738 characters\)
sed "s/^X//" >'adapters/cmn.pre.S' <<'END_OF_FILE'
X.\"@(#)ident cmn.pre 2.1 90/07/18
X.\"Turn ligatures off
X'lg 0
X.\"Rename normal ".tm" to one that troff2ps understands and punts to stderr.
X.rn tm tM
X.de tm
X.tM ME\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
X..
X.desR
X.\"Output request sequence - thru .tm - caught by backend
X.if t \{\
X.\"M is illegal C/A/T opcode - triggers troff2 to start collecting.
X.\"newline is terminator
X'tM M\\$1
X\}
X..
X.\" Some troffs have built-in width tables for the base fonts.
X.\" This forces troff to reload them from /usr/lib/font...
X.fp 1 R
X.fp 2 I
X.fp 3 B
X.fp 4 S
X.\" Fix CAT Troff's ".fp" request to both load the font width
X.\" table, plus issue the special request to the back end to switch
X.\" fonts.
X.rn fp fP
X.de fp
X.fP \\$1 \\$2
X.sR "F\\$1\\$2"
X..
END_OF_FILE
if test 738 -ne `wc -c <'adapters/cmn.pre.S'`; then
echo shar: \"'adapters/cmn.pre.S'\" unpacked with wrong size!
fi
# end of 'adapters/cmn.pre.S'
fi
if test -f 'adapters/tmac.an.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/tmac.an.S'\"
else
echo shar: Extracting \"'adapters/tmac.an.S'\" \(305 characters\)
sed "s/^X//" >'adapters/tmac.an.S' <<'END_OF_FILE'
X.\"@(#)ident tmac.an 2.1 90/07/18
X.so %%LIBDIR%%/adapters/cmn.pre
X.so %%RTMACDIR%%/tmac.an
X.\"Default offset (my version of the man macros uses it).
X.nr )O .463i
X.\"See if someone's using the -rO option (ala MM)
X.if \nO .nr )O \nOu
X.po \n()Ou
X.\"Clobber cut marks.
X.rm }C
X.so %%LIBDIR%%/adapters/cmn.post
END_OF_FILE
if test 305 -ne `wc -c <'adapters/tmac.an.S'`; then
echo shar: \"'adapters/tmac.an.S'\" unpacked with wrong size!
fi
# end of 'adapters/tmac.an.S'
fi
if test -f 'adapters/tmac.e.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/tmac.e.S'\"
else
echo shar: Extracting \"'adapters/tmac.e.S'\" \(302 characters\)
sed "s/^X//" >'adapters/tmac.e.S' <<'END_OF_FILE'
X.\"@(#)ident tmac.e 2.1 90/10/27
X.\" -me adapter
X.so %%LIBDIR%%/adapters/cmn.pre
X.so %%RTMACDIR%%/tmac.e
X.\" Reset the page offset to what works. ME doesn't do anything fancy
X.\" but a single .po itself, so this will work fine.
X.po 0.75i
X.\" Clobber cut marks.
X.rm @m
X.so %%LIBDIR%%/adapters/cmn.post
END_OF_FILE
if test 302 -ne `wc -c <'adapters/tmac.e.S'`; then
echo shar: \"'adapters/tmac.e.S'\" unpacked with wrong size!
fi
# end of 'adapters/tmac.e.S'
fi
if test -f 'adapters/tmac.m.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/tmac.m.S'\"
else
echo shar: Extracting \"'adapters/tmac.m.S'\" \(254 characters\)
sed "s/^X//" >'adapters/tmac.m.S' <<'END_OF_FILE'
X.\"@(#)ident tmac.m 2.1 90/07/18
X.so %%LIBDIR%%/adapters/cmn.pre
X.\"Default linewidth 6.5 inches & page offset .963 inches.
X.if !\nW .nr W 6.5i
X.if !\nO .nr O .463i
X.so %%RTMACDIR%%/tmac.m
X.\"Clobber MM cut marks.
X.rm )k
X.so %%LIBDIR%%/adapters/cmn.post
END_OF_FILE
if test 254 -ne `wc -c <'adapters/tmac.m.S'`; then
echo shar: \"'adapters/tmac.m.S'\" unpacked with wrong size!
fi
# end of 'adapters/tmac.m.S'
fi
if test -f 'adapters/tmac.s.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/tmac.s.S'\"
else
echo shar: Extracting \"'adapters/tmac.s.S'\" \(335 characters\)
sed "s/^X//" >'adapters/tmac.s.S' <<'END_OF_FILE'
X.\"@(#)ident tmac.s 2.1 90/07/18
X.so %%LIBDIR%%/adapters/cmn.pre
X.\"Trick MS into thinking the initial page offset is .25i less than normal.
X.\"(because of the .5inch rightshift in troff2ps)
X.\"Then, defaulted MS will be exactly centered.
X.po .713i
X.so %%RTMACDIR%%/tmac.s
X.\"Clobber cut marks.
X.rm CM
X.so %%LIBDIR%%/adapters/cmn.post
END_OF_FILE
if test 335 -ne `wc -c <'adapters/tmac.s.S'`; then
echo shar: \"'adapters/tmac.s.S'\" unpacked with wrong size!
fi
# end of 'adapters/tmac.s.S'
fi
if test -f 'adapters/tmac.t2.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'adapters/tmac.t2.S'\"
else
echo shar: Extracting \"'adapters/tmac.t2.S'\" \(1842 characters\)
sed "s/^X//" >'adapters/tmac.t2.S' <<'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: tmac.eci.sh
X.\" Author: Chris Lewis
X.\" Specs: MM Prolog
X.\"ident "@(#)tmac.eci.sh: 2.1 Copyright 90/07/18 16:52:13 Chris Lewis"
X.\"endif
X.so %%LIBDIR%%/adapters/tmac.m
X.tr \(bs
X.ds}2 Elegant Communications Inc.
X.dsIn \*(}2
X.dsBU \s+2\(bu\s0
X.de eX
X.ie \\w'\\$1'=0 .ds ee
X.el .ds ee "\\$1
X.DS \\$2 \\$3
X\!.fp 1 C
X.\"\!.lg 0
X\!.cs 1 24
X.ss 24
X\!.br
X..
X.de eE
X\!.fp 1 R
X\!.cs 1
X.ss 12
X\!.br
X\.if \\w'\\*(ee'>0 .FG "\\*(ee"
X.DE
X..
X.ds HP +4 +2
X.ds HF 3 3 2 2
X.OH "'''Elegant Communications Inc.'"
X.EH "'''Elegant Communications Inc.'"
X.PH "''''"
X.if t .PF "''\s8481 University Avenue, Suite 602, Toronto, Canada, M5G 2E9 (416)-595-5425, FAX (416) 595-5439\s0''"
X.if n .PF "''481 University Avenue, Suite 602, Toronto, Canada''"
X.\".OF "'Page \\\\nP''\\\\*(DT'"
X.OF "'\\\\*(DT''Page \\\\nP'"
X.EF "'\\\\*(DT''Page \\\\nP'"
X.de nH
X.OF "''''"
X.EF "''''"
X.PF "''''"
X.OH "''''"
X.EH "''''"
X.PH "''''"
X..
X.de aD
X.SP 3
X.DS
XElegant Communications Inc.
X481 University Avenue,
XSuite 602
XToronto, Ontario
XM5G 2E9
X
XPhone: (416) 595-5425
XFax: (416) 595-5439
X.DE
X..
X.\" Appendix Macros
X.de AH
X.if \\n(aH=0\{
X.nr aH 1
X.nr h1 0\}
X.nr;1 0\\$1
X.if!\\n(;1 .)D "aH:bad arg:\\$1"
X.if2-\\n(;1 .nr h2 0 1
X.if3-\\n(;1 .nr h3 0 1
X.if4-\\n(;1 .nr h4 0 1
X.if5-\\n(;1 .nr h5 0 1
X.if6-\\n(;1 .nr h6 0 1
X.if7-\\n(;1 .nr h7 0 1
X.nr h\\n(;1 +1
X.afh1 A
X.ds}0 \\n(h1.
X.if0\\$1-1 .as }0 \\n(h2
X.if0\\$1-2 .as }0 .\\n(h3
X.if0\\$1-3 .as }0 .\\n(h4
X.if0\\$1-4 .as }0 .\\n(h5
X.if0\\$1-5 .as }0 .\\n(h6
X.if0\\$1-6 .as }0 .\\n(h7
X.nr Hu \\n(;1
X.HU "Appendix \\*(}0\\ \\ \\$2"
X..
END_OF_FILE
if test 1842 -ne `wc -c <'adapters/tmac.t2.S'`; then
echo shar: \"'adapters/tmac.t2.S'\" unpacked with wrong size!
fi
# end of 'adapters/tmac.t2.S'
fi
if test -f 'dt.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dt.h'\"
else
echo shar: Extracting \"'dt.h'\" \(997 characters\)
sed "s/^X//" >'dt.h' <<'END_OF_FILE'
X/* Copyright 1985, 1986, 1987, 1988 13:09:46 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: dt.h 2.2 90/10/12
X Author: Chris Lewis
X Specs: Ditroff driver definitions
X Hacked from ps.h
X */
X
X/* This is actually done in the back-end */
X#define DTRESOLUTION 300
X/* Troff assumes 7.5" paper width, most macro packages print in
X 6.5" area within that. Sooo, we'll center the paperwidth on the
X physical page - implying .5" inch physical margins.*/
X#define TROFF2DTX(x) ((((long) (x)+pageoffset)*dtresolution)/TROFFRESOLUTION)
X/* 11" paper length */
X#define TROFF2DTY(y) ((((long) (y)+pageyoffset)*dtresolution)/TROFFRESOLUTION)
X
Xextern int dtProlog(), dtEpilog(), dtChar(), dtPage(), dtPassthru(), dtDraw();
X
X#ifdef DT
Xextern struct troff2befont dtSymFont[], dtStdFont[];
Xextern int dtresolution;
X#endif
END_OF_FILE
if test 997 -ne `wc -c <'dt.h'`; then
echo shar: \"'dt.h'\" unpacked with wrong size!
fi
# end of 'dt.h'
fi
if test -f 'lib/confid.ps' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/confid.ps'\"
else
echo shar: Extracting \"'lib/confid.ps'\" \(691 characters\)
sed "s/^X//" >'lib/confid.ps' <<'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: confid.ps
X% Author: Chris Lewis
X% Specs: Confidential overlay inclusion.
X%ident @(#)confid.ps: 2.2 Copyright 90/08/09 17:13:28 Chris Lewis"
X
X/Confidential {
X gsave
X 106 45 { dup mul exch dup mul add 1.0 exch sub } setscreen
X .99 setgray
X /Courier-Bold findfont 80 scalefont setfont
X 0 0 moveto
X 54 rotate
X 0 -80 rmoveto
X 1 2 scale
X ( ECI:Confidential) show
X grestore
X} def
END_OF_FILE
if test 691 -ne `wc -c <'lib/confid.ps'`; then
echo shar: \"'lib/confid.ps'\" unpacked with wrong size!
fi
# end of 'lib/confid.ps'
fi
if test -f 'lib/dj.fonts' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/dj.fonts'\"
else
echo shar: Extracting \"'lib/dj.fonts'\" \(725 characters\)
sed "s/^X//" >'lib/dj.fonts' <<'END_OF_FILE'
X#@(#)dj.fonts 2.1 90/07/18
X# Deskjet information. See lj.fonts.
XR Times-Roman \033(8U\033(s1p0s00b05T sssspspssssssss
XI Times-Italic \033(8U\033(s1p1s-3b05T sssssssssssssss
XB Times-Bold \033(8U\033(s1p0s03b05T sssssssssssssss
XS Symbol \033(8U\033(s0p0s00b03T ppppppppppppppp
XBI Times-BoldItalic \033(8U\033(s1p1s03b05T sssssssssssssss
XC Courier \033(8U\033(s0p0s00b03T ssssbsbssssssss
XCI Courier-Italic \033(8U\033(s0p1s-3b03T ssssbsbssssssss
XCB Courier-Bold \033(8U\033(s0p0s03b03T ssssbsbssssssss
XL LinePrinter \033(8U\033(s0p0s00b00T sssssssssssssss
XLI LinePrinter-Ital \033(8U\033(s0p1s-3b00T sssssssssssssss
XLB LinePrinter-Bold \033(8U\033(s0p0s03b00T sssssssssssssss
END_OF_FILE
if test 725 -ne `wc -c <'lib/dj.fonts'`; then
echo shar: \"'lib/dj.fonts'\" unpacked with wrong size!
fi
# end of 'lib/dj.fonts'
fi
if test -f 'lib/dj.lib' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/dj.lib'\"
else
echo shar: Extracting \"'lib/dj.lib'\" \(329 characters\)
sed "s/^X//" >'lib/dj.lib' <<'END_OF_FILE'
X%ident @(#)dj.lib: 2.1 90/07/18 16:52:21 Chris Lewis"
X%See lj.lib for further information.
X\033E\033&k2G %reset printer, set CR=CR,LF=CRLF,FF=CRFF */
X\033&l6d66p0o0e66f0L %letter size, portrait, no perf skip */
X\0339 %reset side margins */
X\033&a0r0C %move cursor to 0,0 */
X\033(0U %set US ascii font (ron at mlfarm) */
END_OF_FILE
if test 329 -ne `wc -c <'lib/dj.lib'`; then
echo shar: \"'lib/dj.lib'\" unpacked with wrong size!
fi
# end of 'lib/dj.lib'
fi
if test -f 'lib/jt.fonts' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/jt.fonts'\"
else
echo shar: Extracting \"'lib/jt.fonts'\" \(680 characters\)
sed "s/^X//" >'lib/jt.fonts' <<'END_OF_FILE'
X#@(#)jt.fonts 2.1 90/07/18
X# DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
X# THE DEFAULT TROFF FONTS IN POSITIONS 1-4. IN PARTICULAR, IF
X# SYMBOL ISN'T THE FOURTH ENTRY, BOXES, TABLES, AND OTHER FANCY
X# CHARACTERS DON'T WORK SHIT.
XR Times-Roman
XI Times-Italic
XB Times-Bold
XS Symbol
XST Rick's-Troff-font
XSI Rest-of-Symbol
XCW Courier
XH Helvetica
XHB Helvetica-Bold
XHD Helvetica-Idon't-know
XHI Helvetica-Italic
Xnormal
Xru 4
Xco 4
Xsq 4
X| 4
Xsymbol
Xlt 4
Xlb 4
Xrt 4
Xrb 4
Xlk 4
Xrk 4
Xbv 4
Xlf 4
Xrf 4
Xlc 4
Xrc 4
Xsr 4
Xrn 4
Xul 4
Xbr 4
X< 4
X> 4
X\ 4
X{ 4
X} 4
X*a 5
X*b 5
X*g 5
X*d 5
X*e 5
X*z 5
X*y 5
X*h 5
X*i 5
X*k 5
X*l 5
X*m 5
X*n 5
X*c 5
X*p 5
X*r 5
X*s 5
X*t 5
X*u 5
X*f 5
X*x 5
X*q 5
X*w 5
Xrh 5
Xlh 5
Xpd 5
END_OF_FILE
if test 680 -ne `wc -c <'lib/jt.fonts'`; then
echo shar: \"'lib/jt.fonts'\" unpacked with wrong size!
fi
# end of 'lib/jt.fonts'
fi
if test -f 'lib/lj.lib' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/lj.lib'\"
else
echo shar: Extracting \"'lib/lj.lib'\" \(1311 characters\)
sed "s/^X//" >'lib/lj.lib' <<'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: lj.lib
X% Author: Chris Lewis
X% Specs: Predefinitions for HP Laserjet
X% This is an ASCII file that is translated into
X% binary by the lj driver. Using the following
X% Escape conventions:
X% %comment
X% line from % to end of line ignored.
X% \nnnnnn .....
X% each group of 3 digits is interpreted as an
X% octal bytes. Terminated by next non-octal
X% character.
X% \xnnnnnn ...
X% Each group of 2 digits is interpreted as a
X% hexidecimal byte. Terminated by next non-hex
X% character.
X% tabs, spaces and newlines are ignored (you have to
X% use hex or octal to pass them).
X% All others passed straight through.
X% For example:
X% \xAABB \022 A %hello
X% Passes the following bytes: 0xAA, 0xBB, 022, and "A"
X% through to the laserjet.
X%ident @(#)lj.lib: 2.1 Copyright 90/07/18 16:52:26 Chris Lewis"
X\033E\033&k2G %reset printer, set CR=CR,LF=CRLF,FF=CRFF */
X\033&l6d66p0o0e66f0L %letter size, portrait, no perf skip */
X\0339 %reset side margins */
X\033&a0r0C %move cursor to 0,0 */
END_OF_FILE
if test 1311 -ne `wc -c <'lib/lj.lib'`; then
echo shar: \"'lib/lj.lib'\" unpacked with wrong size!
fi
# end of 'lib/lj.lib'
fi
if test -f 'lib/ps.fonts' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lib/ps.fonts'\"
else
echo shar: Extracting \"'lib/ps.fonts'\" \(1330 characters\)
sed "s/^X//" >'lib/ps.fonts' <<'END_OF_FILE'
X#@(#)ps.fonts 2.1 90/07/18
X# DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
X# THE DEFAULT TROFF FONTS IN POSITIONS 1-5. IN PARTICULAR, IF
X# SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
X# BOXES, TABLES, AND OTHER FANCY CHARACTERS DON'T WORK SHIT.
X# Don't try to directly reference font 5.....
X# The first token is the CAT name, the second is the postscript
X# name, and the third (if present) is a file to punt to the
X# printer when the font is first referenced.
XR Times-Roman
XI Times-Italic
XB Times-Bold
XS Symbol
X.. BracketFont
XAB AvantGarde-Demi
XAI AvantGarde-BookOblique
XAR AvantGarde-Book
XAX AvantGarde-DemiOblique
XBB Bookman-Demi
XBI Times-BoldItalic
XBO Bookman-LightItalic
XBR Bookman-Light
XBX Bookman-DemiItalic
XC Courier
XCB Courier-Bold
XCO Courier-Oblique
XCX Courier-BoldOblique
XH Helvetica
XHB Helvetica-Bold
XHO Helvetica-Oblique
XHX Helvetica-BoldOblique
XHb Helvetica-Narrow-Bold
XHn Helvetica-Narrow
XHo Helvetica-Narrow-Oblique
XHx Helvetica-Narrow-BoldOblique
XNB NewCenturySchlbk-Bold
XNI NewCenturySchlbk-Italic
XNR NewCenturySchlbk-Roman
XNX NewCenturySchlbk-BoldItalic
XPR Palatino-Roman
XPB Palatino-Bold
XPI Palatino-Italic
XPX Palatino-BoldItalic
XZC ZapfChancery-MediumItalic
XZD ZapfDingbats
X# Neither the width nor font file shipped with psroff
XHW HaeberliWriting /usr/lib/troff2/lib/lj/hwfont
END_OF_FILE
if test 1330 -ne `wc -c <'lib/ps.fonts'`; then
echo shar: \"'lib/ps.fonts'\" unpacked with wrong size!
fi
# end of 'lib/ps.fonts'
fi
if test -f 'lj.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'lj.h'\"
else
echo shar: Extracting \"'lj.h'\" \(918 characters\)
sed "s/^X//" >'lj.h' <<'END_OF_FILE'
X/* Copyright 1985, 1986, 1987, 1988 16:51:35 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: lj.h 2.1 90/07/18
X Author: Chris Lewis
X Specs: Laserjet Driver definitions
X */
X
X/* We're using decipoints */
X#define LJRESOLUTION 720
X
X/* Troff assumes 7.5" paper width, most macro packages print in
X 6.5" area within that. Sooo, we'll center the paperwidth on the
X physical page - implying .5" inch physical margins.*/
X#define TROFF2LJX(x) (((long) (x)+pageoffset)*LJRESOLUTION/TROFFRESOLUTION)
X
X/* 11" paper length */
X#define TROFF2LJY(y) (((long) (y)+pageyoffset)*LJRESOLUTION/TROFFRESOLUTION)
X
Xextern int ljProlog(), ljEpilog(), ljChar(), ljPage();
X
Xextern struct troff2befont ljSymFont[], ljStdFont[];
X
Xextern int fontCount;
END_OF_FILE
if test 918 -ne `wc -c <'lj.h'`; then
echo shar: \"'lj.h'\" unpacked with wrong size!
fi
# end of 'lj.h'
fi
if test -f 'makeincl.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'makeincl.S'\"
else
echo shar: Extracting \"'makeincl.S'\" \(790 characters\)
sed "s/^X//" >'makeincl.S' <<'END_OF_FILE'
X# Makefile overrides 2.1 90/07/18
XCC = %%CC%%
XCFLAGS = %%CCFLAGS%% '-DLIBDIR="%%LIBDIR%%"' -I../
XFONTDIR = %%FONTDIR%%
XLIBDIR = %%LIBDIR%%
XLIBFLAGS = %%LIBFLAGS%%
XLJF = %%LJF%%
XMANDIR = %%MANDIR%%
XRTMACDIR = %%RTMACDIR%%
XPKFONTS = %%PKFONTS%%
XSFP2PK = %%SFP2PK%%
XNEWFONTS = %%NEWFONTS%%
XIGNORESH = %%IGNORESH%%
X
X# This override is because apparently a .s suffix on a file will
X# cause make to not select a ".S:" rule when the target is .s
X.SUFFIXES:
X.SUFFIXES: .o .c .c~ .h .h~ .lib .lib~ .fonts .fonts~ .ps .ps~ .S .S~
X
X.lib~.lib:
X $(GET) $(GFLAGS) s.$@
X
X.fonts~.fonts:
X $(GET) $(GFLAGS) s.$@
X
X.ps~.ps:
X $(GET) $(GFLAGS) s.$@
X
X.S~:
X rm -f $@
X $(GET) -p $(GFLAGS) s.$@.S | ../sedscript > $@
X chmod 755 $@
X.S:
X rm -f $@
X ../sedscript < $@.S > $@
X chmod 755 $@
X
X.S~.S:
X $(GET) $(GFLAGS) s.$@
END_OF_FILE
if test 790 -ne `wc -c <'makeincl.S'`; then
echo shar: \"'makeincl.S'\" unpacked with wrong size!
fi
# end of 'makeincl.S'
fi
if test -f 'man/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'man/Makefile'\"
else
echo shar: Extracting \"'man/Makefile'\" \(557 characters\)
sed "s/^X//" >'man/Makefile' <<'END_OF_FILE'
X# 2.1 90/07/18
X
XMANPAGES = troff2ps.1 psroff.1 cat.5 pk2sfp.1 dumpft.1 hpinterp.1
X
XMANDIR = %%MANDIR%%
X
Xinclude ../makeincl
X
Xall: subst.done $(MANPAGES)
X
Xsubst.done: ../makeincl ../sedscript
X rm -f $(MANPAGES)
X touch subst.done
X
Xclean:
X rm -f $(MANPAGES)
X
Xinstall:
X test -d $(MANDIR) || mkdir $(MANDIR)
X test -d $(MANDIR)/man1 || mkdir $(MANDIR)/man1
X test -d $(MANDIR)/man5 || mkdir $(MANDIR)/man5
X rm -f $(MANDIR)/man1/troff2ps.1 $(MANDIR)/man1/psroff.1
X cp troff2ps.1 psroff.1 pk2sfp.1 $(MANDIR)/man1
X rm -f $(MANDIR)/man5/cat.5
X cp cat.5 $(MANDIR)/man5
END_OF_FILE
if test 557 -ne `wc -c <'man/Makefile'`; then
echo shar: \"'man/Makefile'\" unpacked with wrong size!
fi
# end of 'man/Makefile'
fi
if test -f 'pkc.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'pkc.h'\"
else
echo shar: Extracting \"'pkc.h'\" \(1531 characters\)
sed "s/^X//" >'pkc.h' <<'END_OF_FILE'
X/* Copyright 1988, 1989 16:47:06 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: pkc.c 2.1 90/07/18 16:47:06
X Author: Chris Lewis
X Specs: PK Cache handlers
X
X*/
X
X#if defined(PARTIAL) || defined(INCR)
X/*
X
X if defined(PARTIAL):
X
X This defines a table of bit maps for the "normal" (N),
X "symbol" (S) and overide (digit fonts > 3) indicating which
X characters in the font are "useful". This is built during
X Prolog (which is after the ljStdFont/ljSymFont arrays are modified
X by any overrides in the *.fonts file), by examining the
X lj*Font arrays and seeing which characters are actually used.
X This is "partial" downloading, *not* incremental.
X
X if defined(INCR):
X
X This defines a table of bit maps for *each* mentioned font at
X *each* pointsize, where the bit being on indicates whether the
X character has been downloaded *yet*.
X */
X
X#define ETYP long
X#define ELEN (sizeof(ETYP) * 8) /* length in bits of an ETYP */
X#define MASKLEN ((256 - (' ' * 2) + (ELEN - 1)) / ELEN)
X
X#define NPTSIZE 15
X
Xstruct needmaps {
X int fontnum;
X ETYP nm[MASKLEN];
X struct needmaps *next;
X};
X
X#define NMAP(x) nm[x]
X
Xextern struct needmaps *needmaps;
X
X#ifdef INCR
Xstruct downmaps {
X ETYP *nm[NPTSIZE];
X int lastpage[NPTSIZE];
X struct pkp *pkfont[NPTSIZE];
X};
X#endif
X
X#define DMAP(x,p) nm[p][x]
X#endif
END_OF_FILE
if test 1531 -ne `wc -c <'pkc.h'`; then
echo shar: \"'pkc.h'\" unpacked with wrong size!
fi
# end of 'pkc.h'
fi
if test -f 'ps.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'ps.h'\"
else
echo shar: Extracting \"'ps.h'\" \(1156 characters\)
sed "s/^X//" >'ps.h' <<'END_OF_FILE'
X/* Copyright 1985, 1986, 1987, 1988 13:09:42 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: ps.h 2.2 90/10/12
X Author: Chris Lewis
X Specs: PostScript Driver definitions
X */
X
X/* Points per inch (default PostScript resolution) */
X#define PSRESOLUTION 72
X/* Length scaling factor */
X#define PSSCALEFACTOR (TROFFRESOLUTION/PSRESOLUTION)
X/* Troff assumes 7.5" paper width, most macro packages print in
X 6.5" area within that. Sooo, we'll center the paperwidth on the
X physical page - implying .5" inch physical margins.
X Note also: ps.c operates in 432'nds, but they're scaled down
X to 72'nds during emission.
X */
X#define TROFF2PSX(x) (x + pageoffset)
X/* 11" paper length (note the reversed sign!) */
X#define TROFF2PSY(y) (pagelength - pageyoffset - (y))
X
X#define FONTMACRO
X
X#define EMITPS printf
X
X/* Entry points: */
Xextern int psProlog(), psEpilog(), psChar(), psPage(),psDraw(),
X psOverlay(), psXlate();
X
Xextern struct troff2befont psSymFont[], psStdFont[];
END_OF_FILE
if test 1156 -ne `wc -c <'ps.h'`; then
echo shar: \"'ps.h'\" unpacked with wrong size!
fi
# end of 'ps.h'
fi
if test -f 't2conf.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'t2conf.c'\"
else
echo shar: Extracting \"'t2conf.c'\" \(1859 characters\)
sed "s/^X//" >'t2conf.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: t2conf.c
X Author: Chris Lewis
X Specs: Switch for alternate backends.
X */
X
X#include "defs.h"
X
X#ifndef lint
Xstatic char SCCSid[] =
X "@(#)t2conf.c: 2.2 Copyright 90/08/10 15:27:22 Chris Lewis";
X#endif
X
X#ifdef PS
X#include "ps.h"
X#endif
X
X#ifdef LJ
X#include "lj.h"
X#endif
X
X#ifdef DT
X#include "dt.h"
X#endif
X
X#ifndef INSPECIAL
X#define dtDraw NULL
X#define psDraw NULL
X#endif
X
Xextern int FontSel();
X
X/* Common variables */
Xint pagePending = 1;
Xint currentPage = 0;
X
Xstruct backend B[] = {
X/* bename, beprolog, beepilog, bechar, bepage, befontsel
X beoverlay, bepassthru, bexlat, beDraw,
X bestdfont, besymfont */
X
X#ifdef PS
X { "ps", psProlog, psEpilog, psChar, psPage, FontSel,
X psOverlay, NULL, psXlate, psDraw,
X psStdFont, psSymFont },
X#endif
X
X#ifdef DT
X { "dt", dtProlog, dtEpilog, dtChar, dtPage, FontSel,
X NULL, dtPassthru, NULL, dtDraw,
X dtStdFont, dtSymFont },
X#endif
X
X#ifdef LJ
X { "lj", ljProlog, ljEpilog, ljChar, ljPage, FontSel,
X NULL, NULL, NULL, NULL,
X ljStdFont, ljSymFont },
X#endif
X { NULL }
X};
X
X
Xgetdriver(name)
Xchar *name; {
X
X be = BNULL;
X if (B[0].bename == NULL) {
X fprintf(stderr, "%s: No drivers configured!\n", progname);
X exit(1);
X }
X
X if (B[1].bename == NULL) {
X if (strcmp(B[0].bename, name)) {
X fprintf(stderr, "%s: Asked for driver '%s', only %s exists\n",
X progname, name, B[0].bename);
X exit(1);
X }
X be = &B[0];
X return;
X }
X for (be = B; be->bename != NULL; be++)
X if (strcmp(name, be->bename) == 0)
X return;
X fprintf(stderr, "%s: No driver called '%s' configured\n", progname, name);
X exit(1);
X}
END_OF_FILE
if test 1859 -ne `wc -c <'t2conf.c'`; then
echo shar: \"'t2conf.c'\" unpacked with wrong size!
fi
# end of 't2conf.c'
fi
if test -f 'tests/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'tests/Makefile'\"
else
echo shar: Extracting \"'tests/Makefile'\" \(77 characters\)
sed "s/^X//" >'tests/Makefile' <<'END_OF_FILE'
X#2.1 90/07/18
X
Xinclude ../makeincl
X
Xall: testtab.m chartab.m ltest.m
X
Xclean:
END_OF_FILE
if test 77 -ne `wc -c <'tests/Makefile'`; then
echo shar: \"'tests/Makefile'\" unpacked with wrong size!
fi
# end of 'tests/Makefile'
fi
if test -f 'utils/fonts/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/fonts/README'\"
else
echo shar: Extracting \"'utils/fonts/README'\" \(449 characters\)
sed "s/^X//" >'utils/fonts/README' <<'END_OF_FILE'
X utils/fonts/README %I% %E%
X
XThese font files are from two sources:
X
X - cmtrf10.300pk is from Rick Richardson's jetroff, and may
X only be distributed for use with psroff.
X - the other PK's are from Knuth's TeX as found in the University
X of Toronto distribution.
X
XThese are included expressly for giving an example of mergeing fonts.
XSee the map files (utils/maps), and the utils/Makefile.S for how
Xthese are used to generate PK's.
END_OF_FILE
if test 449 -ne `wc -c <'utils/fonts/README'`; then
echo shar: \"'utils/fonts/README'\" unpacked with wrong size!
fi
# end of 'utils/fonts/README'
fi
if test -f 'utils/maps/S.cmtrf' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/S.cmtrf'\"
else
echo shar: Extracting \"'utils/maps/S.cmtrf'\" \(536 characters\)
sed "s/^X//" >'utils/maps/S.cmtrf' <<'END_OF_FILE'
X# From Ronald Florence's makeS program 2.1 90/07/18
X# These describe the remappings of Rick Richardson's
X# cmtrf PK font into MATH8 encoding.
X0xE2 1 left top
X0xE4 2 left bottom
X0xF2 3 right top
X0xF4 4 right bottom
X0xE3 5 left center
X0xF3 6 right center
X0xF5 7 bold vertical
X0xE1 8 left floor
X0xF1 9 right floor
X0xE0 0xa left ceiling
X0xF0 0xb right ceiling
X0x21 0xc square root
X0xB0 0xd root en extender
X0xD9 0x11 copyright
X0xDA 0x12 square
X#
X0x3C 0x3C <
X0x3d 0x3e >
X0x79 0x10 br
X0x5F 0x0e ul/ru
X0x7a {
X0x7b }
X0x7e \
X0xfc 0x13 solid box
END_OF_FILE
if test 536 -ne `wc -c <'utils/maps/S.cmtrf'`; then
echo shar: \"'utils/maps/S.cmtrf'\" unpacked with wrong size!
fi
# end of 'utils/maps/S.cmtrf'
fi
if test -f 'utils/maps/cmmi.MATH8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmmi.MATH8'\"
else
echo shar: Extracting \"'utils/maps/cmmi.MATH8'\" \(518 characters\)
sed "s/^X//" >'utils/maps/cmmi.MATH8' <<'END_OF_FILE'
X# From Ronald Florence's makeS program. 2.1 90/07/18
X0xB 0x61 alpha
X0xC 0x62 beta
X0xD 0x63 gamma
X0xE 0x64 delta
X0xF 0x65 epsilon
X0x10 0x66 zeta
X0x11 0x67 eta
X0x12 0x68 theta
X0x13 0x69 iota
X0x14 0x6A kappa
X0x15 0x6B lambda
X0x16 0x6C mu
X0x17 0x6D nu
X0x18 0x6E xi
X0x19 0x70 pi
X0x1A 0x71 rho
X0x1B 0x72 sigma
X0x1C 0x73 tau
X0x1D 0x74 upsilon
X0x1E 0x75 phi
X0x1F 0x76 chi
X0x20 0x77 psi
X0x21 0x78 omega
X0x2E 0xA6 right hand
X0x2F 0xA8 left hand
X0x40 0x5A partial derivative
X0x26 0x53 terminal sigma
X0x6f 0x6f omicron (italic o)
END_OF_FILE
if test 518 -ne `wc -c <'utils/maps/cmmi.MATH8'`; then
echo shar: \"'utils/maps/cmmi.MATH8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmmi.MATH8'
fi
if test -f 'utils/maps/cmr.MATH8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmr.MATH8'\"
else
echo shar: Extracting \"'utils/maps/cmr.MATH8'\" \(208 characters\)
sed "s/^X//" >'utils/maps/cmr.MATH8' <<'END_OF_FILE'
X# From Ronald Florence's makeS program 2.1 90/07/18
X0 0x43 Gamma
X1 0x44 Delta
X2 0x48 Theta
X3 0x4B Lambda
X4 0x4E Xi
X5 0x50 Pi
X6 0x52 Sigma
X7 0x54 Upsilon
X8 0x55 Phi
X9 0x57 Psi
X0xA 0x58 Omega
X0174 0366 em dash
END_OF_FILE
if test 208 -ne `wc -c <'utils/maps/cmr.MATH8'`; then
echo shar: \"'utils/maps/cmr.MATH8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmr.MATH8'
fi
if test -f 'utils/maps/cmr.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmr.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmr.ROMAN8'\" \(659 characters\)
sed "s/^X//" >'utils/maps/cmr.ROMAN8' <<'END_OF_FILE'
X# CMR -> ROMAN8 (Times Roman) map file.
X# For experimentation 2.1 90/07/18
X# This is mostly 1-1 ASCII correspondance, but
X# several characters are missing. This should be
X# used in conjunction with the other .ROMAN8 files.
X!
X"
X043 " octothorpe
X%
X'
X&
X(
X)
X*
X+
X,
X-
X.
X/
X# digits
X0x30
X0x31
X0x32
X0x33
X0x34
X0x35
X0x36
X0x37
X0x38
X0x39
X:
X;
X=
X?
X@
XA
XB
XC
XD
XE
XF
XG
XH
XI
XJ
XK
XL
XM
XN
XO
XP
XQ
XR
XS
XT
XU
XV
XW
XX
XY
XZ
X[
X]
X`
Xa
Xb
Xc
Xd
Xe
Xf
Xg
Xh
Xi
Xj
Xk
Xl
Xm
Xn
Xo
Xp
Xq
Xr
Xs
Xt
Xu
Xv
Xw
Xx
Xy
Xz
X023 0250 acute accent
X022 0251 grave accent
X~ 0254 small tilde
X^ " small caret (prefer bigger)
X027 0263 degree
X0173 0366 medium hyphen (eg: minus)
X$
X0x7f 0xab umlaut
X0x3e 0xb9 upside down ?
X0x3c 0xb8 upside down !
END_OF_FILE
if test 659 -ne `wc -c <'utils/maps/cmr.ROMAN8'`; then
echo shar: \"'utils/maps/cmr.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmr.ROMAN8'
fi
if test -f 'utils/maps/cmss.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmss.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmss.ROMAN8'\" \(37 characters\)
sed "s/^X//" >'utils/maps/cmss.ROMAN8' <<'END_OF_FILE'
X#2.1 90/07/18 Pick up double quote
X"
END_OF_FILE
if test 37 -ne `wc -c <'utils/maps/cmss.ROMAN8'`; then
echo shar: \"'utils/maps/cmss.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmss.ROMAN8'
fi
if test -f 'utils/maps/cmsy.MATH8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmsy.MATH8'\"
else
echo shar: Extracting \"'utils/maps/cmsy.MATH8'\" \(702 characters\)
sed "s/^X//" >'utils/maps/cmsy.MATH8' <<'END_OF_FILE'
X# Some from Ronald Florence's makeS program 2.1 90/07/18
X0 0x2D math minus
X2 0x2A multiply
X4 0x25 divide
X6 0xFE plus-minus
X0xD 0xCD circle
X0xF 0xCC bullet
X0x11 0x7D exactly equal
X0x12 0xBE improper subset
X0x13 0xBF improper superset
X0x14 0x5C <=
X0x15 0x5E >=
X0x1A 0xBA subset of
X0x1B 0xBB superset of
X0x20 0xA4 left arrow
X0x21 0xA2 right arrow
X0x22 0xA1 up arrow
X0x23 0xA3 down arrow
X0x27 0x7C ~=
X0x2F 0x26 proportional to
X0x31 0x24 infinity
X0x32 0xB7 member of
X0x3A 0xC8 not
X0x3B 0xD8 empty set
X0x5B 0xB5 cup (union)
X0x5C 0xB6 cap (intersection)
X0x72 0x59 gradient
X0x73 0xD5 integral sign
X0x79 0xCE dagger
X0x7A 0xCF double dagger
X0x28 0xfb left hand
X0x29 0xfd right hand
X0x7e 0x7f heart - normal \(bs
END_OF_FILE
if test 702 -ne `wc -c <'utils/maps/cmsy.MATH8'`; then
echo shar: \"'utils/maps/cmsy.MATH8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmsy.MATH8'
fi
if test -f 'utils/maps/cmsy.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmsy.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmsy.ROMAN8'\" \(125 characters\)
sed "s/^X//" >'utils/maps/cmsy.ROMAN8' <<'END_OF_FILE'
X# 2.1 90/07/18
X06 0xfe plus equals
X013 0322 circle crossbar
X034 0373 <<
X035 0375 >>
X0x78 0xbd section
X0x18 0x7e normal tilde
END_OF_FILE
if test 125 -ne `wc -c <'utils/maps/cmsy.ROMAN8'`; then
echo shar: \"'utils/maps/cmsy.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmsy.ROMAN8'
fi
if test -f 'utils/maps/cmti.MATH8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmti.MATH8'\"
else
echo shar: Extracting \"'utils/maps/cmti.MATH8'\" \(50 characters\)
sed "s/^X//" >'utils/maps/cmti.MATH8' <<'END_OF_FILE'
X# cmti to R 2.1 90/07/18
X0x24 0xfc Pound Sterling
END_OF_FILE
if test 50 -ne `wc -c <'utils/maps/cmti.MATH8'`; then
echo shar: \"'utils/maps/cmti.MATH8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmti.MATH8'
fi
if test -f 'utils/maps/cmti.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmti.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmti.ROMAN8'\" \(50 characters\)
sed "s/^X//" >'utils/maps/cmti.ROMAN8' <<'END_OF_FILE'
X# cmti to R 2.1 90/07/18
X0x24 0xbb Pound Sterling
END_OF_FILE
if test 50 -ne `wc -c <'utils/maps/cmti.ROMAN8'`; then
echo shar: \"'utils/maps/cmti.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmti.ROMAN8'
fi
if test -f 'utils/maps/cmtrf.MATH8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmtrf.MATH8'\"
else
echo shar: Extracting \"'utils/maps/cmtrf.MATH8'\" \(586 characters\)
sed "s/^X//" >'utils/maps/cmtrf.MATH8' <<'END_OF_FILE'
X# From Ronald Florence's makeS program 2.1 90/07/18
X# These describe the remappings of Rick Richardson's
X# cmtrf PK font into MATH8 encoding.
X1 0xE2 left top
X2 0xE4 left bottom
X3 0xF2 right top
X4 0xF4 right bottom
X5 0xE3 left center
X6 0xF3 right center
X7 0xF5 bold vertical
X8 0xE1 left floor
X9 0xF1 right floor
X0xA 0xE0 left ceiling
X0xB 0xF0 right ceiling
X0xC 0x21 square root
X0xD 0xB0 root en extender
X0x11 0xD9 copyright
X0x12 0xDA square
X# Not used in S, but here to rebuild cmtrf from S's
X0x3C 0x3C <
X0x3E 0x3d >
X0x7C 0x79 br
X0x0E 0x5F ul/ru
X{ 0x7a
X} 0x7b
X\ 0x7e
X0x13 0xfc solid box
END_OF_FILE
if test 586 -ne `wc -c <'utils/maps/cmtrf.MATH8'`; then
echo shar: \"'utils/maps/cmtrf.MATH8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmtrf.MATH8'
fi
if test -f 'utils/maps/cmtrf.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmtrf.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmtrf.ROMAN8'\" \(93 characters\)
sed "s/^X//" >'utils/maps/cmtrf.ROMAN8' <<'END_OF_FILE'
X#2.1 90/07/18
X0x3C 0x3C <
X0x3E 0x3E >
X0x10 0x7C br
X0x0E 0x5F ul/ru
X{
X}
X\
X0x13 0xfc solid box
END_OF_FILE
if test 93 -ne `wc -c <'utils/maps/cmtrf.ROMAN8'`; then
echo shar: \"'utils/maps/cmtrf.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmtrf.ROMAN8'
fi
if test -f 'utils/maps/cmtt.ROMAN8' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/maps/cmtt.ROMAN8'\"
else
echo shar: Extracting \"'utils/maps/cmtt.ROMAN8'\" \(244 characters\)
sed "s/^X//" >'utils/maps/cmtt.ROMAN8' <<'END_OF_FILE'
X# 2.1 90/07/18
X# cmtt family roman.
X!
X0x22 0x22 "
X0x23 0x23 #
X$
X%
X&
X'
X(
X)
X*
X+
X,
X-
X.
X/
X0
X1
X2
X3
X4
X5
X6
X7
X8
X9
X:
X;
X<
X=
X>
X?
X@
XA
XB
XC
XD
XE
XF
XG
XH
XI
XJ
XK
XL
XM
XN
XO
XP
XQ
XR
XS
XT
XU
XV
XW
XX
XY
XZ
X[
X\
X]
X^
X_
X`
Xa
Xb
Xc
Xd
Xe
Xf
Xg
Xh
Xi
Xj
Xk
Xl
Xm
Xn
Xo
Xp
Xq
Xr
Xs
Xt
Xu
Xv
Xw
Xx
Xy
Xz
X{
X|
X}
X~
END_OF_FILE
if test 244 -ne `wc -c <'utils/maps/cmtt.ROMAN8'`; then
echo shar: \"'utils/maps/cmtt.ROMAN8'\" unpacked with wrong size!
fi
# end of 'utils/maps/cmtt.ROMAN8'
fi
if test -f 'utils/mkenctab.S' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'utils/mkenctab.S'\"
else
echo shar: Extracting \"'utils/mkenctab.S'\" \(1546 characters\)
sed "s/^X//" >'utils/mkenctab.S' <<'END_OF_FILE'
X%%STARTSHELL%%
X# 2.1 90/07/18
Xif [ $# != 2 ]
Xthen
X echo "Should be mkenctab <in> <out>"
X exit 1
Xfi
Xawk '
X {
X if ($2 == "N") Ntab[$1] = $3
X else if ($2 == "S") Stab[$1] = $3
X }
XEND {
X printf ("#include \"defs.h\"\n");
X printf ("struct enctab encNormal[] = {\n");
X for (i in Ntab) {
X id = ""
X for (k = 1; k <= length(i); k++) {
X c = substr(i, k, 1)
X if (c == "\\" && k >= length(i)-1)
X c = "\\\\"
X else if (c == "\"")
X c = "\\\""
X id = id c;
X }
X v = Ntab[i]
X nv = ""
X for (k = 1; k <= length(v); k++) {
X c = substr(v, k, 1)
X if (c == "\\" && k == length(v))
X c = "\\\\"
X else if (c == "\"")
X c = "\\\""
X nv = nv c;
X }
X #if (id == "hy")
X # printf("\t{\"%s\", \"%s\"},\n", "-", nv);
X if (id == "ul")
X printf("\t{\"%s\", \"%s\"},\n", "_", nv);
X printf("\t{\"%s\", \"%s\"},\n", id, nv);
X }
X printf("\t{NULL}\n};\n");
X printf ("struct enctab encSymbol[] = {\n");
X for (i in Stab) {
X id = ""
X for (k = 1; k <= length(i); k++) {
X c = substr(i, k, 1)
X if (c == "\\" && k >= length(i)-1)
X c = "\\\\"
X else if (c == "\"")
X c = "\\\""
X id = id c;
X }
X v = Stab[i]
X nv = ""
X for (k = 1; k <= length(v); k++) {
X c = substr(v, k, 1)
X if (c == "\\" && k == length(v))
X c = "\\\\"
X else if (c == "\"")
X c = "\\\""
X nv = nv c;
X }
X if (id == "ul")
X printf("\t{\"%s\", \"%s\"},\n", "_", nv);
X printf("\t{\"%s\", \"%s\"},\n", id, nv);
X }
X printf("\t{NULL}\n};\n");
X}' $1 > T2
Xif [ $? = 0 -a -s T2 ]
Xthen
X mv T2 $2
X exit 0
Xelse
X exit 1
Xfi
END_OF_FILE
if test 1546 -ne `wc -c <'utils/mkenctab.S'`; then
echo shar: \"'utils/mkenctab.S'\" unpacked with wrong size!
fi
# end of 'utils/mkenctab.S'
fi
if test -f 'widths/widthps/DESC' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'widths/widthps/DESC'\"
else
echo shar: Extracting \"'widths/widthps/DESC'\" \(143 characters\)
sed "s/^X//" >'widths/widthps/DESC' <<'END_OF_FILE'
X#
X#2.1 90/07/18
X# This is simply here to specify res for the fontps files.
X# gfnttab will do the right thing with a *real* DESC file
X#
Xres 720
END_OF_FILE
if test 143 -ne `wc -c <'widths/widthps/DESC'`; then
echo shar: \"'widths/widthps/DESC'\" unpacked with wrong size!
fi
# end of 'widths/widthps/DESC'
fi
if test -f 'widths/widthps/ZD' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'widths/widthps/ZD'\"
else
echo shar: Extracting \"'widths/widthps/ZD'\" \(1202 characters\)
sed "s/^X//" >'widths/widthps/ZD' <<'END_OF_FILE'
X# ZapfDingbats
X#2.1 90/07/18
Xname ZD
Xinternalname ZapfDingbats
Xligatures fi fl ff ffi ffl 0
Xspacewidth 28
Xcharset
X! 97 0 041
X" 96 0 042
X# 97 0 043
X$ 98 0 044
X 72 0 045
X& 79 0 046
X' 79 0 047
X( 79 0 050
X) 69 0 051
X* 96 0 052
X+ 94 0 053
X, 55 0 054
X- 86 0 055
Xhy "
X. 91 0 056
X0 91 0 060
X1 94 0 061
X2 97 0 062
X3 76 0 063
X4 85 0 064
X5 76 0 065
X6 76 0 066
X7 57 1 067
X8 68 0 070
X9 76 0 071
X: 76 0 072
X; 76 0 073
X< 75 0 074
X= 49 0 075
X> 55 0 076
X? 54 0 077
X@ 58 0 0100
XA 69 0 0101
XB 79 0 0102
XC 79 0 0103
XD 79 0 0104
XE 79 0 0105
XF 79 0 0106
XG 79 0 0107
XH 82 0 0110
XI 82 0 0111
XJ 79 0 0112
XK 84 0 0113
XL 82 0 0114
XM 83 0 0115
XN 82 0 0116
XO 83 0 0117
XP 92 0 0120
XQ 74 0 0121
XR 72 0 0122
XS 75 0 0123
XT 79 0 0124
XU 79 0 0125
XV 69 0 0126
XW 78 0 0127
XX 77 0 0130
XY 79 0 0131
XZ 76 0 0132
X[ 71 0 0133
X\ 71 0 0134
X] 68 0 0135
Xa^ 70 0 0136 a57
X_ 83 0 0137
Xru "
X` 81 0 0140
Xa 79 0 0141
Xb 79 0 0142
Xc 71 0 0143
Xd 69 0 0144
Xe 70 0 0145
Xf 69 0 0146
Xg 79 0 0147
Xh 79 0 0150
Xi 71 0 0151
Xj 79 0 0152
Xk 78 0 0153
Xl 79 0 0154
Xm 87 0 0155
Xn 76 0 0156
Xo 76 0 0157
Xp 76 0 0160
Xq 76 0 0161
Xr 76 0 0162
Xs 89 0 0163
Xt 89 0 0164
Xu 79 0 0165
Xv 78 0 0166
Xw 44 0 0167
Xx 14 0 0170
Xy 28 0 0171
Xz 41 0 0172
X{ 39 0 0173
X| 39 0 0174
X} 67 0 0175
END_OF_FILE
if test 1202 -ne `wc -c <'widths/widthps/ZD'`; then
echo shar: \"'widths/widthps/ZD'\" unpacked with wrong size!
fi
# end of 'widths/widthps/ZD'
fi
echo shar: End of archive 16 \(of 16\).
cp /dev/null ark16isdone
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 at eci386)
Psroff mailing list (psroff-request at eci386)
More information about the Alt.sources
mailing list