"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "styles/makeidx.perl" between
latex2html-2021.tar.gz and latex2html-2021.2.tar.gz

About: LaTeX2HTML is a utility that converts LaTeX documents to web pages in HTML.

makeidx.perl  (latex2html-2021):makeidx.perl  (latex2html-2021.2)
skipping to change at line 218 skipping to change at line 218
$str =~ s/\011/\\\\/g; $str =~ s/\011/\\\\/g;
local($key_part, $pageref) = split("\003", $str, 2); local($key_part, $pageref) = split("\003", $str, 2);
local(@keys) = split("\001", $key_part); local(@keys) = split("\001", $key_part);
#print STDERR "\nINDEX2 ($str)\n($key_part, $pageref)(@keys)\n"; #print STDERR "\nINDEX2 ($str)\n($key_part, $pageref)(@keys)\n";
# If TITLE is not yet available use $before. # If TITLE is not yet available use $before.
$TITLE = $saved_title if (($saved_title)&&(!($TITLE)||($TITLE eq $default_ti tle))); $TITLE = $saved_title if (($saved_title)&&(!($TITLE)||($TITLE eq $default_ti tle)));
$TITLE = $before unless $TITLE; $TITLE = $before unless $TITLE;
# Save the reference # Save the reference
local($words) = ''; local($words) = '';
if ($SHOW_SECTION_NUMBERS) { $words = &make_idxnum; } # To get &make_idxnum effect, set in .latex2html-init or l2hconf.pm
elsif ($SHORT_INDEX) { $words = &make_shortidxname; } # $SHOW_SECTION_NUMBERS = 1 and $WORDS_IN_INDEX = 0, or use -short_index
#if ($SHOW_SECTION_NUMBERS) { $words = &make_idxnum; }
#elsif ($SHORT_INDEX) { $words = &make_shortidxname; }
if ($SHORT_INDEX) { $words = &make_shortidxname; }
else { $words = &make_idxname; } else { $words = &make_idxname; }
local($super_key) = ''; local($super_key) = '';
local($sort_key, $printable_key, $cur_key); local($sort_key, $printable_key, $cur_key);
foreach $key (@keys) { foreach $key (@keys) {
$key =~ s/\016/\001/g; # revert protected \001s $key =~ s/\016/\001/g; # revert protected \001s
($sort_key, $printable_key) = split("\002", $key); ($sort_key, $printable_key) = split("\002", $key);
# #
# RRM: 16 May 1996 # RRM: 16 May 1996
# any \label in the printable-key will have already # any \label in the printable-key will have already
# created a label where the \index occurred. # created a label where the \index occurred.
# This has to be removed, so that the desired label # This has to be removed, so that the desired label
# will be found on the Index page instead. # will be found on the Index page instead.
# #
if ($printable_key =~ /tex2html_anchor_mark/ ) { if ($printable_key =~ /tex2html_anchor_mark/ ) {
$printable_key =~ s/><tex2html_anchor_mark><\/A><A//g; $printable_key =~ s/><tex2html_anchor_mark><\/A><A//g;
local($tmpA,$tmpB) = split("NAME=\"", $printable_key); local($tmpA,$tmpB) = split("ID=\"", $printable_key);
($tmpA,$tmpB) = split("\"", $tmpB); ($tmpA,$tmpB) = split("\"", $tmpB);
$ref_files{$tmpA}=''; $ref_files{$tmpA}='';
$index_labels{$tmpA} = 1; $index_labels{$tmpA} = 1;
} }
# #
# resolve and clean-up the hyperlink index-entries # resolve and clean-up the hyperlink index-entries
# so they can be saved in an index.pl file # so they can be saved in an index.pl file
# #
if ($printable_key =~ /$cross_ref_mark/ ) { if ($printable_key =~ /$cross_ref_mark/ ) {
local($label,$id,$ref_label); local($label,$id,$ref_label);
skipping to change at line 331 skipping to change at line 334
# #
# RRM: 25 May 1996 # RRM: 25 May 1996
# any \label in the pageref section will have already # any \label in the pageref section will have already
# created a label where the \index occurred. # created a label where the \index occurred.
# This has to be removed, so that the desired label # This has to be removed, so that the desired label
# will be found on the Index page instead. # will be found on the Index page instead.
# #
if ($pageref) { if ($pageref) {
if ($pageref =~ /tex2html_anchor_mark/ ) { if ($pageref =~ /tex2html_anchor_mark/ ) {
$pageref =~ s/><tex2html_anchor_mark><\/A><A//g; $pageref =~ s/><tex2html_anchor_mark><\/A><A//g;
local($tmpA,$tmpB) = split("NAME=\"", $pageref); local($tmpA,$tmpB) = split("ID=\"", $pageref);
($tmpA,$tmpB) = split("\"", $tmpB); ($tmpA,$tmpB) = split("\"", $tmpB);
$ref_files{$tmpA}=''; $ref_files{$tmpA}='';
$index_labels{$tmpA} = 1; $index_labels{$tmpA} = 1;
} }
# #
# resolve and clean-up any hyperlinks in the page-ref, # resolve and clean-up any hyperlinks in the page-ref,
# so they can be saved in an index.pl file # so they can be saved in an index.pl file
# #
if ($pageref =~ /$cross_ref_mark/ ) { if ($pageref =~ /$cross_ref_mark/ ) {
local($label,$id,$ref_label); local($label,$id,$ref_label);
skipping to change at line 365 skipping to change at line 368
if ($pageref eq ' ') { $index{$cur_key}='@'; } if ($pageref eq ' ') { $index{$cur_key}='@'; }
else { $index{$cur_key} .= $pageref . "\n | "; } else { $index{$cur_key} .= $pageref . "\n | "; }
} else { } else {
local($thisref) = &make_named_href('',"$CURRENT_FILE#$br_id",$words); local($thisref) = &make_named_href('',"$CURRENT_FILE#$br_id",$words);
$thisref =~ s/\n//g; $thisref =~ s/\n//g;
$index{$cur_key} .= $thisref."\n | "; $index{$cur_key} .= $thisref."\n | ";
# $index{$cur_key} .= &make_named_href('',"$CURRENT_FILE#$br_id",$words)."\ n | "; # $index{$cur_key} .= &make_named_href('',"$CURRENT_FILE#$br_id",$words)."\ n | ";
} }
#print "\nREF: $sort_key : $cur_key :$index{$cur_key}"; #print "\nREF: $sort_key : $cur_key :$index{$cur_key}";
# join('',"<A NAME=$br_id>$anchor_invisible_mark<\/A>",$_); # join('',"<A ID=$br_id>$anchor_invisible_mark<\/A>",$_);
"<A NAME=\"$br_id\">$anchor_invisible_mark<\/A>"; "<A ID=\"$br_id\">$anchor_invisible_mark<\/A>";
} }
$WORDS_IN_INDEX = 4 unless ($WORDS_IN_INDEX); $WORDS_IN_INDEX = $WORDS_IN_NAVIGATION_PANEL_TITLES if ($WORDS_IN_INDEX eq '');
$WORDS_IN_INDEX = 4 if ($WORDS_IN_INDEX eq '');
#RRM: #RRM:
# alternative strings for short-names or section-names # alternative strings for short-names or section-names
# #
sub make_idxname {(&get_first_words($TITLE, $WORDS_IN_INDEX) || 'no title')} sub make_idxname {(&get_first_words($TITLE, $WORDS_IN_INDEX+($SHOW_SECTION_NUMBE RS?1:0)) || 'no title')}
sub make_idxnum {(&get_first_words($TITLE, 1) || 'no title')} sub make_idxnum {(&get_first_words($TITLE, 1) || 'no title')}
sub make_shortidxname { sub make_shortidxname {
local($sstring, $key ); local($sstring, $key );
foreach $key (@curr_sec_id) { foreach $key (@curr_sec_id) {
if ("$key" eq "0") {} else { if ("$key" eq "0") {} else {
if ($sstring) { $sstring .= "."."$key"; if ($sstring) { $sstring .= "."."$key";
} else { if ($PREFIX) } else { if ($PREFIX)
{ $sstring = "$PREFIX"; { $sstring = "$PREFIX";
} else { $sstring = "$key"; } } else { $sstring = "$key"; }
 End of changes. 6 change blocks. 
8 lines changed or deleted 12 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)