texinfo-commits
[Top][All Lists]
Advanced

[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;



reply via email to

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