summaryrefslogtreecommitdiffstats
path: root/tmac/ptx.tmac
diff options
context:
space:
mode:
Diffstat (limited to 'tmac/ptx.tmac')
-rw-r--r--tmac/ptx.tmac50
1 files changed, 50 insertions, 0 deletions
diff --git a/tmac/ptx.tmac b/tmac/ptx.tmac
new file mode 100644
index 0000000..2235610
--- /dev/null
+++ b/tmac/ptx.tmac
@@ -0,0 +1,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: