diff options
author | wlemb <wlemb> | 2000-10-26 14:15:06 +0000 |
---|---|---|
committer | wlemb <wlemb> | 2000-10-26 14:15:06 +0000 |
commit | d512a69b13065fea8dfe89fdebc4dfdafb5e6941 (patch) | |
tree | ccd62cd31b27a59da67a4b239917be9ef82ceb4a /tmac/psatk.tmac | |
parent | 7cdd47b59da0d60d0ef9be3e750a486b1c741511 (diff) | |
download | groff-d512a69b13065fea8dfe89fdebc4dfdafb5e6941.tar.gz |
Convert macros `tmac.XXX' to `XXX.tmac'. Special cases:
tmac.doc.old -> doc-old.tmac
tmac.an.old -> an-old.tmac
* tmac/tmac.*: Moved to ...
* tmac/*.tmac: this.
* tmac/man.local: Fix comment.
* tmac/groff_man.man, tmac/groff_markup.man, tmac/groff_mdoc.man,
tmac/groff_me.man, tmac/groff_ms.man, tmac/groff_tmac.man: Updated.
Added some `FILES' sections. More use of @...@ directives. Other
minor updates.
* arch/djgpp/README, font/devutf8/NOTES: Updated.
* doc/homepage.ms, doc/groff.texinfo: Updated.
* man/groff.man, man/roff.man: Updated.
* src/devices/grodvi/grodvi.man, src/devices/grolbp/grolbp.man,
src/devices/grolj4/grolj4.man, src/devices/grops/grops.man,
src/devices/grotty/grotty.man: Updated.
* src/preproc/pic/pic.man: Updated.
* src/roff/grog/grog.pl, src/roff/grog/grog.sh: Use -mdoc-old
instead of -mdoc.old.
* src/roff/grog/grog.man: Document -mdoc and -mdoc-old.
* src/roff/nroff/nroff.man: Updated.
* NEWS: Updated.
* tmac/fixmacros.sed, tmac/strip.sed: Add explanatory comment.
* tmac/mm.diff: Removed -- it has no use now since the mm package
is part of groff.
* tmac/*: Removed trailing spaces.
* arch/djgpp/t-groff.bat: Fix GROFF_TMAC_PATH (hyphen.us is now in
the tmac subdirectory also).
Diffstat (limited to 'tmac/psatk.tmac')
-rw-r--r-- | tmac/psatk.tmac | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/tmac/psatk.tmac b/tmac/psatk.tmac new file mode 100644 index 00000000..dc6d2f38 --- /dev/null +++ b/tmac/psatk.tmac @@ -0,0 +1,63 @@ +.\" psatk.tmac +.\" +.\" Implementation of the ATK PB and PE macros for use with groff and grops. +.\" Load this after atk.tmac. +.nr zT 0 +.if '\*(.T'ps' .nr zT 1 +.nr psatk-unit 1p +.de psatk-defs +ps: mdef 5 +/PB { + /saved save def + currentpoint translate + \n[psatk-unit] u -\n[psatk-unit] u scale + userdict begin + /showpage {} def +} bind def +/PE { + end + saved restore +} bind def +/troffadjust { + pop 0 +} bind def +.. +.de PB +.ne \\$1p +.nr zT \\n(zT>0 +\\*[PB\\n(zT]\\ +.. +.de PE +\\*[PE\\n(zT]\\ +.. +.ds PB0 +.\" The last line before the "'PE" is "\}" rather than ".\}". This +.\" would cause a spurious space to be introduced before any picture +.\" that was the first thing on a line. So we have to catch that and +.\" remove it. +.de PB1 +.ev psatk +.fi +.di psatk-mac +\!ps: exec PB +.. +.de PE0 +\v'-.75m'\ +\D'l \\$1p 0'\D'l 0 \\$2p'\D'l -\\$1p 0'\D'l 0 -\\$2p'\ +\h'\\$1p'\v'.75m'\x'\\$2p-1m>?0'\c +.. +.ds psatk-init \Y[psatk-defs] +.de PE1 +\!PE +.di +.di null +.br +.di +.rm null +.ev +\v'-.75m'\ +\\*[psatk-init]\Y[psatk-mac]\ +\h'\\$1p'\v'.75m'\x'\\$2p-1m>?0'\c +.rm psatk-mac +.if \\n(.P .ds psatk-init +.. |