[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) = @_;