traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Lots of little nits. 

Big fix:  the module index for the Python Library Reference is once more in a
separate file!  Yeah!
This commit is contained in:
Fred Drake 1998-04-02 22:30:57 +00:00
parent 75d92c1864
commit 1191692d3d
1 changed files with 35 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
Doc/perl/l2hinit.perl
View File

@ -26,12 +26,11 @@ $VERBOSITY = 0;
# stripped. Only the directory is returned. # stripped. Only the directory is returned.
# #
sub find_my_file{ sub find_my_file{
local($myfile,$key,$tmp,$mydir) = (@_[0], '', '', ''); my($myfile,$key,$tmp,$mydir) = (@_[0], '', '', '');
foreach $key (keys %INC) { foreach $key (keys %INC) {
$tmp = "$key"; $tmp = "$key";
$tmp =~ s|^.*/||o; $tmp =~ s|^.*/||o;
if ($tmp eq $myfile) { if ($tmp eq $myfile) {
#print "\nfound $tmp: $key --> ", $INC{$key}, "\n";
$mydir = $INC{$key}; $mydir = $INC{$key};
} }
} }
@ -87,7 +86,7 @@ sub gen_index_id {
} }
sub make_index_entry { sub make_index_entry {
local($br_id,$str) = @_; my($br_id,$str) = @_;
# If TITLE is not yet available (i.e the \index command is in the title of the # If TITLE is not yet available (i.e the \index command is in the title of the
# current section), use $ref_before. # current section), use $ref_before.
$TITLE = $ref_before unless $TITLE; $TITLE = $ref_before unless $TITLE;
@ -134,7 +133,7 @@ sub do_cmd_tableofcontents {
local($_) = @_; local($_) = @_;
$TITLE = $toc_title; $TITLE = $toc_title;
$tocfile = $CURRENT_FILE; $tocfile = $CURRENT_FILE;
local($closures,$reopens) = &preserve_open_tags(); my($closures,$reopens) = &preserve_open_tags();
&anchor_label("contents",$CURRENT_FILE,$_); # this is added &anchor_label("contents",$CURRENT_FILE,$_); # this is added
join('', "<BR>\n", $closures join('', "<BR>\n", $closures
, &make_section_heading($toc_title, "H2"), $toc_mark , &make_section_heading($toc_title, "H2"), $toc_mark
@ -145,7 +144,7 @@ sub do_cmd_listoffigures {
local($_) = @_; local($_) = @_;
$TITLE = $lof_title; $TITLE = $lof_title;
$loffile = $CURRENT_FILE; $loffile = $CURRENT_FILE;
local($closures,$reopens) = &preserve_open_tags(); my($closures,$reopens) = &preserve_open_tags();
&anchor_label("lof",$CURRENT_FILE,$_); # this is added &anchor_label("lof",$CURRENT_FILE,$_); # this is added
join('', "<BR>\n", $closures join('', "<BR>\n", $closures
, &make_section_heading($lof_title, "H2"), $lof_mark , &make_section_heading($lof_title, "H2"), $lof_mark
@ -156,7 +155,7 @@ sub do_cmd_listoftables {
local($_) = @_; local($_) = @_;
$TITLE = $lot_title; $TITLE = $lot_title;
$lotfile = $CURRENT_FILE; $lotfile = $CURRENT_FILE;
local($closures,$reopens) = &preserve_open_tags(); my($closures,$reopens) = &preserve_open_tags();
&anchor_label("lot",$CURRENT_FILE,$_); # this is added &anchor_label("lot",$CURRENT_FILE,$_); # this is added
join('', "<BR>\n", $closures join('', "<BR>\n", $closures
, &make_section_heading($lot_title, "H2"), $lot_mark , &make_section_heading($lot_title, "H2"), $lot_mark
@ -192,7 +191,7 @@ sub do_cmd_textohtmlindex {
if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); } if (($SHORT_INDEX) && (%index_segment)) { make_preindex(); }
else { $preindex = ''; } else { $preindex = ''; }
my $heading = make_section_heading($idx_title, 'h2') . $idx_mark; my $heading = make_section_heading($idx_title, 'h2') . $idx_mark;
local($pre,$post) = minimize_open_tags($heading); my($pre,$post) = minimize_open_tags($heading);
anchor_label('genindex',$CURRENT_FILE,$_); # this is added anchor_label('genindex',$CURRENT_FILE,$_); # this is added
'<br>\n' . $pre . $_; '<br>\n' . $pre . $_;
} }
@ -221,27 +220,32 @@ sub do_cmd_textohtmlmoduleindex {
# it. # it.
sub add_bbl_and_idx_dummy_commands { sub add_bbl_and_idx_dummy_commands {
local($id) = $global{'max_id'}; my $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)/$bbl_cnt++; $1/eg;
s/([\\]begin\s*$O\d+$C\s*thebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo s/([\\]begin\s*$O\d+$C\s*thebibliography)/$id++; "\\bibliography$O$id$C$O$id$C $1"/geo
#if ($bbl_cnt == 1) #if ($bbl_cnt == 1)
; ;
#} #}
#----------------------------------------------------------------------# #----------------------------------------------------------------------
# (FLD) This was added # # (FLD) This was added
local(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/); # my(@parts) = split(/\\begin\s*$O\d+$C\s*theindex/);
if (scalar(@parts) == 3) { # if (scalar(@parts) == 3) {
print "\nadd_bbl_and_idx_dummy_commands ==> adding module index"; # # Be careful to re-write the string in place, since $_ is *not*
s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlmoduleindex $1/o; # # returned explicity; *** nasty side-effect dependency! ***
} # print "\nadd_bbl_and_idx_dummy_commands ==> adding module index";
#----------------------------------------------------------------------# my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
$global{'max_id'} = $id; . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
s/([\\]begin\s*$O\d+$C\s*theindex)/\\textohtmlindex $1/o; s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o;
s/[\\]printindex/\\textohtmlindex /o; }
&lib_add_bbl_and_idx_dummy_commands() if defined(&lib_add_bbl_and_idx_dummy_commands); else {
$global{'max_id'} = $id; # not sure why....
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 # The bibliographic references, the appendices, the lists of figures and tables
@ -251,7 +255,7 @@ sub add_bbl_and_idx_dummy_commands {
sub set_depth_levels { sub set_depth_levels {
# Sets $outermost_level # Sets $outermost_level
local($level); my $level;
#RRM: do not alter user-set value for $MAX_SPLIT_DEPTH #RRM: do not alter user-set value for $MAX_SPLIT_DEPTH
foreach $level ("part", "chapter", "section", "subsection", foreach $level ("part", "chapter", "section", "subsection",
"subsubsection", "paragraph") { "subsubsection", "paragraph") {
@ -273,11 +277,14 @@ sub set_depth_levels {
, 'textohtmlindex', $level , 'textohtmlindex', $level
, 'textohtmlmoduleindex', $level , 'textohtmlmoduleindex', $level
); );
$section_headings{'textohtmlmoduleindex'} = "h1";
%section_commands = ( %section_commands = (
%unnumbered_section_commands %unnumbered_section_commands
, %section_commands , %section_commands
); );
make_sections_rx();
} }
@ -287,12 +294,14 @@ sub set_depth_levels {
# #
sub protect_useritems { sub protect_useritems {
local(*_) = @_; local(*_) = @_;
local($preitems, $thisitem); local($preitems,$thisitem);
while (/\\item\s*\[/) { while (/\\item\s*\[/) {
$preitems .= $`; $_ = $'; $preitems .= $`;
$_ = $';
$thisitem = $&.'<<'.++$global{'max_id'}.'>>'; $thisitem = $&.'<<'.++$global{'max_id'}.'>>';
s/^(((($O|$OP)\d+($C|$CP)).*\3|<[^<>]*>|[^\]<]+)*)\]/$thisitem.=$1;''/e; s/^(((($O|$OP)\d+($C|$CP)).*\3|<[^<>]*>|[^\]<]+)*)\]/$thisitem.=$1;''/e;
$preitems .= $thisitem.'<<'.$global{'max_id'}.'>>]'; s/^]//; $preitems .= $thisitem . '<<' . $global{'max_id'} . '>>]';
s/^]//;
} }
$_ = $preitems . $_; $_ = $preitems . $_;
} }