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

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

#
# Document Handlers.
#
sgml('start', sub {});
sgml('end', sub {});

#
# Element Handlers.
#

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

# Element: HEAD
sgml('<HEAD>', sub{
    my $os = "";
    my $parentname = $_[0]->parent->name;
    if($parentname eq "HACK"){
	;
    }
    else{
	;
    };
});
sgml('</HEAD>', "");

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

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

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

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

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

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

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

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

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

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

#
# 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;
