[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Patrice Dumas |
Date: |
Sun, 20 Oct 2024 12:01:48 -0400 (EDT) |
branch: master
commit afbb219daf6652edecb0ccdca21fedfaf37c52db
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Oct 20 17:59:35 2024 +0200
* tp/Texinfo/XS/parsetexi/Parsetexi.xs: rename parser variable as
parser_sv.
---
ChangeLog | 5 +++++
tp/Texinfo/XS/parsetexi/Parsetexi.xs | 34 +++++++++++++++++-----------------
2 files changed, 22 insertions(+), 17 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 62459b1b7d..ce2450b209 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-10-20 Patrice Dumas <pertusus@free.fr>
+
+ * tp/Texinfo/XS/parsetexi/Parsetexi.xs: rename parser variable as
+ parser_sv.
+
2024-10-20 Patrice Dumas <pertusus@free.fr>
* tp/Texinfo/XS/main/build_perl_info.c (get_or_build_document),
diff --git a/tp/Texinfo/XS/parsetexi/Parsetexi.xs
b/tp/Texinfo/XS/parsetexi/Parsetexi.xs
index 6bcbd3b69b..189f8195b3 100644
--- a/tp/Texinfo/XS/parsetexi/Parsetexi.xs
+++ b/tp/Texinfo/XS/parsetexi/Parsetexi.xs
@@ -85,30 +85,30 @@ register_parser_conf (SV *parser)
# the file is already a byte string, taken as is from the command line.
# The encoding was detected as COMMAND_LINE_ENCODING.
SV *
-parse_texi_file (SV *parser, input_file_path)
+parse_texi_file (SV *parser_sv, input_file_path)
char *input_file_path = (char *)SvPVbyte_nolen ($arg);
PREINIT:
size_t document_descriptor = 0;
CODE:
- if (!SvOK(parser))
+ if (!SvOK(parser_sv))
RETVAL = newSV (0);
else
{
int status;
- apply_sv_parser_conf (parser);
+ apply_sv_parser_conf (parser_sv);
document_descriptor = parse_file (input_file_path, &status);
if (status)
/* if the input file could not be opened */
{
pass_document_parser_errors_to_registrar (document_descriptor,
- parser);
+ parser_sv);
remove_document_descriptor (document_descriptor);
RETVAL = newSV (0);
}
else
{
RETVAL
- = get_or_build_document (parser, document_descriptor, 0);
+ = get_or_build_document (parser_sv, document_descriptor, 0);
}
}
OUTPUT:
@@ -116,13 +116,13 @@ parse_texi_file (SV *parser, input_file_path)
# Used in tests under tp/t.
SV *
-parse_texi_piece (SV *parser, SV *string_sv, ...)
+parse_texi_piece (SV *parser_sv, SV *string_sv, ...)
PREINIT:
size_t document_descriptor = 0;
int no_store = 0;
int line_nr = 1;
CODE:
- if (!SvOK(string_sv) || !SvOK(parser))
+ if (!SvOK(string_sv) || !SvOK(parser_sv))
RETVAL = newSV (0);
else
{
@@ -131,22 +131,22 @@ parse_texi_piece (SV *parser, SV *string_sv, ...)
line_nr = SvIV (ST(2));
if (items > 3 && SvOK(ST(3)))
no_store = SvIV (ST(3));
- apply_sv_parser_conf (parser);
+ apply_sv_parser_conf (parser_sv);
document_descriptor = parse_piece (string, line_nr);
- RETVAL = get_or_build_document (parser, document_descriptor,
+ RETVAL = get_or_build_document (parser_sv, document_descriptor,
no_store);
}
OUTPUT:
RETVAL
SV *
-parse_texi_line (SV *parser, SV *string_sv, ...)
+parse_texi_line (SV *parser_sv, SV *string_sv, ...)
PREINIT:
size_t document_descriptor = 0;
int no_store = 0;
int line_nr = 1;
CODE:
- if (!SvOK(string_sv) || !SvOK(parser))
+ if (!SvOK(string_sv) || !SvOK(parser_sv))
RETVAL = newSV (0);
else
{
@@ -156,9 +156,9 @@ parse_texi_line (SV *parser, SV *string_sv, ...)
line_nr = SvIV (ST(2));
if (items > 3 && SvOK(ST(3)))
no_store = SvIV (ST(3));
- apply_sv_parser_conf (parser);
+ apply_sv_parser_conf (parser_sv);
document_descriptor = parse_string (string, line_nr);
- document_sv = get_or_build_document (parser, document_descriptor,
+ document_sv = get_or_build_document (parser_sv,
document_descriptor,
no_store);
RETVAL = document_tree (document_sv, 0);
}
@@ -167,21 +167,21 @@ parse_texi_line (SV *parser, SV *string_sv, ...)
# Used in tests under tp/t.
SV *
-parse_texi_text (SV *parser, SV *string_sv, ...)
+parse_texi_text (SV *parser_sv, SV *string_sv, ...)
PREINIT:
size_t document_descriptor = 0;
int line_nr = 1;
CODE:
- if (!SvOK(string_sv) || !SvOK(parser))
+ if (!SvOK(string_sv) || !SvOK(parser_sv))
RETVAL = newSV (0);
else
{
char *string = (char *)SvPVutf8_nolen (string_sv);
if (items > 2 && SvOK(ST(2)))
line_nr = SvIV (ST(2));
- apply_sv_parser_conf (parser);
+ apply_sv_parser_conf (parser_sv);
document_descriptor = parse_text (string, line_nr);
- RETVAL = get_or_build_document (parser, document_descriptor, 0);
+ RETVAL = get_or_build_document (parser_sv, document_descriptor, 0);
}
OUTPUT:
RETVAL