[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Patrice Dumas |
Date: |
Wed, 2 Oct 2024 06:05:15 -0400 (EDT) |
branch: master
commit 474540ac7b7270a5f4a37e2b9efbf721f36505e2
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Jul 30 19:06:55 2024 +0200
* tp/Texinfo/Convert/HTML.pm (converter_initialize): remove the code
setting sorted_special_unit_varieties and simplified_special_unit_info
as they are not used anymore.
---
ChangeLog | 6 ++++++
tp/Texinfo/Convert/HTML.pm | 34 ----------------------------------
2 files changed, 6 insertions(+), 34 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 4d2a7fcd22..ff05525574 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,12 @@
(converter_initialize): readd converter_initialize that was mistakenly
removed.
+2024-07-30 Patrice Dumas <pertusus@free.fr>
+
+ * tp/Texinfo/Convert/HTML.pm (converter_initialize): remove the code
+ setting sorted_special_unit_varieties and simplified_special_unit_info
+ as they are not used anymore.
+
2024-07-30 Patrice Dumas <pertusus@free.fr>
* tp/Texinfo/Convert/HTML.pm (converter_initialize): call
diff --git a/tp/Texinfo/Convert/HTML.pm b/tp/Texinfo/Convert/HTML.pm
index 851c082195..28f5f80eaa 100644
--- a/tp/Texinfo/Convert/HTML.pm
+++ b/tp/Texinfo/Convert/HTML.pm
@@ -9092,38 +9092,6 @@ sub converter_initialize($)
# XS parser initialization
if ($self->{'converter_descriptor'} and $XS_convert) {
- # reformat special_unit_info information passed to XS to simplify
- # XS code
- if ($self->{'special_unit_info'}) {
- # information that does not need to be translated
- $self->{'simplified_special_unit_info'}
- = Storable::dclone($self->{'special_unit_info'});
- # information needing translation, simplify the structure to
- # be more like non-translated special_unit_info information
- if ($self->{'translated_special_unit_info'}) {
- foreach my $tree_type
(keys(%{$self->{'translated_special_unit_info'}})) {
- my $type =
$self->{'translated_special_unit_info'}->{$tree_type}->[0];
- my $variety_strings
- = $self->{'translated_special_unit_info'}->{$tree_type}->[1];
- # we do not need both tree type $tree_type and $type string
- # to pass to XS, as they both hold the same information,
- # pass only the string type $type and associated varieties
information
- $self->{'simplified_special_unit_info'}->{$type} = $variety_strings;
- }
- }
-
- # to help the XS code to set arrays of C structures, already prepare
- # a list of special units varieties.
- my %all_special_unit_varieties;
- foreach my $type (keys(%{$self->{'simplified_special_unit_info'}})) {
- foreach my $special_unit_variety
- (keys (%{$self->{'simplified_special_unit_info'}->{$type}})) {
- $all_special_unit_varieties{$special_unit_variety} = 1;
- }
- }
- $self->{'sorted_special_unit_varieties'}
- = [sort(keys(%all_special_unit_varieties))];
- }
_XS_html_converter_initialize($self,
\%default_formatting_references,
@@ -9141,8 +9109,6 @@ sub converter_initialize($)
$customized_direction_strings,
\%default_converted_directions_strings
);
- delete $self->{'sorted_special_unit_varieties'};
- delete $self->{'simplified_special_unit_info'};
}
return $self;