an-old.tmac
Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002
Free Software Foundation, Inc.
Written by James Clark (jjc@jclark.com)
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 2, 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 COPYING. If not, write to the Free Software
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-rcR=1 => Create a single, very long page instead of multiple pages.
Useful for online display. Default in nroff mode.
Desactivate with -rcR=0.
-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.
-rSxx => Use size `xx'pt (either 10, 11, or 12) for document rather
than the default size of 10pt.
-rXnnn => Number pages after nnn as nnna, nnnb, nnnc, ...
The file man.local is loaded at the end. Put local additions there.
If you need to add things to TH, use `.am1 TH'.
. . .do if d RI .nx . .nr _C \n(.C .cp 0 . . ab You need GNU troff version 1.18 or higher to run this version of man! . we must use consecutive page numbers when using postscript to generate
html images, and we must not reset the page number at the beginning
(the `ps4html' register is automatically added to the command line by
the pre-html preprocessor)
. if r P .pn 0\n[P] . ie n .nr cR 1 . el .nr cR 0 .\} . . ie n .nr LL 78n . el .nr LL 6.5i .\} . ie n .nr LT 78n . el .nr LT 6.5i .\} . .nr an-html 0 . we redefine .ne to avoid page breaks; instead, the page length is
increased to the necessary amount (this is needed for tables)
. de1 ne . ie \\n[.$] \ . nr an-ne \\$* . el \ . nr an-ne 1v . if (\\n[an-ne] >= \\n[.t]) \ . pl +(\\n[an-ne]u - \\n[.t]u + 1v) . . .\} . . nr an-margin \\n[IN] .. . .TH title section extra1 extra2 extra3
. if \\n[an-html] \{\ . HTML-TAG ".tl" \\$1 . \} . . de an-init \" We have to do it like this to get multiple man pages right. . ds an-title "\\$1 . ds an-section "\\$2 . ds an-extra1 "\\$3 . 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 \"System Programmer's Manual . ds an-init \\.. . . DT . . nr PS 10z \" default point size . nr PS-SS 10z . nr PS-SH 10.95z . nr VS 12p . . \" use sizes similar to LaTeX . if t \{\ . ie (\\n[S] == 11) \{\ . nr PS 10.95z . nr PS-SS 10.95z . nr PS-SH 12z . nr VS 13.6p . \} . el \{\ . if (\\n[S] == 12) \{\ . nr PS 12z . nr PS-SS 12z . nr PS-SH 14.4z . nr VS 14.5p . \} . \} . \} . . ps \\n[PS]u . vs \\n[VS]u . ll \\n[LL]u . . nr IN 7.2n . PD . nr SN 3n \" the indentation of sub-sub-headings relative to sub-headings . nr an-level 1 . set-an-margin . 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 \\n[cR] \ . an-header . el \{\ . wh 0 an-header . wh -1i an-footer . wh -.5i an-p-footer . . if (\\n[nl] > 0) \{\ . ie \\n[C] .bp (\\n[%] + 1) . el .bp 1 . \} . \} .. . BSD compatibility macros: .AT and .UC
. . ds an-extra2 "7th Edition . if "\\$1"3" .ds an-extra2 "7th Edition . if "\\$1"4" .ds an-extra2 "System III . if "\\$1"5" \{\ . ie "\\$2"" .ds an-extra2 "System V . el .ds an-extra2 "System V Release \\$2 . \} .. . . ds an-extra2 "3rd Berkeley Distribution . if "\\$1"3" .ds an-extra2 "3rd Berkeley Distribution . if "\\$1"4" .ds an-extra2 "4th Berkeley Distribution . if "\\$1"5" .ds an-extra2 "4.2 Berkeley Distribution . if "\\$1"6" .ds an-extra2 "4.3 Berkeley Distribution . if "\\$1"7" .ds an-extra2 "4.4 Berkeley Distribution .. . . ta T .5i \" This sets tabs every .5 inches .. . . ie \\n[.$] .nr PD (v;\\$1) . el .nr PD (.4v >? \n[.V]) .. . . an-init . ev 1 . ps \\n[PS]u . vs \\n[VS]u . lt \\n[LT]u . ie \\n[an-html] \ . tl '''' . el \{\ . if !\\n[cR] \ . sp .5i . tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])' . ie !\\n[cR] \ . sp |1i . el \ . sp .5i . \} . ev . ns .. . ' bp .. . .af an-page-letter a . . ev 1 . ps \\n[PS]u . vs \\n[VS]u . lt \\n[LT]u . ie \\n[an-html] \{\ . ds an-page-string . ds an-extra1 . ds an-extra2 . \} . el \{\ . ie r X \{\ . if (\\n[%] > \\n[X]) \{\ . nr an-page-letter (\\n[%] - \\n[X]) . ds an-page-string \\n[X]\\n[an-page-letter] . \} . \} . el \{\ . ie \\n[cR] \ . ds an-page-string "\\*[an-title](\\*[an-section]) . el \ . ds an-page-string \\n[%] . \} . \} . ie \\n[D] \{\ . if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]' . if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]' . \} . el \ . tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]' . ev .. . . nr % 1 . pl +4v . fl . sp 3 . an-p-footer . pl \\n[nl]u .. . . . sp \\n[PD]u . nr an-level 1 . set-an-margin . nr an-prevailing-indent \\n[IN] . fi . in \\n[an-margin]u . ti 0 . HTML-TAG ".NH \\n[an-level]" . it 1 an-trap . nr an-no-space-flag 1 . nr an-break-flag 1 . ps \\n[PS-SH]u . ft B . ne (2v + 1u) . if \\n[.$] \\$* .. . . sp \\n[PD]u . nr an-level 1 . set-an-margin . nr an-prevailing-indent \\n[IN] . fi . in \\n[IN]u . ti \\n[SN]u . it 1 an-trap . nr an-no-space-flag 1 . nr an-break-flag 1 . ps \\n[PS-SS]u . ft B . ne (2v + 1u) . if \\n[.$] \\$* .. . . it 1 an-trap . ft B . if \\n[.$] \\$* .. . . it 1 an-trap . ft I . if \\n[.$] \,\\$*\/ .. . . it 1 an-trap . ps -1 . if \\n[.$] \\$* .. . . it 1 an-trap . ps -1 . ft B . if \\n[.$] \\$* .. . . sp \\n[PD]u . if \\n[.$] .nr an-prevailing-indent (n;\\$1) . it 1 an-trap . in 0 . ll -\\n[an-margin]u . if !\\n[an-div?] .di an-div . nr an-div? 1 .. . . ft R . ps \\n[PS]u . vs \\n[VS]u . if \\n[an-break-flag] \{\ . br . nr an-break-flag 0 . \} . if \\n[an-no-space-flag] \{\ . ns . nr an-no-space-flag 0 . \} . if \\n[an-div?] .an-do-tag .. . . nr an-div? 0 . br . ll . di . ie (\\n[dl] + \\n[an-tag-sep] > \\n[an-prevailing-indent]) \{\ . in \\n[an-margin]u . ne (2v + 1u) . an-div . br . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . \} . el \{\ . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . ti -\\n[an-prevailing-indent]u . chop an-div . ne (1v + 1u) \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\c . \} .. . . nr an-div? 0 . br . ll . di . ie ((\\n[dl] + \\n[an-tag-sep]) > \\n[an-prevailing-indent]) \{\ . in \\n[an-margin]u . an-div . br . in (\\n[an-margin]u + \\n[an-prevailing-indent]u + \\n[an-tag-sep]u) . \} . el \{\ . in (\\n[an-margin]u + \\n[an-prevailing-indent]u + \\n[an-tag-sep]u) . ti \\n[an-margin]u . chop an-div . HTML-TAG-NS ".col 1" \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\\h'\\n[an-tag-sep]u'\c . HTML-TAG-NS ".col 2" . \} .. . . br . sp \\n[PD]u . ps \\n[PS]u . vs \\n[VS]u . ft R . in \\n[an-margin]u . nr an-prevailing-indent \\n[IN] .. . .als PP LP .als P LP . . ie !\\n[.$] \{\ . ps \\n[PS]u . vs \\n[VS]u . ft R . sp \\n[PD]u . ne (1v + 1u) . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . \} . el \{\ . ie (\\n[.$] - 1) .TP "\\$2" . el .TP \\$1 . \} .. . . ps \\n[PS]u . vs \\n[VS]u . ft R . sp \\n[PD]u . ne (1v + 1u) . if \\n[.$] .nr an-prevailing-indent (n;\\$1) . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . ti \\n[an-margin]u .. . . . if \\n[.$] \{\ . ds an-result \\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \,\f[I]\\$1\f[R]\/\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \,\f[I]\\$1\f[R] \\*[an-result] . \} .. . . if \\n[.$] \{\ . ds an-result \f[I]\\$1\f[R] . shift . while (\\n[.$] >= 2) \{\ . as an-result \/\\$1\f[I]\,\\$2\f[R] . shift 2 . \} . if \\n[.$] .as an-result \/\\$1 \\*[an-result] . \} .. . . if \\n[.$] \{\ . ds an-result \f[I]\\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \/\f[B]\\$1\f[I]\,\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \/\f[B]\\$1 \\*[an-result] . ft R . \} .. . . if \\n[.$] \{\ . ds an-result \f[B]\\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \,\f[I]\\$1\f[B]\/\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \,\f[I]\\$1 \\*[an-result] . ft R . \} .. . . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[R]\\$1\f[B]\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \f[R]\\$1 \\*[an-result] . ft R .. . . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[B]\\$1\f[R]\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \f[B]\\$1 \\*[an-result] . ft R .. . . br . nr an-saved-margin\\n[an-level] \\n[an-margin] . nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent] . ie \\n[.$] .nr an-margin +(n;\\$1) . el .nr an-margin +\\n[an-prevailing-indent] . in \\n[an-margin]u . nr an-prevailing-indent \\n[IN] . nr an-level +1 .. . . br . ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level]) . el .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]] . in \\n[an-margin]u .. . table support
. . sp \\n[PD]u . HTML-IMAGE .. . .. . . HTML-IMAGE-END .. . dummy equation delimiters
. HTML-IMAGE .. . HTML-IMAGE-END .. . \c . ie \\n[.$] \{\ . tm `R' is a string (producing the registered sign), not a macro. . nop \\$* . \} . el \{\ . ie c\[rg] \ . nop \[rg]\c . el \ . nop (Reg.)\c . \} .. . these strings must work in compatibility mode also
. . . rm an-do-tag . als an-do-tag an-do-tag-html .\} . Load local modifications.
.mso man.local . .cp \n[_C] . end of an-old.tmac
Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002
Free Software Foundation, Inc.
Written by James Clark (jjc@jclark.com)
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 2, 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 COPYING. If not, write to the Free Software
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-rcR=1 => Create a single, very long page instead of multiple pages.
Useful for online display. Default in nroff mode.
Desactivate with -rcR=0.
-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.
-rSxx => Use size `xx'pt (either 10, 11, or 12) for document rather
than the default size of 10pt.
-rXnnn => Number pages after nnn as nnna, nnnb, nnnc, ...
The file man.local is loaded at the end. Put local additions there.
If you need to add things to TH, use `.am1 TH'.
. . .do if d RI .nx . .nr _C \n(.C .cp 0 . . ab You need GNU troff version 1.18 or higher to run this version of man! . we must use consecutive page numbers when using postscript to generate
html images, and we must not reset the page number at the beginning
(the `ps4html' register is automatically added to the command line by
the pre-html preprocessor)
. if r P .pn 0\n[P] . ie n .nr cR 1 . el .nr cR 0 .\} . . ie n .nr LL 78n . el .nr LL 6.5i .\} . ie n .nr LT 78n . el .nr LT 6.5i .\} . .nr an-html 0 . we redefine .ne to avoid page breaks; instead, the page length is
increased to the necessary amount (this is needed for tables)
. de1 ne . ie \\n[.$] \ . nr an-ne \\$* . el \ . nr an-ne 1v . if (\\n[an-ne] >= \\n[.t]) \ . pl +(\\n[an-ne]u - \\n[.t]u + 1v) . . .\} . . nr an-margin \\n[IN] .. . .TH title section extra1 extra2 extra3
. if \\n[an-html] \{\ . HTML-TAG ".tl" \\$1 . \} . . de an-init \" We have to do it like this to get multiple man pages right. . ds an-title "\\$1 . ds an-section "\\$2 . ds an-extra1 "\\$3 . 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 \"System Programmer's Manual . ds an-init \\.. . . DT . . nr PS 10z \" default point size . nr PS-SS 10z . nr PS-SH 10.95z . nr VS 12p . . \" use sizes similar to LaTeX . if t \{\ . ie (\\n[S] == 11) \{\ . nr PS 10.95z . nr PS-SS 10.95z . nr PS-SH 12z . nr VS 13.6p . \} . el \{\ . if (\\n[S] == 12) \{\ . nr PS 12z . nr PS-SS 12z . nr PS-SH 14.4z . nr VS 14.5p . \} . \} . \} . . ps \\n[PS]u . vs \\n[VS]u . ll \\n[LL]u . . nr IN 7.2n . PD . nr SN 3n \" the indentation of sub-sub-headings relative to sub-headings . nr an-level 1 . set-an-margin . 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 \\n[cR] \ . an-header . el \{\ . wh 0 an-header . wh -1i an-footer . wh -.5i an-p-footer . . if (\\n[nl] > 0) \{\ . ie \\n[C] .bp (\\n[%] + 1) . el .bp 1 . \} . \} .. . BSD compatibility macros: .AT and .UC
. . ds an-extra2 "7th Edition . if "\\$1"3" .ds an-extra2 "7th Edition . if "\\$1"4" .ds an-extra2 "System III . if "\\$1"5" \{\ . ie "\\$2"" .ds an-extra2 "System V . el .ds an-extra2 "System V Release \\$2 . \} .. . . ds an-extra2 "3rd Berkeley Distribution . if "\\$1"3" .ds an-extra2 "3rd Berkeley Distribution . if "\\$1"4" .ds an-extra2 "4th Berkeley Distribution . if "\\$1"5" .ds an-extra2 "4.2 Berkeley Distribution . if "\\$1"6" .ds an-extra2 "4.3 Berkeley Distribution . if "\\$1"7" .ds an-extra2 "4.4 Berkeley Distribution .. . . ta T .5i \" This sets tabs every .5 inches .. . . ie \\n[.$] .nr PD (v;\\$1) . el .nr PD (.4v >? \n[.V]) .. . . an-init . ev 1 . ps \\n[PS]u . vs \\n[VS]u . lt \\n[LT]u . ie \\n[an-html] \ . tl '''' . el \{\ . if !\\n[cR] \ . sp .5i . tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])' . ie !\\n[cR] \ . sp |1i . el \ . sp .5i . \} . ev . ns .. . ' bp .. . .af an-page-letter a . . ev 1 . ps \\n[PS]u . vs \\n[VS]u . lt \\n[LT]u . ie \\n[an-html] \{\ . ds an-page-string . ds an-extra1 . ds an-extra2 . \} . el \{\ . ie r X \{\ . if (\\n[%] > \\n[X]) \{\ . nr an-page-letter (\\n[%] - \\n[X]) . ds an-page-string \\n[X]\\n[an-page-letter] . \} . \} . el \{\ . ie \\n[cR] \ . ds an-page-string "\\*[an-title](\\*[an-section]) . el \ . ds an-page-string \\n[%] . \} . \} . ie \\n[D] \{\ . if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]' . if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]' . \} . el \ . tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]' . ev .. . . nr % 1 . pl +4v . fl . sp 3 . an-p-footer . pl \\n[nl]u .. . . . sp \\n[PD]u . nr an-level 1 . set-an-margin . nr an-prevailing-indent \\n[IN] . fi . in \\n[an-margin]u . ti 0 . HTML-TAG ".NH \\n[an-level]" . it 1 an-trap . nr an-no-space-flag 1 . nr an-break-flag 1 . ps \\n[PS-SH]u . ft B . ne (2v + 1u) . if \\n[.$] \\$* .. . . sp \\n[PD]u . nr an-level 1 . set-an-margin . nr an-prevailing-indent \\n[IN] . fi . in \\n[IN]u . ti \\n[SN]u . it 1 an-trap . nr an-no-space-flag 1 . nr an-break-flag 1 . ps \\n[PS-SS]u . ft B . ne (2v + 1u) . if \\n[.$] \\$* .. . . it 1 an-trap . ft B . if \\n[.$] \\$* .. . . it 1 an-trap . ft I . if \\n[.$] \,\\$*\/ .. . . it 1 an-trap . ps -1 . if \\n[.$] \\$* .. . . it 1 an-trap . ps -1 . ft B . if \\n[.$] \\$* .. . . sp \\n[PD]u . if \\n[.$] .nr an-prevailing-indent (n;\\$1) . it 1 an-trap . in 0 . ll -\\n[an-margin]u . if !\\n[an-div?] .di an-div . nr an-div? 1 .. . . ft R . ps \\n[PS]u . vs \\n[VS]u . if \\n[an-break-flag] \{\ . br . nr an-break-flag 0 . \} . if \\n[an-no-space-flag] \{\ . ns . nr an-no-space-flag 0 . \} . if \\n[an-div?] .an-do-tag .. . . nr an-div? 0 . br . ll . di . ie (\\n[dl] + \\n[an-tag-sep] > \\n[an-prevailing-indent]) \{\ . in \\n[an-margin]u . ne (2v + 1u) . an-div . br . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . \} . el \{\ . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . ti -\\n[an-prevailing-indent]u . chop an-div . ne (1v + 1u) \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\c . \} .. . . nr an-div? 0 . br . ll . di . ie ((\\n[dl] + \\n[an-tag-sep]) > \\n[an-prevailing-indent]) \{\ . in \\n[an-margin]u . an-div . br . in (\\n[an-margin]u + \\n[an-prevailing-indent]u + \\n[an-tag-sep]u) . \} . el \{\ . in (\\n[an-margin]u + \\n[an-prevailing-indent]u + \\n[an-tag-sep]u) . ti \\n[an-margin]u . chop an-div . HTML-TAG-NS ".col 1" \\*[an-div]\\h'|\\n[an-prevailing-indent]u'\\h'\\n[an-tag-sep]u'\c . HTML-TAG-NS ".col 2" . \} .. . . br . sp \\n[PD]u . ps \\n[PS]u . vs \\n[VS]u . ft R . in \\n[an-margin]u . nr an-prevailing-indent \\n[IN] .. . .als PP LP .als P LP . . ie !\\n[.$] \{\ . ps \\n[PS]u . vs \\n[VS]u . ft R . sp \\n[PD]u . ne (1v + 1u) . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . \} . el \{\ . ie (\\n[.$] - 1) .TP "\\$2" . el .TP \\$1 . \} .. . . ps \\n[PS]u . vs \\n[VS]u . ft R . sp \\n[PD]u . ne (1v + 1u) . if \\n[.$] .nr an-prevailing-indent (n;\\$1) . in (\\n[an-margin]u + \\n[an-prevailing-indent]u) . ti \\n[an-margin]u .. . . . if \\n[.$] \{\ . ds an-result \\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \,\f[I]\\$1\f[R]\/\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \,\f[I]\\$1\f[R] \\*[an-result] . \} .. . . if \\n[.$] \{\ . ds an-result \f[I]\\$1\f[R] . shift . while (\\n[.$] >= 2) \{\ . as an-result \/\\$1\f[I]\,\\$2\f[R] . shift 2 . \} . if \\n[.$] .as an-result \/\\$1 \\*[an-result] . \} .. . . if \\n[.$] \{\ . ds an-result \f[I]\\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \/\f[B]\\$1\f[I]\,\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \/\f[B]\\$1 \\*[an-result] . ft R . \} .. . . if \\n[.$] \{\ . ds an-result \f[B]\\$1 . shift . while (\\n[.$] >= 2) \{\ . as an-result \,\f[I]\\$1\f[B]\/\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \,\f[I]\\$1 \\*[an-result] . ft R . \} .. . . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[R]\\$1\f[B]\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \f[R]\\$1 \\*[an-result] . ft R .. . . ds an-result \& . while (\\n[.$] >= 2) \{\ . as an-result \f[B]\\$1\f[R]\\$2\\*[an-empty] . shift 2 . \} . if \\n[.$] .as an-result \f[B]\\$1 \\*[an-result] . ft R .. . . br . nr an-saved-margin\\n[an-level] \\n[an-margin] . nr an-saved-prevailing-indent\\n[an-level] \\n[an-prevailing-indent] . ie \\n[.$] .nr an-margin +(n;\\$1) . el .nr an-margin +\\n[an-prevailing-indent] . in \\n[an-margin]u . nr an-prevailing-indent \\n[IN] . nr an-level +1 .. . . br . ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level]) . el .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]] . in \\n[an-margin]u .. . table support
. . sp \\n[PD]u . HTML-IMAGE .. . .. . . HTML-IMAGE-END .. . dummy equation delimiters
. HTML-IMAGE .. . HTML-IMAGE-END .. . \c . ie \\n[.$] \{\ . tm `R' is a string (producing the registered sign), not a macro. . nop \\$* . \} . el \{\ . ie c\[rg] \ . nop \[rg]\c . el \ . nop (Reg.)\c . \} .. . these strings must work in compatibility mode also
. . . rm an-do-tag . als an-do-tag an-do-tag-html .\} . Load local modifications.
.mso man.local . .cp \n[_C] . end of an-old.tmac