Add utf8_to_uv_flags()

khwilliamson · khwilliamson · commit 16d0f3cb1f7f · 2024-12-02T10:48:02.000-07:00
This is just utf8n_to_uvchr() with a more convenient API that is harder
to misuse.

New code should use this new function instead of the old.
diff --git a/embed.fnc b/embed.fnc
@@ -3740,6 +3740,12 @@ ATmp	|bool	|utf8_to_uv_errors					\
 				|NULLOK Size_t *advance_p		\
 				|const U32 flags			\
 				|NULLOK U32 *errors
+ATmp	|bool	|utf8_to_uv_flags					\
+				|NN const U8 * const s			\
+				|NN const U8 * const e			\
+				|NN UV *cp_p				\
+				|NULLOK Size_t *advance_p		\
+				|const U32 flag
 ATip	|bool	|utf8_to_uv_msgs|NN const U8 * const s0 		\
 				|NN const U8 *e 			\
 				|NN UV *cp_p				\
diff --git a/embed.h b/embed.h
@@ -863,6 +863,7 @@
 # define utf8_to_bytes_overwrite(a,b)           Perl_utf8_to_bytes_overwrite(aTHX,a,b)
 # define utf8_to_bytes_temp_pv(a,b)             Perl_utf8_to_bytes_temp_pv(aTHX,a,b)
 # define utf8_to_uv_errors                      Perl_utf8_to_uv_errors
+# define utf8_to_uv_flags                       Perl_utf8_to_uv_flags
 # define utf8_to_uv_msgs                        Perl_utf8_to_uv_msgs
 # define utf8_to_uv_msgs_helper_                Perl_utf8_to_uv_msgs_helper_
 # define utf8n_to_uvchr                         Perl_utf8n_to_uvchr
diff --git a/proto.h b/proto.h
diff --git a/utf8.h b/utf8.h
@@ -159,6 +159,8 @@ typedef enum {
 #define Perl_utf8n_to_uvchr_error(s, len, lenp, flags, errors)                 \
                     Perl_utf8n_to_uvchr_msgs(s, len, lenp, flags, errors, 0)
 
+#define Perl_utf8_to_uv_flags(   s, e, cp_p, advance_p, flags)              \
+        Perl_utf8_to_uv_errors(  s, e, cp_p, advance_p, flags, 0)
 #define Perl_utf8_to_uv_errors(  s, e, cp_p, advance_p, flags, errors)      \
           Perl_utf8_to_uv_msgs(  s, e, cp_p, advance_p, flags, errors, 0)
 
