mdoc2man.awk | searchcode

/opensource.apple.com/source/libarchive/libarchive-13.1/libarchive/doc/mdoc2man.awk

#
AWK | 353 lines | 337 code | 13 blank | 3 comment | 0 complexity | 238ee1ce5d0a04b696eca3fe2e01b7e7 MD5 | raw file
Possible License(s): GPL-2.0, AGPL-1.0, AGPL-3.0, CC-BY-SA-3.0, MPL-2.0-no-copyleft-exception, MPL-2.0, JSON, 0BSD, LGPL-2.1, Apache-2.0, BSD-3-Clause, ISC, LGPL-2.0, WTFPL, MIT

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>mdoc2man.awk</title>
<style type="text/css">
.enscript-comment { font-style: italic; color: rgb(178,34,34); }
.enscript-function-name { font-weight: bold; color: rgb(0,0,255); }
.enscript-variable-name { font-weight: bold; color: rgb(184,134,11); }
.enscript-keyword { font-weight: bold; color: rgb(160,32,240); }
.enscript-reference { font-weight: bold; color: rgb(95,158,160); }
.enscript-string { font-weight: bold; color: rgb(188,143,143); }
.enscript-builtin { font-weight: bold; color: rgb(218,112,214); }
.enscript-type { font-weight: bold; color: rgb(34,139,34); }
.enscript-highlight { text-decoration: underline; color: 0; }
</style>
</head>
<body id="top">
<h1 style="margin:8px;" id="f1">mdoc2man.awk&nbsp;&nbsp;&nbsp;<span style="font-weight: normal; font-size: 0.5em;">[<a href="?txt">plain text</a>]</span></h1>
<hr/>
<div></div>
<pre>
<span class="enscript-reference">#!/usr/bin/awk
</span><span class="enscript-comment">#
</span><span class="enscript-comment"># Copyright (c) 2003 Peter Stuge &lt;<a href="mailto:stuge-mdoc2man@cdy.org">stuge-mdoc2man@cdy.org</a>&gt;
</span><span class="enscript-comment">#
</span><span class="enscript-comment"># Permission to use, copy, modify, and distribute this software for any
</span><span class="enscript-comment"># purpose with or without fee is hereby granted, provided that the above
</span><span class="enscript-comment"># copyright notice and this permission notice appear in all copies.
</span><span class="enscript-comment">#
</span><span class="enscript-comment"># THE SOFTWARE IS PROVIDED &quot;AS IS&quot; AND THE AUTHOR DISCLAIMS ALL WARRANTIES
</span><span class="enscript-comment"># WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
</span><span class="enscript-comment"># MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
</span><span class="enscript-comment"># ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
</span><span class="enscript-comment"># WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
</span><span class="enscript-comment"># ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
</span><span class="enscript-comment"># OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
</span>
<span class="enscript-comment"># Dramatically overhauled by Tim Kientzle.  This version almost
</span><span class="enscript-comment"># handles library-style pages with Fn, Ft, etc commands.  Still
</span><span class="enscript-comment"># a lot of problems...
</span>
<span class="enscript-keyword">BEGIN</span> {
  displaylines = 0
  trailer = <span class="enscript-string">&quot;&quot;</span>
  out = <span class="enscript-string">&quot;&quot;</span>
  sep = <span class="enscript-string">&quot;&quot;</span>
  nextsep = <span class="enscript-string">&quot; &quot;</span>
}

<span class="enscript-comment"># Add a word with appropriate preceding whitespace
</span><span class="enscript-comment"># Maintain a short queue of the expected upcoming word separators.
</span><span class="enscript-keyword">function</span> add(str) {
  out=out sep str
  sep = nextsep
  nextsep = <span class="enscript-string">&quot; &quot;</span>
}

<span class="enscript-comment"># Add a word with no following whitespace
</span><span class="enscript-comment"># Use for opening punctuation such as '('
</span><span class="enscript-keyword">function</span> addopen(str) {
  add(str)
  sep = <span class="enscript-string">&quot;&quot;</span>
}

<span class="enscript-comment"># Add a word with no preceding whitespace
</span><span class="enscript-comment"># Use for closing punctuation such as ')' or '.'
</span><span class="enscript-keyword">function</span> addclose(str) {
  sep = <span class="enscript-string">&quot;&quot;</span>
  add(str)
}

<span class="enscript-comment"># Add a word with no space before or after
</span><span class="enscript-comment"># Use for separating punctuation such as '='
</span><span class="enscript-keyword">function</span> addpunct(str) {
  sep = <span class="enscript-string">&quot;&quot;</span>
  add(str)
  sep = <span class="enscript-string">&quot;&quot;</span>
}

