branch master updated: * tp/Texinfo/XS/convert/build_html_perl_state.c: remove build_html_formatting_context_ctx, build_html_formatting_context, build_html_formatting_context_stack, build_html_composition_context_stack, build_html_preformatted_classes_stack and build_html_block_commands_stack, which are not used since the states are accessed through overrides and not passed to perl.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 35cb51f506 * tp/Texinfo/XS/convert/build_html_perl_state.c: remove 
build_html_formatting_context_ctx, build_html_formatting_context, 
build_html_formatting_context_stack, build_html_composition_context_stack, 
build_html_preformatted_classes_stack and build_html_block_commands_stack, 
which are not used since the states are accessed through overrides and not 
passed to perl.
35cb51f506 is described below

commit 35cb51f506ee380013e3968a5f390ee6e96d2904
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Dec 24 23:09:55 2023 +0100

    * tp/Texinfo/XS/convert/build_html_perl_state.c: remove
    build_html_formatting_context_ctx, build_html_formatting_context,
    build_html_formatting_context_stack,
    build_html_composition_context_stack,
    build_html_preformatted_classes_stack and
    build_html_block_commands_stack, which are not used since the states
    are accessed through overrides and not passed to perl.
---
 ChangeLog                                     |  10 +++
 tp/Texinfo/XS/convert/build_html_perl_state.c | 123 --------------------------
 2 files changed, 10 insertions(+), 123 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 45967b3438..b01e1dda20 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2023-12-24  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/convert/build_html_perl_state.c: remove
+       build_html_formatting_context_ctx, build_html_formatting_context,
+       build_html_formatting_context_stack,
+       build_html_composition_context_stack,
+       build_html_preformatted_classes_stack and
+       build_html_block_commands_stack, which are not used since the states
+       are accessed through overrides and not passed to perl.
+
 2023-12-24  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/convert/convert_html.c
diff --git a/tp/Texinfo/XS/convert/build_html_perl_state.c 
b/tp/Texinfo/XS/convert/build_html_perl_state.c
index 94fa7d587a..83bef5bff4 100644
--- a/tp/Texinfo/XS/convert/build_html_perl_state.c
+++ b/tp/Texinfo/XS/convert/build_html_perl_state.c
@@ -363,129 +363,6 @@ build_html_translated_names (HV *hv, CONVERTER *converter)
 
 }
 
-void
-build_html_formatting_context_ctx (HV *hv,
-                                   HTML_FORMATTING_CONTEXT *formatting_context)
-{
-  dTHX;
-
-#define STORE(key, value) hv_store (hv, key, strlen (key), value, 0)
-#define STORE_INT(name) STORE(#name, newSViv (formatting_context->name))
-  STORE_INT(preformatted_number);
-  STORE_INT(paragraph_number);
-  STORE_INT(space_protected);
-  STORE_INT(no_break);
-#undef STORE_INT
-
-#define STORE_CTX(name) STORE(#name, newSViv (formatting_context->name##_ctx))
-  STORE_CTX(upper_case);
-#undef STORE_CTX
-}
-
-HV *
-build_html_formatting_context (HTML_FORMATTING_CONTEXT *formatting_context)
-{
-  HV *hv;
-
-  dTHX;
-
-  hv = newHV ();
-
-#define STORE(key, value) hv_store (hv, key, strlen (key), value, 0)
-
-  STORE("context_name", newSVpv (formatting_context->context_name, 0));
-
-#undef STORE
-  build_html_formatting_context_ctx (hv, formatting_context);
-
-  return hv;
-}
-
-AV *
-build_html_formatting_context_stack (
-      HTML_FORMATTING_CONTEXT_STACK *formatting_context_stack)
-{
-  int i;
-  AV *formatting_context_av;
-
-  dTHX;
-
-  formatting_context_av = newAV ();
-  for (i = 0; i < formatting_context_stack->top; i++)
-    {
-      HTML_FORMATTING_CONTEXT *formatting_context
-        = &formatting_context_stack->stack[i];
-      HV *context_hv = build_html_formatting_context (formatting_context);
-      av_push (formatting_context_av, newRV_noinc ((SV *) context_hv));
-    }
-  return formatting_context_av;
-}
-
-AV *
-build_html_composition_context_stack
-          (COMMAND_OR_TYPE_STACK *composition_context_stack)
-{
-  AV *composition_context_av;
-  int i;
-
-  dTHX;
-
-  composition_context_av = newAV ();
-
-  for (i = 0; i < composition_context_stack->top; i++)
-    {
-      char *context_str = 0;
-      COMMAND_OR_TYPE *context
-        = &composition_context_stack->stack[i];
-      if (context->variety == CTV_type_type)
-        context_str = element_type_names[context->type];
-      else if (context->variety == CTV_type_command)
-        context_str = builtin_command_data[context->cmd].cmdname;
-      else
-        context_str = "";
-      av_push (composition_context_av, newSVpv (context_str, 0));
-    }
-  return composition_context_av;
-}
-
-AV *
-build_html_preformatted_classes_stack
-          (STRING_STACK *preformatted_classes_stack)
-{
-  AV *preformatted_classes_av;
-  int i;
-
-  dTHX;
-
-  preformatted_classes_av = newAV ();
-
-  for (i = 0; i < preformatted_classes_stack->top; i++)
-    {
-      char *context_str = preformatted_classes_stack->stack[i];
-      av_push (preformatted_classes_av, newSVpv (context_str, 0));
-    }
-  return preformatted_classes_av;
-}
-
-AV *
-build_html_block_commands_stack (COMMAND_STACK *block_commands_stack)
-{
-  AV *block_commands_av;
-  int i;
-
-  dTHX;
-
-  block_commands_av = newAV ();
-
-  for (i = 0; i < block_commands_stack->top; i++)
-    {
-      enum command_id cmd = block_commands_stack->stack[i];
-      char *context_str = builtin_command_data[cmd].cmdname;
-      av_push (block_commands_av, newSVpv (context_str, 0));
-    }
-  return block_commands_av;
-}
-
 /* there is no need to return anything. */
 SV *
 build_html_formatting_state (CONVERTER *converter, unsigned long flags)