# AFT Output Elements.
# !!DO NOT EDIT!! This file was automatically generated by aft-compile v2.07 on Sun Jan 13 03:55:56 2008
# See http://www.maplefish.com/todd/aft.html for details.
package AFT_OUTPUT;

use vars qw ($file_preamble $file_postamble %elem %pragma_postvar);

$file_preamble = '';	# Holds preamble for output file.
$file_postamble = '';	# Holds postamble for output file.
%elem = ();		# Element commands for producing output file.%pragma_postvar = ();	# Variables for substitution post-filtering.


sub init_elements {
	%pragma_postvar = (
		'stylesheet' =>	 'none',
	);
	%elem = (
		'NotesAtEnd?' =>	 qq'yes',
		'StartFilteredVerbatim' =>	 qq'<pre>',
		'NumberedListElement' =>	 qq'<li>',
		'EndParagraph' =>	 qq'</p>',
		'EndSect3' =>	 qq'<!--End Section 3-->',
		'^****' =>	 qq'<br><a href="#AFT-top">[Top]</a><h5><a name="\%section\%">\%text\%</a></h5>',
		'EndSectLevel1' =>	 qq'<!-- End SectLevel1 -->',
		'CommentLine' =>	 qq'<!-- \%line\% -->',
		'TableHeader' =>	 qq'<th>\%stuff\%</th>',
		'***' =>	 qq'<h4><a name="\%section\%">\%text\%</a></h4>',
		'Target' =>	 qq'<a name="\%target\%">\%text\%</a>',
		'EndVerbatim' =>	 qq'</pre></div>',
		'StartBulletList' =>	 qq'<ul>',
		'EndSect1' =>	 qq'<!--End Section 1-->',
		'Note' =>	 qq'<sup>[\%notereftxt\%(\%notetarget\%)]</sup>',
		'LineBreak' =>	 qq'<br>',
		'BeginSectLevel1' =>	 qq'<!-- Start SectLevel1 -->',
		'StartTable' =>	 qq'<!-- \%columns\% columns --><table border>',
		'StartNamedList' =>	 qq'<dl>',
		'BeginSectLevel4' =>	 qq'<!-- Start SectLevel4 -->',
		'StartSmall' =>	 qq'<small>',
		'EndQuote' =>	 qq'</blockquote>',
		'EndSectLevel2' =>	 qq'<!-- End SectLevel2 -->',
		'NBSPACE' =>	 qq'&nbsp',
		'^**' =>	 qq'<br><a href="#AFT-top">[Top]</a><h3><a name="\%section\%">\%text\%</a></h3>',
		'TableRowStart' =>	 qq'<tr>',
		'StartBlockedVerbatim' =>	 qq'<div class="block"><pre>',
		'****' =>	 qq'<h5><a name="\%section\%">\%text\%</a></h5>',
		'EndTable' =>	 qq'</table>',
		'NamedListElement' =>	 qq'<dt><strong>\%name\%</strong></dt><dd>',
		'TableRowEnd' =>	 qq'</tr>',
		'TableElementSep' =>	 qq'',
		'Image' =>	 qq'<img src="\%image\%" alt="" align=bottom>',
		'FullFilterFilteredVerbatim?' =>	 qq'Yes',
		'StartStrong' =>	 qq'<strong>',
		'EndEmphasis' =>	 qq'</em>',
		'StartQuote' =>	 qq'<blockquote>',
		'StartNumberedList' =>	 qq'<ol>',
		'EndSmall' =>	 qq'</small>',
		'EndBulletList' =>	 qq'</ul>',
		'^*' =>	 qq'<br><a href="#AFT-top">[Top]</a><h2><a name="\%section\%">\%text\%</a></h2>',
		'PreFilterVerbatim?' =>	 qq'Yes',
		'NoteRef' =>	 qq'<sup>\%ref\%</sup>',
		'StartVerbatim' =>	 qq'<div class="block"><pre>',
		'Center' =>	 qq'<center>\%center\%</center>',
		'Image-right' =>	 qq'<img src="\%image\%" alt="" align=right><br clear=all>',
		'EndBulletListElement' =>	 qq'</li>',
		'EndFilteredVerbatim' =>	 qq'</pre>',
		'BulletListElement' =>	 qq'<li>',
		'InternalReference' =>	 qq'<a class="link" href="#\%target\%">\%text\%</a>',
		'Author' =>	 qq'<br><center><h2>\%author\%</h2></center>',
		'URL' =>	 qq'<a class="link" href="\%target\%">\%text\%</a>',
		'EndSectLevel3' =>	 qq'<!-- End SectLevel3 -->',
		'EndNumberedList' =>	 qq'</ol>',
		'EndStrong' =>	 qq'</strong>',
		'StartParagraph' =>	 qq'<p class="Body">',
		'EndNamedListElement' =>	 qq'</dd>',
		'TableCaption' =>	 qq'<caption>\%caption\%</caption>',
		'StartEmphasis' =>	 qq'<em>',
		'Subscript' =>	 qq'<sub>\%stuff\%</sub>',
		'**' =>	 qq'<h3><a name="\%section\%">\%text\%</a></h3>',
		'EndSect2' =>	 qq'<!--End Section 2-->',
		'ID' =>	 qq'HTML',
		'EndTeletype' =>	 qq'</tt>',
		'Superscript' =>	 qq'<sup>\%stuff\%</sup>',
		'EndSect4' =>	 qq'<!--End Section 4-->',
		'StartTeletype' =>	 qq'<tt>',
		'*' =>	 qq'<h2><a name="\%section\%">\%text\%</a></h2>',
		'Title' =>	 qq'<br><center><h1><a name="AFT-top">\%title\%</a></h1></center>',
		'EndNumberedListElement' =>	 qq'</li>',
		'interpolate' =>	 qq'yes',
		'HorizontalLine' =>	 qq'<hr>',
		'EndNamedList' =>	 qq'</dl>',
		'Image-center' =>	 qq'<center><img src="\%image\%" alt="" align=bottom></center><br clear=all>',
		'BeginSectLevel3' =>	 qq'<!-- Start SectLevel3 -->',
		'EndSectLevel4' =>	 qq'<!-- End SectLevel4 -->',
		'^***' =>	 qq'<br><a href="#AFT-top">[Top]</a><h4><a name="\%section\%">\%text\%</a></h4>',
		'TOC' =>	 qq'',
		'StrikeLine' =>	 qq'<!-- Striken: \%line\% -->',
		'BeginSectLevel2' =>	 qq'<!-- Start SectLevel2 -->',
		'Image-left' =>	 qq'<img src="\%image\%" alt="" align=left><br clear=all>',
		'EndBlockedVerbatim' =>	 qq'</pre></div>',
		'TableElement' =>	 qq'<td>\%stuff\%</td>',
	);

## Preamble:

$file_preamble = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>%title%</title>
	<meta name="author" content="%author%">
	<meta name="GENERATOR" content = "%version%">
<style type="text/css">
  <!--
	.Default {background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: \'Tahoma\'; font-size: 12pt}
	.Text-Background {background-color: rgb(255,255,255)}
  -->
</style>
</head>
<body>
';

## Postamble:

$file_postamble = '<br>
<p align="right"> <small>%aft%</small> </p>
</body>
</html>
';
}


## Prefilter subroutine:

sub prefilter {
   my ($line) = @_;
   $line=~s/\&/\&amp;/g;
   $line=~s/\"/\&quot;/g;
   $line=~s/\>/\&gt;/g;
   $line=~s/\</\&lt;/g;
   $line=~s/\Ð/\&ETH;/g;
   $line=~s/\ð/\&eth;/g;
   $line=~s/\Ä/\&Auml;/g;
   $line=~s/\Ë/\&Euml;/g;
   $line=~s/\Ï/\&Iuml;/g;
   $line=~s/\Ö/\&Ouml;/g;
   $line=~s/\Ü/\&Uuml;/g;
   $line=~s/\ä/\&auml;/g;
   $line=~s/\ë/\&euml;/g;
   $line=~s/\ï/\&iuml;/g;
   $line=~s/\ö/\&ouml;/g;
   $line=~s/\ü/\&uuml;/g;
   $line=~s/\ÿ/\&yuml;/g;
   $line=~s/\Æ/\&AElig;/g;
   $line=~s/\Â/\&Acirc;/g;
   $line=~s/\Å/\&Aring;/g;
   $line=~s/\Ê/\&Ecirc;/g;
   $line=~s/\Î/\&Icirc;/g;
   $line=~s/\Ô/\&Ocirc;/g;
   $line=~s/\Þ/\&THORN;/g;
   $line=~s/\â/\&acirc;/g;
   $line=~s/\Â/\&Acirc;/g;
   $line=~s/\æ/\&aelig;/g;
   $line=~s/\å/\&aring;/g;
   $line=~s/\ê/\&ecirc;/g;
   $line=~s/\î/\&icirc;/g;
   $line=~s/\ô/\&ocirc;/g;
   $line=~s/\ß/\&szlig;/g;
   $line=~s/\þ/\&thorn;/g;
   $line=~s/\û/\&ucirc;/g;
   $line=~s/\Á/\&Aacute;/g;
   $line=~s/\À/\&Agrave;/g;
   $line=~s/\Ã/\&Atilde;/g;
   $line=~s/\Ç/\&Ccedil;/g;
   $line=~s/\É/\&Eacute;/g;
   $line=~s/\È/\&Egrave;/g;
   $line=~s/\Í/\&Iacute;/g;
   $line=~s/\Ì/\&Igrave;/g;
   $line=~s/\Ñ/\&Ntilde;/g;
   $line=~s/\Ó/\&Oacute;/g;
   $line=~s/\Ò/\&Ograve;/g;
   $line=~s/\Ø/\&Oslash;/g;
   $line=~s/\Õ/\&Otilde;/g;
   $line=~s/\Ú/\&Uacute;/g;
   $line=~s/\Ù/\&Ugrave;/g;
   $line=~s/\Ý/\&Yacute;/g;
   $line=~s/\á/\&aacute;/g;
   $line=~s/\à/\&agrave;/g;
   $line=~s/\ã/\&atilde;/g;
   $line=~s/\ç/\&ccedil;/g;
   $line=~s/\é/\&eacute;/g;
   $line=~s/\è/\&egrave;/g;
   $line=~s/\í/\&iacute;/g;
   $line=~s/\ì/\&igrave;/g;
   $line=~s/\ñ/\&ntilde;/g;
   $line=~s/\ó/\&oacute;/g;
   $line=~s/\ò/\&ograve;/g;
   $line=~s/\ø/\&oslash;/g;
   $line=~s/\õ/\&otilde;/g;
   $line=~s/\ú/\&uacute;/g;
   $line=~s/\ù/\&ugrave;/g;
   $line=~s/\ý/\&yacute;/g;
   return $line;
}

## Postfilter subroutine:

sub postfilter {
   my ($line) = @_;
   $line=~s/\s{8}/\&nbsp;\&nbsp;/g;
   $line=~s/\t/\&nbsp;\&nbsp;/g;
   return $line;
}

 

1;