gnu/usr.bin/groff/tmac/patches/doc-syms.no_obj.patch

   1 $DragonFly: src/gnu/usr.bin/groff/tmac/patches/doc-syms.no_obj.patch,v 1.1 2005/09/08 10:58:16 asmodai Exp $
   2
   3 --- doc-syms    2005-09-08 12:50:26.000000000 +0200
   4 +++ doc-syms    2005-09-08 12:52:04.000000000 +0200
   5 @@ -324,6 +262,70 @@
   6  ..
   7  .
   8  .
   9 +.\" NS Dx user macro
  10 +.\" NS   print DragonFly
  11 +.\" NS
  12 +.\" NS modifies:
  13 +.\" NS   doc-arg-ptr
  14 +.\" NS   doc-curr-font
  15 +.\" NS   doc-curr-size
  16 +.\" NS   doc-macro-name
  17 +.\" NS
  18 +.\" NS local variable:
  19 +.\" NS   doc-str-Dx
  20 +.\" NS   doc-str-Dx1
  21 +.\" NS
  22 +.\" NS width register `Dx' defined in doc-common
  23 +.
  24 +.\" we use the doc-operating-system-DragonFly-* strings defined in doc-common
  25 +.
  26 +.de Dx
  27 +.  nr doc-curr-font \n[.f]
  28 +.  nr doc-curr-size \n[.ps]
  29 +.  ds doc-str-Dx \f[\n[doc-curr-font]]\s[\n[doc-curr-size]u]
  30 +.
  31 +.  \" default value if no argument
  32 +.  ds doc-str-Dx1 \*[doc-Tn-font-size]\%DragonFly\*[doc-str-Dx]
  33 +.
  34 +.  if !\n[doc-arg-limit] \
  35 +.    if \n[.$] \{\
  36 +.      ds doc-macro-name Dx
  37 +.      doc-parse-args \$@
  38 +.    \}
  39 +.
  40 +.  if (\n[doc-arg-limit] > \n[doc-arg-ptr]) \{\
  41 +.    nr doc-arg-ptr +1
  42 +.    ie (\n[doc-type\n[doc-arg-ptr]] == 2) \{\
  43 +.      ie \A\a\*[doc-arg\n[doc-arg-ptr]]\a \{\
  44 +.        ie d doc-operating-system-DragonFly-\*[doc-arg\n[doc-arg-ptr]] \
  45 +.          as doc-str-Dx1 \~\*[doc-operating-system-DragonFly-\*[doc-arg\n[doc-arg-ptr]]]
  46 +.        el \{\
  47 +.          tmc mdoc warning: .Dx: Unknown DragonFly version
  48 +.          tm1 " `\*[doc-arg\n[doc-arg-ptr]]' (#\n[.c])
  49 +.          as doc-str-Dx1 \~\*[doc-arg\n[doc-arg-ptr]]
  50 +.      \}\}
  51 +.      el \
  52 +.        as doc-str-Dx1 \~\*[doc-arg\n[doc-arg-ptr]]
  53 +.    \}
  54 +.    el \
  55 +.      nr doc-arg-ptr -1
  56 +.  \}
  57 +.
  58 +.  \" replace current argument with result
  59 +.  ds doc-arg\n[doc-arg-ptr] "\*[doc-str-Dx1]
  60 +.  nr doc-type\n[doc-arg-ptr] 2
  61 +.  ds doc-space\n[doc-arg-ptr] "\*[doc-space]
  62 +.
  63 +.  \" recompute space vector for remaining arguments
  64 +.  nr doc-num-args (\n[doc-arg-limit] - \n[doc-arg-ptr])
  65 +.  nr doc-arg-limit \n[doc-arg-ptr]
  66 +.  if \n[doc-num-args] \
  67 +.    doc-parse-space-vector
  68 +.
  69 +.  doc-print-recursive
  70 +..
  71 +.
  72 +.
  73  .\" NS Fx user macro
  74  .\" NS   print FreeBSD
  75  .\" NS