<span class="enscript-comment"># Emit the current line so far
</span><span class="enscript-keyword">function</span> endline() {
  addclose(trailer)
  trailer = <span class="enscript-string">&quot;&quot;</span>
  <span class="enscript-keyword">if</span>(<span class="enscript-keyword">length</span>(out) &gt; 0) {
    <span class="enscript-keyword">print</span> out
    out=<span class="enscript-string">&quot;&quot;</span>
  }
  <span class="enscript-keyword">if</span>(displaylines &gt; 0) {
    displaylines = displaylines - 1
    <span class="enscript-keyword">if</span> (displaylines == 0)
      dispend()
  }
  <span class="enscript-comment"># First word on next line has no preceding whitespace
</span>  sep = <span class="enscript-string">&quot;&quot;</span>
}

<span class="enscript-keyword">function</span> linecmd(cmd) {
  endline()
  add(cmd)
  endline()
}

<span class="enscript-keyword">function</span> breakline() {
  linecmd(<span class="enscript-string">&quot;.br&quot;</span>)
}

<span class="enscript-comment"># Start an indented display
</span><span class="enscript-keyword">function</span> dispstart() {
  linecmd(<span class="enscript-string">&quot;.RS&quot;</span>)
}

<span class="enscript-comment"># End an indented display
</span><span class="enscript-keyword">function</span> dispend() {
  linecmd(<span class="enscript-string">&quot;.RE&quot;</span>)
}

<span class="enscript-comment"># Collect rest of input line
</span><span class="enscript-keyword">function</span> wtail() {
  retval=<span class="enscript-string">&quot;&quot;</span>
  <span class="enscript-keyword">while</span>(w&lt;nwords) {
    <span class="enscript-keyword">if</span>(<span class="enscript-keyword">length</span>(retval))
      retval=retval <span class="enscript-string">&quot; &quot;</span>
    retval=retval words[++w]
  }
  <span class="enscript-keyword">return</span> retval
}

! /^\./ {
  out = $0
  endline()
  <span class="enscript-keyword">next</span>
}

/^\.\\<span class="enscript-string">&quot;/ { next }

