texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Patrice Dumas
Date: Tue, 24 Dec 2024 11:25:09 -0500 (EST)

branch: master
commit 8ae87a576db5124f240f92770ee93be9912429c4
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Nov 24 21:41:20 2024 +0100

    * tp/Texinfo/ParserNonXS.pm: remove _print_command_args_texi, it
    is better to call Texinfo::Convert::Texinfo functions.
---
 ChangeLog                         |  5 +++++
 tp/Texinfo/Convert/TextContent.pm |  2 +-
 tp/Texinfo/ParserNonXS.pm         | 26 --------------------------
 3 files changed, 6 insertions(+), 27 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0d15c03353..6b5ea0a22a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-11-24  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/ParserNonXS.pm: remove _print_command_args_texi, it
+       is better to call Texinfo::Convert::Texinfo functions.
+
 2024-11-24  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/HTML.pm (_convert),
diff --git a/tp/Texinfo/Convert/TextContent.pm 
b/tp/Texinfo/Convert/TextContent.pm
index d39589d074..b88ed935f8 100644
--- a/tp/Texinfo/Convert/TextContent.pm
+++ b/tp/Texinfo/Convert/TextContent.pm
@@ -184,7 +184,7 @@ sub _convert($$)
     my $start = 0;
     if ($element->{'cmdname'}
         and $Texinfo::Commands::inline_format_commands{$element->{'cmdname'}}) 
{
-      # TODO not sure that there is a test for that code
+      # TODO there is no test for that code
       $start = 1;
     }
     for (my $i = $start; $i < $contents_nr; $i++) {
diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm
index 45199ea39a..5d73e360da 100644
--- a/tp/Texinfo/ParserNonXS.pm
+++ b/tp/Texinfo/ParserNonXS.pm
@@ -1146,32 +1146,6 @@ sub _bug_message($$;$$)
        $line_message.$message_context_stack.$current_element_message;
 }
 
-# for debugging
-# TODO probably useless now that args are contents
-sub _print_command_args_texi($)
-{
-  my $current = shift;
-  return '' if (!$current->{'cmdname'});
-  my $args = '';
-  my $with_brace;
-  if ($current->{'args'} and @{$current->{'args'}}) {
-    $with_brace
-        = ($current->{'args'}->[0]->{'type'} eq 'brace_container'
-           or $current->{'args'}->[0]->{'type'} eq 'brace_arg'
-           or $current->{'args'}->[0]->{'type'} eq 'brace_command_context');
-    $args .= '{' if ($with_brace);
-    foreach my $arg (@{$current->{'args'}}) {
-      $args .= Texinfo::Convert::Texinfo::convert_to_texinfo($arg).', ';
-    }
-    $args =~ s/, $//;
-  }
-  chomp($args);
-  if ($with_brace) {
-    $args .= '}';
-  }
-  return '@'.$current->{'cmdname'} .$args."\n";
-}
-
 sub _register_global_command {
   my ($self, $current, $source_info) = @_;
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]