mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
f49d80741c
Now that inversion lists are their own scalar types, we can verify that the parameters to their manipulation functions are indeed inversion lists. This adds such assertions to the bottom level code that deals with the bare metal of the scalars. Functions that call these (even if only in other asserts) didn't have asserts added to them, as they call these anyway.
68 lines
1.9 KiB
C
68 lines
1.9 KiB
C
/* inline_invlist.c
|
|
*
|
|
* Copyright (C) 2012 by Larry Wall and others
|
|
*
|
|
* You may distribute under the terms of either the GNU General Public
|
|
* License or the Artistic License, as specified in the README file.
|
|
*/
|
|
|
|
#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
|
|
|
|
/* An element is in an inversion list iff its index is even numbered: 0, 2, 4,
|
|
* etc */
|
|
#define ELEMENT_RANGE_MATCHES_INVLIST(i) (! ((i) & 1))
|
|
#define PREV_RANGE_MATCHES_INVLIST(i) (! ELEMENT_RANGE_MATCHES_INVLIST(i))
|
|
|
|
/* This converts to/from our UVs to what the SV code is expecting: bytes. */
|
|
#define TO_INTERNAL_SIZE(x) ((x) * sizeof(UV))
|
|
#define FROM_INTERNAL_SIZE(x) ((x)/ sizeof(UV))
|
|
|
|
PERL_STATIC_INLINE bool*
|
|
S_get_invlist_offset_addr(pTHX_ SV* invlist)
|
|
{
|
|
/* Return the address of the field that says whether the inversion list is
|
|
* offset (it contains 1) or not (contains 0) */
|
|
|
|
PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR;
|
|
|
|
assert(SvTYPE(invlist) == SVt_INVLIST);
|
|
|
|
return &(((XINVLIST*) SvANY(invlist))->is_offset);
|
|
}
|
|
|
|
PERL_STATIC_INLINE UV
|
|
S__invlist_len(pTHX_ SV* const invlist)
|
|
{
|
|
/* Returns the current number of elements stored in the inversion list's
|
|
* array */
|
|
|
|
PERL_ARGS_ASSERT__INVLIST_LEN;
|
|
|
|
assert(SvTYPE(invlist) == SVt_INVLIST);
|
|
|
|
return (SvCUR(invlist) == 0)
|
|
? 0
|
|
: FROM_INTERNAL_SIZE(SvCUR(invlist)) - *get_invlist_offset_addr(invlist);
|
|
}
|
|
|
|
PERL_STATIC_INLINE bool
|
|
S__invlist_contains_cp(pTHX_ SV* const invlist, const UV cp)
|
|
{
|
|
/* Does <invlist> contain code point <cp> as part of the set? */
|
|
|
|
IV index = _invlist_search(invlist, cp);
|
|
|
|
PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP;
|
|
|
|
return index >= 0 && ELEMENT_RANGE_MATCHES_INVLIST(index);
|
|
}
|
|
|
|
# if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGEXEC_C)
|
|
|
|
/* These symbols are only needed later in regcomp.c */
|
|
# undef TO_INTERNAL_SIZE
|
|
# undef FROM_INTERNAL_SIZE
|
|
# endif
|
|
|
|
#endif
|