# -*-perl-*- # APA: Add SystemLiteral to identify the canonical DTD. # [Definition:] The SystemLiteral is called the entity's system # identifier. It is a URI, which may be used to retrieve the entity. # See http://www.xml.com/axml/target.html#NT-ExternalID $DOCTYPE = ''; $FRAMESET_DOCTYPE = $DOCTYPE; $BODYTEXT = 'bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"'; # this controls the pre style for menus $MENU_PRE_STYLE = ''; $TOC_LIST_STYLE =''; $USE_ISO = 0; $MENU_SYMBOL = '*'; # This lines are inserted before and after the shortcontents $BEFORE_OVERVIEW = ""; $AFTER_OVERVIEW = ''; # This lines are inserted before and after the contents $BEFORE_TOC_LINES = ""; $AFTER_TOC_LINES = ''; # html version for latex2html $L2H_HTML_VERSION = "3.2"; # no css $CSS_LINES = ""; %css_map = (); $things_map{'oe'} = ''; $things_map{'OE'} = ''; $things_map{'dots'} = '...'; $things_map{'enddots'} = '....'; $things_map{'euro'} = 'Euro'; $style_map{'sansserif'} = {}; # formatting functions $summary_letter = \&t2h_html32_summary_letter; $protect_text = \&t2h_html32_protect_text; $heading = \&t2h_html32_heading; $preformatted = \&t2h_html32_preformatted; $raw = \&t2h_html32_raw; $menu = \&t2h_html32_menu; $foot_section = \&t2h_html32_foot_section; $cartouche = \&t2h_html32_cartouche; $listoffloats = \&t2h_html32_listoffloats; $float = \&t2h_html32_float; # " is not in html 3.2 sub t2h_html32_protect_text($) { my $text = shift; $text =~ s/&/&/g; $text =~ s/</g; $text =~ s/>/>/g; #$text =~ s/\"/"/g; return $text; } # a preformatted section sub t2h_html32_preformatted($$$) { my $text = shift; my $pre_style = shift; my $class = shift; return '' if ($text eq ''); return "
$text"; } # a heading for an element sub t2h_html32_heading($) { my $element = shift; my $level = 3; if (!$element->{'node'}) { $level = $element->{'level'}; } $level = 1 if ($level == 0); my $text = $element->{'text'}; if (!$element->{'node'} and (!$NUMBER_SECTIONS)) { $text = $element->{'name'}; } return '' if ($text !~ /\S/); if (defined($element->{'tocid'}) and $TOC_LINKS) { $text = &$anchor ('', "$Texi2HTML::THISDOC{'toc_file'}#$element->{'tocid'}", $text); } return "
" . &$protect_text($text) . ''; } elsif ($style eq 'html') { return $text; } else { warn "$WARN (bug) unknown style $style\n"; return &$protect_text($text); } } # a whole menu sub t2h_html32_menu($) { my $text = shift; if ($text =~ /\S/) { return "
\n" . $text . " |