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