X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=ebd00fd3dbecb8239232b257f6325fef0f9f494b;hb=3d3d4f39342abc069c6470bf0947f2d00d3ead72;hp=1dba98c3a9020f58b275c7bad1471ba8401c5000;hpb=b2ff9928c77b24737570b67197be87aa48019afe;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index 1dba98c..ebd00fd 100644 --- a/proto.h +++ b/proto.h @@ -315,7 +315,9 @@ PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash); PERL_CALLCONV void Perl_hv_undef(pTHX_ HV* tb); PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len); PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len); +PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char* a, bool ua, const char* b, bool ub, I32 len); PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective); +PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int, char **); PERL_CALLCONV void Perl_init_debugger(pTHX); PERL_CALLCONV void Perl_init_stacks(pTHX); PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm); @@ -325,37 +327,38 @@ PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit); PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd); PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags); PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX); -PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_space(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_print(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ U32 c); -PERL_CALLCONV U32 Perl_to_uni_upper(pTHX_ U32 c, U8 *p, STRLEN *lenp); -PERL_CALLCONV U32 Perl_to_uni_title(pTHX_ U32 c, U8 *p, STRLEN *lenp); -PERL_CALLCONV U32 Perl_to_uni_lower(pTHX_ U32 c, U8 *p, STRLEN *lenp); -PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ U32 c); -PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ U32 c); +PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_space(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c); +PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp); +PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp); +PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp); +PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp); +PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c); +PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c); PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ U8 *p); PERL_CALLCONV bool Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len); PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ U8 *p); @@ -456,7 +459,7 @@ PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...) ; PERL_CALLCONV SV* Perl_vmess(pTHX_ const char* pat, va_list* args); PERL_CALLCONV void Perl_qerror(pTHX_ SV* err); -PERL_CALLCONV void Perl_sortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t f); +PERL_CALLCONV void Perl_sortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t cmp); PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv); PERL_CALLCONV int Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen); PERL_CALLCONV MAGIC* Perl_mg_find(pTHX_ SV* sv, int type); @@ -560,6 +563,7 @@ PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first); PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont); PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems); +PERL_CALLCONV char* Perl_new_vstring(pTHX_ char *vstr, SV *sv); PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv); PERL_CALLCONV char* Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend); PERL_CALLCONV OP* Perl_oopsCV(pTHX_ OP* o); @@ -689,7 +693,6 @@ PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_sh PERL_CALLCONV I32 Perl_setenv_getix(pTHX_ char* nam); #endif PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv); -PERL_CALLCONV char* Perl_sharepvn(pTHX_ const char* sv, I32 len, U32 hash); PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash); PERL_CALLCONV Signal_t Perl_sighandler(int sig); PERL_CALLCONV SV** Perl_stack_grow(pTHX_ SV** sp, SV**p, int n); @@ -760,6 +763,7 @@ PERL_CALLCONV void Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp); /* PERL_CALLCONV char* sv_pvn_force(pTHX_ SV* sv, STRLEN* lp); */ PERL_CALLCONV char* Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp); PERL_CALLCONV char* Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp); +PERL_CALLCONV char* Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding); PERL_CALLCONV char* Perl_sv_reftype(pTHX_ SV* sv, int ob); PERL_CALLCONV void Perl_sv_replace(pTHX_ SV* sv, SV* nsv); PERL_CALLCONV void Perl_sv_report_used(pTHX); @@ -801,6 +805,7 @@ PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **sw PERL_CALLCONV UV Perl_to_utf8_lower(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp); PERL_CALLCONV UV Perl_to_utf8_upper(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp); PERL_CALLCONV UV Perl_to_utf8_title(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp); +PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp); #if defined(UNLINK_ALL_VERSIONS) PERL_CALLCONV I32 Perl_unlnk(pTHX_ char* f); #endif @@ -824,6 +829,8 @@ PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ U8 *s, STRLEN curlen, STRLEN* retlen, PERL_CALLCONV UV Perl_utf8n_to_uvuni(pTHX_ U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags); PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv); PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv); +PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags); +PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags); PERL_CALLCONV void Perl_vivify_defelem(pTHX_ SV* sv); PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what); PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags); @@ -897,7 +904,6 @@ PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr); PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len); PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id); PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim); -PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags); PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) #ifdef CHECK_FORMAT __attribute__((format(printf,pTHX_3,pTHX_4))) @@ -1164,11 +1170,9 @@ STATIC U8* S_reghopmaybe3(pTHX_ U8 *pos, I32 off, U8 *lim); STATIC char* S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun); #endif -#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) -# ifdef DEBUGGING +#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) STATIC CV* S_deb_curcv(pTHX_ I32 ix); STATIC void S_debprof(pTHX_ OP *o); -# endif #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)