Algorithm-Line-Lerp
view release on metacpan or search on metacpan
COP_SEQ_RANGE_LOW|5.009005||ViuCopSTASH|5.006000|5.003007|pCopSTASH_eq|5.006000|5.003007|pCopSTASH_ne|5.006000||ViuCopSTASHPV|5.006000|5.003007|pCopSTASHPV_set|5.017001|5.017001|pCopSTASH_set|5.006000|5.003007|pcop_store_label|5.031004|5.031004|xCopy|5.003007|5.003007|CopyD|5.009002|5.003007|pcopy_length|||Viucore_prototype|5.015002||Vicoresub_op|5.015003||ViuCowREFCNT|5.017007||ViucPADOP|5.006000||ViucPADOPo|5.006000||ViucPADOPx|5.006000||ViuCPERLarg|5.005000||ViuCPERLscope|5.005000|5.003007|pdVcPMOP|5.003007||ViucPMOPo|5.004005||Viu
KEY_int|5.003007||ViuKEY_ioctl|5.003007||ViuKEY_isa|5.031007||ViuKEY_join|5.003007||ViuKEY_keys|5.003007||ViuKEY_kill|5.003007||ViuKEY_last|5.003007||ViuKEY_lc|5.003007||ViuKEY_lcfirst|5.003007||ViuKEY_le|5.003007||ViuKEY_length|5.003007||ViuKEY___LINE|5.003007||ViuKEY_link|5.003007||ViuKEY_listen|5.003007||ViuKEY_local|5.003007||ViuKEY_localtime|5.003007||ViuKEY_lock|5.005000||ViuKEY_log|5.003007||ViuKEY_lstat|5.003007||ViuKEY_lt|5.003007||ViuKEY_m|5.003007||Viu
MGf_LOCAL|5.009003||ViuMGf_MINMATCH|5.003007||ViuMGf_PERSIST|5.021005||Viumg_free|5.003007|5.003007|mg_freeext|5.027004|5.027004|mg_free_type|5.013006|5.013006|MGf_REFCOUNTED|5.003007||ViuMGf_REQUIRE_GV|5.021004||ViuMGf_TAINTEDDIR|5.003007||Viumg_get|5.003007|5.003007|mg_length|5.005000|5.005000|dmg_localize|5.009003||Vimg_magical|5.003007|5.003007|nMgPV|5.003007||ViuMgPV_const|5.009003||ViuMgPV_nolen_const|5.009003||Viumg_set|5.003007|5.003007|mg_size|5.005000|5.005000|uMgSV|5.033009||ViuMgTAINTEDDIR|5.003007||ViuMgTAINTEDDIR_off|5.004000||Viu
reg_named_buff_nextkey|5.009005||cVureg_named_buff_scalar|5.009005||cVuregnext|5.003007||cVureg_node|5.005000||Viuregnode_guts|5.021005||Viuregnode_guts_debug|||ViuREGNODE_MAX|5.009004||ViuREGNODE_SIMPLE|5.013002||ViuREGNODE_VARIES|5.013002||Viureg_numbered_buff_fetch|5.009005||cViureg_numbered_buff_length|5.009005||cViureg_numbered_buff_store|5.009005||cViuregpiece|5.005000||Viuregpnode|5.031010||Viuregprop|5.003007||Viureg_qr_package|5.009005||cViuREG_RECURSE_SEEN|5.019009||Viuregrepeat|5.005000||ViuREG_RUN_ON_COMMENT_SEEN|5.019009||Viureg_scan_name|5.009005||Viureg_skipcomment|5.009005||Vniu
UTF8_IS_INVARIANT|5.007001|5.003007|pUTF8_IS_NEXT_CHAR_DOWNGRADEABLE|5.017006||ViuUTF8_IS_NONCHAR|5.023002|5.023002|UTF8_IS_NONCHAR_GIVEN_THAT_NON_SUPER_AND_GE_PROBLEMATIC|5.013009||ViuUTF8_IS_PERL_EXTENDED|5.035004||ViuUTF8_IS_REPLACEMENT|||UTF8_IS_START|5.007001||ViuUTF8_IS_START_base|5.031007||ViuUTF8_IS_SUPER|5.023002|5.023002|UTF8_IS_SURROGATE|5.023002|5.023002|utf8_length|5.007001|5.007001|UTF8_MAXBYTES|5.009002|5.006000|pUTF8_MAXBYTES_CASE|5.009002|5.003007|pUTF8_MAX_FOLD_CHAR_EXPAND|5.013009||ViuUTF8_MAXLEN|5.006000||Viuutf8_mg_len_cache_update|5.013003||Viuutf8_mg_pos_cache_update|5.009004||Viuutf8n_to_uvchr|5.007001|5.007001|nutf8n_to_uvchr_error|5.025006|5.025006|nutf8n_to_uvchr_msgs|5.027009|5.027009|n_utf8n_to_uvchr_msgs_helper|5.029001||cVnu
if(exists$opt{'list-unsupported'}) {my$f;for$f(sortdictionary_orderkeys%API) {nextif$API{$f}{core_only};nextif$API{$f}{beyond_depr};nextif$API{$f}{inaccessible};nextif$API{$f}{experimental};nextunless$API{$f}{todo};nextifint_parse_version($API{$f}{todo}) <=$int_min_perl;my$repeat= 40 -length($f);$repeat= 0if$repeat< 0;"$f ",'.'x$repeat," ", format_version($API{$f}{todo}),"\n";}exit0;}# Scan for hints, possible replacement candidates, etc.my(%replace,%need,%hints,%warnings,%depends);my$replace= 0;
while(<DATA>) {if($hint) {# Here, we are in the middle of accumulating a hint or warning.my$end_of_hint= 0;# A line containing a comment end marker closes the hint. Remove that# marker for processing below.if(s/\s*$rcce(.*?)\s*$//) {die"Nothing can follow the end of comment in '$_'\n"iflength$1 > 0;$end_of_hint= 1;}# Set $h to the hash of which type.my$h=$hint->[0] eq'Hint'? \%hints: \%warnings;# Ignore any leading and trailing white space, and an optional star comment# continuation marker, then place the meat of the line into $1m/^\s*(?:\*\s*)?(.*?)\s*$/;
#endif#ifndef av_count# define av_count(av) (AvFILL(av)+1)#endif#ifndef ERRSV# define ERRSV get_sv("@",FALSE)#endif/* Hint: gv_stashpvn* This function's backport doesn't support thelengthparameter, but* rather ignores it. Portability can only be ensuredifthelength* parameter is usedforspeed reasons, but thelengthcan always be* correctly computed from the string argument.*/#ifndef gv_stashpvn# define gv_stashpvn(str,len,create) gv_stashpv(str,create)#endif/* Replace: 1 */#ifndef get_cv# define get_cv perl_get_cv#endif
Perl__to_utf8_upper_flags(aTHX_ s, r, l, 0, NULL)# define D_PPP_TO_FOLD_CALLEE(s,r,l) \Perl__to_utf8_fold_flags(aTHX_ s, r, l, FOLD_FLAGS_FULL, NULL)# endif/* The actual implementation of the backported macros. If too short, croak,* otherwise call the original that doesn't have an upper limit parameter */# define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \(((((e) - (s)) <= 0) \/* We could justdonothing, but modern perls croak */ \? (croak("Attempting case change on zero length string"), \0) /* So looks like it returns something, and will compile */ \: ((e) - (s)) < UTF8SKIP(s)) \? (croak(D_PPP_TOO_SHORT_MSG, \s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \0) \: D_PPP_TO_## name ## _CALLEE(s,r,l))#ifndef toUPPER_utf8_safe# define toUPPER_utf8_safe(s,e,r,l) \D_PPP_GENERIC_MULTI_ARG_TO(UPPER,s,e,r,l)#endif
/* Here we have UTF-8 support, but using the original API where the case* changing functions merely returned the changed code point; hence they* couldn't handle multi-character results. */# ifdef uvchr_to_utf8# define D_PPP_UV_TO_UTF8 uvchr_to_utf8# else# define D_PPP_UV_TO_UTF8 uv_to_utf8# endif/* Get the utf8 of the case changed value, and store itslength; then have* to re-calculate the changed case value in order toreturnit */# define D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(name, c, s, l) \(*(l) = (D_PPP_UV_TO_UTF8(s, \UNI_TO_NATIVE(to_uni_## name(NATIVE_TO_UNI(c)))) - (s)), \UNI_TO_NATIVE(to_uni_## name(NATIVE_TO_UNI(c))))#ifndef toLOWER_uvchr# define toLOWER_uvchr(c, s, l) \D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(lower, c, s, l)#endif
# define toTITLE_uvchr(c, s, l) \D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(title, c, s, l)#endif#ifndef toFOLD_uvchr# define toFOLD_uvchr(c, s, l) toLOWER_uvchr(c, s, l)#endif# define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \(((((e) - (s)) <= 0) \? (croak("Attempting case change on zero length string"), \0) /* So looks like it returns something, and will compile */ \: ((e) - (s)) < UTF8SKIP(s)) \? (croak(D_PPP_TOO_SHORT_MSG, \s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \0) \/* Get the changed code point and store its UTF-8 */ \: D_PPP_UV_TO_UTF8(r, to_utf8_## name(s)), \/* Then store itslength, and re-get code pointforreturn*/ \*(l) = UTF8SKIP(r), to_utf8_## name(r))/* Warning: toUPPER_utf8_safe, toLOWER_utf8_safe, toTITLE_utf8_safe,* toUPPER_uvchr, toLOWER_uvchr, toTITLE_uvchrThe UTF-8 case changing operations had bugsbeforearound5.12 or 5.14;this backport does not correct them.In perlsbefore7.3, multi-character case changing is not implemented; thisbackport uses the simple case changes available in those perls. */#ifndef toUPPER_utf8_safe
#ifndef SvSHARED_HASH# define SvSHARED_HASH(sv) (0 + SvUVX(sv))#endif#ifndef HvNAME_get# define HvNAME_get(hv) HvNAME(hv)#endif#ifndef HvNAMELEN_get# define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0)#endif#if (PERL_BCDVERSION >= 0x5009002) && (PERL_BCDVERSION <= 0x5009003) /* 5.9.2 and 5.9.3 ignore the length param */#undef gv_fetchpvn_flags#endif#ifdef GV_NOADD_MASK# define D_PPP_GV_NOADD_MASK GV_NOADD_MASK#else# define D_PPP_GV_NOADD_MASK 0xE0#endif#ifndef gv_fetchpvn_flags# define gv_fetchpvn_flags(name, len, flags, sv_type) gv_fetchpv(SvPVX(sv_2mortal(newSVpvn((name), (len)))), ((flags) & D_PPP_GV_NOADD_MASK) ? FALSE : TRUE, (I32)(sv_type))
#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)#define my_strlcat DPPP_(my_my_strlcat)#define Perl_my_strlcat DPPP_(my_my_strlcat)Size_tDPPP_(my_my_strlcat)(char*dst, const char*src, Size_t size){Size_t used,length, copy;used = strlen(dst);length= strlen(src);if(size > 0 && used < size - 1) {copy = (length>= size - used) ? size - used - 1 :length;memcpy(dst + used, src, copy);dst[used + copy] ='\0';}returnused +length;}#endif#endif#if !defined(my_strlcpy)#if defined(NEED_my_strlcpy)static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);static#elseextern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)#define my_strlcpy DPPP_(my_my_strlcpy)#define Perl_my_strlcpy DPPP_(my_my_strlcpy)Size_tDPPP_(my_my_strlcpy)(char*dst, const char*src, Size_t size){Size_tlength, copy;length= strlen(src);if(size > 0) {copy = (length>= size) ? size - 1 :length;memcpy(dst, src, copy);dst[copy] ='\0';}returnlength;}#endif#endif#ifdef SVf_UTF8#ifndef SvUTF8# define SvUTF8(sv) (SvFLAGS(sv) & SVf_UTF8)#endif
#define utf8_to_uvchr_buf(a,b,c) DPPP_(my_utf8_to_uvchr_buf)(aTHX_ a,b,c)#define Perl_utf8_to_uvchr_buf DPPP_(my_utf8_to_uvchr_buf)UVDPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8*s, const U8*send, STRLEN*retlen){# if (PERL_BCDVERSION >= 0x5031004) /* But from above, must be < 5.35.10 */# if (PERL_BCDVERSION != 0x5035009)/* Versions less than 5.35.9 could dereference s on zerolength, so* pass it something wherenoharm comes from that. */if(send<= s) s =send= (U8 *)"?";returnPerl_utf8_to_uvchr_buf_helper(aTHX_ s,send, retlen);# else /* Below is 5.35.9, which also works on non-empty input, butforempty input, can wrongly dereference, and additionally isalso just plain broken */if(send> s)returnPerl_utf8_to_uvchr_buf_helper(aTHX_ s,send, retlen);if(! ckWARN_d(WARN_UTF8)) {if(retlen)*retlen= 0;
# endif# elseUV ret;STRLEN curlen;bool overflows = 0;const U8*cur_s= s;const bool do_warnings = ckWARN_d(WARN_UTF8);# if (PERL_BCDVERSION < 0x5026000) && ! defined(EBCDIC)STRLEN overflow_length = 0;# endifif(send> s) {curlen =send- s;}else{assert(0); /* Modern perlsdieunder this circumstance */curlen = 0;if(! do_warnings) { /* Handle empty hereifnowarnings needed */if(retlen)*retlen= 0;
* parameters. Therefore detect it ourselves in releases it was* problematic in. */if(curlen > 0 && UNLIKELY(*s>= 0xFE)) {/* First, on a 32-bit machine the first byte being at least \xFE* automatically is overflow, as it indicates something requiring more* than 31 bits */if(sizeof(ret) < 8) {overflows = 1;overflow_length = (*s== 0xFE) ? 7 : 13;}else{const U8 highest[] = /* 2*63-1 */"\xFF\x80\x87\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF";const U8*cur_h= highest;for(cur_s = s; cur_s <send; cur_s++, cur_h++) {if(UNLIKELY(*cur_s==*cur_h)) {continue;}
* sequence doesn't overflow */overflows =*cur_s>*cur_h;break;}/* Here, either we set the bool and broke out of the loop, or got* to the end and all bytes are the same which indicates it doesn't* overflow. If it did overflow, it would be this number of bytes* */overflow_length = 13;}}if(UNLIKELY(overflows)) {ret = 0;if(! do_warnings && retlen) {*retlen= overflow_length;}}else# endif /* < 5.26 *//* Here, we are either in a release that properly detects overflow, or* we have checkedforoverflow and thenextstatement is executing as* part of the above conditional where we know we don't have overflow.*
ret = D_PPP_utf8_to_uvchr_buf_callee((U8 *) /* Early perls:noconst */s, curlen, retlen, UTF8_ALLOW_ANY);/* Overridewiththe REPLACEMENT character, as that is what the* modern version of this function returns */ret = UNICODE_REPLACEMENT;# if (PERL_BCDVERSION < 0x5016000)/* Versions earlier than this don't necessarilyreturnthe proper*length. It should not extend past the end of string, nor past* what the first byte indicates thelengthis, nor past the* continuation characters */if(retlen && (IV)*retlen>= 0) {unsignedinti = 1;*retlen= D_PPP_MIN(*retlen, curlen);*retlen= D_PPP_MIN(*retlen, UTF8SKIP(s));do{# ifdef UTF8_IS_CONTINUATIONif(! UTF8_IS_CONTINUATION(s[i]))# else /* Versions without the above don't support EBCDIC anyway */
( run in 0.342 second using v1.01-cache-2.11-cpan-95122f20152 )