tmac/ptx.tmac

   1 .\" -*- nroff -*-
   2 .\"
   3 .\" ptx.tmac
   4 .\"
   5 .\"   Provide `.xx' macro to format permuted index entries as created
   6 .\"   by GNU ptx.
   7 .\"
   8 .\" Written 2008 by Werner Lemberg (wl@gnu.org)
   9 .\"
  10 .\" Public domain.
  11 .
  12 .nr ptx-ref-pos (\n[.l] - .65i)
  13 .nr ptx-head-pos (\n[ptx-ref-pos] / 2)
  14 .
  15 .ds ptx-sep-2 "   \"
  16 .ds ptx-sep-4 " \"
  17 .ds ptx-sep-5 " \"
  18 .
  19 .
  20 .de xx
  21 .  ds ptx-sep-1
  22 .  if \w\a\\$2\a \
  23 .    ds ptx-sep-1 " \|\"
  24 .
  25 .  ds ptx-sep-3
  26 .  if \w\a\\$4\a \
  27 .    ds ptx-sep-3 " \|\"
  28 .
  29 .  ds ptx-filler \\*[ptx-sep-4]\f3\a\fP\\*[ptx-sep-5]
  30 .  ta (\\n[ptx-ref-pos]u - \w\a\\*[ptx-sep-5]\au)
  31 .
  32 \h\a(\\n[ptx-head-pos]u - \w\a\\$1\\*[ptx-sep-1]\\$2\\*[ptx-sep-2]\au)\a\
  33 \\$1\\*[ptx-sep-1]\
  34 \\$2\\*[ptx-sep-2]\
  35 \\$3\\*[ptx-sep-3]\
  36 \\$4\\*[ptx-filler]\
  37 \\$5
  38 ..
  39 .
  40 .nf
  41 .
  42 .\" eof