";
- @keys = keys %Modules;
- @keys = sort keysort @keys;
- foreach $key (@keys) {
- $index .= "$Modules{$key}$key
\n";
- }
- s/$idx_module_mark/$index
/o; -} - - -# sub remove_general_markers { -# s/$lof_mark/
\nThis document was generated using the\n" - , "LaTeX2HTML" - , " translator Version $TEX2HTMLVERSION\n" - , "
Copyright © 1993, 1994, 1995, 1996, 1997,\n" - , "Nikos Drakos, \n" - , "Computer Based Learning Unit, University of Leeds.\n" - , "
The command line arguments were:
\n "
- , "latex2html $argv.\n"
- , "
The translation was initiated by $address_data[0] on $address_data[1]"
- , $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 = ''; }
- local($heading) = join('',&make_section_heading($idx_title, "H2"),
- $idx_mark);
- local($pre,$post) = &minimize_open_tags($heading);
- &anchor_label("genindex",$CURRENT_FILE,$_); # this is added
- join('',"
\n" , $pre, $_);
-}
-
-# $idx_module_mark will be replaced with the real index at the end
-sub do_cmd_textohtmlmoduleindex {
- local($_) = @_;
- local($key) = q/modindex/;
- $TITLE = $idx_module_title;
- &anchor_label("modindex",$CURRENT_FILE,$_);
- join('', '
' , &make_section_heading($idx_module_title, "h2"), - $idx_module_mark, $_); -} - -# 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 { - local($id) = $global{'max_id'}; - - $section_commands{'textohtmlmoduleindex'} = 2; - - 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 - #if ($bbl_cnt == 1) - ; - #} - #----------------------------------------------------------------------# - # (FLD) This was added # - local(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/); # - if (scalar(@parts) == 3) { # - print "\n&add_bbl_and_idx_dummy_commands ==> adding module index"; # - s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlmoduleindex $1/o; # - } # - #----------------------------------------------------------------------# - $global{'max_id'} = $id; - s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlindex $1/o; - s/[\\]printindex/\\textohtmlindex /o; - &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; - -%section_commands = ('textohtmlmoduleindex', 2, %section_commands); - -# sub set_depth_levels { -# # Sets $outermost_level -# local($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_commands = ( -# %unnumbered_section_commands -# , %section_commands -# ); -# } - - -# Fix from Ross Moore for ']' in \item[...]; this can be removed once the next -# patch to LaTeX2HTML is released and tested. -# -sub protect_useritems { - local(*_) = @_; - local($preitems, $thisitem); - while (/\\item\s*\[/) { - $preitems .= $`; $_ = $'; - $thisitem = $&.'<<'.++$global{'max_id'}.'>>'; - s/^(((($O|$OP)\d+($C|$CP)).*\3|<[^<>]*>|[^\]<]+)*)\]/$thisitem.=$1;''/e; - $preitems .= $thisitem.'<<'.$global{'max_id'}.'>>]'; s/^]//; - } - $_ = $preitems . $_; -} - -1; # This must be the last line