diff options
| author | Karl Williamson <khw@cpan.org> | 2021-05-09 15:14:11 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-08-23 08:02:35 -0600 |
| commit | 7b47c6158ac7e52929a1470911ccb63053ba2193 (patch) | |
| tree | e7a6434b5e66d0a79283fbf1cf4544b5bfe533b2 /proto.h | |
| parent | 1eafd03a33c365ad3be74989a885579387eebb0b (diff) | |
| download | perl-7b47c6158ac7e52929a1470911ccb63053ba2193.tar.gz | |
utf8.c: Split a static fcn
This adds a new function for changing the case of an input code point.
The difference between this and the existing function is that the new
one returns an array of UVs instead of a combination of the first code
point and UTF-8 of the whole thing, a somewhat awkward API that made
more sense when we used swashes. That function is retained for now, at
least, but most of the work is done in the new function.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -6664,6 +6664,9 @@ STATIC HV * S_new_msg_hv(pTHX_ const char * const message, U32 categories, U32 f #define PERL_ARGS_ASSERT_NEW_MSG_HV \ assert(message) +STATIC UV S_to_case_cp_list(pTHX_ const UV original, const U32 ** const remaining_list, Size_t * remaining_count, SV *invlist, const I32 * const invmap, const U32 * const * const aux_tables, const U8 * const aux_table_lengths, const char * const normal); +#define PERL_ARGS_ASSERT_TO_CASE_CP_LIST \ + assert(remaining_list); assert(remaining_count); assert(invlist); assert(invmap); assert(normal) STATIC U8 S_to_lower_latin1(const U8 c, U8 *p, STRLEN *lenp, const char dummy) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_TO_LOWER_LATIN1 |