[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7884] Converter.pm _register_command_arg
From: |
gavinsmith0123 |
Subject: |
[7884] Converter.pm _register_command_arg |
Date: |
Thu, 29 Jun 2017 15:48:28 -0400 (EDT) |
Revision: 7884
http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7884
Author: gavin
Date: 2017-06-29 15:48:28 -0400 (Thu, 29 Jun 2017)
Log Message:
-----------
Converter.pm _register_command_arg
Modified Paths:
--------------
trunk/ChangeLog
trunk/tp/Texinfo/Convert/Converter.pm
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2017-06-29 19:11:08 UTC (rev 7883)
+++ trunk/ChangeLog 2017-06-29 19:48:28 UTC (rev 7884)
@@ -1,5 +1,11 @@
2017-06-29 Gavin Smith <address@hidden>
+ * tp/Texinfo/Convert/Converter.pm (_register_command_arg):
+ Copy function here from Parser.pm.
+ (_table_item_content_tree): Call it.
+
+2017-06-29 Gavin Smith <address@hidden>
+
* tp/Texinfo/Parser.pm (_parse_texi) <menu>: Don't store
a list of menus in 'unassociated_menus' array.
* tp/Texinfo/Transformations.pm (_reassociate_to_node)
Modified: trunk/tp/Texinfo/Convert/Converter.pm
===================================================================
--- trunk/tp/Texinfo/Convert/Converter.pm 2017-06-29 19:11:08 UTC (rev
7883)
+++ trunk/tp/Texinfo/Convert/Converter.pm 2017-06-29 19:48:28 UTC (rev
7884)
@@ -1136,6 +1136,19 @@
return @result;
}
+sub _register_command_arg($$$)
+{
+ my ($self, $current, $type) = @_;
+
+ my @contents = @{$current->{'contents'}};
+ Texinfo::Common::trim_spaces_comment_from_content(address@hidden);
+ if (scalar(@contents)) {
+ push @{$current->{'parent'}->{'extra'}->{$type}}, address@hidden;
+ } else {
+ push @{$current->{'parent'}->{'extra'}->{$type}}, undef;
+ }
+}
+
sub _table_item_content_tree($$$)
{
my $self = shift;
@@ -1160,7 +1173,7 @@
'contents' => $contents,
'parent' => $command,};
$command->{'args'} = [$arg];
- $self->Texinfo::Parser::_register_command_arg($arg,
'brace_command_contents');
+ _register_command_arg($self, $arg, 'brace_command_contents');
$contents = [$command];
}
$converted_tree->{'contents'} = $contents;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7884] Converter.pm _register_command_arg,
gavinsmith0123 <=