Doc/perl/l2hinit.perl - platform/external/python/cpython3 - Gitiles

 # LaTeX2HTML support base for use with Python documentation.

 package main;

 use L2hos;

 $HTML_VERSION = 4.0;

 $MAX_LINK_DEPTH = 2;
 $ADDRESS = '';

 $NO_FOOTNODE = 1;
 $NUMBERED_FOOTNOTES = 1;

 # Python documentation uses section numbers to support references to match
 # in the printed and online versions.
 #
 $SHOW_SECTION_NUMBERS = 1;

 $ICONSERVER = '.';
 $IMAGE_TYPE = 'gif';

 # Control where the navigation bars should show up:
 $TOP_NAVIGATION = 1;
 $BOTTOM_NAVIGATION = 1;
 $AUTO_NAVIGATION = 0;

 $BODYTEXT = '';
 $CHILDLINE = "\n<p><hr>\n";
 $VERBOSITY = 0;

 # default # of columns for the indexes
 $INDEX_COLUMNS = 2;
 $MODULE_INDEX_COLUMNS = 4;

 $HAVE_MODULE_INDEX = 0;
 $HAVE_GENERAL_INDEX = 0;
 $HAVE_TABLE_OF_CONTENTS = 0;

 $AESOP_META_TYPE = 'information';


 # A little painful, but lets us clean up the top level directory a little,
 # and not be tied to the current directory (as far as I can tell).  Testing
 # an existing definition of $mydir is needed since it cannot be computed when
 # run under mkhowto with recent versions of LaTeX2HTML, since this file is
 # not read directly by LaTeX2HTML any more.  mkhowto is required to prepend
 # the required definition at the top of the actual input file.
 #
 if (!defined $mydir) {
     use Cwd;
     use File::Basename;
     ($myname, $mydir, $myext) = fileparse(__FILE__, '\..*');
     chop $mydir;			# remove trailing '/'
     $mydir = getcwd() . "$dd$mydir"
         unless $mydir =~ s|^/|/|;
 }
 $LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";
 push (@INC, $mydir);

 ($myrootname, $myrootdir, $myext) = fileparse($mydir, '\..*');
 chop $myrootdir;


 # Hackish way to get the appropriate paper-*/ directory into $TEXINPUTS;
 # pass in the paper size (a4 or letter) as the environment variable PAPER
 # to add the right directory.  If not given, the current directory is
 # added instead for use with HOWTO processing.
 #
 if (defined $ENV{'PAPER'}) {
     $mytexinputs = "$myrootdir${dd}paper-$ENV{'PAPER'}$envkey";
 }
 else {
     $mytexinputs = getcwd() . $envkey;
 }
 $mytexinputs .= "$myrootdir${dd}texinputs";


 # Change this variable to change the text added in "About this document...";
 # this should be an absolute pathname to get it right.
 #
 $ABOUT_FILE = "$myrootdir${dd}html${dd}stdabout.dat";


 sub custom_driver_hook {
     #
     # This adds the directory of the main input file to $TEXINPUTS; it
     # seems to be sufficiently general that it should be fine for HOWTO
     # processing.
     #
     my $file = $_[0];
     my($jobname, $dir, $ext) = fileparse($file, '\..*');
     $dir = L2hos->Make_directory_absolute($dir);
     $dir =~ s/$dd$//;
     $TEXINPUTS = "$dir$envkey$mytexinputs";
     print "\nAdding $dir to \$TEXINPUTS\n";
 }


 $CUSTOM_BUTTONS = '';

 sub make_nav_sectref($$) {
     my($label, $title) = @_;
     if ($title) {
         if ($title =~ /\<[aA] /) {
             $title =~ s/\<[aA] /<a class="sectref" /;
         }
         else {
             $title = "<span class=\"sectref\">$title</span>";
         }
         return "<b class=\"navlabel\">$label:</b> $title\n";
     }
     return '';
 }

 @my_icon_tags = ();
 $my_icon_tags{'next'} = 'Next Page';
 $my_icon_tags{'next_page'} = 'Next Page';
 $my_icon_tags{'previous'} = 'Previous Page';
 $my_icon_tags{'previous_page'} = 'Previous Page';
 $my_icon_tags{'up'} = 'Up One Level';
 $my_icon_tags{'contents'} = 'Contents';
 $my_icon_tags{'index'} = 'Index';
 $my_icon_tags{'modules'} = 'Module Index';

 @my_icon_names = ();
 $my_icon_names{'previous_page'} = 'previous';
 $my_icon_names{'next_page'} = 'next';

 sub get_my_icon($) {
     my $name = $_[0];
     my $text = $my_icon_tags{$name};
     if ($my_icon_names{$name}) {
         $name = $my_icon_names{$name};
     }
     if ($text eq '') {
         $name = 'blank';
     }
     my $iconserver = ($ICONSERVER eq '.') ? '' : "$ICONSERVER/";
     return "<img src='$iconserver$name.$IMAGE_TYPE'\n  border='0'"
            . " height='32'  alt='$text' width='32'>";
 }

 sub use_my_icon($) {
     my $s = $_[0];
     if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
         my $r = get_my_icon($1);
         $s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
     }
     return $s;
 }

 sub make_nav_panel() {
     my $s;
     my $BLANK_ICON = get_my_icon('blank');
     $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON;
     $UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON;
     $PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON;
     $CONTENTS = use_my_icon("$CONTENTS");
     $INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON;
     if (!$CUSTOM_BUTTONS) {
         $CUSTOM_BUTTONS = $BLANK_ICON;
     }
     $s = ('<table align="center" width="100%" cellpadding="0" cellspacing="2">'
           . "\n<tr>"
           # left-hand side
           . "\n<td>$PREVIOUS</td>"
           . "\n<td>$UP</td>"
           . "\n<td>$NEXT</td>"
           # title box
           . "\n<td align=\"center\" width=\"100%\">$t_title</td>"
           # right-hand side
           . "\n<td>$CONTENTS</td>"
           . "\n<td>$CUSTOM_BUTTONS</td>" # module index
           . "\n<td>$INDEX</td>"
           . "\n</tr></table>\n"
           # textual navigation
           . make_nav_sectref("Previous", $PREVIOUS_TITLE)
           . make_nav_sectref("Up", $UP_TITLE)
           . make_nav_sectref("Next", $NEXT_TITLE)
           );
     # remove these; they are unnecessary and cause errors from validation
     $s =~ s/ NAME="tex2html\d+"\n */ /g;
     return $s;
 }

 sub add_child_links {
     my $toc = add_real_child_links(@_);
     $toc =~ s|\s*</[aA]>|</a>|g;
     $toc =~ s/ NAME=\"tex2html\d+\"\s*href=/ href=/gi;
     $toc =~ s|</UL>(\s*<BR>)?|</ul>|gi;
     return $toc;
 }

 sub get_version_text() {
     if ($PACKAGE_VERSION ne '' && $t_date) {
         return ("<span class=\"release-info\">"
                 . "Release $PACKAGE_VERSION$RELEASE_INFO,"
                 . " documentation updated on $t_date.</span>");
     }
     if ($PACKAGE_VERSION ne '') {
         return ("<span class=\"release-info\">"
                 . "Release $PACKAGE_VERSION$RELEASE_INFO.</span>");
     }
     if ($t_date) {
         return ("<span class=\"release-info\">Documentation released on "
                 . "$t_date.</span>");
     }
     return '';
 }


 sub top_navigation_panel() {
     return "\n"
            . make_nav_panel()
            . "<br><hr>\n";
 }

 sub bot_navigation_panel() {
     return "\n<p><hr>\n"
            . make_nav_panel()
            . "<hr>\n"
            . get_version_text()
            . "\n";
 }

 sub add_link {
     # Returns a pair (iconic link, textual link)
     my($icon, $current_file, @link) = @_;
     my($dummy, $file, $title) = split($delim,
 				      $section_info{join(' ',@link)});
     if ($icon =~ /\<tex2html_([_a-z]+)_visible_mark\>/) {
         my $r = get_my_icon($1);
         $icon =~ s/\<tex2html_[_a-z]+_visible_mark\>/$r/;
     }
     if ($title && ($file ne $current_file)) {
         $title = purify($title);
 	$title = get_first_words($title, $WORDS_IN_NAVIGATION_PANEL_TITLES);
 	return (make_href($file, $icon), make_href($file, "$title"))
 	}
     elsif ($icon eq get_my_icon('up') && $EXTERNAL_UP_LINK) {
  	return (make_href($EXTERNAL_UP_LINK, $icon),
 		make_href($EXTERNAL_UP_LINK, "$EXTERNAL_UP_TITLE"))
 	}
     elsif ($icon eq get_my_icon('previous')
 	   && $EXTERNAL_PREV_LINK && $EXTERNAL_PREV_TITLE) {
 	return (make_href($EXTERNAL_PREV_LINK, $icon),
 		make_href($EXTERNAL_PREV_LINK, "$EXTERNAL_PREV_TITLE"))
 	}
     elsif ($icon eq get_my_icon('next')
 	   && $EXTERNAL_DOWN_LINK && $EXTERNAL_DOWN_TITLE) {
 	return (make_href($EXTERNAL_DOWN_LINK, $icon),
 		make_href($EXTERNAL_DOWN_LINK, "$EXTERNAL_DOWN_TITLE"))
 	}
     return (&inactive_img($icon), "");
 }

 sub add_special_link($$$) {
     my($icon, $file, $current_file) = @_;
     if ($icon =~ /\<tex2html_([_a-z]+)_visible_mark\>/) {
         my $r = get_my_icon($1);
         $icon =~ s/\<tex2html_[_a-z]+_visible_mark\>/$r/;
     }
     return (($file && ($file ne $current_file))
             ? make_href($file, $icon)
             : undef)
 }

 # The img_tag() function seems only to be called with the parameter
 # 'anchor_invisible_mark', which we want to turn into ''.  Since
 # replace_icon_marks() is the only interesting caller, and all it really
 # does is call img_tag(), we can just define the hook alternative to be
 # a no-op instead.
 #
 sub replace_icons_hook {}

 sub do_cmd_arabic {
     # get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
     my($ctr, $val, $id, $text) = &read_counter_value($_[0]);
     return ($val ? farabic($val) : "0") . $text;
 }


 sub gen_index_id($$) {
     # this is used to ensure common index key generation and a stable sort
     my($str, $extra) = @_;
     sprintf('%s###%s%010d', $str, $extra, ++$global{'max_id'});
 }

 sub insert_index($$$$$) {
     my($mark, $datafile, $columns, $letters, $prefix) = @_;
     my $prog = "$myrootdir/tools/buildindex.py";
     my $index;
     if ($letters) {
 	$index = `$prog --columns $columns --letters $datafile`;
     }
     else {
 	$index = `$prog --columns $columns $datafile`;
     }
     if (!s/$mark/$prefix$index/) {
         print "\nCould not locate index mark: $mark";
     }
 }

 sub add_idx() {
     print "\nBuilding HTML for the index ...";
     close(IDXFILE);
     insert_index($idx_mark, 'index.dat', $INDEX_COLUMNS, 1, '');
 }


 $idx_module_mark = '<tex2html_idx_module_mark>';
 $idx_module_title = 'Module Index';

 sub add_module_idx() {
     print "\nBuilding HTML for the module index ...";
     my $key;
     my $first = 1;
     my $prevplat = '';
     my $allthesame = 1;
     my $prefix = '';
     foreach $key (keys %Modules) {
 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
 	my $plat = "$ModulePlatforms{$key}";
 	$plat = ''
 	  if ($plat eq $IGNORE_PLATFORM_ANNOTATION);
 	if (!$first) {
 	    $allthesame = 0
 	      if ($prevplat ne $plat);
 	}
 	else { $first = 0; }
 	$prevplat = $plat;
     }
     open(MODIDXFILE, '>modindex.dat') || die "\n$!\n";
     foreach $key (keys %Modules) {
 	# dump the line in the data file; just use a dummy seqno field
 	my $nkey = $1;
 	my $moditem = "$Modules{$key}";
 	my $plat = '';
 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
 	if ($ModulePlatforms{$key} && !$allthesame) {
 	    $plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
 		     . '</span>)</em>');
 	}
 	print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
               . "<tt class=\"module\">$key</tt>$plat###\n";
     }
     close(MODIDXFILE);

     if ($GLOBAL_MODULE_INDEX) {
         $prefix = <<MODULE_INDEX_PREFIX;

 <p> This index only lists modules documented in this manual.
   The <em class="citetitle"><a href="$GLOBAL_MODULE_INDEX">Global Module
      Index</a></em> lists all modules that are documented in this set
   of manuals.</p>
 MODULE_INDEX_PREFIX
     }
     if (!$allthesame) {
 	$prefix .= <<PLAT_DISCUSS;

 <p> Some module names are followed by an annotation indicating what
 platform they are available on.</p>

 PLAT_DISCUSS
     }
     insert_index($idx_module_mark, 'modindex.dat', $MODULE_INDEX_COLUMNS, 0,
 		 $prefix);
 }

 # replace both indexes as needed:
 sub add_idx_hook {
     add_idx() if (/$idx_mark/);
     process_python_state();
     if ($MODULE_INDEX_FILE) {
         local ($_);
         open(MYFILE, "<$MODULE_INDEX_FILE");
         sysread(MYFILE, $_, 1024*1024);
         close(MYFILE);
         add_module_idx();
         open(MYFILE,">$MODULE_INDEX_FILE");
         print MYFILE $_;
         close(MYFILE);
     }
 }


 # In addition to the standard stuff, add label to allow named node files and
 # support suppression of the page complete (for HTML Help use).
 sub do_cmd_tableofcontents {
     local($_) = @_;
     $TITLE = $toc_title;
     $tocfile = $CURRENT_FILE;
     my($closures, $reopens) = preserve_open_tags();
     anchor_label('contents', $CURRENT_FILE, $_);	# this is added
     join('', "<BR>\n\\tableofchildlinks[off]", $closures
 	 , make_section_heading($toc_title, 'H2'), $toc_mark
 	 , $reopens, $_);
 }
 # In addition to the standard stuff, add label to allow named node files.
 sub do_cmd_listoffigures {
     local($_) = @_;
     $TITLE = $lof_title;
     $loffile = $CURRENT_FILE;
     my($closures, $reopens) = preserve_open_tags();
     anchor_label('lof', $CURRENT_FILE, $_);		# this is added
     join('', "<BR>\n", $closures
 	 , make_section_heading($lof_title, 'H2'), $lof_mark
 	 , $reopens, $_);
 }
 # In addition to the standard stuff, add label to allow named node files.
 sub do_cmd_listoftables {
     local($_) = @_;
     $TITLE = $lot_title;
     $lotfile = $CURRENT_FILE;
     my($closures, $reopens) = preserve_open_tags();
     anchor_label('lot', $CURRENT_FILE, $_);		# this is added
     join('', "<BR>\n", $closures
 	 , make_section_heading($lot_title, 'H2'), $lot_mark
 	 , $reopens, $_);
 }
 # In addition to the standard stuff, add label to allow named node files.
 sub do_cmd_textohtmlinfopage {
     local($_) = @_;
     if ($INFO) {					#
 	anchor_label("about",$CURRENT_FILE,$_);		# this is added
     }							#
     my $the_version = '';				# and the rest is
     if ($t_date) {					# mostly ours
 	$the_version = ",\n$t_date";
 	if ($PACKAGE_VERSION) {
 	    $the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO";
 	}
     }
     my $about;
     open(ABOUT, "<$ABOUT_FILE") || die "\n$!\n";
     sysread(ABOUT, $about, 1024*1024);
     close(ABOUT);
     $_ = (($INFO == 1)
           ? join('',
                  $close_all,
                  "<strong>$t_title</strong>$the_version\n",
                  $about,
                  $open_all, $_)
           : join('', $close_all, $INFO,"\n", $open_all, $_));
     $_;
 }

 # $idx_mark will be replaced with the real index at the end
 sub do_cmd_textohtmlindex {
     local($_) = @_;
     $TITLE = $idx_title;
     $idxfile = $CURRENT_FILE;
     if (%index_labels) { make_index_labels(); }
     if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); }
     else { $preindex = ''; }
     my $heading = make_section_heading($idx_title, 'h2') . $idx_mark;
     my($pre, $post) = minimize_open_tags($heading);
     anchor_label('genindex',$CURRENT_FILE,$_);		# this is added
     return "<br>\n" . $pre . $_;
 }

 $MODULE_INDEX_FILE = '';

 # $idx_module_mark will be replaced with the real index at the end
 sub do_cmd_textohtmlmoduleindex {
     local($_) = @_;
     $TITLE = $idx_module_title;
     anchor_label('modindex', $CURRENT_FILE, $_);
     $MODULE_INDEX_FILE = "$CURRENT_FILE";
     $_ = ('<p>' . make_section_heading($idx_module_title, 'h2')
           . $idx_module_mark . $_);
     return $_;
 }

 # The bibliography and the index should be treated as separate
 # sections in their own HTML files. The \bibliography{} command acts
 # as a sectioning command that has the desired effect. But when the
 # bibliography is constructed manually using the thebibliography
 # environment, or when using the theindex environment it is not
 # possible to use the normal sectioning mechanism. This subroutine
 # inserts a \bibliography{} or a dummy \textohtmlindex command just
 # before the appropriate environments to force sectioning.

 # XXX	This *assumes* that if there are two {theindex} environments,
 #	the first is the module index and the second is the standard
 #	index.  This is sufficient for the current Python documentation,
 #	but that's about it.

 sub add_bbl_and_idx_dummy_commands {
     my $id = $global{'max_id'};

     if (/[\\]tableofcontents/) {
         $HAVE_TABLE_OF_CONTENTS = 1;
     }
     s/([\\]begin\s*$O\d+$C\s*thebibliography)/$bbl_cnt++; $1/eg;
     s/([\\]begin\s*$O\d+$C\s*thebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo;
     my(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/);
     if (scalar(@parts) == 3) {
         # Be careful to re-write the string in place, since $_ is *not*
         # returned explicity;  *** nasty side-effect dependency! ***
         print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
         print "\nadd_bbl_and_idx_dummy_commands ==> adding module index";
         my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
           . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
         s/$rx/\\textohtmlmoduleindex $1 \\textohtmlindex $2/o;
         # Add a button to the navigation areas:
         $CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
                             . get_my_icon('modules')
                             . '</a>');
         $HAVE_MODULE_INDEX = 1;
         $HAVE_GENERAL_INDEX = 1;
     }
     elsif (scalar(@parts) == 2) {
         print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
         my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
         s/$rx/\\textohtmlindex $1/o;
         $HAVE_GENERAL_INDEX = 1;
     }
     elsif (scalar(@parts) == 1) {
         print "\nadd_bbl_and_idx_dummy_commands ==> no index found";
         $CUSTOM_BUTTONS .= get_my_icon('blank');
         $global{'max_id'} = $id; # not sure why....
         s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlindex $1/o;
 	    s/[\\]printindex/\\textohtmlindex /o;
     }
     else {
         die "\n\nBad number of index environments!\n\n";
     }
     #----------------------------------------------------------------------
     lib_add_bbl_and_idx_dummy_commands()
         if defined(&lib_add_bbl_and_idx_dummy_commands);
 }

 # The bibliographic references, the appendices, the lists of figures
 # and tables etc. must appear in the contents table at the same level
 # as the outermost sectioning command. This subroutine finds what is
 # the outermost level and sets the above to the same level;

 sub set_depth_levels {
     # Sets $outermost_level
     my $level;
     #RRM:  do not alter user-set value for  $MAX_SPLIT_DEPTH
     foreach $level ("part", "chapter", "section", "subsection",
 		    "subsubsection", "paragraph") {
 	last if (($outermost_level) = /\\($level)$delimiter_rx/);
     }
     $level = ($outermost_level ? $section_commands{$outermost_level} :
 	      do {$outermost_level = 'section'; 3;});

     #RRM:  but calculate value for $MAX_SPLIT_DEPTH when a $REL_DEPTH was given
     if ($REL_DEPTH && $MAX_SPLIT_DEPTH) {
 	$MAX_SPLIT_DEPTH = $level + $MAX_SPLIT_DEPTH;
     } elsif (!($MAX_SPLIT_DEPTH)) { $MAX_SPLIT_DEPTH = 1 };

     %unnumbered_section_commands = ('tableofcontents' => $level,
 				    'listoffigures' => $level,
 				    'listoftables' => $level,
 				    'bibliography' => $level,
 				    'textohtmlindex' => $level,
 				    'textohtmlmoduleindex' => $level);
     $section_headings{'textohtmlmoduleindex'} = 'h1';

     %section_commands = (%unnumbered_section_commands,
 			 %section_commands);

     make_sections_rx();
 }


 # This changes the markup used for {verbatim} environments, and is the
 # best way I've found that ensures the <dl> goes on the outside of the
 # <pre>...</pre>.
 #
 # Note that this *must* be done in the init file, not the python.perl
 # style support file.  The %declarations must be set before
 # initialize() is called in the main LaTeX2HTML script (which happens
 # before style files are loaded).
 #
 %declarations = ('preform' => '<div class="verbatim"><pre></pre></div>',
 		 %declarations);


 # This is added to get rid of the long comment that follows the
 # doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the
 # content of the page.
 $MY_PARTIAL_HEADER = '';
 sub make_head_and_body($$) {
     my($title, $body) = @_;
     $body = " $body" unless ($body eq '');
     my $DTDcomment = '';
     my($version, $isolanguage) = ($HTML_VERSION, 'EN');
     my %isolanguages = (  'english',  'EN'   , 'USenglish', 'EN.US'
                         , 'original', 'EN'   , 'german'   , 'DE'
                         , 'austrian', 'DE.AT', 'french'   , 'FR'
                         , 'spanish',  'ES');
     $isolanguage = $isolanguages{$default_language};
     $isolanguage = 'EN' unless $isolanguage;
     $title = &purify($title,1);
     eval("\$title = ". $default_title ) unless ($title);

     # allow user-modification of the <TITLE> tag; thanks Dan Young
     if (defined &custom_TITLE_hook) {
 	$title = &custom_TITLE_hook($title, $toc_sec_title);
     }

     if ($DOCTYPE =~ /\/\/[\w\.]+\s*$/) { # language spec included
 	$DTDcomment = "<!DOCTYPE html PUBLIC \"$DOCTYPE\">\n";
     } else {
 	$DTDcomment = "<!DOCTYPE html PUBLIC \"$DOCTYPE//"
 	    . ($ISO_LANGUAGE ? $ISO_LANGUAGE : $isolanguage) . "\">\n";
     }
     if ($MY_PARTIAL_HEADER eq '') {
         $STYLESHEET = $FILE.".css" unless $STYLESHEET;
         $MY_PARTIAL_HEADER = join('',
             ($DOCTYPE ? $DTDcomment : ''),
             "<html>\n<head>\n",
             ($BASE ? "<base href=\"$BASE\">\n" : ''),
             "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\" type='text/css'>\n",
             ($FAVORITES_ICON
              ? ('<link rel="SHORTCUT ICON" href="' . "$FAVORITES_ICON\">\n")
              : ''),
             ($EXTERNAL_UP_LINK
              ? ('<link rel="start" href="' . "$EXTERNAL_UP_LINK\""
                 . ($EXTERNAL_UP_TITLE ? " title='$EXTERNAL_UP_TITLE'" : '')
                 . ">\n")
              : ''),
             "<link rel=\"first\" href=\"$FILE.html\"",
             ($t_title ? " title='$t_title'" : ''),
             ">\n",
             ($HAVE_TABLE_OF_CONTENTS
              ? ('<link rel="contents" href="contents.html" title="Contents">'
                 . ($HAVE_GENERAL_INDEX ? "\n" : ''))
              : ''),
             ($HAVE_GENERAL_INDEX
              ? '<link rel="index" href="genindex.html" title="Index">' . "\n"
              : ''),
             # disable for now -- Mozilla doesn't do well with multiple indexes
             # ($HAVE_MODULE_INDEX
             #  ? '<link rel="index" href="modindex.html" title="Module Index">'
             #    . "\n"
             #  : ''),
             ($INFO
              # XXX We can do this with the Python tools since the About...
              # page always gets copied to about.html, even when we use the
              # generated node###.html page names.  Won't work with the
              # rest of the Python doc tools.
              ? ("<link rel='last' href='about.html'"
                 . " title='About this document...'>\n"
                 . "<link rel='help' href='about.html'"
                 . " title='About this document...'>\n")
              : ''),
             $more_links_mark,
             "\n",
             ($CHARSET && $HTML_VERSION ge "2.1"
              ? ('<meta http-equiv="Content-Type" content="text/html; '
                 . "charset=$CHARSET\">\n")
              : ''),
             ($AESOP_META_TYPE
              ? "<meta name='aesop' content='$AESOP_META_TYPE'>\n" : ''));
     }
     if (!$charset && $CHARSET) {
         $charset = $CHARSET;
         $charset =~ s/_/\-/go;
     }
     join('',
          $MY_PARTIAL_HEADER,
          &meta_information($title),
          "<title>", $title, "</title>\n</head>\n<body$body>");
 }

 1;	# This must be the last line
	# LaTeX2HTML support base for use with Python documentation.

	package main;

	use L2hos;

	$HTML_VERSION = 4.0;

	$MAX_LINK_DEPTH = 2;
	$ADDRESS = '';

	$NO_FOOTNODE = 1;
	$NUMBERED_FOOTNOTES = 1;

	# Python documentation uses section numbers to support references to match
	# in the printed and online versions.
	#
	$SHOW_SECTION_NUMBERS = 1;

	$ICONSERVER = '.';
	$IMAGE_TYPE = 'gif';

	# Control where the navigation bars should show up:
	$TOP_NAVIGATION = 1;
	$BOTTOM_NAVIGATION = 1;
	$AUTO_NAVIGATION = 0;

	$BODYTEXT = '';
	$CHILDLINE = "\n<p><hr>\n";
	$VERBOSITY = 0;

	# default # of columns for the indexes
	$INDEX_COLUMNS = 2;
	$MODULE_INDEX_COLUMNS = 4;

	$HAVE_MODULE_INDEX = 0;
	$HAVE_GENERAL_INDEX = 0;
	$HAVE_TABLE_OF_CONTENTS = 0;

	$AESOP_META_TYPE = 'information';


	# A little painful, but lets us clean up the top level directory a little,
	# and not be tied to the current directory (as far as I can tell). Testing
	# an existing definition of $mydir is needed since it cannot be computed when
	# run under mkhowto with recent versions of LaTeX2HTML, since this file is
	# not read directly by LaTeX2HTML any more. mkhowto is required to prepend
	# the required definition at the top of the actual input file.
	#
	if (!defined $mydir) {
	use Cwd;
	use File::Basename;
	($myname, $mydir, $myext) = fileparse(__FILE__, '\..*');
	chop $mydir; # remove trailing '/'
	$mydir = getcwd() . "$dd$mydir"
	unless $mydir =~ s\|^/\|/\|;
	}
	$LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";
	push (@INC, $mydir);

	($myrootname, $myrootdir, $myext) = fileparse($mydir, '\..*');
	chop $myrootdir;


	# Hackish way to get the appropriate paper-*/ directory into $TEXINPUTS;
	# pass in the paper size (a4 or letter) as the environment variable PAPER
	# to add the right directory. If not given, the current directory is
	# added instead for use with HOWTO processing.
	#
	if (defined $ENV{'PAPER'}) {
	$mytexinputs = "$myrootdir${dd}paper-$ENV{'PAPER'}$envkey";
	}
	else {
	$mytexinputs = getcwd() . $envkey;
	}
	$mytexinputs .= "$myrootdir${dd}texinputs";


	# Change this variable to change the text added in "About this document...";
	# this should be an absolute pathname to get it right.
	#
	$ABOUT_FILE = "$myrootdir${dd}html${dd}stdabout.dat";


	sub custom_driver_hook {
	#
	# This adds the directory of the main input file to $TEXINPUTS; it
	# seems to be sufficiently general that it should be fine for HOWTO
	# processing.
	#
	my $file = $_[0];
	my($jobname, $dir, $ext) = fileparse($file, '\..*');
	$dir = L2hos->Make_directory_absolute($dir);
	$dir =~ s/$dd$//;
	$TEXINPUTS = "$dir$envkey$mytexinputs";
	print "\nAdding $dir to \$TEXINPUTS\n";
	}


	$CUSTOM_BUTTONS = '';

	sub make_nav_sectref($$) {
	my($label, $title) = @_;
	if ($title) {
	if ($title =~ /\<[aA] /) {
	$title =~ s/\<[aA] /<a class="sectref" /;
	}
	else {
	$title = "<span class=\"sectref\">$title</span>";
	}
	return "<b class=\"navlabel\">$label:</b> $title\n";
	}
	return '';
	}

	@my_icon_tags = ();
	$my_icon_tags{'next'} = 'Next Page';
	$my_icon_tags{'next_page'} = 'Next Page';
	$my_icon_tags{'previous'} = 'Previous Page';
	$my_icon_tags{'previous_page'} = 'Previous Page';
	$my_icon_tags{'up'} = 'Up One Level';
	$my_icon_tags{'contents'} = 'Contents';
	$my_icon_tags{'index'} = 'Index';
	$my_icon_tags{'modules'} = 'Module Index';

	@my_icon_names = ();
	$my_icon_names{'previous_page'} = 'previous';
	$my_icon_names{'next_page'} = 'next';

	sub get_my_icon($) {
	my $name = $_[0];
	my $text = $my_icon_tags{$name};
	if ($my_icon_names{$name}) {
	$name = $my_icon_names{$name};
	}
	if ($text eq '') {
	$name = 'blank';
	}
	my $iconserver = ($ICONSERVER eq '.') ? '' : "$ICONSERVER/";
	return "<img src='$iconserver$name.$IMAGE_TYPE'\n border='0'"
	. " height='32' alt='$text' width='32'>";
	}

	sub use_my_icon($) {
	my $s = $_[0];
	if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
	my $r = get_my_icon($1);
	$s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
	}
	return $s;
	}

	sub make_nav_panel() {
	my $s;
	my $BLANK_ICON = get_my_icon('blank');
	$NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON;
	$UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON;
	$PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON;
	$CONTENTS = use_my_icon("$CONTENTS");
	$INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON;
	if (!$CUSTOM_BUTTONS) {
	$CUSTOM_BUTTONS = $BLANK_ICON;
	}
	$s = ('<table align="center" width="100%" cellpadding="0" cellspacing="2">'
	. "\n<tr>"
	# left-hand side
	. "\n<td>$PREVIOUS</td>"
	. "\n<td>$UP</td>"
	. "\n<td>$NEXT</td>"
	# title box
	. "\n<td align=\"center\" width=\"100%\">$t_title</td>"
	# right-hand side
	. "\n<td>$CONTENTS</td>"
	. "\n<td>$CUSTOM_BUTTONS</td>" # module index
	. "\n<td>$INDEX</td>"
	. "\n</tr></table>\n"
	# textual navigation
	. make_nav_sectref("Previous", $PREVIOUS_TITLE)
	. make_nav_sectref("Up", $UP_TITLE)
	. make_nav_sectref("Next", $NEXT_TITLE)
	);
	# remove these; they are unnecessary and cause errors from validation
	$s =~ s/ NAME="tex2html\d+"\n */ /g;
	return $s;
	}

	sub add_child_links {
	my $toc = add_real_child_links(@_);
	$toc =~ s\|\s*</[aA]>\|</a>\|g;
	$toc =~ s/ NAME=\"tex2html\d+\"\s*href=/ href=/gi;
	$toc =~ s\|</UL>(\s*<BR>)?\|</ul>\|gi;
	return $toc;
	}

	sub get_version_text() {
	if ($PACKAGE_VERSION ne '' && $t_date) {
	return ("<span class=\"release-info\">"
	. "Release $PACKAGE_VERSION$RELEASE_INFO,"
	. " documentation updated on $t_date.</span>");
	}
	if ($PACKAGE_VERSION ne '') {
	return ("<span class=\"release-info\">"
	. "Release $PACKAGE_VERSION$RELEASE_INFO.</span>");
	}
	if ($t_date) {
	return ("<span class=\"release-info\">Documentation released on "
	. "$t_date.</span>");
	}
	return '';
	}


	sub top_navigation_panel() {
	return "\n"
	. make_nav_panel()
	. "<br><hr>\n";
	}

	sub bot_navigation_panel() {
	return "\n<p><hr>\n"
	. make_nav_panel()
	. "<hr>\n"
	. get_version_text()
	. "\n";
	}

	sub add_link {
	# Returns a pair (iconic link, textual link)
	my($icon, $current_file, @link) = @_;
	my($dummy, $file, $title) = split($delim,
	$section_info{join(' ',@link)});
	if ($icon =~ /\<tex2html_([_a-z]+)_visible_mark\>/) {
	my $r = get_my_icon($1);
	$icon =~ s/\<tex2html_[_a-z]+_visible_mark\>/$r/;
	}
	if ($title && ($file ne $current_file)) {
	$title = purify($title);
	$title = get_first_words($title, $WORDS_IN_NAVIGATION_PANEL_TITLES);
	return (make_href($file, $icon), make_href($file, "$title"))
	}
	elsif ($icon eq get_my_icon('up') && $EXTERNAL_UP_LINK) {
	return (make_href($EXTERNAL_UP_LINK, $icon),
	make_href($EXTERNAL_UP_LINK, "$EXTERNAL_UP_TITLE"))
	}
	elsif ($icon eq get_my_icon('previous')
	&& $EXTERNAL_PREV_LINK && $EXTERNAL_PREV_TITLE) {
	return (make_href($EXTERNAL_PREV_LINK, $icon),
	make_href($EXTERNAL_PREV_LINK, "$EXTERNAL_PREV_TITLE"))
	}
	elsif ($icon eq get_my_icon('next')
	&& $EXTERNAL_DOWN_LINK && $EXTERNAL_DOWN_TITLE) {
	return (make_href($EXTERNAL_DOWN_LINK, $icon),
	make_href($EXTERNAL_DOWN_LINK, "$EXTERNAL_DOWN_TITLE"))
	}
	return (&inactive_img($icon), "");
	}

	sub add_special_link($$$) {
	my($icon, $file, $current_file) = @_;
	if ($icon =~ /\<tex2html_([_a-z]+)_visible_mark\>/) {
	my $r = get_my_icon($1);
	$icon =~ s/\<tex2html_[_a-z]+_visible_mark\>/$r/;
	}
	return (($file && ($file ne $current_file))
	? make_href($file, $icon)
	: undef)
	}

	# The img_tag() function seems only to be called with the parameter
	# 'anchor_invisible_mark', which we want to turn into ''. Since
	# replace_icon_marks() is the only interesting caller, and all it really
	# does is call img_tag(), we can just define the hook alternative to be
	# a no-op instead.
	#
	sub replace_icons_hook {}

	sub do_cmd_arabic {
	# get rid of that nasty <SPAN CLASS="arabic">...</SPAN>
	my($ctr, $val, $id, $text) = &read_counter_value($_[0]);
	return ($val ? farabic($val) : "0") . $text;
	}


	sub gen_index_id($$) {
	# this is used to ensure common index key generation and a stable sort
	my($str, $extra) = @_;
	sprintf('%s###%s%010d', $str, $extra, ++$global{'max_id'});
	}

	sub insert_index($$$$$) {
	my($mark, $datafile, $columns, $letters, $prefix) = @_;
	my $prog = "$myrootdir/tools/buildindex.py";
	my $index;
	if ($letters) {
	$index = `$prog --columns $columns --letters $datafile`;
	}
	else {
	$index = `$prog --columns $columns $datafile`;
	}
	if (!s/$mark/$prefix$index/) {
	print "\nCould not locate index mark: $mark";
	}
	}

	sub add_idx() {
	print "\nBuilding HTML for the index ...";
	close(IDXFILE);
	insert_index($idx_mark, 'index.dat', $INDEX_COLUMNS, 1, '');
	}


	$idx_module_mark = '<tex2html_idx_module_mark>';
	$idx_module_title = 'Module Index';

	sub add_module_idx() {
	print "\nBuilding HTML for the module index ...";
	my $key;
	my $first = 1;
	my $prevplat = '';
	my $allthesame = 1;
	my $prefix = '';
	foreach $key (keys %Modules) {
	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
	my $plat = "$ModulePlatforms{$key}";
	$plat = ''
	if ($plat eq $IGNORE_PLATFORM_ANNOTATION);
	if (!$first) {
	$allthesame = 0
	if ($prevplat ne $plat);
	}
	else { $first = 0; }
	$prevplat = $plat;
	}
	open(MODIDXFILE, '>modindex.dat') \|\| die "\n$!\n";
	foreach $key (keys %Modules) {
	# dump the line in the data file; just use a dummy seqno field
	my $nkey = $1;
	my $moditem = "$Modules{$key}";
	my $plat = '';
	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/$1/;
	if ($ModulePlatforms{$key} && !$allthesame) {
	$plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
	. '</span>)</em>');
	}
	print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
	. "<tt class=\"module\">$key</tt>$plat###\n";
	}
	close(MODIDXFILE);

	if ($GLOBAL_MODULE_INDEX) {
	$prefix = <<MODULE_INDEX_PREFIX;

	<p> This index only lists modules documented in this manual.
	The <em class="citetitle"><a href="$GLOBAL_MODULE_INDEX">Global Module
	Index</a></em> lists all modules that are documented in this set
	of manuals.</p>
	MODULE_INDEX_PREFIX
	}
	if (!$allthesame) {
	$prefix .= <<PLAT_DISCUSS;

	<p> Some module names are followed by an annotation indicating what
	platform they are available on.</p>

	PLAT_DISCUSS
	}
	insert_index($idx_module_mark, 'modindex.dat', $MODULE_INDEX_COLUMNS, 0,
	$prefix);
	}

	# replace both indexes as needed:
	sub add_idx_hook {
	add_idx() if (/$idx_mark/);
	process_python_state();
	if ($MODULE_INDEX_FILE) {
	local ($_);
	open(MYFILE, "<$MODULE_INDEX_FILE");
	sysread(MYFILE, $_, 1024*1024);
	close(MYFILE);
	add_module_idx();
	open(MYFILE,">$MODULE_INDEX_FILE");
	print MYFILE $_;
	close(MYFILE);
	}
	}


	# In addition to the standard stuff, add label to allow named node files and
	# support suppression of the page complete (for HTML Help use).
	sub do_cmd_tableofcontents {
	local($_) = @_;
	$TITLE = $toc_title;
	$tocfile = $CURRENT_FILE;
	my($closures, $reopens) = preserve_open_tags();
	anchor_label('contents', $CURRENT_FILE, $_); # this is added
	join('', "<BR>\n\\tableofchildlinks[off]", $closures
	, make_section_heading($toc_title, 'H2'), $toc_mark
	, $reopens, $_);
	}
	# In addition to the standard stuff, add label to allow named node files.
	sub do_cmd_listoffigures {
	local($_) = @_;
	$TITLE = $lof_title;
	$loffile = $CURRENT_FILE;
	my($closures, $reopens) = preserve_open_tags();
	anchor_label('lof', $CURRENT_FILE, $_); # this is added
	join('', "<BR>\n", $closures
	, make_section_heading($lof_title, 'H2'), $lof_mark
	, $reopens, $_);
	}
	# In addition to the standard stuff, add label to allow named node files.
	sub do_cmd_listoftables {
	local($_) = @_;
	$TITLE = $lot_title;
	$lotfile = $CURRENT_FILE;
	my($closures, $reopens) = preserve_open_tags();
	anchor_label('lot', $CURRENT_FILE, $_); # this is added
	join('', "<BR>\n", $closures
	, make_section_heading($lot_title, 'H2'), $lot_mark
	, $reopens, $_);
	}
	# In addition to the standard stuff, add label to allow named node files.
	sub do_cmd_textohtmlinfopage {
	local($_) = @_;
	if ($INFO) { #
	anchor_label("about",$CURRENT_FILE,$_); # this is added
	} #
	my $the_version = ''; # and the rest is
	if ($t_date) { # mostly ours
	$the_version = ",\n$t_date";
	if ($PACKAGE_VERSION) {
	$the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO";
	}
	}
	my $about;
	open(ABOUT, "<$ABOUT_FILE") \|\| die "\n$!\n";
	sysread(ABOUT, $about, 1024*1024);
	close(ABOUT);
	$_ = (($INFO == 1)
	? join('',
	$close_all,
	"<strong>$t_title</strong>$the_version\n",
	$about,
	$open_all, $_)
	: join('', $close_all, $INFO,"\n", $open_all, $_));
	$_;
	}

	# $idx_mark will be replaced with the real index at the end
	sub do_cmd_textohtmlindex {
	local($_) = @_;
	$TITLE = $idx_title;
	$idxfile = $CURRENT_FILE;
	if (%index_labels) { make_index_labels(); }
	if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); }
	else { $preindex = ''; }
	my $heading = make_section_heading($idx_title, 'h2') . $idx_mark;
	my($pre, $post) = minimize_open_tags($heading);
	anchor_label('genindex',$CURRENT_FILE,$_); # this is added
	return "<br>\n" . $pre . $_;
	}

	$MODULE_INDEX_FILE = '';

	# $idx_module_mark will be replaced with the real index at the end
	sub do_cmd_textohtmlmoduleindex {
	local($_) = @_;
	$TITLE = $idx_module_title;
	anchor_label('modindex', $CURRENT_FILE, $_);
	$MODULE_INDEX_FILE = "$CURRENT_FILE";
	$_ = ('<p>' . make_section_heading($idx_module_title, 'h2')
	. $idx_module_mark . $_);
	return $_;
	}

	# The bibliography and the index should be treated as separate
	# sections in their own HTML files. The \bibliography{} command acts
	# as a sectioning command that has the desired effect. But when the
	# bibliography is constructed manually using the thebibliography
	# environment, or when using the theindex environment it is not
	# possible to use the normal sectioning mechanism. This subroutine
	# inserts a \bibliography{} or a dummy \textohtmlindex command just
	# before the appropriate environments to force sectioning.

	# XXX This assumes that if there are two {theindex} environments,
	# the first is the module index and the second is the standard
	# index. This is sufficient for the current Python documentation,
	# but that's about it.

	sub add_bbl_and_idx_dummy_commands {
	my $id = $global{'max_id'};

	if (/[\\]tableofcontents/) {
	$HAVE_TABLE_OF_CONTENTS = 1;
	}
	s/([\\]begin\s$O\d+$C\sthebibliography)/$bbl_cnt++; $1/eg;
	s/([\\]begin\s$O\d+$C\sthebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo;
	my(@parts) = split(/\\begin\s$O\d+$C\stheindex/);
	if (scalar(@parts) == 3) {
	# Be careful to re-write the string in place, since $_ is not
	# returned explicity; * nasty side-effect dependency! *
	print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
	print "\nadd_bbl_and_idx_dummy_commands ==> adding module index";
	my $rx = "([\\\\]begin\\s$O\\d+$C\\stheindex[\\s\\S]*)"
	. "([\\\\]begin\\s$O\\d+$C\\stheindex)";
	s/$rx/\\textohtmlmoduleindex $1 \\textohtmlindex $2/o;
	# Add a button to the navigation areas:
	$CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
	. get_my_icon('modules')
	. '</a>');
	$HAVE_MODULE_INDEX = 1;
	$HAVE_GENERAL_INDEX = 1;
	}
	elsif (scalar(@parts) == 2) {
	print "\nadd_bbl_and_idx_dummy_commands ==> adding general index";
	my $rx = "([\\\\]begin\\s$O\\d+$C\\stheindex)";
	s/$rx/\\textohtmlindex $1/o;
	$HAVE_GENERAL_INDEX = 1;
	}
	elsif (scalar(@parts) == 1) {
	print "\nadd_bbl_and_idx_dummy_commands ==> no index found";
	$CUSTOM_BUTTONS .= get_my_icon('blank');
	$global{'max_id'} = $id; # not sure why....
	s/([\\]begin\s$O\d+$C\stheindex)/\\textohtmlindex $1/o;
	s/[\\]printindex/\\textohtmlindex /o;
	}
	else {
	die "\n\nBad number of index environments!\n\n";
	}
	#----------------------------------------------------------------------
	lib_add_bbl_and_idx_dummy_commands()
	if defined(&lib_add_bbl_and_idx_dummy_commands);
	}

	# The bibliographic references, the appendices, the lists of figures
	# and tables etc. must appear in the contents table at the same level
	# as the outermost sectioning command. This subroutine finds what is
	# the outermost level and sets the above to the same level;

	sub set_depth_levels {
	# Sets $outermost_level
	my $level;
	#RRM: do not alter user-set value for $MAX_SPLIT_DEPTH
	foreach $level ("part", "chapter", "section", "subsection",
	"subsubsection", "paragraph") {
	last if (($outermost_level) = /\\($level)$delimiter_rx/);
	}
	$level = ($outermost_level ? $section_commands{$outermost_level} :
	do {$outermost_level = 'section'; 3;});

	#RRM: but calculate value for $MAX_SPLIT_DEPTH when a $REL_DEPTH was given
	if ($REL_DEPTH && $MAX_SPLIT_DEPTH) {
	$MAX_SPLIT_DEPTH = $level + $MAX_SPLIT_DEPTH;
	} elsif (!($MAX_SPLIT_DEPTH)) { $MAX_SPLIT_DEPTH = 1 };

	%unnumbered_section_commands = ('tableofcontents' => $level,
	'listoffigures' => $level,
	'listoftables' => $level,
	'bibliography' => $level,
	'textohtmlindex' => $level,
	'textohtmlmoduleindex' => $level);
	$section_headings{'textohtmlmoduleindex'} = 'h1';

	%section_commands = (%unnumbered_section_commands,
	%section_commands);

	make_sections_rx();
	}


	# This changes the markup used for {verbatim} environments, and is the
	# best way I've found that ensures the <dl> goes on the outside of the
	# <pre>...</pre>.
	#
	# Note that this must be done in the init file, not the python.perl
	# style support file. The %declarations must be set before
	# initialize() is called in the main LaTeX2HTML script (which happens
	# before style files are loaded).
	#
	%declarations = ('preform' => '<div class="verbatim"><pre></pre></div>',
	%declarations);


	# This is added to get rid of the long comment that follows the
	# doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the
	# content of the page.
	$MY_PARTIAL_HEADER = '';
	sub make_head_and_body($$) {
	my($title, $body) = @_;
	$body = " $body" unless ($body eq '');
	my $DTDcomment = '';
	my($version, $isolanguage) = ($HTML_VERSION, 'EN');
	my %isolanguages = ( 'english', 'EN' , 'USenglish', 'EN.US'
	, 'original', 'EN' , 'german' , 'DE'
	, 'austrian', 'DE.AT', 'french' , 'FR'
	, 'spanish', 'ES');
	$isolanguage = $isolanguages{$default_language};
	$isolanguage = 'EN' unless $isolanguage;
	$title = &purify($title,1);
	eval("\$title = ". $default_title ) unless ($title);

	# allow user-modification of the <TITLE> tag; thanks Dan Young
	if (defined &custom_TITLE_hook) {
	$title = &custom_TITLE_hook($title, $toc_sec_title);
	}

	if ($DOCTYPE =~ /\/\/[\w\.]+\s*$/) { # language spec included
	$DTDcomment = "<!DOCTYPE html PUBLIC \"$DOCTYPE\">\n";
	} else {
	$DTDcomment = "<!DOCTYPE html PUBLIC \"$DOCTYPE//"
	. ($ISO_LANGUAGE ? $ISO_LANGUAGE : $isolanguage) . "\">\n";
	}
	if ($MY_PARTIAL_HEADER eq '') {
	$STYLESHEET = $FILE.".css" unless $STYLESHEET;
	$MY_PARTIAL_HEADER = join('',
	($DOCTYPE ? $DTDcomment : ''),
	"<html>\n<head>\n",
	($BASE ? "<base href=\"$BASE\">\n" : ''),
	"<link rel=\"STYLESHEET\" href=\"$STYLESHEET\" type='text/css'>\n",
	($FAVORITES_ICON
	? ('<link rel="SHORTCUT ICON" href="' . "$FAVORITES_ICON\">\n")
	: ''),
	($EXTERNAL_UP_LINK
	? ('<link rel="start" href="' . "$EXTERNAL_UP_LINK\""
	. ($EXTERNAL_UP_TITLE ? " title='$EXTERNAL_UP_TITLE'" : '')
	. ">\n")
	: ''),
	"<link rel=\"first\" href=\"$FILE.html\"",
	($t_title ? " title='$t_title'" : ''),
	">\n",
	($HAVE_TABLE_OF_CONTENTS
	? ('<link rel="contents" href="contents.html" title="Contents">'
	. ($HAVE_GENERAL_INDEX ? "\n" : ''))
	: ''),
	($HAVE_GENERAL_INDEX
	? '<link rel="index" href="genindex.html" title="Index">' . "\n"
	: ''),
	# disable for now -- Mozilla doesn't do well with multiple indexes
	# ($HAVE_MODULE_INDEX
	# ? '<link rel="index" href="modindex.html" title="Module Index">'
	# . "\n"
	# : ''),
	($INFO
	# XXX We can do this with the Python tools since the About...
	# page always gets copied to about.html, even when we use the
	# generated node###.html page names. Won't work with the
	# rest of the Python doc tools.
	? ("<link rel='last' href='about.html'"
	. " title='About this document...'>\n"
	. "<link rel='help' href='about.html'"
	. " title='About this document...'>\n")
	: ''),
	$more_links_mark,
	"\n",
	($CHARSET && $HTML_VERSION ge "2.1"
	? ('<meta http-equiv="Content-Type" content="text/html; '
	. "charset=$CHARSET\">\n")
	: ''),
	($AESOP_META_TYPE
	? "<meta name='aesop' content='$AESOP_META_TYPE'>\n" : ''));
	}
	if (!$charset && $CHARSET) {
	$charset = $CHARSET;
	$charset =~ s/_/\-/go;
	}
	join('',
	$MY_PARTIAL_HEADER,
	&meta_information($title),
	"<title>", $title, "</title>\n</head>\n<body$body>");
	}

	1; # This must be the last line