branch master updated: * tp/Texinfo/XS/parsetexi/Parsetexi.xs: remove now unused XS interfaces for build_document, get_document and pass_document_parser_errors_to_registrar.

[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 3059ae2062 * tp/Texinfo/XS/parsetexi/Parsetexi.xs: remove now unused 
XS interfaces for build_document, get_document and 
pass_document_parser_errors_to_registrar.
3059ae2062 is described below

commit 3059ae20625a8da75fab88b95e30f5c2062c14c0
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Oct 20 13:30:25 2024 +0200

    * tp/Texinfo/XS/parsetexi/Parsetexi.xs: remove now unused XS
    interfaces for build_document, get_document and
    pass_document_parser_errors_to_registrar.
---
 ChangeLog                            |  6 ++++++
 tp/Texinfo/XS/parsetexi/Parsetexi.xs | 26 +-------------------------
 2 files changed, 7 insertions(+), 25 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f4ecd354d0..051f80f45d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-10-20  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/parsetexi/Parsetexi.xs: remove now unused XS
+       interfaces for build_document, get_document and
+       pass_document_parser_errors_to_registrar.
+
 2024-10-20  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/main/build_perl_info.c (new_texinfo_report): add code
diff --git a/tp/Texinfo/XS/parsetexi/Parsetexi.xs 
b/tp/Texinfo/XS/parsetexi/Parsetexi.xs
index 8e40bfe0be..17962516da 100644
--- a/tp/Texinfo/XS/parsetexi/Parsetexi.xs
+++ b/tp/Texinfo/XS/parsetexi/Parsetexi.xs
@@ -101,9 +101,7 @@ parse_file (SV *parser, input_file_path)
             RETVAL = newSV (0);
           }
         else
-          {
-            RETVAL = get_document (document_descriptor);
-          }
+          RETVAL = get_document (document_descriptor);
       OUTPUT:
         RETVAL
 
@@ -152,28 +150,6 @@ parse_text (SV *parser, string, int line_nr)
       OUTPUT:
         RETVAL
 
-
-# note that giving optional arguments, like: int no_store=0
-# would have been nice, but in that case an undef value cannot be passed
-# and leads to a perl warning
-SV *
-build_document (size_t document_descriptor, ...)
-      PROTOTYPE: $;$
-      PREINIT:
-        int no_store = 0;
-      CODE:
-        if (items > 1 && SvOK(ST(1)))
-          no_store = SvIV (ST(1));
-        RETVAL = build_document (document_descriptor, no_store);
-      OUTPUT:
-        RETVAL
-
-SV *
-get_document (size_t document_descriptor)
-
-void
-pass_document_parser_errors_to_registrar (size_t document_descriptor, SV 
*parser_sv)
-
 void
 parser_store_values (SV *values)
       CODE: