/[texi2html]/texi2html/texi2html.pl
ViewVC logotype

Diff of /texi2html/texi2html.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.140 by dprice, Mon Jul 25 13:46:20 2005 UTC revision 1.141 by pertusus, Mon Aug 8 20:46:14 2005 UTC
# Line 2565  if ($Texi2HTML::Config::SPLIT) Line 2565  if ($Texi2HTML::Config::SPLIT)
2565      # ${docu_name}_ovr... there may be trouble with the old naming scheme in      # ${docu_name}_ovr... there may be trouble with the old naming scheme in
2566      # very rare circumstances. This won't be fixed, the new scheme will be used      # very rare circumstances. This won't be fixed, the new scheme will be used
2567      # soon.      # soon.
2568      $docu_toc   = $Texi2HTML::Config::TOC_FILE || "${docu_name}_toc";      $docu_top   = $Texi2HTML::Config::TOP_FILE || $docu_doc;
2569      $docu_toc  .= ".$docu_ext" if $docu_ext;  #    $docu_top  .= ".$docu_ext" if $docu_ext;
     $docu_stoc  = "${docu_name}_ovr";  
     $docu_stoc .= ".$docu_ext" if $docu_ext;  
     $docu_foot  = "${docu_name}_fot";  
     $docu_foot .= ".$docu_ext" if $docu_ext;  
     $docu_about = "${docu_name}_abt";  
     $docu_about .= ".$docu_ext" if $docu_ext;  
     $docu_top   = $Texi2HTML::Config::TOP_FILE || $docu_name;  
     $docu_top  .= ".$docu_ext" if $docu_ext;  
2570    
2571      if (defined $Texi2HTML::Config::element_file_name)      if (defined $Texi2HTML::Config::element_file_name)
2572      {      {
# Line 2588  if ($Texi2HTML::Config::SPLIT) Line 2580  if ($Texi2HTML::Config::SPLIT)
2580                          (undef, "about", $docu_name);                          (undef, "about", $docu_name);
2581          # $docu_top is handled later.          # $docu_top is handled later.
2582      }      }
2583        if (!defined($docu_toc))
2584        {
2585            my $default_toc = "${docu_name}_toc";
2586            $default_toc .= ".$docu_ext" if $docu_ext;
2587            $docu_toc   = $Texi2HTML::Config::TOC_FILE || $default_toc;
2588        }
2589        if (!defined($docu_stoc))
2590        {
2591            $docu_stoc  = "${docu_name}_ovr";
2592            $docu_stoc .= ".$docu_ext" if $docu_ext;
2593        }
2594        if (!defined($docu_foot))
2595        {
2596            $docu_foot  = "${docu_name}_fot";
2597            $docu_foot .= ".$docu_ext" if $docu_ext;
2598        }
2599        if (!defined($docu_about))
2600        {
2601            $docu_about = "${docu_name}_abt";
2602            $docu_about .= ".$docu_ext" if $docu_ext;
2603        }
2604  }  }
2605  else  else
2606  {  {
# Line 5402  sub rearrange_elements() Line 5415  sub rearrange_elements()
5415              {              {
5416                  $element->{'file'} = "${docu_name}_$doc_nr"                  $element->{'file'} = "${docu_name}_$doc_nr"
5417                                       . ($docu_ext ? ".$docu_ext" : "");                                       . ($docu_ext ? ".$docu_ext" : "");
5418                  my $is_top = 0;                  my $is_top = '';
5419                  if (defined($top_doc_nr))                  if (defined($top_doc_nr))
5420                  {                  {
5421                      if ($doc_nr eq $top_doc_nr)                      if ($doc_nr eq $top_doc_nr)
# Line 5423  sub rearrange_elements() Line 5436  sub rearrange_elements()
5436                  }                  }
5437                  elsif ($element eq $element_top or (defined($element->{'section_ref'}) and $element->{'section_ref'} eq $element_top) or (defined($element->{'node_ref'}) and !$element->{'node_ref'}->{'element_added'} and $element->{'node_ref'} eq $element_top))                  elsif ($element eq $element_top or (defined($element->{'section_ref'}) and $element->{'section_ref'} eq $element_top) or (defined($element->{'node_ref'}) and !$element->{'node_ref'}->{'element_added'} and $element->{'node_ref'} eq $element_top))
5438                  { # the top element                  { # the top element
5439                      $is_top = 1;                      $is_top = "top";
5440                      $element->{'file'} = "$docu_top";                      $element->{'file'} = "$docu_top";
5441                      # if there is a previous element, we force it to be in                      # if there is a previous element, we force it to be in
5442                      # another file than top                      # another file than top
# Line 10613  sub scan_line($$$$;$) Line 10626  sub scan_line($$$$;$)
10626                      {                      {
10627                           push (@{$style->{'args'}}, $style->{'text'});                           push (@{$style->{'args'}}, $style->{'text'});
10628                           $style->{'fulltext'} .= $style->{'text'};                           $style->{'fulltext'} .= $style->{'text'};
10629                           my $number = 0;                           #my $number = 0;
10630                           #foreach my $arg(@{$style->{'args'}})                           #foreach my $arg(@{$style->{'args'}})
10631                           #{                           #{
10632                                #print STDERR "  $number: $arg\n";                                #print STDERR "  $number: $arg\n";
# Line 10803  sub close_arg($$$) Line 10816  sub close_arg($$$)
10816      }      }
10817  }  }
10818    
10819    # add a special style on the top of the stack. This is used for commands
10820    # that extend until the end of the line
10821  sub open_cmd_line($$$$)  sub open_cmd_line($$$$)
10822  {  {
10823      my $stack = shift;      my $stack = shift;

Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26