########################################################################
# SGMLSPL script produced automatically by the script sgmlspl.pl
#
# Document Type: SLIDESHOW
# Edited by: 
########################################################################

use SGMLS;			# Use the SGMLS package.
use SGMLS::Output;		# Use stack-based output.

#
# Document Handlers.
#
$prolog = qq{
%!PS-Adobe-3.0
%%Orientation: landscape
%%Pages: (atend)
%%BeginProlog
/inch { 72 mul } def
statusdict /manualfeed true put
% fonts and font sizes
/font /Times-Bold findfont def
/headersize 30 def
/rawsize 24 def
/bodysize 40 def
/lead 5 def
/bodylead bodysize lead add def
/rawlead rawsize 3 add def
/headerfont { font headersize scalefont setfont } def
/bodyfont { font bodysize scalefont setfont } def
/rawfont { font rawsize scalefont setfont } def
% page layout
/pagetop 8 inch def
/pagewidth 10 inch def
/pagebase pagetop bodylead sub def
/headerindent .5 inch def
/itemindent 1 inch def
/topline { 0 inch pagetop lead lead add sub moveto 
	   2 setlinewidth
	   pagewidth headerindent add  0 inch rlineto stroke  } def
/showtitle { 90 rotate 0.5 inch -8.5 inch translate
	     headerfont 0 inch pagetop moveto show
	     topline
	     /itemy pagebase bodylead sub def } def
/showsection { headerfont headerindent pagebase moveto show  } def
/showpageno { headerfont pagewidth pagetop moveto show  } def
/showitem { headerfont itemindent itemy moveto show
	    /itemy itemy bodylead sub def } def
/showraw { rawfont itemindent itemy moveto show
	    /itemy itemy rawlead sub def } def
/finishpage { showpage } def
%%EndProlog
};
$prolog="PROLOG HERE\n";
sgml('start', $prolog);
$epilog=qq{
%%Trailer
%%Pages: 
%%EOF
};
sgml('end', $epilog);

#
# Element Handlers.
#

# Element: SLIDESHOW
sgml('<SLIDESHOW>', "");
sgml('</SLIDESHOW>', "");

sgml('cdata', sub { $lastcdata = $_[0]; 0 && print "LC: {{$lastcdata}}\n";});
# Element: TITLE
sgml('<TITLE>', "");
sgml('</TITLE>', sub { $savetitle = $lastcdata; print "GOT TITLE:{{$savetitle}}\n";});

# Element: AUTHOR
sgml('<AUTHOR>', "");
sgml('</AUTHOR>', sub { $saveauthor = $lastcdata; print "GOT AUTHOR:{{$saveauthor}}\n";});

# Element: DATE
sgml('<DATE>', "");
sgml('</DATE>', sub { $savedate = $lastcdata; print "GOT DATE:{{$savedate}}\n";});

# Element: SECTION
sgml('<SECTION>', sub {  print "GOT SECTION\n";});
sgml('</SECTION>', sub { output qq{($lastcdata) showline\n}; print "GOT /SECTION:{{$lastcdata}}\n";});


# Element: SECTITLE
sgml('</SECTITLE>', sub { output qq{($lastcdata) showsectitle\n}; print "GOT SECTITLE:{{$lastcdata}}\n";});
sgml('<SECTITLE>', "");

#
# Default handlers (uncomment these if needed).  Right now, these are set
# up to gag on any unrecognised elements, sdata, processing-instructions,
# or entities.
#
# sgml('start_element',sub { die "Unknown element: " . $_[0]->name; });
# sgml('end_element','');
# sgml('cdata',sub { output $_[0]; });
# sgml('sdata',sub { die "Unknown SDATA: " . $_[0]; });
# sgml('re',"\n");
# sgml('pi',sub { die "Unknown processing instruction: " . $_[0]; });
# sgml('entity',sub { die "Unknown external entity: " . $_[0]->name; });
# sgml('start_subdoc',sub { die "Unknown subdoc entity: " . $_[0]->name; });
# sgml('end_subdoc','');
# sgml('conforming','');

1;
