# The translation file for XML->HTML literate programs
<litprog>{ \
    on_output(); \
    }
<title>{$divert=1;}
</title>{ \
  print OP "<TITLE>$content</TITLE>"; \
  print OP '<H3 ALIGN="center">',$content,"</H3>"; \
  $divert=0; \
  }
<author><H3 ALIGN="center">
</author></H3>
<version><H4 ALIGN="center">Version 
</version></H4>
<date><H4 ALIGN="center">
</date></H4>
<today>{ \
    use POSIX qw(strftime); \
    $now_string = strftime "%e %b %Y", localtime; \
    print OP $now_string; \
  }
</today>
include /home/ajh/lib/xml/TableOfContents.html
<section>{ \
    enter_section(0); \
    if (defined($$rattr{'title'})) { \
      print STDERR "old format title attribute \"",$$rattr{'title'},"\"\n"; \
    } \
  }
<section/title>{ \
    print OP '<HR SIZE=4 NOSHADE><A NAME="section', section_string(),'">'; \
    print OP "<H2>", section_string(), " "; \
    $divert=1; $content=""; \
  }
</section/title>{ \
    print OP "$content</H2></A>"; \
    section_title($content); \
    $divert=0; $content=""; \
  }
</section>{exit_section(0);}
<subsection>{enter_section(1);}
<subsection/title>{ \
    print OP '<HR SIZE=2 NOSHADE><A NAME="section', section_string(),'">'; \
    print OP "<H4>", section_string(), " "; \
    $divert=1; $content=""; \
  }
</subsection/title>{ \
    print OP "$content</H4></A>"; \
    section_title($content); \
    $divert=0; $content=""; \
  }
</subsection>{exit_section(1);}
<subsubsection>{enter_section(2);}
<subsubsection/title>{ \
    print OP '<A NAME="section', section_string(),'">'; \
    print OP "<H5>", section_string(), " "; \
    $divert=1; $content=""; \
  }
</subsubsection/title>{ \
    print OP "$content</H5></A>"; \
    section_title($content); \
    $divert=0; $content=""; \
  }
</subsubsection>{exit_section(2);}
<p><P>
</p></P>
<br><BR>
</br>
<pre><PRE>
</pre></PRE>
<dir><DIR>
</dir></DIR>
<narrower><DIR>
</narrower></DIR>
<a><A>
<a href><A HREF="#<href>">
<a name><A NAME="#<name>">
<a href name><A HREF="#<href>" NAME="#<name>">
</a></A>
<output><DIR><PRE>
</output></PRE></DIR>
<itemize><UL>
  <itemize/item><LI>
  </itemize/item></LI>
</itemize></UL>
<description><DL>
  <description/item>
    <item/term><DT><B>
    </item/term></B></DT><DD>
  </description/item></DD>
</description></DL>
<enumerate><OL>
  <enumerate/item><LI>
  </enumerate/item></LI>
</enumerate></OL>
<parameters><OL TYPE="$1">
  <parameters/item><LI>
  </parameters/item></LI>
</parameters></OL>
<i><I>
</i></I>
<em><I>
</em></I>
<tt><TT>
</tt></TT>
<bf><B>
</bf></B>
<b><B>
</b></B>
<format><DIR><PRE>
</format></PRE></DIR>
<uri href><A HREF="#<href>">
</uri></A>
<anchor><A NAME="#<name>"></A>
</anchor>
<maintaintable><H2 ALIGN="center">Maintenance History</H2><TABLE BORDER="1" ALIGN="center">
</maintaintable></TABLE><P>&nbsp;</P>
<maintaintable/date><TR><TD>
</maintaintable/date></TD>
<maintaintable/author><TD>
</maintaintable/author></TD>
<maintaintable/version><TD>
</maintaintable/version></TD>
<maintaintable/comment><TD>
</maintaintable/comment></TD></TR>

# macrocall is used to flag a call on a macro name from within a macro scrap.
# attributes are:
#   chunk   The macro chunk number
# We save the chunk number up for later printout at the end of the element.
#
<macrocall>{ \
    $macronum=$$rattr{chunk}; \
    print OP '<A HREF="#xlp:',$macronum,'">&lt;<I>'; \
    }
</macrocall>{print OP "</I> $macronum&gt;</A>";}

# file is used to markup a file definition
# attributes are:
#   name    The name of the file
#   chunk   The macro chunk number
#
<file>{ \
    print OP '<A NAME="xlp:',$$rattr{name},'"',"></A>\n"; \
    print OP '<A NAME="xlp:',$$rattr{chunk},'"',"><HR><P><PRE>\n"; \
    print OP '<I>"',$$rattr{name},'"</I> ',$$rattr{chunk},"</A> ="; \
    }
</file></DIR></P>

<CODE><DIR><PRE>
</CODE></PRE></DIR>
<code><DIR>
</code>&lt;&gt;</PRE>
<macro>{ \
    my($name)=$$rattr{name}; \
    my($i)=1; \
    while (defined($$rattr{"parm$i"})) { \
      my($parm) = $$rattr{"parm$i"}; \
      $name =~ s/#$i/&lt;$parm#$i&gt;/; \
      ++$i; \
    } \
    print OP '<A NAME="xlp:',$$rattr{chunk},'"',"><HR><P><PRE>\n"; \
    print OP "<I>&lt;$name $$rattr{chunk}</I>&gt;</A> ="; \
    }
</macro></DIR></P>
<actual>"</I>{"
</actual>"}<I>"
#
# stuff to do identifier cross referencing
<xlp:label><A HREF="#xlp:#<id>">
</xlp:label></A>
<xlp:label/xlp:label><SUB> <A HREF="#xlp:#<id>">
</xlp:label/xlp:label></A></SUB>
#
#
<FileDefinitionList><DL>
</FileDefinitionList></DL>
<FileDefine name><I><TT>"#<name>"</TT></I>
</FileDefine><BR>
<DefScraps>&nbsp;
</DefScraps>&gt;
<MacroDefinitionList><DL>
</MacroDefinitionList></DL>
<MacroDefine><I><TT>&lt;#<name></TT></I>
</MacroDefine><BR>
<MacroRefs>
</MacroRefs>
<IdentifierList>
</IdentifierList>
<Identifier><CODE>
</Identifier><BR>
<IdRefs></CODE>&nbsp;&nbsp;
</IdRefs>
<hrule><HR>
</hrule>
<strong><B>
</strong></B>
<scrapref><A HREF="#xlp:#<chunk>">#<chunk></A>
</scrapref>
<lessthan>"&lt;"
</lessthan>
<greaterthan>"&gt;"
</greaterthan>
<verb><CODE>
</verb></CODE>
<verbatim><DIR><PRE>
</verbatim></PRE></DIR>
# some tags for straight HTML are passed through
#
<A><A>
</A></A>
<table><TABLE BORDER="1">
</table></TABLE>
<tr><TR>
</tr></TR>
<th><TH>
</th></TH>
<td><TD>
</td></TD>
</litprog><HR SIZE=4 NOSHADE>
&gtt;"&gt;"
&ltt;"&lt;"
&at;"@"
&perc;"%"
&under;"_"
&dollar;"$"
&ldq;"
&rdq;"
<P><SPAN STYLE="font-size:80%%">
46 accesses since 11 Oct 2008, 
HTML cache rendered at 20090817:2100</SPAN>