EXpR |bool |is_utf8_X_prepend |NN const U8 *p
EXpR |bool |is_utf8_X_non_hangul |NN const U8 *p
EXpR |bool |is_utf8_X_L |NN const U8 *p
-EXpR |bool |is_utf8_X_LV |NN const U8 *p
+:not currently used EXpR |bool |is_utf8_X_LV |NN const U8 *p
EXpR |bool |is_utf8_X_LVT |NN const U8 *p
EXpR |bool |is_utf8_X_LV_LVT_V |NN const U8 *p
EXpR |bool |is_utf8_X_T |NN const U8 *p
#define av_reify(a) Perl_av_reify(aTHX_ a)
#define current_re_engine() Perl_current_re_engine(aTHX)
#define is_utf8_X_L(a) Perl_is_utf8_X_L(aTHX_ a)
-#define is_utf8_X_LV(a) Perl_is_utf8_X_LV(aTHX_ a)
#define is_utf8_X_LVT(a) Perl_is_utf8_X_LVT(aTHX_ a)
#define is_utf8_X_LV_LVT_V(a) Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
#define is_utf8_X_T(a) Perl_is_utf8_X_T(aTHX_ a)
#define PL_unlockhook (vTHX->Iunlockhook)
#define PL_unsafe (vTHX->Iunsafe)
#define PL_utf8_X_L (vTHX->Iutf8_X_L)
-#define PL_utf8_X_LV (vTHX->Iutf8_X_LV)
#define PL_utf8_X_LVT (vTHX->Iutf8_X_LVT)
#define PL_utf8_X_LV_LVT_V (vTHX->Iutf8_X_LV_LVT_V)
#define PL_utf8_X_T (vTHX->Iutf8_X_T)
PERLVAR(I, utf8_X_prepend, SV *)
PERLVAR(I, utf8_X_non_hangul, SV *)
PERLVAR(I, utf8_X_L, SV *)
-PERLVAR(I, utf8_X_LV, SV *)
PERLVAR(I, utf8_X_LVT, SV *)
PERLVAR(I, utf8_X_T, SV *)
PERLVAR(I, utf8_X_V, SV *)
#define PERL_ARGS_ASSERT_IS_UTF8_X_L \
assert(p)
-PERL_CALLCONV bool Perl_is_utf8_X_LV(pTHX_ const U8 *p)
- __attribute__warn_unused_result__
- __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_IS_UTF8_X_LV \
- assert(p)
-
PERL_CALLCONV bool Perl_is_utf8_X_LVT(pTHX_ const U8 *p)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1);
PL_utf8_X_prepend = sv_dup_inc(proto_perl->Iutf8_X_prepend, param);
PL_utf8_X_non_hangul = sv_dup_inc(proto_perl->Iutf8_X_non_hangul, param);
PL_utf8_X_L = sv_dup_inc(proto_perl->Iutf8_X_L, param);
- PL_utf8_X_LV = sv_dup_inc(proto_perl->Iutf8_X_LV, param);
+ /*not currently used: PL_utf8_X_LV = sv_dup_inc(proto_perl->Iutf8_X_LV, param);*/
PL_utf8_X_LVT = sv_dup_inc(proto_perl->Iutf8_X_LVT, param);
PL_utf8_X_T = sv_dup_inc(proto_perl->Iutf8_X_T, param);
PL_utf8_X_V = sv_dup_inc(proto_perl->Iutf8_X_V, param);
#define SCount 11172 /* Length of block */
#define TCount 28
+#if 0 /* This routine is not currently used */
bool
Perl_is_utf8_X_LV(pTHX_ const U8 *p)
{
&& cp >= SBASE && cp < SBASE + SCount
&& (cp - SBASE) % TCount == 0); /* Only every TCount one is LV */
}
+#endif
bool
Perl_is_utf8_X_LVT(pTHX_ const U8 *p)