summaryrefslogtreecommitdiff
path: root/tmac/ptx.tmac
blob: 2235610edf0bd5ca5352452ce6db7e1a95f9eb51 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
.\" ptx.tmac
.\"
.\"   Provide '.xx' macro to format permuted index entries as created
.\"   by GNU ptx.
.\"
.\" Written 2008 by Werner Lemberg (wl@gnu.org)
.\"
.\" Public domain.
.
.do nr *groff_ptx_tmac_C \n[.cp]
.cp 0
.
.nr ptx-ref-pos (\n[.l] - .65i)
.nr ptx-head-pos (\n[ptx-ref-pos] / 2)
.
.ds ptx-sep-2 "   \"
.ds ptx-sep-4 " \"
.ds ptx-sep-5 " \"
.
.
.de xx
.  ds ptx-sep-1
.  if \w\\$2 \
.    ds ptx-sep-1 " \|\"
.
.  ds ptx-sep-3
.  if \w\\$4 \
.    ds ptx-sep-3 " \|\"
.
.  ds ptx-filler \\*[ptx-sep-4]\f3\a\fP\\*[ptx-sep-5]
.  ta (\\n[ptx-ref-pos]u - \w\\*[ptx-sep-5]u)
.
\h(\\n[ptx-head-pos]u - \w\\$1\\*[ptx-sep-1]\\$2\\*[ptx-sep-2]u)\
\\$1\\*[ptx-sep-1]\
\\$2\\*[ptx-sep-2]\
\\$3\\*[ptx-sep-3]\
\\$4\\*[ptx-filler]\
\\$5
..
.
.nf
.
.cp \n[*groff_ptx_tmac_C]
.do rr *groff_ptx_tmac_C
.
.\" Local Variables:
.\" mode: nroff
.\" fill-column: 72
.\" End:
.\" vim: set filetype=groff textwidth=72: