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( 
- $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 . '