# AFT Output Elements.
# !!DO NOT EDIT!! This file was automatically generated by aft-compile v2.07 on Sun Jan 13 03:55:57 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' =>	 '{\f1\fs20\verbatim',
		'NumberedListElement' =>	 '\numitem',
		'EndParagraph' =>	 '\par ',
		'EndSect3' =>	 '',
		'^****' =>	 '',
		'CommentLine' =>	 '',
		'TableHeader' =>	 '{\b %stuff%}\cell',
		'***' =>	 '{\f0\fs24 {\par\pard\b %section%\par}}',
		'Target' =>	 '{\cf1\ul %text%\cf0}',
		'EndVerbatim' =>	 '\endverbatim}',
		'StartBulletList' =>	 '\bullist',
		'EndSect1' =>	 '',
		'StartNamedList' =>	 '{',
		'StartTable' =>	 '\tabcols%columns%\endtabcols',
		'StartSmall' =>	 '{\fs16 ',
		'EndQuote' =>	 '} \par\pard',
		'NBSPACE' =>	 '\~',
		'^**' =>	 '',
		'StartBlockedVerbatim' =>	 '{\f1\fs20\verbatim',
		'TableRowStart' =>	 '\intbl',
		'****' =>	 '{\f0\fs20 {\par\pard\b %section%\par}}',
		'NamedListElement' =>	 '\par\pard{\b %name%} \par\tx500\li500\fi-500 \tab',
		'EndTable' =>	 '\pard\par',
		'TableRowEnd' =>	 '\row',
		'Image' =>	 '',
		'FullFilterFilteredVerbatim?' =>	 'Yes',
		'StartStrong' =>	 '{\b ',
		'EndEmphasis' =>	 '}',
		'StartQuote' =>	 '\par\pard\li500\ri500 { ',
		'StartNumberedList' =>	 '\numlist',
		'EndSmall' =>	 '}',
		'EndBulletList' =>	 '\endbullist',
		'^*' =>	 '',
		'PreFilterVerbatim?' =>	 'Yes',
		'StartVerbatim' =>	 '{\f1\fs20\verbatim',
		'Center' =>	 '\pard\qc {%center%} \par\pard ',
		'Image-right' =>	 '',
		'EndBulletListElement' =>	 '',
		'PostProcessor' =>	 'exec "$^X @INC[0]/postrtf.pl $outputfile"',
		'EndFilteredVerbatim' =>	 '\endverbatim}',
		'BulletListElement' =>	 '\bulitem',
		'InternalReference' =>	 '{\cf1\ul %text%\cf0}',
		'Author' =>	 '\par\pard \qc {\fs36\b %author%} \par\pard \par\pard',
		'URL' =>	 '{\cf1\ul %text%\cf0}',
		'EndNumberedList' =>	 '\endnumlist',
		'EndStrong' =>	 '}',
		'StartParagraph' =>	 '\par\pard ',
		'EndNamedListElement' =>	 '',
		'TableCaption' =>	 '\par\pard%caption%\par\par\pard\trowd\cellxx',
		'StartEmphasis' =>	 '{\i ',
		'**' =>	 '{\f0\fs28 {\par\pard\b %section%\par}}',
		'EndSect2' =>	 '',
		'ID' =>	 'RTF',
		'EndTeletype' =>	 '}',
		'EndSect4' =>	 '',
		'StartTeletype' =>	 '{\f1\fs20 ',
		'*' =>	 '{\f0\fs36 {\par\pard\b %section%\par}}',
		'Title' =>	 '\par\pard \qc {\fs48\b %title%} \par\pard',
		'EndNumberedListElement' =>	 '',
		'interpolate' =>	 'no',
		'HorizontalLine' =>	 '{\emdash\emdash\emdash\emdash\emdash\emdash\emdash\emdash\emdash\emdash}',
		'EndNamedList' =>	 '\par}',
		'Image-center' =>	 '',
		'^***' =>	 '',
		'TOC' =>	 '',
		'StrikeLine' =>	 '%%--- %line%',
		'Image-left' =>	 '',
		'EndBlockedVerbatim' =>	 '\endverbatim}',
		'TableElement' =>	 '%stuff%\cell',
	);

## Preamble:

$file_preamble = '{\rtf1\ansi\ansicpg1252\deff0\deftab720
{\fonttbl{\f0\froman Times New Roman;}{\f1\fmodern Courier;}{\f2\fswiss Arial;}}
{\info{\title %title%}{\author %author%}}
{\colortbl ;\red0\green0\blue255;}

\deflang1031

';

## Postamble:

$file_postamble = '}
';
}


## Prefilter subroutine:

sub prefilter {
   my ($line) = @_;
   $line=~s/\{\+(.*?)\+\}/%LeFtB%PlUs$1%PlUs%RiGhTB/g;
   $line=~s/\}\+(.*?)\+\{/%RiGhTB%PlUs$1%PlUs%LeFtB/g;
   $line=~s/\{\-(.*?)\-\}/%LeFtB%NeG$1%NeG%RiGhTB/g;
   $line=~s/\}\-(.*?)\-\{/%RiGhTB%NeG$1%NeG%LeFtB/g;
   $line=~s/\\/\\\\/g;
   $line=~s/\{/\\\{/g;
   $line=~s/\}/\\\}/g;
   $line=~s/%LeFtB/{/g;
   $line=~s/%RiGhTB/}/g;
   $line=~s/%PlUs/+/g;
   $line=~s/%NeG/-/g;
   return $line;
}

## Postfilter subroutine:

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

 

1;