{
  sub(&quot;</span>^\\.<span class="enscript-string">&quot;,&quot;</span><span class="enscript-string">&quot;)
  nwords=split($0,words)
  # TODO: Instead of iterating 'w' over the array, have a separate
  # function that returns 'next word' and use that.  This will allow
  # proper handling of double-quoted arguments as well.
  for(w=1;w&lt;=nwords;w++) {
    if(match(words[w],&quot;</span>^Li$<span class="enscript-string">&quot;)) { # Literal; rest of line is unformatted
      dispstart()
      displaylines = 1
    } else if(match(words[w],&quot;</span>^Dl$<span class="enscript-string">&quot;)) { # Display literal
      dispstart()
      displaylines = 1
    } else if(match(words[w],&quot;</span>^Bd$<span class="enscript-string">&quot;)) { # Begin display
      if(match(words[w+1],&quot;</span>-literal<span class="enscript-string">&quot;)) {
        dispstart()
	displaylines=10000
	w=nwords
      }
    } else if(match(words[w],&quot;</span>^Ed$<span class="enscript-string">&quot;)) { # End display
      displaylines = 0
      dispend()
    } else if(match(words[w],&quot;</span>^Ns$<span class="enscript-string">&quot;)) { # Suppress space after next word
      nextsep = &quot;</span><span class="enscript-string">&quot;
    } else if(match(words[w],&quot;</span>^No$<span class="enscript-string">&quot;)) { # Normal text
      add(words[++w])
    } else if(match(words[w],&quot;</span>^Dq$<span class="enscript-string">&quot;)) { # Quote
      addopen(&quot;</span>``<span class="enscript-string">&quot;)
      add(words[++w])
      while(w&lt;nwords&amp;&amp;!match(words[w+1],&quot;</span>^[\\.,]<span class="enscript-string">&quot;))
	add(words[++w])
      addclose(&quot;</span>''<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Oo$<span class="enscript-string">&quot;)) {
      addopen(&quot;</span>[<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Oc$<span class="enscript-string">&quot;)) {
      addclose(&quot;</span>]<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Ao$<span class="enscript-string">&quot;)) {
      addopen(&quot;</span>&lt;<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Ac$<span class="enscript-string">&quot;)) {
      addclose(&quot;</span>&gt;<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Dd$<span class="enscript-string">&quot;)) {
      date=wtail()
      next
    } else if(match(words[w],&quot;</span>^Dt$<span class="enscript-string">&quot;)) {
      id=wtail()
      next
    } else if(match(words[w],&quot;</span>^Ox$<span class="enscript-string">&quot;)) {
      add(&quot;</span>OpenBSD<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Fx$<span class="enscript-string">&quot;)) {
      add(&quot;</span>FreeBSD<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^Nx$<span class="enscript-string">&quot;)) {
      add(&quot;</span>NetBSD<span class="enscript-string">&quot;)
    } else if(match(words[w],&quot;</span>^St$<span class="enscript-string">&quot;)) {
      if (match(words[w+1], &quot;</span>^-p1003.1$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>IEEE Std 1003.1 (``POSIX.1'')<span class="enscript-string">&quot;)
      } else if(match(words[w+1], &quot;</span>^-p1003.1-96$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>ISO/IEC 9945-1:1996 (``POSIX.1'')<span class="enscript-string">&quot;)
      } else if(match(words[w+1], &quot;</span>^-p1003.1-88$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>IEEE Std 1003.1-1988 (``POSIX.1'')<span class="enscript-string">&quot;)
      } else if(match(words[w+1], &quot;</span>^-p1003.1-2001$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>IEEE Std 1003.1-2001 (``POSIX.1'')<span class="enscript-string">&quot;)
      } else if(match(words[w+1], &quot;</span>^-susv2$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>Version 2 of the Single UNIX Specification (``SUSv2'')<span class="enscript-string">&quot;)
      }
    } else if(match(words[w],&quot;</span>^Ex$<span class="enscript-string">&quot;)) {
      if (match(words[w+1], &quot;</span>^-std$<span class="enscript-string">&quot;)) {
         w++
         add(&quot;</span>The \\fB<span class="enscript-string">&quot; name &quot;</span>\\fP utility exits 0 on success, and &gt;0 <span class="enscript-keyword">if</span> an error occurs.<span class="enscript-string">&quot;)
      }
    } else if(match(words[w],&quot;</span>^Os$<span class="enscript-string">&quot;)) {
      add(&quot;</span>.TH <span class="enscript-string">&quot; id &quot;</span> \<span class="enscript-string">&quot;&quot;</span> date <span class="enscript-string">&quot;\&quot; \&quot;&quot;</span> wtail() <span class="enscript-string">&quot;\&quot;&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Sh$&quot;</span>)) {
      add(<span class="enscript-string">&quot;.SH&quot;</span>)
      section=words[w+1]
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Xr$&quot;</span>)) {
      add(<span class="enscript-string">&quot;\\fB&quot;</span> words[++w] <span class="enscript-string">&quot;\\fP(&quot;</span> words[++w] <span class="enscript-string">&quot;)&quot;</span> words[++w])
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Nm$&quot;</span>)) {
      <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(section,<span class="enscript-string">&quot;SYNOPSIS&quot;</span>))
        breakline()
      <span class="enscript-keyword">if</span>(w&gt;1)
        n=name
      <span class="enscript-keyword">else</span> {
        n=words[++w]
        <span class="enscript-keyword">if</span>(!<span class="enscript-keyword">length</span>(name))
          name=n
      }
      <span class="enscript-keyword">if</span>(!<span class="enscript-keyword">length</span>(n))
        n=name
      add(<span class="enscript-string">&quot;\\fB&quot;</span> n <span class="enscript-string">&quot;\\fP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Nd$&quot;</span>)) {
      add(<span class="enscript-string">&quot;\\- &quot;</span> wtail())
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Fl$&quot;</span>)) {
      add(<span class="enscript-string">&quot;\\fB\\-&quot;</span> words[++w] <span class="enscript-string">&quot;\\fP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Ar$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;\\fI&quot;</span>)
      <span class="enscript-keyword">if</span>(w==nwords)
	add(<span class="enscript-string">&quot;file ...\\fP&quot;</span>)
      <span class="enscript-keyword">else</span> {
	add(words[++w] <span class="enscript-string">&quot;\\fP&quot;</span>)
	<span class="enscript-keyword">while</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;^\\|$&quot;</span>))
	  add(words[++w] <span class="enscript-string">&quot; \\fI&quot;</span> words[++w] <span class="enscript-string">&quot;\\fP&quot;</span>)
      }
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Cm$&quot;</span>)) {
      add(<span class="enscript-string">&quot;\\fB&quot;</span> words[++w] <span class="enscript-string">&quot;\\fP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Op$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;[&quot;</span>)
      option=1
      trailer=<span class="enscript-string">&quot;]&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Pp$&quot;</span>)) {
      endline()
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^An$&quot;</span>)) {
      endline()
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Ss$&quot;</span>)) {
      add(<span class="enscript-string">&quot;.SS&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Ft$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;\\fI&quot;</span>)
      trailer = <span class="enscript-string">&quot;\\fP&quot;</span> trailer
      displaylines = 1
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Fn$&quot;</span>)) {
      <span class="enscript-comment"># Using '.nh' to suppress hyphenation doesn't really work...
</span>      <span class="enscript-comment"># TODO: Fix this.
</span>      add(<span class="enscript-string">&quot;.nh&quot;</span>)
      endline()
      addopen(<span class="enscript-string">&quot;\\fB&quot;</span>)
      w++
      add(words[w])
      addclose(<span class="enscript-string">&quot;\\fP&quot;</span>)
      endline()
      add(<span class="enscript-string">&quot;.hy&quot;</span>)
      endline()
      addpunct(<span class="enscript-string">&quot;(&quot;</span>)
      <span class="enscript-comment"># This is broken; Fn should peek ahead and put each double-quoted
</span>      <span class="enscript-comment"># arg in .Ty and be smarter about following punct.
</span>      trailer = <span class="enscript-string">&quot;);&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Va$&quot;</span>)) {
      w++
      add(<span class="enscript-string">&quot;\\fI&quot;</span> words[w] <span class="enscript-string">&quot;\\fP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^In$&quot;</span>)) {
      w++
      add(<span class="enscript-string">&quot;\\fB#include &lt;&quot;</span> words[w] <span class="enscript-string">&quot;&gt;\\fP&quot;</span>)
      breakline()
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Pa$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;\\fI&quot;</span>)
      w++
      <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^\\.&quot;</span>))
	add(<span class="enscript-string">&quot;\\&amp;&quot;</span>)
      add(words[w] <span class="enscript-string">&quot;\\fP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Dv$&quot;</span>)) {
      add(<span class="enscript-string">&quot;.BR&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Em|Ev$&quot;</span>)) {
      add(<span class="enscript-string">&quot;.IR&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Pq$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;(&quot;</span>)
      trailer=<span class="enscript-string">&quot;)&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Aq$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;&lt;&quot;</span>)
      trailer=<span class="enscript-string">&quot;&gt;&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Brq$&quot;</span>)) {
      addopen(<span class="enscript-string">&quot;{&quot;</span>)
      trailer=<span class="enscript-string">&quot;}&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^S[xy]$&quot;</span>)) {
      add(<span class="enscript-string">&quot;.B &quot;</span> wtail())
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Ic$&quot;</span>)) {
      add(<span class="enscript-string">&quot;\\fB&quot;</span>)
      trailer=<span class="enscript-string">&quot;\\fP&quot;</span> trailer
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^Bl$&quot;</span>)) {
      oldoptlist=optlist
      <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;-bullet&quot;</span>))
	optlist=1
      <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;-enum&quot;</span>)) {
	optlist=2
	enum=0
      } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;-tag&quot;</span>))
	optlist=3
      <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;-item&quot;</span>))
	optlist=4
      <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;-bullet&quot;</span>))
	optlist=1
      w=nwords
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^El$&quot;</span>)) {
      optlist=oldoptlist
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^It$&quot;</span>)&amp;&amp;optlist) {
      <span class="enscript-keyword">if</span>(optlist==1)
	add(<span class="enscript-string">&quot;.IP \\(bu&quot;</span>)
      <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(optlist==2)
	add(<span class="enscript-string">&quot;.IP &quot;</span> ++enum <span class="enscript-string">&quot;.&quot;</span>)
      <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(optlist==3) {
	add(<span class="enscript-string">&quot;.TP&quot;</span>)
        endline()
	<span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w+1],<span class="enscript-string">&quot;^Pa$|^Ev$&quot;</span>)) {
	  add(<span class="enscript-string">&quot;.B&quot;</span>)
	  w++
	}
      } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(optlist==4)
	add(<span class="enscript-string">&quot;.IP&quot;</span>)
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^[=]$&quot;</span>)) {
      addpunct(words[w])
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^[\[{(]$&quot;</span>)) {
      addopen(words[w])
    } <span class="enscript-keyword">else</span> <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(words[w],<span class="enscript-string">&quot;^[\\\])}.,;:]$&quot;</span>)) {
      addclose(words[w])
    } <span class="enscript-keyword">else</span> {
      add(words[w])
    }
  }
  <span class="enscript-keyword">if</span>(<span class="enscript-keyword">match</span>(out,<span class="enscript-string">&quot;^\\.[^a-zA-Z]&quot;</span>))
    <span class="enscript-keyword">sub</span>(<span class="enscript-string">&quot;^\\.&quot;</span>,<span class="enscript-string">&quot;&quot;</span>,out)
  endline()
}
</pre>
<hr />
</body></html>