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 |
{ |
{ |
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 |
{ |
{ |
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) |
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 |
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"; |
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; |