

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: www.tmac</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>.ig
www.tmac - macro package for adding HTML elements to roff documents.

File position: &lt;groff_source_top&gt;/tmac/www.tmac
Installed position: groff&#039;s main macro directory.

------------------------------------------------------------------------
    Legalese
------------------------------------------------------------------------

This file is part of groff, the GNU roff type-setting system.

Copyright (C) 2001-2014  Free Software Foundation, Inc.
written by Gaius Mulley &lt;gaius@glam.ac.uk&gt;, with additions by
Werner Lemberg &lt;wl@gnu.org&gt; and
Bernd Warken &lt;groff-bernd.warken-72@web.de&gt;.

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 &lt;http://www.gnu.org/licenses/&gt;.


------------------------------------------------------------------------
    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.
..
.
.
.\&quot; --------------------------------------------------------------------
.\&quot; Setup
.\&quot; --------------------------------------------------------------------
.
.do if d www:lenstr .nx
.
.do mso devtag.tmac
.
.nr _C \n(.C
.cp 0
.
.
.ie r xhtml \
.  ds www-&gt; /&gt;\&quot;
.el \
.  ds www-&gt; &gt;\&quot;
.
.nr www-html 0
.if &#039;\*[.T]&#039;html&#039; \
.  nr www-html 1
.
.\&quot; set up www-image-template
.
.if !d www-image-template \
.  ds www-image-template
.
.if r ps4html \{\
.  \&quot; remove the title command when we are generating images for HTML
.  \&quot; (stops a title accidentally appearing inside an image)
.  di www-notitle
.  tl &#039;&#039;&#039;&#039;
.  di
.  rm tl
.  de tl
.  .
.\}
.
.
.\&quot; --------------------------------------------------------------------
.\&quot; Test for `.substring&#039;; result in register `www.substring_ok&#039;.
.\&quot; The automated break points in .URL addresses are only added if
.\&quot; this register is non-zero.
.\&quot;
.nr www:substring_ok 0
.de www:@test_substring
.  if !d substring \
.    return
.  ds \\$0:s abcdefg\&quot;
.  substring \\$0:s 1 1
.  if !&#039;\\*[\\$0:s]&#039;b&#039; \{\
.    rm \\$0:s
.    return
.  \}
.  ds \\$0:s abcdefg\&quot;
.  substring \\$0:s 0 0
.  if !&#039;\\*[\\$0:s]&#039;a&#039; \{\
.    rm \\$0:s
.    return
.  \}
.  ds \\$0:s abcdefg\&quot;
.  substring \\$0:s 1 -1
.  if !&#039;\\*[\\$0:s]&#039;bcdefg&#039; \{\
.    rm \\$0:s
.    return
.  \}
.  nr www:substring_ok 1
.  rm \\$0:s
..
.www:@test_substring
.rm www:@test_substring
.
.
.\&quot; --------------------------------------------------------------------
.\&quot; Local Macros
.\&quot; --------------------------------------------------------------------
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:paraspace
.\&quot;
.\&quot; Space before paragraph. Use \n[PD] if it exists.
.\&quot;
.nr www:pd 0.5v
.
.de www:paraspace
.  ie r PD \
.    sp \\n[PD]u
.  el \
.    sp \\n[www:pd]u
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:error (&lt;test&gt;...)
.\&quot;
.\&quot; Print error message.
.\&quot;
.de www-error
.  tm \\n[.F]:\\n[.c]: macro error: \\$*
..
.
.als www:error www-error
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:lenstr (&lt;register_name&gt; &lt;string_name&gt;)
.\&quot;
.\&quot; Store length of string named &lt;string_name&gt; into register named
.\&quot; &lt;register_name&gt;.
.\&quot;
.de www:lenstr
.  if !(\\n[.$] == 2) \{\
.    tm .\\$0 expects 2 arguments.
.    ab
.  \}
.  length \\$0:n x\\*[\\$2]
.  nr \\$1 (\\n[\\$0:n] - 1)
.  rr \\$0:n
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:splitstr (&lt;name&gt;)
.\&quot;
.\&quot; Add a space character between any two adjacent characters in string
.\&quot; &lt;name&gt; and restore result into the string variable &lt;name&gt;; space
.\&quot; characters are first replaced by the word `space&#039;.
.\&quot;
.de www:splitstr
.  if !(\\n[.$] == 1) \
.    www:error .\\$0 expects 1 argument.
.  if &#039;\\*[\\$1]&#039;&#039; \
.    return
.  ds \\$0:r &quot;\\*[\\$1]\&quot;
.  ds \\$0:s
.  while 1 \{\
.    ds \\$0:c &quot;\\*[\\$0:r]\&quot;
.    substring \\$0:c 0 0
.    ie &#039;\\*[\\$0:c]&#039; &#039; \
.      as \\$0:s &quot; space\&quot;
.    el \
.      as \\$0:s &quot; \\*[\\$0:c]\&quot;
.    www:lenstr \\$0:n \\$0:r
.    if (\\n[\\$0:n] &lt;= 1) \
.      break
.    substring \\$0:r 1 -1
.  \}
.  if !&#039;\\*[\\$0:s]&#039;&#039; \
.    substring \\$0:s 1 -1 
.  ds \\$1 \\*[\\$0:s]\&quot;
.  rm \\$0:c
.  rr \\$0:n
.  rm \\$0:r
.  rm \\$0:s
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:url_breaks (&lt;string_name&gt;)
.\&quot;
.\&quot; Add `\:&#039; (possible break point) within URL strings after `/&#039;.
.\&quot;
.\&quot; Smart about multiple `/&#039;, existing `\:&#039;, and space characters;
.\&quot; does not set a break point if less than 5 characters would go to
.\&quot; the next line.
.\&quot;
.de www:url_breaks
.  if !(\\n[.$] == 1) \
.    www:error .\\$0 expects 1 argument.
.  if !\n[www:substring_ok] \
.    return
.  ds \\$0:s &quot;\\*[\\$1]\&quot;
.  www:splitstr \\$0:s
.  www:url_breaks_split \\$0:s \\*[\\$0:s]
.  ds \\$1 &quot;\\*[\\$0:s]\&quot;
.  rm \\$0:s
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; www:url_breaks_split (&lt;result&gt; &lt;char&gt; [&lt;char&gt;...])
.\&quot;
.\&quot; Add `\:&#039; within URL strings, but arguments are a split string.
.\&quot;
.\&quot; Arguments: &gt;=2: &lt;result&gt; &lt;char&gt; [&lt;char&gt;...]
.\&quot;
.de www:url_breaks_split
.  nr \\$0:min 5             \&quot; minimal number of characters for next line
.  if (\\n[.$] &lt; 2) \
.    www:error .\\$0 expects at least 2 arguments.
.  ds \\$0:res \\$1\&quot;
.  shift
.  ds \\$0:s
.  nr \\$0:done 0
.  while !\\n[\\$0:done] \{\
.    if (\\n[.$] &lt;= 0) \
.      break
.    if &#039;\\$1&#039;space&#039; \{\
.      as \\$0:s &quot; \&quot;
.      shift
.      continue
.    \}
.    if (\\n[.$] &lt; \\n[\\$0:min]) \{\
.      as \\$0:s &quot;\\$1\&quot;
.      shift
.      continue
.    \}
.    if !&#039;\\$1&#039;/&#039; \{\
.      as \\$0:s &quot;\\$1\&quot;
.      shift
.      continue
.    \}
.    \&quot; we are at a `/&#039; character
.    while &#039;\\$1&#039;/&#039; \{\
.      as \\$0:s /\&quot;
.      if (\\n[.$] == 0) \{\
.        nr \\$0:done 1
.        break
.      \}
.      shift
.    \}
.    if \\n[\\$0:done] \
.      break
.    if (\\n[.$] &lt; \\n[\\$0:min]) \
.      continue
.    if &#039;\\$1&#039;\:&#039; \
.      shift
.    as \\$0:s \:\&quot;
.  \}
.  ds \\*[\\$0:res] \\*[\\$0:s]\&quot;
.  rm \\$0:res
.  rm \\$0:s
..
.
.
.\&quot; --------------------------------------------------------------------
.\&quot; User Interface
.\&quot; --------------------------------------------------------------------
.
.\&quot; --------------------------------------------------------------------
.\&quot; HTML
.\&quot;
.\&quot; The main auxiliary macro for the HTML interface.
.\&quot;
.de HTML
.  if \\n[www-html] \{\
.    \&quot; was implemented via .nop \&amp;\X^html:\\$*^ but
.    \&quot; is now implemented using HTML-NS to utilize code factoring.
.    \&quot;
.    \&quot; the `\&amp;&#039; makes the vertical mode leave, so to say
.    \&quot;
.    nop \&amp;\c
.    HTML-NS \\$*
.    nop \&amp;
.  \}
..
.
.\&quot;
.\&quot; An auxiliary macro for HTML (without following space).
.\&quot;
.de HTML-NS
.  nop \X^html:\\$*^\c
..
.
.\&quot;
.\&quot; Emit an HTML tag after shutting down a (possibly open) paragraph.
.\&quot;
.de HTML&lt;/p&gt;
.  ie \\n[www-html] \{\
.    \&quot; the `\&amp;&#039; makes the vertical mode leave, so to say
.    nop \&amp;\X^html&lt;/p&gt;:\\$*^
.  \}
.  el \
.    www:paraspace
..
.
.\&quot;
.\&quot; Emit an HTML tag.  If text has been written in the paragraph
.\&quot;                    then do not shut the paragraph down.
.\&quot;                    If text was not written, remove the empty
.\&quot;                    paragraph tag and emit the desired HTML tag.
.\&quot;
.de HTML&lt;?p&gt;
.  if \\n[www-html] \
.    nop \&amp;\X^html&lt;?p&gt;:\\$*^
..
.
.\&quot;
.\&quot; Emit a MATH tag.  If text has been written in the paragraph
.\&quot;                   then do not shut the paragraph down.
.\&quot;                   If text was not written, remove the empty
.\&quot;                   paragraph tag and emit the desired math tag.
.\&quot;
.de MATH&lt;?p&gt;
.  if \\n[www-html] \
.    nop \&amp;\X^math&lt;?p&gt;:\\$*^
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HX n
.\&quot;
.\&quot;   Automatic heading level cut off.
.\&quot;
.\&quot;   N is the depth limit of automatically linked headings.  So a depth
.\&quot;   of 2 would cause grohtml to generate a list of links for `.NH 1&#039;
.\&quot;   and `.NH 2&#039; but not for `.NH 3&#039;.
.\&quot;
.de HX
.  if \\n[www-html] \
.    nop \X^index:\\$*^
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; BCL foreground background active not-visited visited
.\&quot;
.de BCL
.  HTML &lt;body &quot;text=&quot;&quot;\\$1&quot;&quot;&quot; \
              &quot;bgcolor=&quot;&quot;\\$2&quot;&quot;&quot; \
              &quot;link=&quot;&quot;\\$3&quot;&quot;&quot; \
              &quot;alink=&quot;&quot;\\$4&quot;&quot;&quot; \
              &quot;vlink=&quot;&quot;\\$5&quot;&quot;&gt;&quot;
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; BGIMG imagefile
.\&quot;
.de BGIMG
.  HTML &lt;body &quot;background=&quot;&quot;\\$1&quot;&quot;&gt;&quot;
..
.
.\&quot; www:url_check_tag str
.\&quot;    If url named by \*[str] is internal (starts with #), 
.\&quot;    redefine \*[str] to be the value of the string TAG_url.
.
.de www:url_check_tag
.  ds \\$0:tmp \\*[\\$1]\&quot;
.  substring \\$0:tmp 0 0
.  if &#039;\\*[\\$0:tmp]&#039;#&#039; \{\
.    ds \\$0:tmp \\*[\\$1]\&quot;
.    substring \\$0:tmp 1
.    ds \\$0:tmp TAG_\\*[\\$0:tmp]\&quot;
.
.    ie d \\*[\\$0:tmp] \
.      ds \\$1 \\*[\\*[\\$0:tmp]]\&quot;
.    el \
.      ds \\$1 see below\&quot;
.  \} 
.  rm \\$0:tmp
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; URL url [description] [after]
.\&quot;
.\&quot;   If description is absent then the url becomes the anchor text.
.\&quot;
.de URL
.  if !&#039;\\$1&#039;&#039; \{\
.    ds \\$0:adr \\$1\&quot;
.    www:url_check_tag \\$0:adr
.    if !\\n[www-html] \
.      www:url_breaks \\$0:adr
.  \}
.  ie \\n[www-html] \{\
.    ie &#039;\\$3&#039;&#039; \
.      ds \\$0:after \&amp;\&quot;
.    el \
.      ds \\$0:after \&amp;\\$3\&quot;
.
.    ie &#039;\\$2&#039;&#039; \
.       HTML-NS &lt;a &quot;href=&quot;&quot;\\$1&quot;&quot;&gt;\\*[\\$0:adr]&lt;/a&gt;&quot;
.    el \
.       HTML-NS &lt;a &quot;href=&quot;&quot;\\$1&quot;&quot;&gt;\\$2&lt;/a&gt;&quot;
.
.    nop \\*[\\$0:after]
.    rm \\$0:after
.  \}
.  el \{\
.    if !r ps4html \
.      ad l
.
.    ie &#039;\\$2&#039;&#039; \{\
.      ie &#039;\\$1&#039;&#039; \{\
.        if !&#039;\\$3&#039;&#039; \
.          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 &#039;\\$1&#039;&#039; \{\
.        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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; FTP url description [after]
.\&quot;
.\&quot;   Same as URL.
.\&quot;
.als FTP URL
.
.\&quot; --------------------------------------------------------------------
.\&quot; MTO address description [after]
.\&quot;
.\&quot;   ADDRESS is the email address (without the `mailto:&#039; prefix).
.\&quot;
.\&quot;   DESCRIPTION is the optional name.  If an empty argument is given,
.\&quot;   ADDRESS is used instead.
.\&quot;
.\&quot;   AFTER is optional stuff printed immediately after ADDRESS
.\&quot;   (resp. DESCRIPTION).
.\&quot;
.\&quot;     Example:
.\&quot;
.\&quot;       Foobar has been written by
.\&quot;       .MTO fred@foo.bar &quot;Fredrick Bloggs&quot; .
.\&quot;
.de MTO
.  ie \\n[www-html] \{\
.    ie &#039;\\$2&#039;&#039; \
.      URL mailto:\\$1 \\$1 &quot;\\$3&quot;
.    el \
.      URL mailto:\\$1 &quot;\\$2&quot; &quot;\\$3&quot;
.  \}
.  el \{\
.    ie &#039;\\$2&#039;&#039; \{\
.      ie &#039;\\$1&#039;&#039; \{\
.        ie !&#039;\\$3&#039;&#039; \
.          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 &#039;\\$1&#039;&#039; \{\
.        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
.        \}
.      \}
.    \}
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; TAG name [text]
.\&quot;
.\&quot;   Generate an HTML name NAME.
.\&quot;   Define string TAG_NAME to TEXT, if present, otherwise to \n[PN].
.\&quot;   Register PN is the current page number.
.\&quot;
.de TAG
.  HTML &lt;a &quot;name=&quot;&quot;\\$1&quot;&quot;&gt;&lt;/a&gt;&quot;
.  ie &#039;\\$2&#039;&#039; \
.    if !rPN \
.      nr PN \\n%
.    ds TAG_\\$1 \\n[PN]\&quot;
.  el \
.    ds TAG_\\$1 \\$2\&quot;
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; IMG [-R|-L|-C] filename [width] [height]
.\&quot;
.\&quot;   Include an image of any type (only works for -Thtml).
.\&quot;
.\&quot;   Alignment is centered by default (-C).
.\&quot;   Default value for WIDTH is 1i.
.\&quot;   If HEIGHT is not given, WIDTH is used as the height.
.\&quot;
.de IMG
.  ie \\n[www-html] \{\
.    ie &#039;\\$2&#039;-R&#039; \
.      DEVTAG .right-image
.    el \{\
.      ie &#039;\\$2&#039;-L&#039; \
.        DEVTAG .left-image
.      el \
.        DEVTAG .centered-image
.    \}
.    nr www-width 100
.    if !&#039;\\$3&#039;&#039; \
.      nr www-width \\$3
.    nr www-height \\n[www-width]
.    if !&#039;\\$4&#039;&#039; \
.      nr www-height \\$4
.    HTML &lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
               &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
               &quot;width=&quot;&quot;\\n[www-width]&quot;&quot;&quot; \
               &quot;height=&quot;&quot;\\n[www-height]&quot;&quot;\\*[www-&gt;]&quot;
.  \}
.  el \
.    nop \\*[www:open]\f[\\*[www:fontstyle]]\\$1\f[]\\*[www:close]
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; PIMG  [-R|-L|-C] filename [width] [height]
.\&quot;
.\&quot;   Include a PNG image.  It works for -Tps and -Thtml.
.\&quot;   The default value for WIDTH and HEIGHT is zero; the default
.\&quot;   alignment is centering (-C).
.\&quot;
.\&quot; Note: This macro can only be used with the `-U&#039; option of groff,
.\&quot;       activating unsafe mode, if not used with -Thtml; the PNG image
.\&quot;       is then converted to the EPS format using netpbm utilities.
.\&quot;
.de PIMG
.  ds www-pic-align -C\&quot;
.  ie &#039;\\$1&#039;-R&#039; \{\
.    ds www-pic-align -R\&quot;
.    shift
.  \}
.  el \{\
.    if &#039;\\$1&#039;-L&#039; \{\
.      ds www-pic-align -L\&quot;
.      shift
.    \}
.  \}
.  if &#039;\\$1&#039;-C&#039; \
.    shift
.
.  ie \\n[www-html] \{\
.    ds www-htmlalign align=&quot;center&quot;\&quot;
.    if &#039;\\*[www-pic-align]&#039;-R&#039; \
.      ds www-htmlalign align=&quot;right&quot;\&quot;
.    if &#039;\\*[www-pic-align]&#039;-L&#039; \
.      ds www-htmlalign align=&quot;left&quot;\&quot;
.
.    nr www-width 0
.    nr www-height 0
.    if !&#039;\\$2&#039;&#039; \
.      nr www-width (\\$3 * 100 / 240)
.    if !&#039;\\$3&#039;&#039; \
.      nr www-height (\\$4 * 100 / 240)
.    ie (\\n[www-width] == 0) \{\
.      ie (\\n[www-height] == 0) \
.        HTML&lt;/p&gt; &lt;p \\*[www-htmlalign]&gt;&lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                                             &quot;alt=&quot;&quot;Image \\$1&quot;&quot;\\*[www-&gt;]&lt;/p&gt;&quot;
.      el \
.        HTML&lt;/p&gt; &lt;p \\*[www-htmlalign]&gt;&lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                                             &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
                                             &quot;height=&quot;&quot;\\n[www-height]&quot;&quot;\\*[www-&gt;]&lt;/p&gt;&quot;
.    \}
.    el \{\
.      ie (\\n[www-height] == 0) \
.        HTML&lt;/p&gt; &lt;p \\*[www-htmlalign]&gt;&lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                                             &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
                                             &quot;width=&quot;&quot;\\n[www-width]&quot;&quot;\\*[www-&gt;]&lt;/p&gt;&quot;
.      el \
.        HTML&lt;/p&gt; &lt;p \\*[www-htmlalign]&gt;&lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                                             &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
                                             &quot;width=&quot;&quot;\\n[www-width]&quot;&quot;&quot; \
                                             &quot;height=&quot;&quot;\\n[www-height]&quot;&quot;\\*[www-&gt;]&lt;/p&gt;&quot;
.    \}
.  \}
.  el \{\
.    if !r ps4html \{\
.      www-make-unique-name
.      sy pngtopnm \\$1 \
          | pnmcrop -white \
          | pnmtops -nosetpage -noturn \
          &gt; \\*[www-unique-name].eps
.      shift
.      PSPIC \\*[www-pic-align] \\*[www-unique-name].eps \\$*
.    \}
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; auxiliary definitions for MPIMG
.\&quot;
.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
..
.
.\&quot; called when the -R picture is finished
.de www-finish-right-ll
.  ll +(\\n[www-right-indent]u + \\n[www-image-gap]u)
.
.  \&quot; now check whether we need to inline www-finish-left-ll
.  if (\\n[www-left-ll-trap]u &gt; 0) \
.    if ((\\n[www-right-ll-trap]u + 1v) &gt;= \\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
.    \}
.
.  \&quot; and check whether we need to inline www-finish-left-po
.  if (\\n[www-left-po-trap]u &gt; 0) \
.    if ((\\n[www-right-ll-trap]u + 1v) &gt;= \\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] &gt; 0) \
.    if ((\\n[www-left-ll-trap] + 1v) &gt;= \\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
..
.
.\&quot; www-handle-percent arg N1 N2 S1
.\&quot;                    arg - input string (number or number%)
.\&quot;                    output parameters:
.\&quot;                    N1 - name of number register 1=absolute 0=percentage
.\&quot;                    N2 - number register name for absolute value
.\&quot;                    S1 - string register name for percentage value
.\&quot;
.de www-handle-percent 
.  ds www-percent \\$1\&quot;
.  substring www-percent -1 -1
.
.  ie &#039;\\*[www-percent]&#039;%&#039; \{\
.    ds www-abs \\$1\&quot;
.    substring www-abs 0 -2
.    nr \\$2 0
.    nr \\$3 \\*[www-abs]
.    ds \\$4 \\$1\&quot;
.  \}
.  el \{\
.    nr \\$2 1
.    nr \\$3 \\$1
.    ds \\$4 none\&quot;
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; MPIMG [-R|-L] [-G gap] filename [width [height]]
.\&quot;
.\&quot;   Include a PNG image and wrap text around it.  It works for
.\&quot;   -Tps and -Thtml.  The default value for WIDTH is 1i; default value
.\&quot;   for HEIGHT is WIDTH; the default alignment is left (-L).
.\&quot;   -G is used to insert a gap between the text and the image.
.\&quot;   The height and width can also be given as a percentage.
.\&quot;   The PostScript device converts the percentage width into an
.\&quot;   absolute value by using \\n[.l], and the height by using \\n[.p].
.\&quot;   
.\&quot;
.\&quot; Note: This macro can only be used with the `-U&#039; option of groff,
.\&quot;       activating unsafe mode, if not used with -Thtml; the PNG image
.\&quot;       is then converted to the EPS format using netpbm utilities.
.\&quot;
.nr www-htmlimage-gap 0
.
.de MPIMG
.  nr www-image-just 1
.  nr www-image-gap 0
.  while (\\n[.$] &gt; 0) \{\
.    if &#039;-L&#039;\\$1&#039; \{\
.      nr www-image-just 1
.      shift
.      continue
.    \}
.    if &#039;-R&#039;\\$1&#039; \{\
.      nr www-image-just 0
.      shift
.      continue
.    \}
.    if &#039;-G&#039;\\$1&#039; \{\
.      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=&quot;\\n[www-width]&quot; height=&quot;\\n[www-height]&quot;\&quot;
.  ie !&#039;\\$2&#039;&#039; \{\
.    nr www-is-absolute 0
.    nr www-absolute 0
.    ds www-percentage none\&quot;
.    www-handle-percent \\$2 www-is-absolute www-absolute www-percentage
.    ie !\\n[www-is-absolute] \{\
.      \&quot; 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=&quot;\\*[www-percentage]&quot;\&quot;
.    \}
.    el \{\
.      nr www-width \\n[www-absolute]
.      if \\n[www-html] \
.        nr www-width (\\n[www-width] * 100 / 240)
.      ds www-size-specs width=&quot;\\n[www-width]&quot;\&quot;
.    \}
.
.    nr www-height \\n[www-width]
.    ie !&#039;\\$3&#039;&#039; \{\
.      nr www-is-absolute 0
.      nr www-absolute 0
.      ds www-percentage none\&quot;
.      www-handle-percent \\$3 www-is-absolute www-absolute www-percentage
.      ie !\\n[www-is-absolute] \{\
.        \&quot; 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 &quot;\\*[www-size-specs] height=&quot;\\*[www-percentage]&quot;\&quot;
.      \}
.      el \{\
.        nr www-height \\n[www-absolute]
.        if \\n[www-html] \
.           nr www-height (\\n[www-height] * 100 / 240)
.        ds www-size-specs &quot;\\*[www-size-specs] height=&quot;\\*[www-height]&quot;\&quot;
.      \}
.    \}
.  \}
.  el \{\
.    \&quot; height not specified; use width value
.    ie !\\n[www-is-absolute] \{\
.       \&quot; percentage value
.       ds www-size-specs &quot;\\*[www-size-specs] height=&quot;\\*[www-percentage]&quot;\&quot;
.       nr www-height \\n[www-width]
.    \}
.    el \{\
.       ds www-size-specs &quot;\\*[www-size-specs] height=&quot;\\*[www-width]&quot;\&quot;
.       nr www-height \\n[www-width]
.    \}
.  \}
.
.  ie \\n[www-html] \{\
.    ie !\\n[www-image-just] \
.      HTML &lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                 &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
                 &quot;hspace=&quot;&quot;\\n[www-htmlimage-gap]&quot;&quot;&quot; \
                 &quot;align=&quot;&quot;right&quot;&quot;&quot; \
                 &quot;\\*[www-size-specs]\\*[www-&gt;]&quot;
.    el \
.      HTML &lt;img &quot;src=&quot;&quot;\\$1&quot;&quot;&quot; \
                 &quot;alt=&quot;&quot;Image \\$1&quot;&quot;&quot; \
                 &quot;hspace=&quot;&quot;\\n[www-htmlimage-gap]&quot;&quot;&quot; \
                 &quot;align=&quot;&quot;left&quot;&quot;&quot; \
                 &quot;\\*[www-size-specs]\\*[www-&gt;]&quot;
.  \}
.  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 \
          &gt; \\*[www-unique-name].eps
.      ie !\\n[www-image-just] \{\
.        \&quot; we must now disable a possible left image trap
.        sp -1
.        if (\\n[www-left-ll-trap] &gt; 0) \
.          wh \\n[www-left-ll-trap]u
.        if (\\n[www-left-po-trap] &gt; 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
.        \&quot; we want to have some space between text and image,
.        \&quot; 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
.
.        \&quot; now restore possible left trap
.        if (\\n[www-left-ll-trap] &gt; 0) \
.          wh \\n[www-left-ll-trap]u www-finish-left-ll
.        if (\\n[www-left-po-trap] &gt; 0) \
.          wh \\n[www-left-po-trap]u
.      \}
.      el \{\
.        \&quot; we must now disable a possible right image trap
.        if (\\n[www-right-ll-trap] &gt; 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
.        \&quot; increase offset by gap
.        po +(\\n[www-left-indent]u + \\n[www-image-gap]u)
.        \&quot; 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
.
.        \&quot; now restore possible right trap
.        if (\\n[www-right-ll-trap] &gt; 0) \
.          wh \\n[www-right-ll-trap]u www-finish-right-ll
.      \}
.    \}
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HnS n
.\&quot;
.\&quot;   Begin heading.  Heading level is N.
.\&quot;
.\&quot; HnE
.\&quot;
.\&quot;   End heading.
.\&quot;
.\&quot; If your heading contains URL, FTP, MTO macros you might wish to
.\&quot; disable automatic links to headings.  This can be done via `-P-l&#039;
.\&quot; from the command line or by using a cakk to `.HX 0&#039;.
.\&quot;
.nr www-heading-no -1
.
.de HnS
.  ie &#039;\\$1&#039;&#039; \
.    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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; LK
.\&quot;
.\&quot;   Emit the automatically collected links derived from
.\&quot;   section/numbered headings at this position.
.\&quot;
.de LK
.  DEVTAG .links
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HR
.\&quot;
.\&quot;   Produce a horizontal line.
.\&quot;
.de HR
.  HTML&lt;/p&gt; &lt;hr\\*[www-&gt;]
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; NHR
.\&quot;
.\&quot;  Suppress the generation of the top and bottom rules which grohtml
.\&quot;  emits by default.
.\&quot;
.de NHR
.  DEVTAG .no-auto-rule
..
.
.\&quot;
.\&quot; www-end-nowhere - end of input trap called to finish diversion.
.\&quot;
.de www-end-nowhere
.  if !\\n[www-html] \
.    di
.  DEVTAG-EO-TL
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HTL
.\&quot;
.\&quot;   Generate an HTML title only.  This differs from the -ms .TL macro
.\&quot;   which generates both an HTML title and an H1 heading.
.\&quot;
.\&quot;   This is useful when an author wishes to use an HTML title as search
.\&quot;   engine fodder but a graphic title in the document.
.\&quot;
.\&quot;   The macro terminates when a space or break is seen (.sp, .br).
.\&quot;
.de HTL
.  DEVTAG .html-tl
.  if !\\n[www-html] \
.    di www-nowhere
.  it 2 www-end-nowhere
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; auxiliary definitions for lists
.\&quot;
.ds www-ul-level1 \[bu]\ \ \&quot;
.ds www-ul-level2 \[sq]\ \ \&quot;
.ds www-ul-level3 \[ci]\ \ \&quot;
.nr www-ul-level 0
.
.ds www-ol-level1 decimal\&quot;
.ds www-ol-level2 lower-alpha\&quot;
.ds www-ol-level3 lower-roman\&quot;
.ds www-ol-tmp 00\ \ \&quot;
.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
.
.\&quot;
.\&quot; allow nested lists
.\&quot;
.nr www-depth 0
.nr www-li-indent \n[.i]
.ds www-level0 nop\&quot;
.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
.
.\&quot; 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\&quot;
.  ds www-ltag\\n[www-depth]
.  als LI \\$1
..
.
.de www-pop-li
.  nr www-depth -1
.  als LI \\*[www-level\\n[www-depth]]
..
.
.\&quot; www-emit-ltag - shut down a previous open list tag
.\&quot;                 before issuing a new tag \\$1.
.\&quot;                 It then records tag \\$1 is open.
.
.de www-emit-ltag
.  if !&#039;\\*[www-ltag\\n[www-depth]]&#039;&#039; \
.    HTML-NS &lt;/\\*[www-ltag\\n[www-depth]]&gt;
.  if !&#039;\\$1&#039;&#039; \
.    HTML-NS &lt;\\$1&gt;
.  ds www-ltag\\n[www-depth] \\$1\&quot;
..
.
.\&quot;
.\&quot; Auxiliary macro for ULS.
.\&quot;
.de www-push-ul-level
.  nr www-ul-level +1
.  if (\\n[www-ul-level] &gt; 3) \
.    www-error ULS: too many levels of indentation (\\n[www-ul-level])
..
.\&quot;
.\&quot; Auxiliary macro for ULE.
.\&quot;
.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
..
.
.\&quot;
.\&quot; Auxiliary macro for OLS.
.\&quot;
.de www-push-ol-level
.  nr www-ol-level +1
.  if (\\n[www-ol-level] &gt; 3) \
.    www-error OLS: too many levels of indentation (\\n[www-ol-level])
..
.
.\&quot;
.\&quot; Auxiliary macro for OLE.
.\&quot;
.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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; ULS
.\&quot;
.\&quot;   Start an unordered list.
.\&quot;
.de ULS
.  www-push-li www-li-ul
.  www-push-ul-level
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML&lt;/p&gt; &lt;ul&gt;
.  \}
.  el \
.    nr www-li-indent +\w&#039;\\*[www-ul-level\\n[www-ul-level]]&#039;u
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; ULE
.\&quot;
.\&quot;   End an unordered list.
.\&quot;
.de ULE
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML&lt;/p&gt; &lt;/ul&gt;
.  \}
.  el \{\
.    nr www-li-indent -\w&#039;\\*[www-ul-level\\n[www-ul-level]]&#039;u
.    in \\n[www-li-indent]u
.  \}
.  www-pop-ul-level
.  www-pop-li
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; OLS
.\&quot;
.\&quot;   Start an ordered list.
.\&quot;
.de OLS
.  www-push-li www-li-ol
.  www-push-ol-level
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML&lt;/p&gt; &lt;ol &quot;style=&quot;&quot;list-style-type:&quot; \
                           &quot;\\*[www-ol-level\\n[www-ol-level]]&quot;&quot;&gt;&quot;
.  \}
.  el \
.    nr www-li-indent +\w&#039;\\*[www-ol-tmp]&#039;u
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; OLE
.\&quot;
.\&quot;   End an ordered list.
.\&quot;
.de OLE
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML &lt;/ol&gt;
.  \}
.  el \{\
.    nr www-li-indent -\w&#039;\\*[www-ol-tmp]&#039;u
.    in \\n[www-li-indent]u
.    nr www-ol-ctr\\n[www-ol-level] 0 1
.  \}
.  www-pop-ol-level
.  www-pop-li
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; DLS
.\&quot;
.\&quot;   Start a definition list.
.\&quot;
.de DLS
.  www-push-li www-li-dl
.  nr www-dl-level +1
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML&lt;/p&gt; &lt;dl&gt;
.  \}
.  el \{\
.    nr www-li-indent +\\n[www-dl-shift]u
.    in \\n[www-li-indent]u
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; DLE
.\&quot;
.\&quot;   End a definition list.
.\&quot;
.de DLE
.  ie \\n[www-html] \{\
.    www-emit-ltag
.    HTML &lt;/dl&gt;
.  \}
.  el \{\
.    nr www-li-indent -\\n[www-dl-shift]u
.    in \\n[www-li-indent]u
.  \}
.  nr www-dl-level -1
.  www-pop-li
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; LI
.\&quot;
.\&quot;   Insert a list item.
.\&quot;
.
.\&quot; ********
.\&quot; www-li-ul - bulleted list item
.\&quot;
.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&#039;\\*[www-ul-level\\n[www-ul-level]]&#039;u
.    nop \\*[www-ul-level\\n[www-ul-level]]\c
.  \}
..
.
.\&quot; ********
.\&quot; www-li-ol - numbered list item
.\&quot;
.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&#039;\\n+[www-ol-ctr\\n[www-ol-level]]\ \ &#039;u
.    nop \\n[www-ol-ctr\\n[www-ol-level]]\ \ \c
.  \}
..
.
.\&quot; ********
.\&quot; www-li-dl - definition list item
.\&quot;
.de www-li-dl
.  ie \\n[www-html] \{\
.    HTML &lt;dt&gt;\\$1&lt;/dt&gt;
.    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 \&amp;\\$1
.    br
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; DC l text [color]
.\&quot;
.\&quot;   L is the letter to be dropped and enlarged.
.\&quot;
.\&quot;   TEXT is the following text whose height the first letter should not
.\&quot;   exceed.
.\&quot;
.\&quot;   COLOR is the optional color of the dropped letter (default black).
.\&quot;
.de DC
.  ds www-dropcolor black\&quot;
.  if !&#039;\\$3&#039;&#039; \
.    ds www-dropcolor \\$3\&quot;
.  ie &#039;\*[.T]&#039;html&#039; \{\
.    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
.      \&quot; To avoid interferences with another DC macro call which is located
.      \&quot; very near to the current one, we draw the glyph on a separate page.
.      \&quot; Otherwise it could theoretically happen that the dropped capital
.      \&quot; 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&#039;\\$1&#039;u
.        nr dcht ((\\n[.v] + \\n[rst]) * \\n[.ps] / \\n[rst])
.        char \[dcap] \m[\\*[www-dropcolor]]\s&#039;\\n[dcht]u&#039;\\$1
.        nop \v&#039;\\n[.v]u&#039;\\[dcap]\v&#039;-\\n[.v]u&#039;\c
&#039;        ti \w&#039;\\[dcap]&#039;u
.      \}
.    \}
.  \}
.  nop \\$2
..
.
.\&quot;
.\&quot; supplementary macros used by other macro sets
.\&quot;
.\&quot; here are some tags specially for -Tps or -Thtml when invoked by
.\&quot; pre-html to generate PNG images from postscript.
.
.\&quot; --------------------------------------------------------------------
.\&quot; HTML-DO-IMAGE - tell troff to issue an image marker which can be
.\&quot;                 read back by pre-html
.\&quot;
.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]
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HTML-IMAGE-END - terminate an image for HTML
.\&quot;
.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
.
.\&quot; --------------------------------------------------------------------
.\&quot; www-make-unique-name - generate another unique name in string
.\&quot;                        `www-unique-name&#039;
.\&quot;
.de www-make-unique-name
.  nr www-png-no +1
.  ds www-unique-name \\*[www-image-template]\\n[www-png-no]\&quot;
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HTML-IMAGE and friends tell grohtml that this region of text needs
.\&quot;            to be rendered as an image.
.\&quot;
.de HTML-IMAGE
.  \&quot; 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
..
.
.\&quot;  EQN-HTML-IMAGE and friends check to see whether the equation is
.\&quot;                 not in an image, in which case it allows HTML
.\&quot;                 (mathml) to be generated (if -Txhtml was specified).
.
.de EQN-HTML-IMAGE
.  \&quot; 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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; EQN-HTML-DO-IMAGE - tell troff to issue an image marker which can be
.\&quot;                     read back by pre-html
.\&quot;
.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 \\$*
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; EQN-HTML-IMAGE-END - terminate an image for HTML
.\&quot;
.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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; Setup around HTML-IMAGE and friends
.\&quot;
.\&quot; now set up TS, TE, EQ, EN default macros
.\&quot;
.\&quot; we must not use `.als&#039;: the definition of .TE in s.tmac, for example,
.\&quot; calls .HTML-IMAGE-END, which would refer to itself due to the alias,
.\&quot; causing an endless loop
.\&quot;
.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 \\$@
.  .
.\}
.
.\&quot; --------------------------------------------------------------------
.\&quot; JOBNAME
.\&quot;
.\&quot;   Generate multiple output files containing the HTML.
.\&quot;   A file is split whenever a .SH or .NH 1 is encountered.
.\&quot;   The argument to JOBNAME is the file stem for future output files.
.\&quot;
.de JOBNAME
.  DEVTAG .job-name \\$1
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; HEAD
.\&quot;
.\&quot;   Add information to the &lt;head&gt; &lt;/head&gt; section of the HTML
.\&quot;   document
.\&quot;
.de HEAD
.  DEVTAG .head &quot;\\$*&quot;
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; start of some code
.\&quot;
.de CDS
.  ft C
.  nf
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; end of some code
.\&quot;
.de CDE
.  fi
.  ft P
..
.
.ds www-nav-colour #eeeeee\&quot;
.nr www-nav-width-left 30
.nr www-nav-width-right 70
.
.\&quot; --------------------------------------------------------------------
.\&quot; LNS - left navigation start
.\&quot;
.de LNS
.  HTML&lt;/p&gt; &lt;table&gt;&lt;tr&gt;&lt;td &quot;valign=&quot;&quot;top&quot;&quot;&quot; \
                           &quot;width=&quot;&quot;\\n[www-nav-width-left]%&quot;&quot;&quot; \
                           &quot;bgcolor=&quot;&quot;\\*[www-nav-colour]&quot;&quot;&gt;&quot;
.  LK
.  HTML&lt;/p&gt; &lt;/td&gt;&lt;td &quot;valign=&quot;&quot;top&quot;&quot;&quot; \
                     &quot;width=&quot;&quot;\\n[www-nav-width-right]%&quot;&quot;&gt;&quot;
.  nr SH-open 1
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; LNE - left navigation end
.\&quot;
.de LNE
.  HTML&lt;/p&gt; &lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
.  HR
..
.
.nr SH-open 0
.nr needs-begin 0
.
.\&quot;
.\&quot; some auxiliary macros for left navigation lists
.\&quot;
.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 &lt;= 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
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; ALN [colour] [left width percentage]
.\&quot;
.\&quot;   Turn on automatic left navigation.  This macro should only be
.\&quot;   called once (normally at the start of the document) as it
.\&quot;   indicates that all top-level section headings form a navigation
.\&quot;   list on the left of the main text.
.\&quot;
.de ALN
.  if &#039;\*[.T]&#039;html&#039; \{\
.    if !&#039;\\$1&#039;&#039; \
.      ds www-nav-colour \\$1\&quot;
.    if (0\\$2 &gt; 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
.  \}
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; LINKSTYLE color [fontstyle [openglyph closeglyph]]
.\&quot;
.\&quot;   Initialize www.tmac so that when this macro set is used with
.\&quot;   non-HTML devices the urls are rendered the user defined attributes.
.\&quot;   For example:
.\&quot;
.\&quot;   LINKSTYLE blue CR &lt; &gt;
.\&quot;
.de LINKSTYLE
.  if (\\n[.$] &lt; 1) \
.    www:error .\\$0 expects at least 1 argument.
.  ds www:color \\$1\&quot;
.  shift
.  if (\\n[.$] &lt; 1) \
.    return
.  ds www:fontstyle \\$1\&quot;
.  shift
.  if (\\n[.$] &lt; 1) \
.    www:error .\\$0 expects that both the open and close glyph is specified
.  ds www:open \\$1\&quot;
.  ds www:close \\$2\&quot;
..
.
.\&quot; MATHML - enable eqn mathml output to pass through to the device
.\&quot;          driver
.
.de MATHML
.  if (\\n[.O] == 0) \
.    MATH&lt;?p&gt; \\$*
..
.
.\&quot; --------------------------------------------------------------------
.\&quot; final setup
.\&quot; --------------------------------------------------------------------
.
.LINKSTYLE blue C \[la] \[ra]
.
.if \n[www-html] \{\
.  nh
.  nr HY 0
.\}
.
.if r ps4html .nop \O[0]
.cp \n(_C
.
.\&quot; now set
.
.\&quot; --------------------------------------------------------------------
.\&quot; Emacs settings
.\&quot; --------------------------------------------------------------------
.
.\&quot; Local Variables:
.\&quot; mode: nroff
.\&quot; End:
.\&quot; EOF
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/share/groff/1.22.3/tmac/www.tmac'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Fshare%2Fgroff%2F1.22.3%2Ftmac' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>