Na}{

File Content: `hdtbl.tmac`

.ig

hdtbl.tmac

This file is part of groff, the GNU roff type-setting system.

Copyright (C) 2005-2018 Free Software Foundation, Inc.
written by Joachim Walsdorff <Joachim.Walsdorff@urz.uni-heidelberg.de>.

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 3 of the License, 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 this program.  If not, see <http://www.gnu.org/licenses/>.

..
.
.
.\"	*****************************************************************
.\"	*		hdtbl - Heidelberger table macros		*
.\"	*			Vers. 0.91 December 2005		*
.\"	*****************************************************************
.
.if d TBL \
.  nx
.
.mso hdmisc.tmac
.mso 62bit.tmac
.
.
.\"	*****************************************************************
.\"	*		default values for some arguments		*
.\"	*****************************************************************
.
.ds t*hl s\"
.ds t*vl s\"
.ds t*tal l\"
.ds t*hal b\"
.ds t*val t\"
.ds t*ff \\n[.fam]\"
.ds t*fst \\n[.f]\"
.ds t*fsz 1 1\"
.ds t*fgc red4\"
.ds t*bgc bisque\"
.ds t*bc red4\"
.nr t*cpd .5n
.nr t*csp .5n
.nr t*b .1n
.nr t*cols 1
.nr t*v \n[.v]
.nr t*s \n[.ps]
.nr t*hy \n[.hy]
.nr t*l \n[.ll]
.
.
.\"			defaults for table captions
.nr t*cptn 0 1
.ds t*cptn "".sp .4" \
            ".t*pv 1.0 1.0" \
            ".ad l" \
            "\m[\\*[t*fgc]]Table \\n+[t*cptn]:\0\k*\c"\"
.
.
.\" This is a generated file, created by 'tmac/strip.sed' in groff's
.\" source distribution from a file having '-u' appended to its name.
.ds nth-1 st
.ds nth-2 nd
.ds nth-3 rd
.nr t*# 0
.nr t*numb 0 1
.ds *#trc*
.ie n \
.ds g tty:
.el \
.ds g ps: exec
.de TBL
.ds t*m\\n[t*#] \\n[.m]
.ie \\n[t*#] \
.br
.el \{\
.ds * \\n[.ev]
.ev t*tbl
.evc \\*[*]
.di t*tbl0
.sp .4
.nr t*i \\n[.i]
.ll -\\n[.i]u
.in 0
.\}
.nr t*# +1
.ds t*FN \\[.F]
.ds t*LN \\[.c]
.t*getarg cols \\$@
.ie "\\*[cols]"" \
.nr t*cols\\n[t*#] \\n[t*cols]
.el \{\
.ie \B\\*[cols] \
.nr t*cols\\n[t*#] \\*[cols]
.el \
.tm \\n[.F]:\\n[.c]: Invalid number of columns value '\\*[cols]'.
.\}
.t*getarg cpd \\*[args]
.ie "\\*[cpd]"" \
.nr t*cpd\\n[t*#] \\n[t*cpd]
.el \{\
.ie \B\\*[cpd] \
.nr t*cpd\\n[t*#] \\*[cpd]
.el \
.tm \\n[.F]:\\n[.c]: Invalid cell padding value '\\*[cpd]'.
.\}
.t*getarg csp \\*[args]
.ie "\\*[csp]"" \
.nr t*csp\\n[t*#] \\n[t*csp]
.el \{\
.ie \B\\*[csp] \
.nr t*csp\\n[t*#] \\*[csp]
.el \
.tm \\n[.F]:\\n[.c]: Invalid cell spacing value '\\*[csp]'.
.\}
.t*getarg border \\*[args]
.ie "\\*[border]"=" \
.nr t*b\\n[t*#] 0-1
.el \{\
.ie "\\*[border]"" \
.nr t*b\\n[t*#] \\n[t*b]
.el \{\
.ie \B\\*[border] \
.nr t*b\\n[t*#] \\*[border]
.el \
.tm \\n[.F]:\\n[.c]: Invalid border thickness value '\\*[border]'.
.\}\}
.t*getarg bc \\*[args]
.ds t*bc\\n[t*#] \\*[t*bc]
.if !"\\*[bc]"" \{\
.ie m\\*[bc] \
.ds t*bc\\n[t*#] \\*[bc]
.el \{\
.ie "\\*[bc]"=" \
.ds t*bc\\n[t*#] =
.el \
.tm \\n[.F]:\\n[.c]: Invalid border color '\\*[bc]'.
.\}\}
.ie "\\*[bc]"=" \
.ds t*bc\\n[t*#]
.el \{\
.ie "\\*[bc]"" \
.ds t*bc\\n[t*#] \\*[t*bc]
.el \
.ds t*bc\\n[t*#] \\*[bc]
.\}
.t*getarg width \\*[args]
.if "\\*[width]"=" \
.ds width
.nr b/2\\n[t*#] (\\n[t*b\\n[t*#]] / 2)
.nr cscp\\n[t*#] (\\n[t*csp\\n[t*#]] + \\n[t*cpd\\n[t*#]])
.t*getarg height \\*[args]
.ie "\\*[height]"" \
.nr t*height\\n[t*#] 0
.el \{\
.ie \B\\*[height] \
.nr t*height\\n[t*#] (\\*[height] \
                            - ((2 * \\n[cscp\\n[t*#]]) \
                                + (3 * \\n[b/2\\n[t*#]])))
.el \
.tm \\n[.F]:\\n[.c]: Invalid height value '\\*[height]'.
.\}
.t*cl \\*[width]
.t*args \\n[t*#]
.t*getarg tal \\*[args]
.if "\\*[tal]"" \
.ds tal \\*[t*tal]
.ie "\\*[tal]"l" \
.nr in\\n[t*#] \\n[.i]
.el \{\
.ie "\\*[tal]"c" \
.nr in\\n[t*#] (\\n[.l] - \\n[ll\\n[t*#]]/2 + \\n[.i])
.el \{\
.ie "\\*[tal]"r" \
.nr in\\n[t*#] (\\n[.l] - \\n[ll\\n[t*#]] + \\n[.i])
.el \{\
.tmc \\n[.F]:\\n[.c]: Invalid horizontal table alignment '\\*[tal]':
.tm1 " must be 'l', 'c' or 'r'.
.\}\}\}
.nr t*r#\\n[t*#] 0
.mk toptbl\\n[t*#]
.t*P1 \\*[args]
..
.de CPTN
.ft 1
.if "\\$0"CPTN" \
.if \\n[t*r#\\n[t*#]] \{\
.tmc \\n[.F]:\\n[.c]: Invalid placement of '.CPTN';
.tm1 " must be called immediately after '.TBL'.
.return
.\}
.t*getarg val \\$@
.ds args\\n[t*#] "\\*[args]
.t*index "\\*[args]" .TR
.ie \\n[t*index] \{\
.ds *a\\n[t*#] "\\*[args]
.substring args\\n[t*#] 0 \\n[t*index]
.substring *a\\n[t*#] \\n[t*index]-2 -1
.\}
.el \
.ds *a\\n[t*#]
.ie "\\*[val]"b" \{\
.de t*cptn\\n[t*#]
.*CPTN \\*[args\\n[t*#]]
.rm t*cptn\\n[t*#]
\\..
.\}
.el \{\
.ll (\\n[ll\\n[t*#]]u + \\n[in\\n[t*#]]u)
.in \\n[in\\n[t*#]]u
.t*P1 \\*[t*cptn]
'    in +\\n[*]u
.t*P1 \\*[args\\n[t*#]]
.t*pv 1 1
.in
.mk toptbl\\n[t*#]
.\}
.t*P1 \\*[*a\\n[t*#]]
..
.als *CPTN CPTN
.de TR
.ft 1
.if !\\n[t*#] \{\
.tm \\n[.F]:\\n[.c]: Table row (.TR) without preceding table start (.TBL).
.return
.\}
.if \\n[t*r#\\n[t*#]] \
.t*dntr 1 \\n[c#\\*[#t#r]] \\n[t*cols\\n[t*#]] \\*[*#trc*]
.nr t*r#\\n[t*#] +1
.ds #t#r \\n[t*#]*\\n[t*r#\\n[t*#]]
.nr c#\\*[#t#r] 0 1
.nr dntr\\*[#t#r] 0 1
.t*getarg height \\$@
.ie "\\*[height]"" \
.nr t*height\\*[#t#r] 0
.el \{\
.ie \B\\*[height] \
.nr t*height\\*[#t#r] \\*[height]
.el \
.tm \\n[.F]:\\n[.c]: Invalid table row height '\\*[height]'.
.\}
.t*args \\*[#t#r] \\n[t*#]
.t*P1 \\*[args]
..
.de TH
.ft 1
.t*getarg hal \\$@
.if "\\*[hal]"" \
.ds hal c
.t*getarg val \\*[args]
.if "\\*[val]"" \
.ds val m
.t*getarg fst \\*[args]
.if "\\*[fst]"" \
.ds fst B
.TD hal=\\*[hal] val=\\*[val] fst=\\*[fst] \\*[args]
..
.de TD
.ft 1
.t*dntr 0 \\n[c#\\*[#t#r]]-1 \En[c#\\*[#t#r]] \\*[*#trc*]
.ds *#trc* \\*[#t#r]*\\n[c#\\*[#t#r]]
.t*getarg rowspan \\$@
.nr rowspan 1
.if !"\\*[rowspan]"" \{\
.ie \B\\*[rowspan] \{\
.nr rowspan (\\*[rowspan] >? 1)
.nr *rsp*\\*[*#trc*] (\\n[rowspan] - 1)
.\}
.el \
.tm \\n[.F]:\\n[.c]: Invalid value of 'rowspan' keyword.
.\}
.t*getarg colspan \\*[args]
.nr colspan 1
.if !"\\*[colspan]"" \{\
.ie \B\\*[colspan] \
.nr colspan (\\*[colspan] >? 1)
.el \
.tm \\n[.F]:\\n[.c]: Invalid value of 'colspan' keyword.
.\}
.t*args \\*[#trc] \\*[#t#r]
.nr in\\*[#trc] \\n[in\\n[t*#]*\\n[c#\\*[#t#r]]]
.nr *cl \\n[cll\\n[t*#]*\\n[c#\\*[#t#r]]]
.nr * 0 1
.nr *r \\n[t*r#\\n[t*#]]
.if (\\n[rowspan] - 1) \
.while (\\n+[*] <= \\n[rowspan]) \{\
.nr rspan\\n[t*#]*\\n[*r]*\\n[c#\\*[#t#r]] \\n[colspan]
.if (\\n[*] > 1) \
.nr cspan\\n[t*#]*\\n[*r]*\\n[c#\\*[#t#r]] \\n[colspan]
.nr *r +1
.\}
.nr * 1 1
.nr *c \\n[c#\\*[#t#r]]
.if (\\n[colspan] - 1) \{\
.nr vline\\*[*#trc*] 0-1
.while (\\n+[*] <= \\n[colspan]) \{\
.nr *c +1
.nr *cl +(2 * \\n[cscp\\n[t*#]] \
                + \\n[b/2\\n[t*#]] \
                + \\n[cll\\n[t*#]*\\n[*c]])
.nr c#\\*[#t#r] +1
.\}
.\}
.if (\\n[c#\\n[t*#]*\\n[t*r#\\n[t*#]]] > \\n[t*cols\\n[t*#]]) \{\
.ds * are
.ds ** columns
.if (\\n[c#\\*[#t#r]] == 1) \{\
.ds * is
.ds ** column
.\}
.tmc \\n[.F]:\\n[.c]: There \\*[*] \\n[c#\\*[#t#r]] table \\*[**] (.TD)
.ds * are
.if (\\n[t*cols\\n[t*#]] == 1) \
.ds * is
.tm1 " but only \\n[t*cols\\n[t*#]] \\*[*] expected.
.ds *
.length * \\n[.F]:\\n[.c]:
.while \\n-[*] \
.ds * " \\*[*]
.tm1 "\\*[*] Remaining .TDs and its contents are ignored.
.di *t*dummy*
.return
.\}
.di t*\\*[#trc]
.in 0
.nr cll\\*[#trc] \\n[*cl]
.ll \\n[*cl]u
.nr *cl\\n[t*#] \\n[.l]
.gcolor \\*[t*fgc\\*[#trc]]
.ad \\*[t*hal\\*[#trc]]
.fam \\*[t*ff\\*[#trc]]
.ft \\*[t*fst\\*[#trc]]
.t*pv \\*[t*fsz\\*[#trc]]
.t*P1 \\*[args]
..
.de ETB
.ie \\n[t*#] \
.if !\\n[t*r#\\n[t*#]] \{\
.tmc \\n[.F]:\\n[.c]: Each table (.TBL)
.tm1 " should contain at least one table row (.TR)!
.\}
.el \{\
.tmc \\n[.F]:\\n[.c]: Table end (.ETB)
.tm1 " without corresponding table start (.TBL)!
.\}
.ds #t#r \\n[t*#]*\\n[t*r#\\n[t*#]]
.t*dntr 2 \\n[c#\\*[#t#r]] \\n[t*cols\\n[t*#]] \\*[*#trc*]
.t*divs
.sp \\n[b/2\\n[t*#]]u
.t*cptn\\n[t*#]
.nr t*# -1
.ll \\n[*cl\\n[t*#]]u
.in 0
.gcolor \\*[t*m\\n[t*#]]
.t*getarg hold \\$@
.if !\\n[t*#] \{\
.sp .5
.di
.in \\n[t*i]u
.ie "\\*[hold]"" \{\
.ie (\\n[.t] - \\n[dn]) \
.t*DI t*tbl0
.el \{\
.rn t*tbl0 t*tbl\\n+[t*numb]
.ds t*kept \\*[t*kept] t*tbl\\n[t*numb] \\n[dn]
.\}
.\}
.el \{\
.rn t*tbl0 t*hold\\n+[t*numb]
.tm \\n[.F]:\\n[.c]: Table t*hold\\n[t*numb] held.
.ds t*held \\*[t*held] t*hold\\n[t*numb] \\n[dn]
.\}
.ev
.\}
.t*P1 \\*[args]
..
.de t*free
.if "\\$0"CPTN" \
.if \\n[t*r#\\n[t*#]] \{\
.tmc \\n[.F]:\\n[.c]: Invalid placement of '.t*free' within a table;
.tm1 " it must be called outside of any table.
.return
.\}
.if "\\*[t*held]"" \{\
.tm \\n[.F]:\\n[.c]: No held tables.
.return
.\}
.nr ** (\\$1 >? 1) 1
.while !""\\*[t*held]" \{\
.pops * t*held
.popr * t*held
.ie (\\n[.t] - \\n[*]) \{\
.ev t*tbl
.t*DI \\*[*]
.ev
.\}
.el \{\
.rn \\*[*] t*tbl\\n+[t*numb]
.ds t*kept \\*[t*kept] t*tbl\\n[t*numb] \\n[*]
.\}
.if !(\\n-[**] - 1) \
.return
.\}
..
.de t*divs
.ll (\\n[t*l]u + 1c)
.nf
.nr b/2 \\n[b/2\\n[t*#]]
.nr cscp \\n[cscp\\n[t*#]]
.nr cscpb (\\n[b/2] + \\n[cscp])
.nr topdiv (\\n[.d] + \\n[b/2] - \\n[cscp])
.nr cscpb2 (\\n[b/2] / 2 + \\n[cscp])
.nr #r 0 1
.while (\\n+[#r] <= \\n[t*r#\\n[t*#]]) \{\
.nr * (\\n[#r] - 1)
.nr topdiv +(\\n[dntr\\n[t*#]*\\n[*]] + \\n[cscp] + \\n[cscpb])
.if ((\\n[#r] == \\n[t*r#\\n[t*#]]) & \\n[t*height\\n[t*#]]) \
.nr dntr\\n[t*#]*\\n[#r] (\\n[cscpb] \
                                + \\n[toptbl\\n[t*#]] \
                                + \\n[t*height\\n[t*#]] \
                                - (\\n[topdiv] >? \\n[dntr\\n[t*#]*\\n[#r]]))
.nr #c 0 1
.while (\\n+[#c] <= \\n[t*cols\\n[t*#]]) \{\
.ds #trc \\n[t*#]*\\n[#r]*\\n[#c]
.if !d t*\\*[#trc] \
.continue
.sp |\\n[topdiv]u
.in (\\n[in\\n[t*#]]u + \\n[in\\*[#trc]]u)
.nr $1 \\n[dntr\\n[t*#]*\\n[#r]]
.if \\n[*rsp*\\*[#trc]] \{\
.nr * \\n[#r] 1
.nr rspan\\*[#trc] 0-1
.nr corr (\\n[dn\\*[#trc]] - \\n[dntr\\n[t*#]*\\n[#r]])
.while \\n[*rsp*\\*[#trc]] \{\
.nr *rsp*\\*[#trc] -1
.nr rspan\\n[t*#]*\\n+[*]*\\n[#c] 0
.nr ** (\\n[dntr\\n[t*#]*\\n[*]] + \\n[cscp] + \\n[cscpb])
.nr corr -\\n[**]
.nr $1 +\\n[**]
.\}
.if (\\n-[*] == \\n[t*r#\\n[t*#]]) \
.nr $1 ((\\n[t*height\\n[t*#]] \
                   - \\n[.d] \
                   + \\n[toptbl\\n[t*#]] \
                   + \\n[cscpb]) \
                     >? \\n[$1])
.nr dntr\\n[t*#]*\\n[*] +(\\n[corr] >? 0)
.\}
.nr * (2 * \\n[t*cpd\\n[t*#]] + \\n[cll\\*[#trc]])
.nr $1 (\\n[$1] >? \\n[dn\\*[#trc]])
.if !"\\*[t*bgc\\*[#trc]]"=" \{\
.nop \h'\\n[t*csp\\n[t*#]]u'\
\M[\\*[t*bgc\\*[#trc]]]\
\v'(-.67v - \\n[t*cpd\\n[t*#]]u)'\
\D'P \\n[*]u 0 \
     0 (2u * \\n[t*cpd\\n[t*#]]u + \\n[$1]u) \
     -\\n[*]u 0'\
\M[]
.sp -1
.\}
.nr *t (.1n >? \\n[b/2])
.in +\\n[cscp]u
.if (1 + \\n[t*b\\n[t*#]]) \{\
.if !"\\*[t*bc\\n[t*#]]"=" \{\
.if (\\n[t*r#\\n[t*#]] - \\n[#r] + \\n[rspan\\*[#trc]]) \{\
.if !"\\*[t*hl\\*[#trc]]"=" \{\
.sp \\n[$1]u
.nr * (\\n[cscp] + \\n[cscpb] + \\n[cll\\*[#trc]])
.nop \X'\*[g] 1 setlinecap'\
\h'(-\\n[cscpb2]u - \\n[*t]u)'\
\v'(\\n[cscpb2]u - .67v)'\
\m[\\*[t*bc\\n[t*#]]]\
\D't \\n[*t]u'\c
.ie "\\*[t*hl\\*[#trc]]"d" \
.nop \v'-\\n[*t]u'\
\D'l \\n[*]u 0'\
\v'(2u * \\n[*t]u)'\
\D'l -\\n[*]u 0'\
\D't 0'
.el \
.nop \D'l \\n[*]u 0'\
\D't 0'
.sp (-\\n[$1]u - 1v)
.\}\}
.nr rspan\\*[#trc] 0
.if (\\n[t*cols\\n[t*#]] - \\n[#c] + \\n[vline\\*[#trc]]) \{\
.if !"\\*[t*vl\\*[#trc]]"=" \{\
.nop \X'\*[g] 1 setlinecap'\
\v'(-\\n[cscpb2]u - .67v)'\
\m[\\*[t*bc\\n[t*#]]]\
\h'(\\n[cscpb2]u - \\n[*t]u + \\n[cll\\*[#trc]]u)'\c
.ie "\\*[t*vl\\*[#trc]]"d" \
.nop \h'-\\n[*t]u'\
\D't \\n[*t]u'\
\D'l 0 (2u * \\n[cscp]u + \\n[$1]u + (\\n[*t]u / 2u))'\
\h'(2u * \\n[*t]u)'\
\D'l 0 -(2u * \\n[cscp]u + \\n[$1]u + (\\n[*t]u / 2u))'\
\D't 0'
.el \
.nop \D't \\n[*t]u'\
\D'l 0 (2u * \\n[cscp]u + \\n[$1]u + (\\n[*t]u / 2u))'\
\D't 0'
.sp -1
.\}\}\}\}
.nr vline\\*[#trc] 0
.nr ** 0
.ie "\\*[t*val\\*[#trc]]"m" \
.nr ** ((\\n[$1] - \\n[dn\\*[#trc]]) / 2)
.el \
.if "\\*[t*val\\*[#trc]]"b" \
.nr ** (\\n[$1] - \\n[dn\\*[#trc]])
.sp \\n[**]u
.t*\\*[#trc]
.rm t*\\*[#trc]
.\}
.\}
.in \\n[in\\n[t*#]]u
.nr ** (\\n[topdiv] + \\n[dntr\\n[t*#]*\\n-[#r]])
.if \\n[t*b\\n[t*#]] \{\
.sp |(\\n[toptbl\\n[t*#]]u + \\n[b/2]u)
.nr $1 (\\n[toptbl\\n[t*#]] - \\n[**] - \\n[cscp])
.nr * (\\n[ll\\n[t*#]] - \\n[t*b\\n[t*#]])
.if !"\\*[t*bc\\n[t*#]]"=" \
.nop \X'\*[g] 0 setlinejoin 2 setlinecap'\
\v'-.67v'\
\h'-\\n[b/2]u'\
\m[\\*[t*bc\\n[t*#]]]\
\D't \\n[t*b\\n[t*#]]u'\
\D'l \\n[*]u 0'\
\D'l 0 -\\n[$1]u'\
\D'l -\\n[*]u 0'\
\D'l 0 \\n[$1]u'\
\D't 0'
.\}
.sp |(\\n[**]u + \\n[cscpb]u)
.fi
..
.de t*cl
.nr t*cols\\n[t*#] (\\n[.$] >? \\n[t*cols\\n[t*#]])
.nr ll\\n[t*#] 0
.nr ** (\\n[.l] / \\n[t*cols\\n[t*#]])
.nr * 0 1
.while (\\n[t*cols\\n[t*#]] >= \\n+[*]) \{\
.nr $\\n[*] \\n[**]
.if !"\\$[\\n[*]]"" \{\
.ds * \\$\\n[*]
.substring * -1 -1
.ie "\\*[*]"%" \{\
.ds ** \\$[\\n[*]]
.substring ** 0 -2
.ie \B\\*[**] \
.nr $\\n[*] (\\*[**] * \\n[.l] / 100)
.el \
.tm \\n[.F]:\\n[.c]: Invalid relative cell width '\\*[**]%'.
.\}
.el \{\
.ie \B\\$[\\n[*]] \
.nr $\\n[*] \\$[\\n[*]]
.el \
.tm \\n[.F]:\\n[.c]: Invalid cell width '\\$[\\n[*]]'.
.\}\}
.nr ll\\n[t*#] +\\n[$\\n[*]]
.nr ** \\n[$\\n[*]]
.\}
.if (\\n[ll\\n[t*#]] > \\n[.l]) \
.tm \\n[.F]:\\n[.c]: Table width larger than column width.
.nr ** (0 >? \\n[t*b\\n[t*#]])
.nr * 0 1
.while (\\n[t*cols\\n[t*#]] >= \\n+[*]) \{\
.if \\n[t*b\\n[t*#]] \{\
.nr #* (\\n[ll\\n[t*#]] - (3 * \\n[t*b\\n[t*#]] / 2))
.nr *** (\\n[ll\\n[t*#]] / 2)
.mult31by31 $\\n[*] #* ****
.add31to62 *** **** ****
.div62by31 **** ll\\n[t*#] $\\n[*]
.\}
.nr cll\\n[t*#]*\\n[*] (\\n[$\\n[*]] \
                            - (2 * \\n[cscp\\n[t*#]]) \
                            - \\n[b/2\\n[t*#]])
.if !\\n[cll\\n[t*#]*\\n[*]] \{\
.nr #* (\\n[ll\\n[t*#]] - (3 * \\n[t*b\\n[t*#]] / 2))
.nr *** (\\n[#*] / 2)
.nr *h (2 * \\n[cscp\\n[t*#]] + \\n[b/2\\n[t*#]])
.mult31by31 *h ll\\n[t*#] ****
.add31to62 *** **** ****
.div62by31 **** #* *h
.ds * \\n[*]th
.nr *** (\\n[*] % 10)
.if d nth-\\n[***] \
.ds * \\n[*]\\*[nth-\\n[***]]
.tmc \\n[.F]:\\n[.c]: The \\*[*] width value (\\$\\n[*]) is too small.
.tm1 " It should be greater than \\n[*h].
.\}
.nr in\\n[t*#]*\\n[*] \\n[**]
.nr ** +\\n[$\\n[*]]
.\}
..
.de t*dntr
.nr dn 0
.br
.if "\\n[.z]"*t*dummy*" \
.return
.ds #t#r \\n[t*#]*\\n[t*r#\\n[t*#]]
.if \\n[c#\\*[#t#r]] \{\
.di
.nr dn\\$4 \\n[dn]
.if !\\n[rspan\\*[#trc]] \{\
.nr dntr\\*[#t#r] (\\n[dntr\\*[#t#r]] >? \\n[dn])
.if \\$2 \
.nr dntr\\*[#t#r] ((\\n[t*height\\*[#t#r]] \
                            - (2 * \\n[cscp\\n[t*#]] + \\n[b/2\\n[t*#]])) \
                            >? \\n[dntr\\*[#t#r]])
.\}\}
.nr c#\\*[#t#r] +1
.nr * \\$2
.while (\\n+[*] <= \\$3) \{\
.if r cspan\\*[#t#r]*\\n[*] \
.nr c#\\*[#t#r] +\\n[cspan\\*[#t#r]*\\n[*]]
.nr cspan\\*[#t#r]*\\n[*] 0
.\}
.ds #trc \\*[#t#r]*\\n[c#\\*[#t#r]]
.if (\\$1 & (\\n[c#\\*[#t#r]] <= \\n[t*cols\\n[t*#]])) \{\
.ds * are
.ds ** columns
.if (\\n-[c#\\*[#t#r]] == 1) \{\
.ds * is
.ds ** column
.\}
.tmc \\n[.F]:\\n[.c]: There \\*[*] only \\n[c#\\*[#t#r]] \\*[**]
.nr * \\n[t*r#\\n[t*#]]
.ds * \\n[*]th
.nr *** (\\n[*] % 10)
.if d nth-\\n[***] \
.ds * \\n[*]\\*[nth-\\n[***]]
.tmc " in the \\*[*] row
.ds * are
.if (\\n[t*cols\\n[t*#]] == 1) \
.ds * is
.tm1 " but \\n[t*cols\\n[t*#]] \\*[*] expected.
.\}
..
.de t*args
.ds t*bgc\\$1 \\*[t*bgc\\$2]
.ds t*fgc\\$1 \\*[t*fgc\\$2]
.ds t*hl\\$1 \\*[t*hl\\$2]
.ds t*vl\\$1 \\*[t*vl\\$2]
.ds t*hal\\$1 \\*[t*hal\\$2]
.ds t*val\\$1 \\*[t*val\\$2]
.ds t*ff\\$1 \\*[t*ff\\$2]
.ds t*fst\\$1 \\*[t*fst\\$2]
.ds t*fsz\\$1 \\*[t*fsz\\$2]
.if "\\*[args]"" \
.return
.t*getarg bgc \\*[args]
.if !"\\*[bgc]"" \{\
.ie m\\*[bgc] \
.ds t*bgc\\$1 \\*[bgc]
.el \{\
.ie "\\*[bgc]"=" \
.ds t*bgc\\$1 =
.el \
.tm \\n[.F]:\\n[.c]: Invalid background color '\\*[bgc]'.
.\}\}
.if "\\*[args]"" \
.return
.t*getarg fgc \\*[args]
.if !"\\*[fgc]"" \{\
.ie m\\*[fgc] \
.ds t*fgc\\$1 \\*[fgc]
.el \{\
.ie "\\*[fgc]"=" \
.ds t*fgc\\$1 =
.el \
.tm \\n[.F]:\\n[.c]: Invalid foreground color '\\*[fgc]'.
.\}\}
.if "\\*[args]"" \
.return
.t*getarg hl \\*[args]
.if !"\\*[hl]"" \
.ds t*hl\\$1 \\*[hl]
.if "\\*[args]"" \
.return
.t*getarg vl \\*[args]
.if !"\\*[vl]"" \
.ds t*vl\\$1 \\*[vl]
.if "\\*[args]"" \
.return
.t*getarg hal \\*[args]
.if !"\\*[hal]"" \{\
.t*index bcrl \\*[hal]
.ie \\n[t*index] \
.ds t*hal\\$1 \\*[hal]
.el \{\
.tmc \\n[.F]:\\n[.c]: Invalid horizontal alignment '\\*[hal]':
.tm1 " must be 'b', 'c', 'l' or 'r'.
.\}\}
.if "\\*[args]"" \
.return
.t*getarg val \\*[args]
.if !"\\*[val]"" \{\
.t*index tmb \\*[val]
.ie \\n[t*index] \
.ds t*val\\$1 \\*[val]
.el \{\
.tmc \\n[.F]:\\n[.c]: Invalid vertical alignment '\\*[val]':
.tm1 " must be 't', 'm' or 'b'.
.\}\}
.if "\\*[args]"" \
.return
.t*getarg ff \\*[args]
.if !"\\*[ff]"" \
.ds t*ff\\$1 \\*[ff]
.if "\\*[args]"" \
.return
.t*getarg fst \\*[args]
.if !"\\*[fst]"" \
.ds t*fst\\$1 \\*[fst]
.if "\\*[args]"" \
.return
.t*getarg fsz \\*[args]
.if !"\\*[fsz]"" \
.ds t*fsz\\$1 \\*[fsz]
..
.de t*hm
.ev t*tbl
.nr ** \\n[.t]
.while !""\\*[t*kept]" \{\
.pops * t*kept
.popr * t*kept
.if (\\n[*] - \\n[**]) \{\
.tm \\n[.F]:\\n[.c]: Table \\*[*] higher than page -- ignored!
.break
.\}
.if (\\n[*] - \\n[.t]) \{\
.ds t*kept \\n[*] \\*[t*kept]
.ds t*kept \\*[*] \\*[t*kept]
.tmc \\n[.F]:\\n[.c]: Remaining table(s),
.tm1 " because not all fit onto this page.
.break
.\}
.t*DI \\*[*]
.\}
.ev
..

Name	Size	Permission
mdoc	---	0755
mm	---	0755
62bit.tmac	5370 bytes	0644
X.tmac	3387 bytes	0644
Xps.tmac	1783 bytes	0644
a4.tmac	714 bytes	0644
an-ext.tmac	3788 bytes	0644
an-old.tmac	14662 bytes	0644
an.tmac	313 bytes	0644
andoc.tmac	2654 bytes	0644
composite.tmac	805 bytes	0644
cp1047.tmac	2453 bytes	0644
cs.tmac	4836 bytes	0644
de.tmac	5133 bytes	0644
den.tmac	1226 bytes	0644
devtag.tmac	3830 bytes	0644
doc-old.tmac	36571 bytes	0644
doc.tmac	86638 bytes	0644
dvi.tmac	24533 bytes	0644
e.tmac	22100 bytes	0644
ec.tmac	994 bytes	0644
eqnrc	1427 bytes	0644
europs.tmac	1689 bytes	0644
fallbacks.tmac	1416 bytes	0644
fr.tmac	5560 bytes	0644
hdmisc.tmac	3425 bytes	0644
hdtbl.tmac	17372 bytes	0644
html-end.tmac	440 bytes	0644
html.tmac	16423 bytes	0644
hyphen.cs	21437 bytes	0644
hyphen.den	160078 bytes	0644
hyphen.det	160909 bytes	0644
hyphen.fr	28215 bytes	0644
hyphen.sv	34834 bytes	0644
hyphen.us	28121 bytes	0644
hyphenex.cs	505 bytes	0644
hyphenex.us	21756 bytes	0644
ja.tmac	1934 bytes	0644
latin1.tmac	2272 bytes	0644
latin2.tmac	2362 bytes	0644
latin5.tmac	2279 bytes	0644
latin9.tmac	2272 bytes	0644
lbp.tmac	2146 bytes	0644
lj4.tmac	584 bytes	0644
m.tmac	79246 bytes	0644
man.tmac	58 bytes	0644
mandoc.tmac	61 bytes	0644
mdoc.tmac	57 bytes	0644
me.tmac	53 bytes	0644
mm.tmac	49 bytes	0644
mmse.tmac	53 bytes	0644
mom.tmac	51 bytes	0644
ms.tmac	53 bytes	0644
mse.tmac	3552 bytes	0644
om.tmac	711090 bytes	0644
papersize.tmac	4332 bytes	0644
pdf.tmac	28306 bytes	0644
pdfmark.tmac	70502 bytes	0644
pdfpic.tmac	3758 bytes	0644
pic.tmac	139 bytes	0644
ps.tmac	20577 bytes	0644
psatk.tmac	1102 bytes	0644
psold.tmac	1828 bytes	0644
pspic.tmac	4998 bytes	0644
refer-me.tmac	2850 bytes	0644
refer-mm.tmac	2946 bytes	0644
refer-ms.tmac	2442 bytes	0644
refer.tmac	9778 bytes	0644
s.tmac	38006 bytes	0644
safer.tmac	218 bytes	0644
spdf.tmac	5111 bytes	0644
sv.tmac	4403 bytes	0644
trace.tmac	7380 bytes	0644
trans.tmac	4802 bytes	0644
troffrc	1642 bytes	0644
troffrc-end	1167 bytes	0644
tty-char.tmac	5824 bytes	0644
tty.tmac	1882 bytes	0644
unicode.tmac	93 bytes	0644
www.tmac	40923 bytes	0644
zh.tmac	1729 bytes	0644

File Content: hdtbl.tmac

File Content: `hdtbl.tmac`