From 5541c427dc03de11c32bdceac89648ab7951fe6c Mon Sep 17 00:00:00 2001
From: wl <wl>
Date: Fri, 2 Jan 2009 08:07:03 +0000
Subject: * tmac/ptx.tmac: New file.

* NEWS, man/groff_tmac: man: Document it.
---
 tmac/ptx.tmac | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 tmac/ptx.tmac

(limited to 'tmac')

diff --git a/tmac/ptx.tmac b/tmac/ptx.tmac
new file mode 100644
index 00000000..f8d4da39
--- /dev/null
+++ b/tmac/ptx.tmac
@@ -0,0 +1,40 @@
+.\" 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.
+.
+.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
+.
+.\" eof
-- 
cgit v1.2.1