diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 2164ace27d2..cbf1e41d008 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -26,7 +26,7 @@ $BOTTOM_NAVIGATION = 1; $AUTO_NAVIGATION = 0; $BODYTEXT = ''; -$CHILDLINE = "\n
' . make_section_heading($idx_module_title, 'h2') + $_ = ('
' . make_section_heading($idx_module_title, 'h2') . $idx_module_mark . $_); return $_; } @@ -624,7 +626,7 @@ sub make_head_and_body($$) { $title = &purify($title,1); eval("\$title = ". $default_title ) unless ($title); - # allow user-modification of the" + . "\n$reason
" . $_); } @@ -512,7 +512,7 @@ sub add_index_entry($$){ sub new_link_info(){ my $name = "l2h-" . ++$globals{'max_id'}; - my $aname = ""; + my $aname = ""; my $ahref = gen_link($CURRENT_FILE, $name); return ($name, $aname, $ahref); } @@ -810,7 +810,8 @@ sub do_cmd_production{ } $TokenToTargetMapping{"$CURRENT_GRAMMAR:$token"} = $target; return ("$token
"
+ . "$token
"
. translate_commands($defn)
@@ -962,10 +963,10 @@ sub do_env_cfuncdesc{
. "\n $rcinfo."
. "\n");
}
- return "- $siginfo\n
- "
+ return "
- $siginfo
\n- "
. $rcinfo
. $_
- . '
';
+ . '
';
}
sub do_cmd_cmemberline{
@@ -976,7 +977,7 @@ sub do_cmd_cmemberline{
my $idx = make_str_index_entry("$name"
. " ($container member)");
$idx =~ s/ \(.*\)//;
- return "$type $idx\n "
+ return " $type $idx \n"
. $_;
}
sub do_env_cmemberdesc{
@@ -987,7 +988,7 @@ sub do_env_cmemberdesc{
my $idx = make_str_index_entry("$name"
. " ($container member)");
$idx =~ s/ \(.*\)//;
- return "- $type $idx\n
- "
+ return "
- $type $idx
\n- "
. $_
. '
';
}
@@ -996,7 +997,7 @@ sub do_env_csimplemacrodesc{
local($_) = @_;
my $name = next_argument();
my $idx = make_str_index_entry("$name");
- return "- $idx\n
- "
+ return "
- $idx
\n- "
. $_
. '
'
}
@@ -1009,7 +1010,8 @@ sub do_env_ctypedesc{
unless $index_name;
my($name, $aname, $ahref) = new_link_info();
add_index_entry("$index_name (C type)", $ahref);
- return "- $aname$type_name\n
- "
+ return "
- $aname$type_name
"
+ . "\n- "
. $_
. '
'
}
@@ -1021,10 +1023,10 @@ sub do_env_cvardesc{
my $idx = make_str_index_entry("$var_name"
. get_indexsubitem());
$idx =~ s/ \(.*\)//;
- return "- $var_type $idx\n"
+ return "
- $var_type $idx
\n"
. '- '
. $_
- . '
';
+ . '
';
}
sub convert_args($){
@@ -1038,7 +1040,7 @@ sub funcline_helper($$$){
return (($first ? '' : '')
. ''
. "\n $idxitem( "
- . "\n $arglist)
\n- ");
+ . "\n
$arglist)
";
if ($PACKAGE_VERSION) {
$the_title .= ('Release '
- . "$PACKAGE_VERSION$RELEASE_INFO
\n");
+ . "$PACKAGE_VERSION$RELEASE_INFO
\n");
}
$the_title .= "$t_date
$t_address
"; } else { - $the_title .= "\n"; + $the_title .= "\n
"; } if ($t_email) { $the_title .= "\n$t_email
"; @@ -1661,7 +1663,7 @@ sub make_my_titlegraphic(){ if ($TITLE_PAGE_GRAPHIC_WIDTH); $graphic .= " height=\"$TITLE_PAGE_GRAPHIC_HEIGHT\"" if ($TITLE_PAGE_GRAPHIC_HEIGHT); - $graphic .= "\n src=\"$filename\">\n"; + $graphic .= "\n src=\"$filename\" />\n"; return $graphic; } @@ -1669,14 +1671,14 @@ sub do_cmd_maketitle{ local($_) = @_; my $the_title = "\n"; if ($EXTERNAL_UP_LINK) { - # This generates a element in the wrong place (the + # This generates a element in the wrong place (the # body), but I don't see any other way to get this generated # at all. Browsers like Mozilla, that support navigation # links, can make use of this. $the_title .= ("\n"); + . " />\n"); } $the_title .= '' . $content . '
' . $content . '