Lines Matching refs:current_element
12356 # current_element is the last element which can hold text. It is
12358 my $current_element = { 'holder' => 1, 'texi' => 'HOLDER',
12375 if ($current_element->{'holder'})
12377 push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
12378 foreach my $index(@{$current_element->{'indices'}})
12385 $current_element->{'sectionnext'} = $checked_element;
12386 $current_element->{'following'} = $checked_element;
12387 $checked_element->{'sectionprev'} = $current_element;
12389 $current_element = $checked_element;
12396 elsif ($current_element->{'holder'})
12402 push @{$current_element->{'nodes'}}, $checked_element;
12403 $checked_element->{'section_ref'} = $current_element;
12405 push @{$current_element->{'place'}}, @{$checked_element->{'current_place'}};
12408 print STDERR "# Index in `$checked_element->{'texi'}': $index->{'name'}. Current is `$current_element->{'texi'}'\n"
12418 print STDERR "# Index first page (back `$back_texi', in `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
12420 push @{$current_element->{'indices'}}, [ {'element' => $current_element, 'page' => $first_page, 'name' => $index->{'name'} } ];
12423 if ($current_element->{'holder'})
12459 push @{$checked_element->{'place'}}, @{$current_element->{'place'}};
12460 foreach my $index(@{$current_element->{'indices'}})
12474 $current_element = $checked_element;
12480 print STDERR "# New page (back `$back->{'texi'}', current `$current_element->{'texi'}')\n" if ($T2H_DEBUG & $DEBUG_INDEX);
12484 'texi' => "NOT REALLY USED: $current_element->{'texi'}' index $index->{'name'} page $index_num",
12495 'following' => $current_element->{'following'},
12496 'nodeup' => $current_element->{'nodeup'},
12497 'nodenext' => $current_element->{'nodenext'},
12519 push @{$current_element->{'indices'}->[-1]}, {'element' => $index_page, 'page' => $page, 'name' => $index->{'name'} };
12528 $current_element = $index_page;
12537 push @{$current_element->{'place'}}, @{$index->{'place'}};
12540 if ($forward and ($current_element ne $element))
12542 $current_element->{'forward'} = $forward;
12543 $forward->{'back'} = $current_element;
12545 next if ($current_element eq $element or !$element->{'toplevel'});
12550 $reparented->{'sectionup'} = $current_element;
13592 my $current_element;
13595 $current_element = $sections{$sec_num};
13603 push (@section_lines, &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n");
13604 push @section_lines, &$Texi2HTML::Config::heading($current_element);
13610 $current_element = shift (@all_elements);
13612 if ($current_element->{'node'})
13614 print STDERR 'NODE ' . "$current_element->{'texi'}($current_element->{'file'})" if ($T2H_DEBUG & $DEBUG_ELEMENTS);
13615 print STDERR "($current_element->{'section_ref'}->{'texi'})" if ($current_element->{'section_ref'} and ($T2H_DEBUG & $DEBUG_ELEMENTS));
13619 print STDERR 'SECTION ' . $current_element->{'texi'} if ($T2H_DEBUG & $DEBUG_ELEMENTS);
13629 or ($current_element->{'element'} and ($current_element ne $element))
13630 or ($current_element->{'section_ref'} and ($current_element->{'section_ref'} ne $element)))
13637 if (!$current_element->{'node'} and !$current_element->{'index_page'} and ($section_element ne $current_element))
13640 warn "elements_list and all_elements not in sync (elements $section_element->{'texi'}, all $current_element->{'texi'}): $_";
13647 $current_element = $index_pages->[$index_pages_nr]->{'element'};
13760 my $label = &$Texi2HTML::Config::anchor($current_element->{'id'}) . "\n";
13785 push @section_lines, &$Texi2HTML::Config::heading($current_element) if ($current_element->{'element'} and !$current_element->{'top'});