# 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'\n\@ID \@F \@Verbatim \@Begin',
		'NumberedListElement' =>	 qq'\n\@LI {\n',
		'EndParagraph' =>	 qq'',
		'EndSect3' =>	 qq'\n\@End \@SubSection ',
		'EndSectLevel1' =>	 qq'',
		'CommentLine' =>	 qq'# \%line\% ',
		'***' =>	 qq'\n\@SubSection \@Title {\%section\%} \@Tag {\%section\%} \@Begin ',
		'Target' =>	 qq'\%text\% \@PageMark {\%target\%}  ',
		'EndVerbatim' =>	 qq'}',
		'StartBulletList' =>	 qq'\n\@BL ',
		'EndSect1' =>	 qq'\n\@End \@Chapter ',
		'LineBreak' =>	 qq'\n\@LLP ',
		'BeginSectLevel1' =>	 qq'',
		'StartNamedList' =>	 qq'\n\@TL ',
		'StartTable' =>	 qq'######## WARNING: AFT doesn\'t support Lout tables yet! ########',
		'BeginSectLevel4' =>	 qq'\n\@BeginSubSubSections ',
		'StartSmall' =>	 qq'\@S {',
		'EndQuote' =>	 qq'} ',
		'EndSectLevel2' =>	 qq'\n\@EndSections ',
		'NBSPACE' =>	 qq'\" \"',
		'StartBlockedVerbatim' =>	 qq'\n\@ID \@F \@Verbatim \@Begin',
		'****' =>	 qq'\n\@SubSubSection \@Title {\%section\%} \@Tag {\%section\%} \@Begin ',
		'NamedListElement' =>	 qq'\n\@DTI {\%name\%} {\n',
		'Image' =>	 qq'\n\@IncludeGraphic \%image\%',
		'FullFilterFilteredVerbatim?' =>	 qq'No',
		'StartStrong' =>	 qq'\@B {',
		'EndEmphasis' =>	 qq'}',
		'StartQuote' =>	 qq'\n\@QD { ',
		'prefilter' =>	 qq'\014		\@NP ',
		'StartNumberedList' =>	 qq'\n\@PNL ',
		'EndSmall' =>	 qq'}',
		'EndBulletList' =>	 qq'\n\@EndList ',
		'PreFilterVerbatim?' =>	 qq'No',
		'NoteRef' =>	 qq'\@Sup {\%ref\%} ',
		'StartVerbatim' =>	 qq'\n\@ID \@F \@Verbatim {',
		'Center' =>	 qq'\n\@CD {\%center\%} ',
		'Image-right' =>	 qq'\n\@RightDisplay \@IncludeGraphic \%image\% ',
		'EndBulletListElement' =>	 qq'\n}',
		'EndFilteredVerbatim' =>	 qq'\n\@End \@Verbatim ',
		'BulletListElement' =>	 qq'\n\@LI {\n',
		'InternalReference' =>	 qq'\%text\% (p. \@PageOf {\%target\%}) ',
		'URL' =>	 qq'\@F {<\%target\%>} ',
		'EndSectLevel3' =>	 qq'\n\@EndSubSections ',
		'EndNumberedList' =>	 qq'\n\@EndList ',
		'EndStrong' =>	 qq'}',
		'StartParagraph' =>	 qq'\n\@PP\n ',
		'EndNamedListElement' =>	 qq'\n}',
		'StartEmphasis' =>	 qq'\@I {',
		'Subscript' =>	 qq'\@Sub {\%stuff\%} ',
		'**' =>	 qq'\n\@Section \@Title {\%section\%} \@Tag {\%section\%} \@Begin ',
		'EndSect2' =>	 qq'\n\@End \@Section ',
		'ID' =>	 qq'LOUTBOOK',
		'EndTeletype' =>	 qq'} ',
		'Superscript' =>	 qq'\@Sup {\%stuff\%} ',
		'EndSect4' =>	 qq'\n\@End \@SubSubSection ',
		'StartTeletype' =>	 qq'\@F {',
		'*' =>	 qq'\n\@Chapter \@Title {\%section\%} \@Tag {\%section\%} \@Begin ',
		'EndNumberedListElement' =>	 qq'\n}',
		'HorizontalLine' =>	 qq'\n\@D \@FullWidthRule ',
		'EndNamedList' =>	 qq'\n\@EndList ',
		'BeginSectLevel3' =>	 qq'\n\@BeginSubSections ',
		'Image-center' =>	 qq'\n\@CD \@IncludeGraphic \%image\% ',
		'ParagraphBreak' =>	 qq'',
		'EndSectLevel4' =>	 qq'\n\@EndSubSubSections ',
		'TOC' =>	 qq'# TOC should be made from your lout file. ',
		'StrikeLine' =>	 qq'# \%line\% ',
		'BeginSectLevel2' =>	 qq'\n\@BeginSections ',
		'Image-left' =>	 qq'\n\@LD \@IncludeGraphic \%image\% ',
		'EndBlockedVerbatim' =>	 qq'\n\@End \@Verbatim ',
	);

## Preamble:

$file_preamble = '# Basser Lout Version 3.25  - Book - Output generated by AFT 5.08
@SysInclude { book }
@Book
@Title {%title%}
@Author {%author%}
@Edition {}
@Publisher {}
@BeforeTitlePage {}
@OnTitlePage {}
@AfterTitlePage {}
@AtEnd {}
@InitialFont { Times Base 12p }
@InitialBreak { adjust 1.2fx hyphen }
@InitialSpace { tex }
@InitialLanguage { Spanish }
@PageOrientation { Portrait }
@PageHeaders { Titles }
@ColumnNumber { 1 }
@FirstPageNumber { 1 }
@IntroFirstPageNumber { 1 }
@OptimizePages { Yes }
//
';

## Postamble:

$file_postamble = '';
}


## Prefilter subroutine:

sub prefilter {
   my ($line) = @_;
   $line=~s/\\/-BSlAsH-/g;
   $line=~s/\"/\"\\\"\"/g;
   $line=~s/-BSlAsH-/\"\\\\"/g;
   $line=~s/\{\-([^\}]+)\@([^\}]+)\-\}/%LeFtB%NeG$1-AtChAr-$2%NeG%RiGhTB/g;
   $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/%LeFtB/{/g;
   $line=~s/%RiGhTB/}/g;
   $line=~s/%PlUs/+/g;
   $line=~s/%NeG/-/g;
   $line=~s/-AtChAr-/@/g;
   $line=~s/\`\`([^\']+)\'\'\'\'/``$1-4QuOtEs-/g;
   $line=~s/\`\`([^\']+)\'\'/``$1-2QuOtEs-/g;
   $line=~s/-4QuOtEs-/''''/g;
   $line=~s/-2QuOtEs-/''''/g;
   $line=~s/[\#\&\^\/]/\"$&\"/g;
   $line=~s/\~\~/-DTiLdE-/g;
   return $line;
}

## Postfilter subroutine:

sub postfilter {
   my ($line) = @_;
   $line=~s/\~/\"~\"/g;
   $line=~s/-DTiLdE-/~/g;
   $line=~s/\|/\"|\"/g;
   return $line;
}

 

1;