Adding upstream version 1.23.0.upstream/1.23.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 1638 insertions, 0 deletions

diff --git a/tmac/www.tmac.in b/tmac/www.tmac.in
new file mode 100644
index 0000000..658d231
--- /dev/null
+++ b/tmac/www.tmac.in
@@ -0,0 +1,1638 @@
+.ig
+www.tmac - macro package for adding HTML elements to roff documents.
+
+------------------------------------------------------------------------
+    Legalese
+------------------------------------------------------------------------
+
+This file is part of groff, the GNU roff type-setting system.
+
+Copyright (C) 2001-2020 Free Software Foundation, Inc.
+written by Gaius Mulley <gaius@glam.ac.uk>, with additions by
+Werner Lemberg <wl@gnu.org> and
+Bernd Warken <groff-bernd.warken-72@web.de>.
+
+groff is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your
+option) any later version.
+
+groff is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License along
+with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+------------------------------------------------------------------------
+    Description
+------------------------------------------------------------------------
+
+A simple set of macros to provide HTML (or XHTML) documents with basic
+www functionality.  It should work with any macro set.  In the
+following, HTML always denotes XHTML also.
+..
+.
+.
+.\" --------------------------------------------------------------------
+.\" Setup
+.\" --------------------------------------------------------------------
+.
+.do if d www:lenstr .nx
+.
+.do nr *groff_www_tmac_in_C \n[.cp]
+.cp 0
+.
+.mso devtag.tmac
+.
+.
+.\" Taken from tmac/an-ext.tmac
+.\" Map mono-width fonts to standard fonts for groff's TTY device.
+.if n \{\
+.  do ftr CR R
+.  do ftr CW R
+.  do ftr CI I
+.  do ftr CB B
+.\}
+.
+.ie r xhtml \
+.  ds www-> />\"
+.el \
+.  ds www-> >\"
+.
+.nr www-html 0
+.if '\*[.T]'html' \
+.  nr www-html 1
+.
+.\" set up www-image-template
+.
+.if !d www-image-template \
+.  ds www-image-template
+.
+.if r ps4html \{\
+.  \" remove the title command when we are generating images for HTML
+.  \" (stops a title accidentally appearing inside an image)
+.  di www-notitle
+.  tl ''''
+.  di
+.  rm tl
+.  de tl
+.  .
+.\}
+.
+.
+.\" --------------------------------------------------------------------
+.\" Test for '.substring'; result in register 'www.substring_ok'.
+.\" The automated break points in .URL addresses are only added if
+.\" this register is non-zero.
+.\"
+.nr www:substring_ok 0
+.de www:@test_substring
+.  if !d substring \
+.    return
+.  ds \\$0:s abcdefg\"
+.  substring \\$0:s 1 1
+.  if !'\\*[\\$0:s]'b' \{\
+.    rm \\$0:s
+.    return
+.  \}
+.  ds \\$0:s abcdefg\"
+.  substring \\$0:s 0 0
+.  if !'\\*[\\$0:s]'a' \{\
+.    rm \\$0:s
+.    return
+.  \}
+.  ds \\$0:s abcdefg\"
+.  substring \\$0:s 1 -1
+.  if !'\\*[\\$0:s]'bcdefg' \{\
+.    rm \\$0:s
+.    return
+.  \}
+.  nr www:substring_ok 1
+.  rm \\$0:s
+..
+.www:@test_substring
+.rm www:@test_substring
+.
+.
+.\" --------------------------------------------------------------------
+.\" Local Macros
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.\" www:paraspace
+.\"
+.\" Space before paragraph. Use \n[PD] if it exists.
+.\"
+.nr www:pd 0.5v
+.
+.de www:paraspace
+.  ie r PD \
+.    sp \\n[PD]u
+.  el \
+.    sp \\n[www:pd]u
+..
+.
+.\" --------------------------------------------------------------------
+.\" www:error (<test>...)
+.\"
+.\" Print error message.
+.\"
+.de www-error
+.  tm \\n[.F]:\\n[.c]: macro error: \\$*
+..
+.
+.als www:error www-error
+.
+.\" --------------------------------------------------------------------
+.\" www:fatal (<test>...)
+.\"
+.\" Print fatal error message and abort.
+.\"
+.de www-fatal
+.  ab \\n[.F]:\\n[.c]: fatal macro error: \\$*
+..
+.
+.als www:fatal www-fatal
+.
+.\" --------------------------------------------------------------------
+.\" www:lenstr (<register_name> <string_name>)
+.\"
+.\" Store length of string named <string_name> into register named
+.\" <register_name>.
+.\"
+.de www:lenstr
+.  if !(\\n[.$] == 2) \
+.    www:fatal .\\$0 expects 2 arguments, got \\n[.$]
+.  length \\$0:n x\\*[\\$2]
+.  nr \\$1 (\\n[\\$0:n] - 1)
+.  rr \\$0:n
+..
+.
+.\" --------------------------------------------------------------------
+.\" www:splitstr (<name>)
+.\"
+.\" Add a space character between any two adjacent characters in string
+.\" <name> and restore result into the string variable <name>; space
+.\" characters are first replaced by the word 'space'.
+.\"
+.de www:splitstr
+.  if !(\\n[.$] == 1) \
+.    www:error .\\$0 expects 1 argument, got \\n[.$]
+.  if '\\*[\\$1]'' \
+.    return
+.  ds \\$0:r "\\*[\\$1]\"
+.  ds \\$0:s
+.  while 1 \{\
+.    ds \\$0:c "\\*[\\$0:r]\"
+.    substring \\$0:c 0 0
+.    ie '\\*[\\$0:c]' ' \
+.      as \\$0:s " space\"
+.    el \
+.      as \\$0:s " \\*[\\$0:c]\"
+.    www:lenstr \\$0:n \\$0:r
+.    if (\\n[\\$0:n] <= 1) \
+.      break
+.    substring \\$0:r 1 -1
+.  \}
+.  if !'\\*[\\$0:s]'' \
+.    substring \\$0:s 1 -1 
+.  ds \\$1 \\*[\\$0:s]\"
+.  rm \\$0:c
+.  rr \\$0:n
+.  rm \\$0:r
+.  rm \\$0:s
+..
+.
+.\" --------------------------------------------------------------------
+.\" www:url_breaks (<string_name>)
+.\"
+.\" Add '\:' (possible break point) within URL strings after '/'.
+.\"
+.\" Smart about multiple '/', existing '\:', and space characters;
+.\" does not set a break point if less than 5 characters would go to
+.\" the next line.
+.\"
+.de www:url_breaks
+.  if !(\\n[.$] == 1) \
+.    www:error .\\$0 expects 1 argument, got \\n[.$]
+.  if !\n[www:substring_ok] \
+.    return
+.  ds \\$0:s "\\*[\\$1]\"
+.  www:splitstr \\$0:s
+.  www:url_breaks_split \\$0:s \\*[\\$0:s]
+.  ds \\$1 "\\*[\\$0:s]\"
+.  rm \\$0:s
+..
+.
+.\" --------------------------------------------------------------------
+.\" www:url_breaks_split (<result> <char> [<char>...])
+.\"
+.\" Add '\:' within URL strings, but arguments are a split string.
+.\"
+.\" Arguments: >=2: <result> <char> [<char>...]
+.\"
+.de www:url_breaks_split
+.  nr \\$0:min 5        \" minimal number of characters for next line
+.  if (\\n[.$] < 2) \
+.    www:error .\\$0 expects at least 2 arguments, got \\n[.$]
+.  ds \\$0:res \\$1\"
+.  shift
+.  ds \\$0:s
+.  nr \\$0:done 0
+.  while !\\n[\\$0:done] \{\
+.    if (\\n[.$] <= 0) \
+.      break
+.    if '\\$1'space' \{\
+.      as \\$0:s " \"
+.      shift
+.      continue
+.    \}
+.    if (\\n[.$] < \\n[\\$0:min]) \{\
+.      as \\$0:s "\\$1\"
+.      shift
+.      continue
+.    \}
+.    if !'\\$1'/' \{\
+.      as \\$0:s "\\$1\"
+.      shift
+.      continue
+.    \}
+.    \" we are at a '/' character
+.    while '\\$1'/' \{\
+.      as \\$0:s /\"
+.      if (\\n[.$] == 0) \{\
+.        nr \\$0:done 1
+.        break
+.      \}
+.      shift
+.    \}
+.    if \\n[\\$0:done] \
+.      break
+.    if (\\n[.$] < \\n[\\$0:min]) \
+.      continue
+.    if '\\$1'\:' \
+.      shift
+.    as \\$0:s \:\"
+.  \}
+.  ds \\*[\\$0:res] \\*[\\$0:s]\"
+.  rm \\$0:res
+.  rm \\$0:s
+..
+.
+.
+.\" --------------------------------------------------------------------
+.\" User Interface
+.\" --------------------------------------------------------------------
+.
+.\" --------------------------------------------------------------------
+.\" HTML
+.\"
+.\" The main auxiliary macro for the HTML interface.
+.\"
+.de HTML
+.  if \\n[www-html] \{\
+.    \" was implemented via .nop \&\X^html:\\$*^ but
+.    \" is now implemented using HTML-NS to utilize code factoring.
+.    \"
+.    \" the '\&' makes the vertical mode leave, so to say
+.    \"
+.    nop \&\c
+.    HTML-NS \\$*
+.    nop \&
+.  \}
+..
+.
+.\"
+.\" An auxiliary macro for HTML (without following space).
+.\"
+.de HTML-NS
+.  nop \X^html:\\$*^\c
+..
+.
+.\"
+.\" Emit an HTML tag after shutting down a (possibly open) paragraph.
+.\"
+.de HTML</p>
+.  ie \\n[www-html] \{\
+.    \" the '\&' makes the vertical mode leave, so to say
+.    nop \&\X^html</p>:\\$*^
+.  \}
+.  el \
+.    www:paraspace
+..
+.
+.\"
+.\" Emit an HTML tag.  If text has been written in the paragraph
+.\"                    then do not shut the paragraph down.
+.\"                    If text was not written, remove the empty
+.\"                    paragraph tag and emit the desired HTML tag.
+.\"
+.de HTML<?p>
+.  if \\n[www-html] \
+.    nop \&\X^html<?p>:\\$*^
+..
+.
+.\"
+.\" Emit a MATH tag.  If text has been written in the paragraph
+.\"                   then do not shut the paragraph down.
+.\"                   If text was not written, remove the empty
+.\"                   paragraph tag and emit the desired math tag.
+.\"
+.de MATH<?p>
+.  if \\n[www-html] \
+.    nop \&\X^math<?p>:\\$*^
+..
+.
+.\" --------------------------------------------------------------------
+.\" HX n
+.\"
+.\"   Automatic heading level cut off.
+.\"
+.\"   N is the depth limit of automatically linked headings.  So a depth
+.\"   of 2 would cause grohtml to generate a list of links for '.NH 1'
+.\"   and '.NH 2' but not for '.NH 3'.
+.\"
+.de HX
+.  if \\n[www-html] \
+.    nop \X^index:\\$*^
+..
+.
+.\" --------------------------------------------------------------------
+.\" BCL foreground background active not-visited visited
+.\"
+.de BCL
+.  HTML <body "text=""\\$1""" \
+              "bgcolor=""\\$2""" \
+              "link=""\\$3""" \
+              "alink=""\\$4""" \
+              "vlink=""\\$5"">"
+..
+.
+.\" --------------------------------------------------------------------
+.\" BGIMG imagefile
+.\"
+.de BGIMG
+.  HTML <body "background=""\\$1"">"
+..
+.
+.\" www:url_check_tag str
+.\"    If url named by \*[str] is internal (starts with #), 
+.\"    redefine \*[str] to be the value of the string TAG_url.
+.
+.de www:url_check_tag
+.  ds \\$0:tmp \\*[\\$1]\"
+.  substring \\$0:tmp 0 0
+.  if '\\*[\\$0:tmp]'#' \{\
+.    ds \\$0:tmp \\*[\\$1]\"
+.    substring \\$0:tmp 1
+.    ds \\$0:tmp TAG_\\*[\\$0:tmp]\"
+.
+.    ie d \\*[\\$0:tmp] \
+.      ds \\$1 \\*[\\*[\\$0:tmp]]\"
+.    el \
+.      ds \\$1 see below\"
+.  \} 
+.  rm \\$0:tmp
+..
+.
+.\" --------------------------------------------------------------------
+.\" URL url [description] [after]
+.\"
+.\"   If description is absent then the url becomes the anchor text.
+.\"
+.de URL
+.  if !'\\$1'' \{\
+.    ds \\$0:adr \\$1\"
+.    www:url_check_tag \\$0:adr
+.    if !\\n[www-html] \
+.      www:url_breaks \\$0:adr
+.  \}
+.  ie \\n[www-html] \{\
+.    ie '\\$3'' \
+.      ds \\$0:after \&\"
+.    el \
+.      ds \\$0:after \&\\$3\"
+.
+.    ie '\\$2'' \
+.       HTML-NS <a "href=""\\$1"">\\*[\\$0:adr]</a>"
+.    el \
+.       HTML-NS <a "href=""\\$1"">\\$2</a>"
+.
+.    nop \\*[\\$0:after]
+.    rm \\$0:after
+.  \}
+.  el \{\
+.    if !r ps4html \
+.      ad l
+.
+.    ie '\\$2'' \{\
+.      ie '\\$1'' \{\
+.        if !'\\$3'' \
+.          nop \\$3
+.      \}
+.      el \{\
+.        ie \\n[.color] \
+.          nop \%\\*[www:open]\m[\\*[www:color]]\f[\\*[www:fontstyle]]\\*[\\$0:adr]\f[]\m[]\\*[www:close]\\$3
+.        el \
+.          nop \%\\*[www:open]\f[\\*[www:fontstyle]]\\*[\\$0:adr]\f[]\\*[www:close]\\$3
+.      \}
+.    \}
+.    el \{\
+.      ie '\\$1'' \{\
+.        ie \\n[.color] \
+.          nop \m[\\*[www:color]]\\$2\m[]\\$3
+.        el \
+.          nop \f[\\*[www:fontstyle]]\\$2\f[]\\$3
+.      \}
+.      el \{\
+.        ie \\n[.color] \{\
+.          nop \m[\\*[www:color]]\\$2\m[]
+.          nop \%\\*[www:open]\f[\\*[www:fontstyle]]\\*[\\$0:adr]\f[]\\*[www:close]\\$3
+.        \}
+.        el \{\
+.          nop \f[\\*[www:fontstyle]]\\$2\f[]
+.          nop \%\\*[www:open]\f[\\*[www:fontstyle]]\\*[\\$0:adr]\f[]\\*[www:close]\\$3
+.        \}
+.      \}
+.    \}
+.
+.    if !r ps4html \
+.      ad
+.  \}
+.  rm \\$0:adr
+..
+.
+.\" --------------------------------------------------------------------
+.\" FTP url description [after]
+.\"
+.\"   Same as URL.
+.\"
+.als FTP URL
+.
+.\" --------------------------------------------------------------------
+.\" MTO address description [after]
+.\"
+.\"   ADDRESS is the email address (without the 'mailto:' prefix).
+.\"
+.\"   DESCRIPTION is the optional name.  If an empty argument is given,
+.\"   ADDRESS is used instead.
+.\"
+.\"   AFTER is optional stuff printed immediately after ADDRESS
+.\"   (resp. DESCRIPTION).
+.\"
+.\"     Example:
+.\"
+.\"       Foobar has been written by
+.\"       .MTO fred@foo.bar "Fredrick Bloggs" .
+.\"
+.de MTO
+.  ie \\n[www-html] \{\
+.    ie '\\$2'' \
+.      URL mailto:\\$1 \\$1 "\\$3"
+.    el \
+.      URL mailto:\\$1 "\\$2" "\\$3"
+.  \}
+.  el \{\
+.    ie '\\$2'' \{\
+.      ie '\\$1'' \{\
+.        ie !'\\$3'' \
+.          nop \\$3
+.      \}
+.      el \{\
+.        ie \\n[.color] \
+.          nop \%\m[\\*[www:color]]\f[\\*[www:fontstyle]]\\$1\f[]\m[]\\$3
+.        el \
+.          nop \%\f[\\*[www:fontstyle]]\\$1\f[]\\$3
+.      \}
+.    \}
+.    el \{\
+.      ie '\\$1'' \{\
+.        ie \\n[.color] \
+.          nop \m[\\*[www:color]]\\$2\m[]\\$3
+.        el \
+.          nop \f[\\*[www:fontstyle]]\\$2\f[]\\$3
+.      \}
+.      el \{\
+.        ie \\n[.color] \{\
+.          nop \m[\\*[www:color]]\\$2\m[]
+.          nop \%\\*[www:open]\f[\\*[www:fontstyle]]\\$1\f[]\\*[www:close]\\$3
+.        \}
+.        el \{\
+.          nop \f[\\*[www:fontstyle]]\\$2\f[]
+.          nop \%\\*[www:open]\f[\\*[www:fontstyle]]\\$1\f[]\\*[www:close]\\$3
+.        \}
+.      \}
+.    \}
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" TAG name [text]
+.\"
+.\"   Generate an HTML name NAME.
+.\"   Define string TAG_NAME to TEXT, if present, otherwise to \n[PN].
+.\"   Register PN is the current page number.
+.\"
+.de TAG
+.  HTML <a "name=""\\$1""></a>"
+.  ie '\\$2'' \
+.    if !rPN \
+.      nr PN \\n%
+.    ds TAG_\\$1 \\n[PN]\"
+.  el \
+.    ds TAG_\\$1 \\$2\"
+..
+.
+.\" --------------------------------------------------------------------
+.\" IMG [-R|-L|-C] filename [width] [height]
+.\"
+.\"   Include an image of any type (only works for -Thtml).
+.\"
+.\"   Alignment is centered by default (-C).
+.\"   Default value for WIDTH is 1i.
+.\"   If HEIGHT is not given, WIDTH is used as the height.
+.\"
+.de IMG
+.  ie \\n[www-html] \{\
+.    ie '\\$2'-R' \
+.      DEVTAG .right-image
+.    el \{\
+.      ie '\\$2'-L' \
+.        DEVTAG .left-image
+.      el \
+.        DEVTAG .centered-image
+.    \}
+.    nr www-width 100
+.    if !'\\$3'' \
+.      nr www-width \\$3
+.    nr www-height \\n[www-width]
+.    if !'\\$4'' \
+.      nr www-height \\$4
+.    HTML <img "src=""\\$1""" \
+               "alt=""Image \\$1""" \
+               "width=""\\n[www-width]""" \
+               "height=""\\n[www-height]""\\*[www->]"
+.  \}
+.  el \
+.    nop \\*[www:open]\f[\\*[www:fontstyle]]\\$1\f[]\\*[www:close]
+..
+.
+.\" --------------------------------------------------------------------
+.\" PIMG  [-R|-L|-C] filename [width] [height]
+.\"
+.\"   Include a PNG image.  It works for -Tps and -Thtml.
+.\"   The default value for WIDTH and HEIGHT is zero; the default
+.\"   alignment is centering (-C).
+.\"
+.\" Note: This macro can only be used with the '-U' option of groff,
+.\"       activating unsafe mode, if not used with -Thtml; the PNG image
+.\"       is then converted to the EPS format using netpbm utilities.
+.\"
+.de PIMG
+.  ds www-pic-align -C\"
+.  ie '\\$1'-R' \{\
+.    ds www-pic-align -R\"
+.    shift
+.  \}
+.  el \{\
+.    if '\\$1'-L' \{\
+.      ds www-pic-align -L\"
+.      shift
+.    \}
+.  \}
+.  if '\\$1'-C' \
+.    shift
+.
+.  ie \\n[www-html] \{\
+.    ds www-htmlalign align="center"\"
+.    if '\\*[www-pic-align]'-R' \
+.      ds www-htmlalign align="right"\"
+.    if '\\*[www-pic-align]'-L' \
+.      ds www-htmlalign align="left"\"
+.
+.    nr www-width 0
+.    nr www-height 0
+.    if !'\\$2'' \
+.      nr www-width (\\$3 * 100 / 240)
+.    if !'\\$3'' \
+.      nr www-height (\\$4 * 100 / 240)
+.    ie (\\n[www-width] == 0) \{\
+.      ie (\\n[www-height] == 0) \
+.        HTML</p> <p \\*[www-htmlalign]><img "src=""\\$1""" \
+                                             "alt=""Image \\$1""\\*[www->]</p>"
+.      el \
+.        HTML</p> <p \\*[www-htmlalign]><img "src=""\\$1""" \
+                                             "alt=""Image \\$1""" \
+                                             "height=""\\n[www-height]""\\*[www->]</p>"
+.    \}
+.    el \{\
+.      ie (\\n[www-height] == 0) \
+.        HTML</p> <p \\*[www-htmlalign]><img "src=""\\$1""" \
+                                             "alt=""Image \\$1""" \
+                                             "width=""\\n[www-width]""\\*[www->]</p>"
+.      el \
+.        HTML</p> <p \\*[www-htmlalign]><img "src=""\\$1""" \
+                                             "alt=""Image \\$1""" \
+                                             "width=""\\n[www-width]""" \
+                                             "height=""\\n[www-height]""\\*[www->]</p>"
+.    \}
+.  \}
+.  el \{\
+.    if !r ps4html \{\
+.      www-make-unique-name
+.      sy pngtopnm \\$1 \
+          | pnmcrop -white \
+          | @PNMTOPS_NOSETPAGE@ -noturn \
+          > \\*[www-unique-name].eps
+.      shift
+.      PSPIC \\*[www-pic-align] \\*[www-unique-name].eps \\$*
+.    \}
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" auxiliary definitions for MPIMG
+.\"
+.nr www-left-ll-trap 0
+.nr www-left-po-trap 0
+.nr www-right-ll-trap 0
+.
+.de www-finish-left-po
+.  po -(\\n[www-left-indent]u + \\n[www-image-gap]u)
+.  wh \\n[www-left-po-trap]u
+.  nr www-left-indent 0
+..
+.
+.\" called when the -R picture is finished
+.de www-finish-right-ll
+.  ll +(\\n[www-right-indent]u + \\n[www-image-gap]u)
+.
+.  \" now check whether we need to inline www-finish-left-ll
+.  if (\\n[www-left-ll-trap]u > 0) \
+.    if ((\\n[www-right-ll-trap]u + 1v) >= \\n[www-left-ll-trap]u) \{\
+.      mk www-left-po-trap
+.      nr www-left-po-trap +1v
+.      wh \\n[www-left-po-trap]u www-finish-left-po
+.      ll +\\n[www-left-indent]u
+.      wh \\n[www-left-ll-trap]u
+.      nr www-left-ll-trap 0
+.    \}
+.
+.  \" and check whether we need to inline www-finish-left-po
+.  if (\\n[www-left-po-trap]u > 0) \
+.    if ((\\n[www-right-ll-trap]u + 1v) >= \\n[www-left-po-trap]u) \{\
+.      po -\\n[www-left-indent]u
+.      wh \\n[www-left-po-trap]u
+.      nr www-left-indent 0
+.    \}
+.
+.  wh \\n[www-right-ll-trap]u
+.  nr www-right-ll-trap 0
+..
+.
+.de www-finish-left-ll
+.  if (\\n[www-right-ll-trap] > 0) \
+.    if ((\\n[www-left-ll-trap] + 1v) >= \\n[www-right-ll-trap]) \{\
+.      ll +\\n[www-right-indent]u
+.      nr www-right-ll-trap 0
+.    \}
+.
+.  mk www-left-po-trap
+.  nr www-left-po-trap +1v
+.  wh \\n[www-left-po-trap]u www-finish-left-po
+.  ll +(\\n[www-left-indent]u + \\n[www-image-gap]u)
+.  wh \\n[www-left-ll-trap]u
+.  nr www-left-ll-trap 0
+..
+.
+.\" www-handle-percent arg N1 N2 S1
+.\"     arg - input string (number or number%)
+.\"     output parameters:
+.\"         N1 - name of number register 1=absolute 0=percentage
+.\"         N2 - number register name for absolute value
+.\"         S1 - string register name for percentage value
+.\"
+.de www-handle-percent
+.  ds www-percent \\$1\"
+.  substring www-percent -1 -1
+.
+.  ie '\\*[www-percent]'%' \{\
+.    ds www-abs \\$1\"
+.    substring www-abs 0 -2
+.    nr \\$2 0
+.    nr \\$3 \\*[www-abs]
+.    ds \\$4 \\$1\"
+.  \}
+.  el \{\
+.    nr \\$2 1
+.    nr \\$3 \\$1
+.    ds \\$4 none\"
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" MPIMG [-R|-L] [-G gap] filename [width [height]]
+.\"
+.\"   Include a PNG image and wrap text around it.  It works for
+.\"   -Tps and -Thtml.  The default value for WIDTH is 1i; default value
+.\"   for HEIGHT is WIDTH; the default alignment is left (-L).
+.\"   -G is used to insert a gap between the text and the image.
+.\"   The height and width can also be given as a percentage.
+.\"   The PostScript device converts the percentage width into an
+.\"   absolute value by using \\n[.l], and the height by using \\n[.p].
+.\"
+.\"
+.\" Note: This macro can only be used with the '-U' option of groff,
+.\"       activating unsafe mode, if not used with -Thtml; the PNG image
+.\"       is then converted to the EPS format using netpbm utilities.
+.\"
+.nr www-htmlimage-gap 0
+.
+.de MPIMG
+.  nr www-image-just 1
+.  nr www-image-gap 0
+.  while (\\n[.$] > 0) \{\
+.    if '-L'\\$1' \{\
+.      nr www-image-just 1
+.      shift
+.      continue
+.    \}
+.    if '-R'\\$1' \{\
+.      nr www-image-just 0
+.      shift
+.      continue
+.    \}
+.    if '-G'\\$1' \{\
+.      nr www-image-gap \\$2
+.      nr www-htmlimage-gap (\\$2 * 100 / 240)
+.      shift 2
+.      continue
+.    \}
+.    break
+.  \}
+.
+.  nr www-width 1i
+.  nr www-height 1i
+.  ds www-size-specs width="\\n[www-width]" height="\\n[www-height]"\"
+.  ie !'\\$2'' \{\
+.    nr www-is-absolute 0
+.    nr www-absolute 0
+.    ds www-percentage none\"
+.    www-handle-percent \\$2 www-is-absolute www-absolute www-percentage
+.    ie !\\n[www-is-absolute] \{\
+.      \" percentage of linelength requested
+.      nr www-width (\\n[www-absolute] * \\n[.l] / 100)
+.      if \\n[www-html] \
+.        nr www-width (\\n[www-width] * 100 / 240)
+.      ds www-size-specs width="\\*[www-percentage]"\"
+.    \}
+.    el \{\
+.      nr www-width \\n[www-absolute]
+.      if \\n[www-html] \
+.        nr www-width (\\n[www-width] * 100 / 240)
+.      ds www-size-specs width="\\n[www-width]"\"
+.    \}
+.
+.    nr www-height \\n[www-width]
+.    ie !'\\$3'' \{\
+.      nr www-is-absolute 0
+.      nr www-absolute 0
+.      ds www-percentage none\"
+.      www-handle-percent \\$3 www-is-absolute www-absolute www-percentage
+.      ie !\\n[www-is-absolute] \{\
+.        \" percentage of pagelength requested
+.        nr www-height (\\n[www-absolute] * \\n[.p] / 100)
+.        if \\n[www-html] \
+.           nr www-height (\\n[www-height] * 100 / 240)
+.        ds www-size-specs "\\*[www-size-specs] height="\\*[www-percentage]"\"
+.      \}
+.      el \{\
+.        nr www-height \\n[www-absolute]
+.        if \\n[www-html] \
+.           nr www-height (\\n[www-height] * 100 / 240)
+.        ds www-size-specs "\\*[www-size-specs] height="\\*[www-height]"\"
+.      \}
+.    \}
+.  \}
+.  el \{\
+.    \" height not specified; use width value
+.    ie !\\n[www-is-absolute] \{\
+.       \" percentage value
+.       ds www-size-specs "\\*[www-size-specs] height="\\*[www-percentage]"\"
+.       nr www-height \\n[www-width]
+.    \}
+.    el \{\
+.       ds www-size-specs "\\*[www-size-specs] height="\\*[www-width]"\"
+.       nr www-height \\n[www-width]
+.    \}
+.  \}
+.
+.  ie \\n[www-html] \{\
+.    ie !\\n[www-image-just] \
+.      HTML <img "src=""\\$1""" \
+                 "alt=""Image \\$1""" \
+                 "hspace=""\\n[www-htmlimage-gap]""" \
+                 "align=""right""" \
+                 "\\*[www-size-specs]\\*[www->]"
+.    el \
+.      HTML <img "src=""\\$1""" \
+                 "alt=""Image \\$1""" \
+                 "hspace=""\\n[www-htmlimage-gap]""" \
+                 "align=""left""" \
+                 "\\*[www-size-specs]\\*[www->]"
+.  \}
+.  el \{\
+.    tm www-width is \\n[www-width]
+.    tm www-height is \\n[www-height]
+.    if !r ps4html \{\
+.      www-make-unique-name
+.      sy pngtopnm \\$1 \
+          | pnmcrop -white \
+          | @PNMTOPS_NOSETPAGE@ -noturn \
+          > \\*[www-unique-name].eps
+.      ie !\\n[www-image-just] \{\
+.        \" we must now disable a possible left image trap
+.        sp -1
+.        if (\\n[www-left-ll-trap] > 0) \
+.          wh \\n[www-left-ll-trap]u
+.        if (\\n[www-left-po-trap] > 0) \
+.          wh \\n[www-left-po-trap]u
+.        PSPIC -R \\*[www-unique-name].eps \\n[www-width]u \\n[www-height]u
+.        sp -\\n[ps-desht]u
+.
+.        nr www-right-indent \\n[ps-deswid]u
+.        \" we want to have some space between text and image,
+.        \" so the line length must be shorter
+.        ll -(\\n[www-right-indent]u + \\n[www-image-gap]u)
+.        mk www-right-ll-trap
+.        nr www-right-ll-trap +(\\n[ps-desht]u - 1v)
+.        wh \\n[www-right-ll-trap]u www-finish-right-ll
+.
+.        \" now restore possible left trap
+.        if (\\n[www-left-ll-trap] > 0) \
+.          wh \\n[www-left-ll-trap]u www-finish-left-ll
+.        if (\\n[www-left-po-trap] > 0) \
+.          wh \\n[www-left-po-trap]u
+.      \}
+.      el \{\
+.        \" we must now disable a possible right image trap
+.        if (\\n[www-right-ll-trap] > 0) \
+.          wh \\n[www-right-ll-trap]u
+.        PSPIC -L \\*[www-unique-name].eps \\n[www-width]u \\n[www-height]u
+.        sp -\\n[ps-desht]u
+.
+.        nr www-left-indent \\n[ps-deswid]u
+.        \" increase offset by gap
+.        po +(\\n[www-left-indent]u + \\n[www-image-gap]u)
+.        \" decrease line length by gap
+.        ll -(\\n[www-left-indent]u + \\n[www-image-gap]u)
+.        mk www-left-ll-trap
+.        nr www-left-ll-trap +(\\n[ps-desht]u - 1v)
+.        wh \\n[www-left-ll-trap]u www-finish-left-ll
+.
+.        \" now restore possible right trap
+.        if (\\n[www-right-ll-trap] > 0) \
+.          wh \\n[www-right-ll-trap]u www-finish-right-ll
+.      \}
+.    \}
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" HnS n
+.\"
+.\"   Begin heading.  Heading level is N.
+.\"
+.\" HnE
+.\"
+.\"   End heading.
+.\"
+.\" If your heading contains URL, FTP, MTO macros you might wish to
+.\" disable automatic links to headings.  This can be done via '-P-l'
+.\" from the command line or by using a cakk to '.HX 0'.
+.\"
+.nr www-heading-no -1
+.
+.de HnS
+.  ie '\\$1'' \
+.    nr www-heading-no 1
+.  el \
+.    nr www-heading-no \\$1
+.  DEVTAG-NH \\n[www-heading-no]
+..
+.
+.de HnE
+.  if (\\n[www-heading-no] == -1) \
+.    www-error HnE found without a corresponding HnS
+.  DEVTAG-EO-H
+..
+.
+.\" --------------------------------------------------------------------
+.\" LK
+.\"
+.\"   Emit the automatically collected links derived from
+.\"   section/numbered headings at this position.
+.\"
+.de LK
+.  DEVTAG .links
+..
+.
+.\" --------------------------------------------------------------------
+.\" HR
+.\"
+.\"   Produce a horizontal line.
+.\"
+.de HR
+.  HTML</p> <hr\\*[www->]
+..
+.
+.\" --------------------------------------------------------------------
+.\" NHR
+.\"
+.\"  Suppress the generation of the top and bottom rules which grohtml
+.\"  emits by default.
+.\"
+.de NHR
+.  DEVTAG .no-auto-rule
+..
+.
+.\"
+.\" www-end-nowhere - end of input trap called to finish diversion.
+.\"
+.de www-end-nowhere
+.  if !\\n[www-html] \
+.    di
+.  DEVTAG-EO-TL
+..
+.
+.\" --------------------------------------------------------------------
+.\" HTL
+.\"
+.\"   Generate an HTML title only.  This differs from the -ms .TL macro
+.\"   which generates both an HTML title and an H1 heading.
+.\"
+.\"   This is useful when an author wishes to use an HTML title as
+.\"   search engine fodder but a graphic title in the document.
+.\"
+.\"   The macro terminates when a space or break is seen (.sp, .br).
+.\"
+.de HTL
+.  DEVTAG .html-tl
+.  if !\\n[www-html] \
+.    di www-nowhere
+.  it 2 www-end-nowhere
+..
+.
+.\" --------------------------------------------------------------------
+.\" auxiliary definitions for lists
+.\"
+.ds www-ul-level1 \[bu]\ \ \"
+.ds www-ul-level2 \[sq]\ \ \"
+.ds www-ul-level3 \[ci]\ \ \"
+.nr www-ul-level 0
+.
+.ds www-ol-level1 decimal\"
+.ds www-ol-level2 lower-alpha\"
+.ds www-ol-level3 lower-roman\"
+.ds www-ol-tmp 00\ \ \"
+.nr www-ol-ctr1 0 1
+.nr www-ol-ctr2 0 1
+.nr www-ol-ctr3 0 1
+.af www-ol-ctr2 a
+.af www-ol-ctr3 i
+.nr www-ol-level 0
+.
+.nr www-dl-level 0
+.nr www-dl-shift 5n
+.
+.\"
+.\" allow nested lists
+.\"
+.nr www-depth 0
+.nr www-li-indent \n[.i]
+.ds www-level0 nop\"
+.ds www-level1
+.ds www-level2
+.ds www-level3
+.ds www-level4
+.ds www-level5
+.ds www-level6
+.ds www-level7
+.ds www-level8
+.ds www-level9
+.
+.\" which macro to use for LI
+.de www-push-li
+.  nr www-li-indent \\n[.i]
+.  nr www-depth +1
+.  ds www-level\\n[www-depth] \\$1\"
+.  ds www-ltag\\n[www-depth]
+.  als LI \\$1
+..
+.
+.de www-pop-li
+.  nr www-depth -1
+.  als LI \\*[www-level\\n[www-depth]]
+..
+.
+.\" www-emit-ltag - shut down a previous open list tag
+.\"                 before issuing a new tag \\$1.
+.\"                 It then records tag \\$1 is open.
+.
+.de www-emit-ltag
+.  if !'\\*[www-ltag\\n[www-depth]]'' \
+.    HTML-NS </\\*[www-ltag\\n[www-depth]]>
+.  if !'\\$1'' \
+.    HTML-NS <\\$1>
+.  ds www-ltag\\n[www-depth] \\$1\"
+..
+.
+.\"
+.\" Auxiliary macro for ULS.
+.\"
+.de www-push-ul-level
+.  nr www-ul-level +1
+.  if (\\n[www-ul-level] > 3) \
+.    www-error ULS: too many levels of indentation (\\n[www-ul-level])
+..
+.\"
+.\" Auxiliary macro for ULE.
+.\"
+.de www-pop-ul-level
+.  if !\\n[www-ul-level] \
+.    www-error ULE: trying to terminate a list which does not exist
+.  nr www-ul-level -1
+..
+.
+.\"
+.\" Auxiliary macro for OLS.
+.\"
+.de www-push-ol-level
+.  nr www-ol-level +1
+.  if (\\n[www-ol-level] > 3) \
+.    www-error OLS: too many levels of indentation (\\n[www-ol-level])
+..
+.
+.\"
+.\" Auxiliary macro for OLE.
+.\"
+.de www-pop-ol-level
+.  if !\\n[www-ol-level] \
+.    www-error OLE: trying to terminate a list which does not exist
+.  nr www-ol-level -1
+..
+.
+.\" --------------------------------------------------------------------
+.\" ULS
+.\"
+.\"   Start an unordered list.
+.\"
+.de ULS
+.  www-push-li www-li-ul
+.  www-push-ul-level
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML</p> <ul>
+.  \}
+.  el \
+.    nr www-li-indent +\w'\\*[www-ul-level\\n[www-ul-level]]'u
+..
+.
+.\" --------------------------------------------------------------------
+.\" ULE
+.\"
+.\"   End an unordered list.
+.\"
+.de ULE
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML</p> </ul>
+.  \}
+.  el \{\
+.    nr www-li-indent -\w'\\*[www-ul-level\\n[www-ul-level]]'u
+.    in \\n[www-li-indent]u
+.  \}
+.  www-pop-ul-level
+.  www-pop-li
+..
+.
+.\" --------------------------------------------------------------------
+.\" OLS
+.\"
+.\"   Start an ordered list.
+.\"
+.de OLS
+.  www-push-li www-li-ol
+.  www-push-ol-level
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML</p> <ol "style=""list-style-type:" \
+                           "\\*[www-ol-level\\n[www-ol-level]]"">"
+.  \}
+.  el \
+.    nr www-li-indent +\w'\\*[www-ol-tmp]'u
+..
+.
+.\" --------------------------------------------------------------------
+.\" OLE
+.\"
+.\"   End an ordered list.
+.\"
+.de OLE
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML </ol>
+.  \}
+.  el \{\
+.    nr www-li-indent -\w'\\*[www-ol-tmp]'u
+.    in \\n[www-li-indent]u
+.    nr www-ol-ctr\\n[www-ol-level] 0 1
+.  \}
+.  www-pop-ol-level
+.  www-pop-li
+..
+.
+.\" --------------------------------------------------------------------
+.\" DLS
+.\"
+.\"   Start a definition list.
+.\"
+.de DLS
+.  www-push-li www-li-dl
+.  nr www-dl-level +1
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML</p> <dl>
+.  \}
+.  el \{\
+.    nr www-li-indent +\\n[www-dl-shift]u
+.    in \\n[www-li-indent]u
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" DLE
+.\"
+.\"   End a definition list.
+.\"
+.de DLE
+.  ie \\n[www-html] \{\
+.    www-emit-ltag
+.    HTML </dl>
+.  \}
+.  el \{\
+.    nr www-li-indent -\\n[www-dl-shift]u
+.    in \\n[www-li-indent]u
+.  \}
+.  nr www-dl-level -1
+.  www-pop-li
+..
+.
+.\" --------------------------------------------------------------------
+.\" LI
+.\"
+.\"   Insert a list item.
+.\"
+.
+.\" ********
+.\" www-li-ul - bulleted list item
+.\"
+.de www-li-ul
+.  ie \\n[www-html] \
+.    www-emit-ltag li
+.  el \{\
+.    www:paraspace
+.    if rPORPHANS \
+.      ne \\n[PORPHANS]v
+.    in \\n[www-li-indent]u
+.    ti -\w'\\*[www-ul-level\\n[www-ul-level]]'u
+.    nop \\*[www-ul-level\\n[www-ul-level]]\c
+.  \}
+..
+.
+.\" ********
+.\" www-li-ol - numbered list item
+.\"
+.de www-li-ol
+.  ie \\n[www-html] \
+.    www-emit-ltag li
+.  el \{\
+.    www:paraspace
+.    if rPORPHANS \
+.      ne \\n[PORPHANS]v
+.    in \\n[www-li-indent]u
+.    ti -\w'\\n+[www-ol-ctr\\n[www-ol-level]]\ \ 'u
+.    nop \\n[www-ol-ctr\\n[www-ol-level]]\ \ \c
+.  \}
+..
+.
+.\" ********
+.\" www-li-dl - definition list item
+.\"
+.de www-li-dl
+.  ie \\n[www-html] \{\
+.    HTML <dt>\\$1</dt>
+.    www-emit-ltag dd
+.  \}
+.  el \{\
+.    www:paraspace
+.    if rPORPHANS \
+.      ne \\n[PORPHANS]v
+.    in \\n[www-li-indent]u
+.    ti -\\n[www-dl-shift]u
+.    nop \&\\$1
+.    br
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" DC l text [color]
+.\"
+.\"   L is the letter to be dropped and enlarged.
+.\"
+.\"   TEXT is the following text whose height the first letter should
+.\"   not exceed.
+.\"
+.\"   COLOR is the optional color of the dropped letter (default black).
+.\"
+.de DC
+.  ds www-dropcolor black\"
+.  if !'\\$3'' \
+.    ds www-dropcolor \\$3\"
+.  ie '\*[.T]'html' \{\
+.    www-make-unique-name
+.    nr www-drop-width (100u * \\n[.v]u * 3u / \\n[.l]u)
+.    MPIMG -L \\*[www-unique-name].png \\n[www-drop-width]%
+.  \}
+.  el \{\
+.    ie r ps4html \{\
+.      www-make-unique-name
+.      \" To avoid interferences with another DC macro call which is
+.      \" located very near to the current one, we draw the glyph on a
+.      \" separate page.  Otherwise it could theoretically happen that
+.      \" the dropped capital glyphs overlap.
+.      bp
+.      ev www-DC
+.      vs 320p
+.      nop \O[5i\\*[www-unique-name].png]\O[1]
+.      nop \m[\\*[www-dropcolor]]\s[160]\O[3]\\$1\O[4]
+.      nop \O[2]\O[0]
+.      br
+.      ev
+.      bp
+.    \}
+.    el \{\
+.      ie n \
+.        nop \\$1\c
+.      el \{\
+.        nr dummy \w'\\$1'u
+.        nr dcht ((\\n[.v] + \\n[rst]) * \\n[.ps] / \\n[rst])
+.        char \[dcap] \m[\\*[www-dropcolor]]\s'\\n[dcht]u'\\$1
+.        nop \v'\\n[.v]u'\\[dcap]\v'-\\n[.v]u'\c
+'        ti \w'\\[dcap]'u
+.      \}
+.    \}
+.  \}
+.  nop \\$2
+..
+.
+.\"
+.\" supplementary macros used by other macro sets
+.\"
+.\" here are some tags specially for -Tps or -Thtml when invoked by
+.\" pre-html to generate PNG images from postscript.
+.
+.\" --------------------------------------------------------------------
+.\" HTML-DO-IMAGE - tell troff to issue an image marker which can be
+.\"                 read back by pre-html
+.\"
+.de HTML-DO-IMAGE
+.  if r ps4html \
+.    nop \O[5\\$2\\$1.png]\O[1]\O[3]
+.  if \\n[www-html] \
+.    nop \O[5\\$2\\$1.png]\O[0]\O[3]
+..
+.
+.\" --------------------------------------------------------------------
+.\" HTML-IMAGE-END - terminate an image for HTML
+.\"
+.de HTML-IMAGE-END
+.  if r ps4html \
+.    nop \O[4]\O[2]\O[0]
+.  if \\n[www-html] \
+.    nop \O[4]\O[2]\O[1]
+..
+.
+.nr www-png-no 0
+.
+.\" --------------------------------------------------------------------
+.\" www-make-unique-name - generate another unique name in string
+.\"                        'www-unique-name'
+.\"
+.de www-make-unique-name
+.  nr www-png-no +1
+.  ds www-unique-name \\*[www-image-template]\\n[www-png-no]\"
+..
+.
+.\" --------------------------------------------------------------------
+.\" HTML-IMAGE and friends tell grohtml that this region of text needs
+.\"            to be rendered as an image.
+.\"
+.de HTML-IMAGE
+.  \" generates a centered image
+.  www-make-unique-name
+.  HTML-DO-IMAGE \\*[www-unique-name] c
+..
+.
+.de HTML-IMAGE-RIGHT
+.  www-make-unique-name
+.  HTML-DO-IMAGE \\*[www-unique-name] r
+..
+.
+.de HTML-IMAGE-LEFT
+.  www-make-unique-name
+.  HTML-DO-IMAGE \\*[www-unique-name] l
+..
+.
+.de HTML-IMAGE-INLINE
+.  www-make-unique-name
+.  HTML-DO-IMAGE \\*[www-unique-name] i
+..
+.
+.\"  EQN-HTML-IMAGE and friends check to see whether the equation is
+.\"                 not in an image, in which case it allows HTML
+.\"                 (mathml) to be generated (if -Txhtml was specified).
+.
+.de EQN-HTML-IMAGE
+.  \" generates a centered image
+.  www-make-unique-name
+.  EQN-HTML-DO-IMAGE \\*[www-unique-name] c
+..
+.
+.de EQN-HTML-IMAGE-RIGHT
+.  www-make-unique-name
+.  EQN-HTML-DO-IMAGE \\*[www-unique-name] r
+..
+.
+.de EQN-HTML-IMAGE-LEFT
+.  www-make-unique-name
+.  EQN-HTML-DO-IMAGE \\*[www-unique-name] l
+..
+.
+.de EQN-HTML-IMAGE-INLINE
+.  www-make-unique-name
+.  EQN-HTML-DO-IMAGE \\*[www-unique-name] i
+..
+.
+.\" --------------------------------------------------------------------
+.\" EQN-HTML-DO-IMAGE - tell troff to issue an image marker which can be
+.\"                     read back by pre-html
+.\"
+.de EQN-HTML-DO-IMAGE
+.  ie r xhtml \{\
+.    if !(\\n[.O] == 0) \{\
+.      if r ps4html \
+.        nop \O[5\\$2\\$1.png]\O[1]\O[3]
+.      if \\n[www-html] \
+.        nop \O[5\\$2\\$1.png]\O[0]\O[3]
+.    \}
+.  \}
+.  el \
+.    HTML-DO-IMAGE \\$*
+..
+.
+.\" --------------------------------------------------------------------
+.\" EQN-HTML-IMAGE-END - terminate an image for HTML
+.\"
+.de EQN-HTML-IMAGE-END
+.  ie r xhtml \{\
+.    if !(\\n[.O] == 0) \{\
+.      if r ps4html \
+.        nop \O[4]\O[2]\O[0]
+.      if \\n[www-html] \
+.        nop \O[4]\O[2]\O[1]
+.    \}
+.  \}
+.  el \
+.    HTML-IMAGE-END
+..
+.
+.\" --------------------------------------------------------------------
+.\" Setup around HTML-IMAGE and friends
+.\"
+.\" now set up TS, TE, EQ, EN default macros
+.\"
+.\" we must not use '.als': the definition of .TE in s.tmac, for
+.\" example, calls .HTML-IMAGE-END, which would refer to itself due to
+.\" the alias, causing an endless loop
+.\"
+.if !d TS \{\
+.  de TS
+.    HTML-IMAGE \\$@
+.    if \\n[www-html] \{\
+.      nr www-TS-ll \\n[.l]
+.      ll 1000n
+.    \}
+.  .
+.\}
+.if !d TE \{\
+.  de TE
+.    if \\n[www-html] \
+.      ll \\n[www-TS-ll]u
+.    HTML-IMAGE-END \\$@
+.  .
+.\}
+.if !d EQ \{\
+.  de EQ
+.    EQN-HTML-IMAGE \\$@
+.    if \\n[www-html] \{\
+.      nr www-EQ-ll \\n[.l]
+.      ll 1000n
+.    \}
+.  .
+.\}
+.if !d EN \{\
+.  de EN
+.    if \\n[www-html] \
+.      ll \\n[www-EQ-ll]u
+.    EQN-HTML-IMAGE-END \\$@
+.  .
+.\}
+.
+.\" --------------------------------------------------------------------
+.\" JOBNAME
+.\"
+.\"   Generate multiple output files containing the HTML.
+.\"   A file is split whenever a .SH or .NH 1 is encountered.
+.\"   The argument to JOBNAME is the file stem for future output files.
+.\"
+.de JOBNAME
+.  DEVTAG .job-name \\$1
+..
+.
+.\" --------------------------------------------------------------------
+.\" HEAD
+.\"
+.\"   Add information to the <head> </head> section of the HTML
+.\"   document
+.\"
+.de HEAD
+.  DEVTAG .head "\\$*"
+..
+.
+.\" --------------------------------------------------------------------
+.\" start of some code
+.\"
+.de CDS
+.  ft CR
+.  nf
+..
+.
+.\" --------------------------------------------------------------------
+.\" end of some code
+.\"
+.de CDE
+.  fi
+.  ft P
+..
+.
+.ds www-nav-colour #eeeeee\"
+.nr www-nav-width-left 30
+.nr www-nav-width-right 70
+.
+.\" --------------------------------------------------------------------
+.\" LNS - left navigation start
+.\"
+.de LNS
+.  HTML</p> <table><tr><td "valign=""top""" \
+                           "width=""\\n[www-nav-width-left]%""" \
+                           "bgcolor=""\\*[www-nav-colour]"">"
+.  LK
+.  HTML</p> </td><td "valign=""top""" \
+                     "width=""\\n[www-nav-width-right]%"">"
+.  nr SH-open 1
+..
+.
+.\" --------------------------------------------------------------------
+.\" LNE - left navigation end
+.\"
+.de LNE
+.  HTML</p> </td></tr></table>
+.  HR
+..
+.
+.nr SH-open 0
+.nr needs-begin 0
+.
+.\"
+.\" some auxiliary macros for left navigation lists
+.\"
+.de www-SH
+.  if (0\\$1 == 0) \{\
+.    if (\\n[SH-open] == 1) \
+.      LNE
+.    nr needs-begin 1
+.    @SH-old
+.  \}
+..
+.
+.de www-NH
+.  if (0\\$1 <= 1) \{\
+.    if (\\n[SH-open] == 1) \
+.      LNE
+.    nr needs-begin 1
+.    @NH-old
+.  \}
+..
+.
+.de www-LP
+.  @LP-old
+.  if (\\n[needs-begin] == 1) \{\
+.    HR
+.    LNS
+.  \}
+.  nr needs-begin 0
+..
+.
+.\" --------------------------------------------------------------------
+.\" ALN [colour] [left width percentage]
+.\"
+.\"   Turn on automatic left navigation.  This macro should only be
+.\"   called once (normally at the start of the document) as it
+.\"   indicates that all top-level section headings form a navigation
+.\"   list on the left of the main text.
+.\"
+.de ALN
+.  if '\*[.T]'html' \{\
+.    if !'\\$1'' \
+.      ds www-nav-colour \\$1\"
+.    if (0\\$2 > 0) \{\
+.      nr www-nav-width-left \\$2
+.      nr www-nav-width-right (100 - \\$2)
+.    \}
+.    rn @SH @SH-old
+.    rn www-SH @SH
+.    rn @NH @NH-old
+.    rn www-NH @NH
+.    rn @LP @LP-old
+.    rn www-LP @LP
+.  \}
+..
+.
+.\" --------------------------------------------------------------------
+.\" LINKSTYLE color [fontstyle [openglyph closeglyph]]
+.\"
+.\"   Initialize www.tmac so that when this macro set is used with
+.\"   non-HTML devices the urls are rendered the user defined
+.\"   attributes.  For example:
+.\"
+.\"   LINKSTYLE blue CR < >
+.\"
+.de LINKSTYLE
+.  if (\\n[.$] < 1) \
+.    www:error .\\$0 expects at least 1 argument, got \\n[.$]
+.  ds www:color \\$1\"
+.  shift
+.  if (\\n[.$] < 1) \
+.    return
+.  ds www:fontstyle \\$1\"
+.  shift
+.  if (\\n[.$] < 1) \
+.    www:error .\\$0 expects both open and close glyphs to be specified
+.  ds www:open \\$1\"
+.  ds www:close \\$2\"
+..
+.
+.\" MATHML - enable eqn mathml output to pass through to the device
+.\"          driver
+.
+.de MATHML
+.  if (\\n[.O] == 0) \
+.    MATH<?p> \\$*
+..
+.
+.\" --------------------------------------------------------------------
+.\" final setup
+.\" --------------------------------------------------------------------
+.
+.LINKSTYLE blue CR \[la] \[ra]
+.
+.if \n[www-html] \{\
+.  nh
+.  nr HY 0
+.\}
+.
+.if r ps4html .nop \O[0]
+.cp \n[*groff_www_tmac_in_C]
+.do rr *groff_www_tmac_in_C
+.
+.\" now set
+.
+.\" Local Variables:
+.\" mode: nroff
+.\" fill-column: 72
+.\" End:
+.\" vim: set filetype=groff textwidth=72: