branch master updated: Rename _print_element_tree_simple() as debug_print_element_short() in converters

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new aebf134  Rename _print_element_tree_simple() as 
debug_print_element_short() in converters
aebf134 is described below

commit aebf13414d2b9d201b0d2c0c34193942489059b4
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Sep 10 13:09:34 2021 +0200

    Rename _print_element_tree_simple() as debug_print_element_short() in
    converters
---
 tp/TODO                     | 2 ++
 tp/Texinfo/Convert/HTML.pm  | 6 +++---
 tp/Texinfo/Convert/LaTeX.pm | 6 +++---
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/tp/TODO b/tp/TODO
index 12a9803..3d27894 100644
--- a/tp/TODO
+++ b/tp/TODO
@@ -35,7 +35,9 @@ Documentation
 Tree documentation in ParserNonXS.pm
 
 replaced, elided, elided_block types.
+
 'extra'->'file' in replaced @include.
+extra->'comment_at_end' likely in many line commands
 
 
 For converter writers,
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index ba71341..de89e60 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -5669,7 +5669,7 @@ sub _html_get_tree_root_element($$;$)
   #my $debug = 0;
 
   my $current = $command;
-  #print STDERR "START 
".Texinfo::Common::_print_element_tree_simple($current)."\n" if ($debug);
+  #print STDERR "START 
".Texinfo::Common::debug_print_element_short($current)."\n" if ($debug);
 
   my ($root_element, $root_command);
   while (1) {
@@ -5716,10 +5716,10 @@ sub _html_get_tree_root_element($$;$)
       }
     }
     if ($current->{'parent'}) {
-      #print STDERR "PARENT 
".Texinfo::Common::_print_element_tree_simple($current->{'parent'})."\n" if 
($debug);
+      #print STDERR "PARENT 
".Texinfo::Common::debug_print_element_short($current->{'parent'})."\n" if 
($debug);
       $current = $current->{'parent'};
     } else {
-      #print STDERR "UNKNOWN ROOT 
".Texinfo::Common::_print_element_tree_simple($current)."\n" if ($debug);
+      #print STDERR "UNKNOWN ROOT 
".Texinfo::Common::debug_print_element_short($current)."\n" if ($debug);
       return (undef, $root_command);
     }
   }
diff --git a/tp/Texinfo/Convert/LaTeX.pm b/tp/Texinfo/Convert/LaTeX.pm
index 91dc46b..9a6a774 100644
--- a/tp/Texinfo/Convert/LaTeX.pm
+++ b/tp/Texinfo/Convert/LaTeX.pm
@@ -1587,7 +1587,7 @@ sub _index_entry($$)
     if ($self->{'index_names'}->{$entry_index_name}->{'in_code'}) {
       $in_code = 1;
     }
-    #print STDERR "I ".Texinfo::Common::_print_element_tree_simple($element)." 
".$entry_index_name."/".$index_name." ".$in_code." C 
".$entry->{'index_at_command'}." T ".$entry->{'index_type_command'}."; 
".join("|", sort(keys(%{$element->{'extra'}})))."\n";
+    #print STDERR "I ".Texinfo::Common::debug_print_element_short($element)." 
".$entry_index_name."/".$index_name." ".$in_code." C 
".$entry->{'index_at_command'}." T ".$entry->{'index_type_command'}."; 
".join("|", sort(keys(%{$element->{'extra'}})))."\n";
     # FIXME cache?  In theory txiindexbackslashignore and consorts
     # may change dynamically.  But the current code does not set the
     # values dynamically for now.  Actually not set at all...
@@ -3001,9 +3001,9 @@ sub _convert($$)
       $result .= $text;
       #my @str_contents = ();
       #foreach my $item_content (@contents) {
-      #  push @str_contents, 
Texinfo::Common::_print_element_tree_simple($item_content);
+      #  push @str_contents, 
Texinfo::Common::debug_print_element_short($item_content);
       #}
-      #print STDERR "contents 
".Texinfo::Common::_print_element_tree_simple($element).": ".join("|", 
@str_contents)."\n";
+      #print STDERR "contents 
".Texinfo::Common::debug_print_element_short($element).": ".join("|", 
@str_contents)."\n";
     }
     pop @{$self->{'current_contents'}};
   }