# 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 = (
	);
	%elem = (
		'StartFilteredVerbatim' =>	 qq'<programlisting>',
		'PreFilterVerbatim?' =>	 qq'Yes',
		'NumberedListElement' =>	 qq'<listitem>',
		'EndParagraph' =>	 qq'</para>',
		'NoteRef' =>	 qq'<superscript>\%ref\%</superscript>',
		'EndSect3' =>	 qq'</sec3>',
		'StartVerbatim' =>	 qq'<literallayout>',
		'Center' =>	 qq'\%center\%',
		'CommentLine' =>	 qq'<comment> \%line\% </comment>',
		'EndBulletListElement' =>	 qq'</listitem>',
		'Image-right' =>	 qq'<inlinegraphic fileref="\%image\%" format="gif" align=right></inlinegraphic>',
		'EndFilteredVerbatim' =>	 qq'</programlisting>',
		'BulletListElement' =>	 qq'<listitem>',
		'TableHeader' =>	 qq'<entry>\%stuff\%</entry>',
		'InternalReference' =>	 qq'<link linkend="\%target\%">\%text\%</link>',
		'Author' =>	 qq'<author>\%author\%</author>',
		'EndNumberedList' =>	 qq'</orderedlist>',
		'URL' =>	 qq'<ulink url="\%target\%">\%text\%</ulink>',
		'Target' =>	 qq'<anchor id="\%target\%">\%text\%',
		'EndVerbatim' =>	 qq'</literallayout>',
		'EndStrong' =>	 qq'</emphasis>',
		'StartBulletList' =>	 qq'<itemizedlist mark=opencircle>',
		'EndSect1' =>	 qq'</sec1>',
		'StartParagraph' =>	 qq'<para>',
		'EndNamedListElement' =>	 qq'</listitem></varlistentry>',
		'TableCaption' =>	 qq'<title>\%caption\%</title>',
		'StartEmphasis' =>	 qq'<emphasis>',
		'Subscript' =>	 qq'<subscript>\%stuff\%</subscript>',
		'StartNamedList' =>	 qq'<variablelist>',
		'StartTable' =>	 qq'<table><tgroup cols="\%columns\%">',
		'EndSect2' =>	 qq'</sec2>',
		'StartSmall' =>	 qq'<small>',
		'ID' =>	 qq'DocBookArticle	',
		'EndTeletype' =>	 qq'</computeroutput>',
		'EndQuote' =>	 qq'</blockquote>',
		'Superscript' =>	 qq'<superscript>\%stuff\%</supscript>',
		'StartTeletype' =>	 qq'<computeroutput>',
		'EndSect4' =>	 qq'</sec4>',
		'*' =>	 qq'<sec4 id="\%section\%"><title>\%section\%</title>',
		'Title' =>	 qq'<title id="AFT-top">\%title\%</title>',
		'NBSPACE' =>	 qq'&nbsp',
		'EndNumberedListElement' =>	 qq'</listitem>',
		'StartBlockedVerbatim' =>	 qq'<programlisting><![CDATA[',
		'TableRowStart' =>	 qq'<row>',
		'EndNamedList' =>	 qq'</variablelist>',
		'HorizontalLine' =>	 qq'',
		'NamedListElement' =>	 qq'<varlistentry><term>\%name\%</term><listitem>',
		'EndTable' =>	 qq'</table>',
		'TableRowEnd' =>	 qq'</row>',
		'Image-center' =>	 qq'<inlinegraphic fileref="\%image\%" format="gif" align=center></inlinegraphic>',
		'Image' =>	 qq'<inlinegraphic fileref="\%image\%" format="gif"></inlinegraphic>',
		'FullFilterFilteredVerbatim?' =>	 qq'Yes',
		'TOC' =>	 qq'',
		'StrikeLine' =>	 qq'<comment> Striken: \%line\% </comment>',
		'StartStrong' =>	 qq'<emphasis role=bold>',
		'EndEmphasis' =>	 qq'</emphasis>',
		'StartQuote' =>	 qq'<blockquote>',
		'Image-left' =>	 qq'<inlinegraphic fileref="\%image\%" format="gif" align=left></inlinegraphic>',
		'EndBlockedVerbatim' =>	 qq']]></programlisting>	',
		'StartNumberedList' =>	 qq'<orderedlist>',
		'TableElement' =>	 qq'<entry>\%stuff\%</entry>',
		'EndSmall' =>	 qq'</small>',
		'EndBulletList' =>	 qq'</itemizedlist>',
	);

## Preamble:

$file_preamble = '<!doctype article PUBLIC "-//OASIS//DTD DocBook V3.1//EN">
<article>
<artheader>
	<author>%author%</author>
</artheader>
';

## Postamble:

$file_postamble = '</article>
';
}


## Prefilter subroutine:

sub prefilter {
   my ($line) = @_;
   $line=~s/\014//g;
   $line=~s/\&/\&amp;/g;
   $line=~s/\"/\&quot;/g;
   $line=~s/\>/\&gt;/g;
   $line=~s/\</\&lt;/g;
   $line=~s/\\\\/<br>/g;
   return $line;
}

## Postfilter subroutine:

sub postfilter {
   my ($line) = @_;
   
   return $line;
}

 

1;