# The translation file for XML->HTML literate programs
<litprog>
    {$newsection=0;""}.
    ^^.<HR SIZE=4 NOSHADE>
    </litprog>
<title>
        "<TITLE>".^^."</TITLE>".'<H3 ALIGN="center">'.{$title}."</H3>\n"
        </title>
<author>
        '<H3 ALIGN="center">'.^^."</H3>\n"
        </author>
<authorval>
        "$author on $date"
        </authorval>
<version>
        '<H4 ALIGN="center">Version '.^^.'</H4>'
        </version>
<date>
        '<H4 ALIGN="center">'.^^.'</H4>'
        </date>
<today>{
        use POSIX qw(strftime);
        $now_string = strftime "%e %b %Y", localtime;
        main::output($now_string);
        }
        </today>

include basic.html
include NumberedSections.html

<TableOfContents>
        '<H2 ALIGN="center">Table of Contents</H2>'.
        '<TABLE BORDER=2 ALIGN="center">'.
        {for ($i=1; $i<@main::sectiontitles; $i++) {
            $indent = "";
            if ($main::sectiontitles[$i]=~/^[0-9]+\.[0-9]+/) {
                $indent="&nbsp;"x4;
            }
            if ($indent eq "") {
                main::gen_toc_line($i,'<TR><TD>'.$indent.
                    '<number></TD><TD>&nbsp;</TD><TD>'.
                    '<A HREF="#section<number>"><string></A></TD></TR>'.
                    "\n");
            } else {
                main::gen_toc_line($i,'<TR><TD>&nbsp;</TD><TD>'.$indent.
                    '<number></TD><TD><A HREF="#section<number>">'.
                    '<string></A></TD></TR>'."\n");
            }
        }}.
        ^^.
        "</TABLE><P>&nbsp;</P>"
</TableOfContents>

<br>    <BR>            </br>
<dir>   <DIR>.^^.</DIR> </dir>
<narrower><DIR>.^^.</DIR></narrower>
<a>
        <A.
        ?<name>:' NAME="@<name>"'.
        ?<href>:' HREF="@<href>"'.
        >
        .^^.
        </A>
        </a>

<output><DIR><PRE>.^^.</PRE></DIR></output>
<itemize><UL>.^^.</UL></itemize>
  <itemize/item><LI>.^^.</LI></itemize/item>

<enumerate>'<OL>'.^^.'</OL>'</enumerate>
  <enumerate/item>'<LI>'.^^.'</LI>'</enumerate/item>

<parameters>'<OL TYPE="$1">'.^^.'</OL>'</parameters>
  <parameters/item>'<LI>'.^^.'</LI>'</parameters/item>

<format>        '<DIR><PRE>'    .^^.       '</PRE></DIR>'  </format>
<uri>'<A HREF="@<href>">'.^^.'</A>'</uri>
<anchor>'<A NAME="@<name>"></A>'.^^</anchor>
<maintaintable>
        '<TABLE BORDER="1" ALIGN="center">'.
        ^^.
        '</TABLE><P>&nbsp;</P>'
        </maintaintable>
<maintaintable/date>'<TR><TD>'.^^.'</TD>'</maintaintable/date>
<maintaintable/author>'<TD>'.^^.'</TD>'</maintaintable/author>
<maintaintable/version>'<TD>'.^^.'</TD>'</maintaintable/version>
<maintaintable/comment>'<TD>'.^^.'</TD></TR>'</maintaintable/comment>

# 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>
    '<A HREF="#xlp:'.{$chunk=$$rattr{chunk}}.'">&lt;<I>'.
    ^^."</I> ".{$chunk}."&gt;</A>"
</macrocall>

# file is used to markup a file definition
# attributes are:
#   name    The name of the file
#   chunk   The macro chunk number
#
<file>
    { $lastfilename="";
      if (defined($filename)) {$lastfilename=$filename};
      $filename=@<name>;
      if ($lastfilename eq $filename) {
        $hrule="";
      } else {
        $hrule="";
      }
      ""
    }.
    '<A NAME="xlp:'.@<name>."\"></A>".
    '<A NAME="xlp:'.@<chunk>.'"'.">$hrule<P><PRE>".
    '<I>"'.$filename.'"</I> '.@<chunk>."</A> =".
    ^^.
    '</DIR></P>'
</file>

<CODE>'<DIR><PRE>'.^^.'</PRE></DIR>'</CODE>
<code>'<DIR>'.^^.'&lt;&gt;</DIR></PRE><DIR>'</code>

<macro>{  
    $lastmacroname="";
    if (defined($macroname)) {$lastmacroname=$macroname};
      $macroname=@<name>;
      if (!$newsection && $lastmacroname eq $macroname) {
        $hrule="";
      } else {
        $hrule="";
      }
      my($i)=1;
      while (defined($$rattr{"parm$i"})) {
        my($parm) = $$rattr{"parm$i"};
        $macroname =~ s/#$i/&lt;$parm#$i&gt;/;
        ++$i;
      }
    }.
    '<A NAME="xlp:'.@<chunk>.'"'.">$hrule<P><PRE>".
    "<I>&lt;".$macroname." ".@<chunk>."</I>&gt;</A> =".
    ^^.
    '</DIR></P>'
</macro>


<actual>"</I>{".^^."}<I>"</actual>
#
# stuff to do identifier cross referencing
<label>'<A HREF="#xlp:'.{$$rattr{id}}.'">'.^^.'</A>'</label>
#<label/label><SUB> <A HREF="#xlp:@<id>">
#</xlp:label/xlp:label></A></SUB>
#
#
<FileDefinitionList>
        '<DL>'.^^.'</DL>'
        </FileDefinitionList>
<FileDefine>
        '<I><TT>"@<name>"</TT></I>'.^^.'<BR>'
        </FileDefine>
<DefScraps>&nbsp;.^^</DefScraps>
<MacroDefinitionList>
        '<DL>'.^^.'</DL>'
        </MacroDefinitionList>
<MacroDefine>
        '<I><TT>&lt;@<name></TT></I>'.^^.'<BR>'
        </MacroDefine>
<MacroRefs>&gt;</MacroRefs>
<IdentifierList>^^</IdentifierList>
<Identifier><CODE>.^^.<BR></Identifier>
<IdRefs></CODE>&nbsp;&nbsp;</IdRefs>
<hrule><HR></hrule>
<strong><B>.^^.</B></strong>
<scrapref>
        '<A HREF="#xlp:@<chunk>"><@<chunk>></A>'
        </scrapref>
<lessthan>"&lt;"</lessthan>
<greaterthan>'"&gt;"'</greaterthan>
<verb>'<CODE>'.^^.'</CODE>'</verb>
#<verbatim>'<DIR><PRE>'.^^.'</PRE></DIR>'</verbatim>
<verbatim>
  <DIV STYLE="margin:0em 3em 0em 3em;font-family:Courier;
              white-space:pre">.
  ^^.
  </DIV>
  </verbatim>
# some tags for straight HTML are passed through
#
include Tables.html

&gtt;"&gt;"
&ltt;"&lt;"
&at;"@"
&perc;"%"
&under;"_"
&dollar;"$"
&ldq;"
&rdq;"

<P><SPAN STYLE="font-size:80%%">
40 accesses since 15 Oct 2008, 
HTML cache rendered at 20090822:1622</SPAN>