xref: /386bsd/usr/share/tmac/tmac.an.old.old (revision a2142627)
Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
Written by James Clark (jjc@jclark.uucp)

This file is part of groff.

groff is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any later
version.

groff is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License along
with groff; see the file LICENSE. If not, write to the Free Software
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

-rC1 => number pages continuously, rather than start each at 1
-rD1 => double-sided printing, ie different odd and even page footers
-rPnnn => number first page nnn
-rXnnn => number pages after nnn as nnna, nnnb, nnnc, ...

. tm Warning: turning off compatibility mode . cp 0 .\} .TH title section extra1 extra2 extra3
.ie \\n[.$]>3 .ds an-extra2 "\\$4
.el .ds an-extra2 \"Sun Release 4.0
.ie \\n[.$]>4 .ds an-extra3 "\\$5
.el .ds an-extra3 \"UNIX Programmer's Manual
.nr IN 7.2n .nr LL 6.5i

.nr PS 10 \" normal point-size .nr SN 3n \" the indentation of sub-sub-headings relative to sub-headings .nr an-level 1 .nr an-margin \\n[IN] .nr an-prevailing-indent \\n[IN] .nr an-tag-sep 1n .nr an-no-space-flag 0 .nr an-break-flag 0 .nr an-div? 0 . ie \\nC .bp \\n%+1 . el .bp 1 .\} .. .. .. .wh 0 an-header .ev 1 .tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])' .ev .ns .. .wh -1i an-footer 'bp .. .wh -.5i an-p-footer .af an-page-letter a .ev 1 . if \\n%>\\nX \{\ . nr an-page-letter \\n%-\\nX . ds an-page-string \\nX\\n[an-page-letter] .\}\} . if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]' . if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]' .\} .ev .. .nr an-level 1 .nr an-margin \\n[IN] .nr an-prevailing-indent \\n[IN] .it 1 an-trap .nr an-no-space-flag 1 .nr an-break-flag 1 .. .nr an-level 1 .nr an-margin \\n[IN] .nr an-prevailing-indent \\n[IN] .it 1 an-trap .nr an-no-space-flag 1 .nr an-break-flag 1 .. .. .it 1 an-trap .. .it 1 an-trap .. .it 1 an-trap .. .it 1 an-trap .. .it 1 an-trap .di an-div .nr an-div? 1 .. . br . nr an-break-flag 0 .\} . ns . nr an-no-space-flag 0 .\} .. .nr an-div? 0

.di . ne 2v+1u . an-div . br .\} . chop an-div . ne 1v+1u \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\c .\} ..

.nr an-prevailing-indent \\n[IN] .. .als PP LP .als P LP . ps \\n[PS] . ft R . sp \\n[PD]u . ne 1v+1u . in \\n[an-margin]u+\\n[an-prevailing-indent]u .\} . TP \\$2 \\$1 .\} .. .. . ds an-result \\$1 . shift . while \\n[.$]>=2 \{\ . as an-result \,\\$1\/\\$2 . shift 2 . \} . if \\n[.$] .as an-result \,\\$1 \\*[an-result] .\} .. . ds an-result \fI\\$1 . shift . while \\n[.$]>=2 \{\ . as an-result \/\\$1\,\\$2 . shift 2 . \} . if \\n[.$] .as an-result \/\\$1 \\*[an-result] .\} .. . ds an-result \fI\\$1 . shift . while \\n[.$]>=2 \{\ . as an-result \/\\\$1\,\\$2 . shift 2 . \} . if \\n[.$] .as an-result \/\\\$1 \\*[an-result] . ft R .\} .. . ds an-result \fB\\$1 . shift . while \\n[.$]>=2 \{\ . as an-result \,\\$1\/\\$2 . shift 2 . \} . if \\n[.$] .as an-result \,\\$1 \\*[an-result] . ft R .\} .. .while \\n[.$]>=2 \{\ . as an-result \\$1\\$2 . shift 2 .\} \\*[an-result] .. .while \\n[.$]>=2 \{\ . as an-result \\$1\\$2 . shift 2 .\} \\*[an-result] ..

.nr an-saved-margin\\n[an-level] \\n[an-margin] .nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent] .nr an-prevailing-indent \\n[IN] .nr an-level +1 ..

.nr an-level 1>?\\n[an-level] .nr an-margin \\n[an-saved-margin\\n[an-level]] .nr an-prevailing-indent \\n[an-saved-prevailing-indent\\n[an-level]] .. .als Tm T