🚀 go-pugleaf

In article <ccB8Ilq4lU4L0u5FYM@sadye.uvm.edu> wollman@SADYE.UVM.EDU (Garrett Wollman) writes:

   The latest version of groff is *almost* capable of printing direct ATK, with
   the addition of a program in between gtroff and grops.  However, I got
   stuck with figuring out what to do with the PB and PE.

I was able to use groff to print out an ATK document that I was sent
by loading the enclosed tmac.psatk after tmac.atk.  If you start using
this, please let me know whether it works reliably; if it does, I'll
include it in the next version of groff.

James Clark
jjc@jclark.uucp

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  tmac.psatk
# Wrapped by jjc@jclark on Sat May 18 11:57:20 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'tmac.psatk' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'tmac.psatk'\"
else
echo shar: Extracting \"'tmac.psatk'\" \(954 characters\)
sed "s/^X//" >'tmac.psatk' <<'END_OF_FILE'
X.nr zT 0
X.if '\*(.T'ps' .nr zT 1
X.nr psatk-unit 1p
X.de psatk-defs
Xps: mdef 5
X/PB {
X	/saved save def
X	currentpoint translate
X	\n[psatk-unit] u -\n[psatk-unit] u scale
X	/showpage {} def
X	userdict begin
X} bind def
X/PE {
X	end
X	saved restore
X} bind def
X/troffadjust {
X	pop 0
X} bind def
X..
X.de PB
X.ne \\$1p
X.nr zT \\n(zT>0
X\\*[PB\\n(zT]\\
X..
X.de PE
X\\*[PE\\n(zT]\\
X..
X.ds PB0
X.\" The last line before the "'PE" is "\}" rather than ".\}".  This
X.\" would cause a spurious space to be introduced before any picture
X.\" that was the first thing on a line.  So we have to catch that and
X.\" remove it.
X.de PB1
X.ev psatk
X.fi
X.di psatk-mac
X\!ps: exec PB
X..
X.de PE0
X\v'-.75m'\
X\D'l \\$1p 0'\D'l 0 \\$2p'\D'l -\\$1p 0'\D'l 0 -\\$2p'\
X\h'\\$1p'\v'.75m'\x'\\$2p-1m>?0'\c
X..
X.ds psatk-init \Y[psatk-defs]
X.de PE1
X\!PE
X.di
X.di null
X.br
X.di
X.rm null
X.ev
X\v'-.75m'\
X\\*[psatk-init]\Y[psatk-mac]\
X\h'\\$1p'\v'.75m'\x'\\$2p-1m>?0'\c
X.rm psatk-mac
X.if \\n(.P .ds psatk-init
X..
END_OF_FILE
if test 954 -ne `wc -c <'tmac.psatk'`; then
    echo shar: \"'tmac.psatk'\" unpacked with wrong size!
fi
# end of 'tmac.psatk'
fi
echo shar: End of shell archive.
exit 0