source: trunk/third/perl/proto.h @ 17035

Revision 17035, 62.0 KB checked in by zacheiss, 22 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r17034, which included commits to RCS files with non-trunk default branches.
Line 
1/*
2 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
3 * This file is autogenerated from data in embed.pl.  Edit that file
4 * and run 'make regen_headers' to effect changes.
5 */
6
7
8
9START_EXTERN_C
10
11#if defined(PERL_IMPLICIT_SYS)
12PERL_CALLCONV PerlInterpreter*  perl_alloc_using(struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p);
13#endif
14PERL_CALLCONV PerlInterpreter*  perl_alloc(void);
15PERL_CALLCONV void      perl_construct(PerlInterpreter* interp);
16PERL_CALLCONV void      perl_destruct(PerlInterpreter* interp);
17PERL_CALLCONV void      perl_free(PerlInterpreter* interp);
18PERL_CALLCONV int       perl_run(PerlInterpreter* interp);
19PERL_CALLCONV int       perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env);
20#if defined(USE_ITHREADS)
21PERL_CALLCONV PerlInterpreter*  perl_clone(PerlInterpreter* interp, UV flags);
22#  if defined(PERL_IMPLICIT_SYS)
23PERL_CALLCONV PerlInterpreter*  perl_clone_using(PerlInterpreter *interp, UV flags, struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p);
24#  endif
25#endif
26
27#if defined(MYMALLOC)
28PERL_CALLCONV Malloc_t  Perl_malloc(MEM_SIZE nbytes);
29PERL_CALLCONV Malloc_t  Perl_calloc(MEM_SIZE elements, MEM_SIZE size);
30PERL_CALLCONV Malloc_t  Perl_realloc(Malloc_t where, MEM_SIZE nbytes);
31PERL_CALLCONV Free_t    Perl_mfree(Malloc_t where);
32PERL_CALLCONV MEM_SIZE  Perl_malloced_size(void *p);
33#endif
34
35PERL_CALLCONV void*     Perl_get_context(void);
36PERL_CALLCONV void      Perl_set_context(void *thx);
37
38END_EXTERN_C
39
40/* functions with flag 'n' should come before here */
41#if defined(PERL_OBJECT)
42class CPerlObj {
43public:
44        struct interpreter interp;
45        CPerlObj(IPerlMem*, IPerlMem*, IPerlMem*, IPerlEnv*, IPerlStdIO*,
46            IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
47        void* operator new(size_t nSize, IPerlMem *pvtbl);
48#ifndef __BORLANDC__
49        static void operator delete(void* pPerl, IPerlMem *pvtbl);
50#endif
51        int do_aspawn (void *vreally, void **vmark, void **vsp);
52#endif
53#if defined(PERL_OBJECT)
54public:
55#else
56START_EXTERN_C
57#endif
58#  include "pp_proto.h"
59PERL_CALLCONV SV*       Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir);
60PERL_CALLCONV bool      Perl_Gv_AMupdate(pTHX_ HV* stash);
61PERL_CALLCONV OP*       Perl_append_elem(pTHX_ I32 optype, OP* head, OP* tail);
62PERL_CALLCONV OP*       Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last);
63PERL_CALLCONV I32       Perl_apply(pTHX_ I32 type, SV** mark, SV** sp);
64PERL_CALLCONV void      Perl_apply_attrs_string(pTHX_ char *stashpv, CV *cv, char *attrstr, STRLEN len);
65PERL_CALLCONV SV*       Perl_avhv_delete_ent(pTHX_ AV *ar, SV* keysv, I32 flags, U32 hash);
66PERL_CALLCONV bool      Perl_avhv_exists_ent(pTHX_ AV *ar, SV* keysv, U32 hash);
67PERL_CALLCONV SV**      Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32 hash);
68PERL_CALLCONV SV**      Perl_avhv_store_ent(pTHX_ AV *ar, SV* keysv, SV* val, U32 hash);
69PERL_CALLCONV HE*       Perl_avhv_iternext(pTHX_ AV *ar);
70PERL_CALLCONV SV*       Perl_avhv_iterval(pTHX_ AV *ar, HE* entry);
71PERL_CALLCONV HV*       Perl_avhv_keys(pTHX_ AV *ar);
72PERL_CALLCONV void      Perl_av_clear(pTHX_ AV* ar);
73PERL_CALLCONV SV*       Perl_av_delete(pTHX_ AV* ar, I32 key, I32 flags);
74PERL_CALLCONV bool      Perl_av_exists(pTHX_ AV* ar, I32 key);
75PERL_CALLCONV void      Perl_av_extend(pTHX_ AV* ar, I32 key);
76PERL_CALLCONV AV*       Perl_av_fake(pTHX_ I32 size, SV** svp);
77PERL_CALLCONV SV**      Perl_av_fetch(pTHX_ AV* ar, I32 key, I32 lval);
78PERL_CALLCONV void      Perl_av_fill(pTHX_ AV* ar, I32 fill);
79PERL_CALLCONV I32       Perl_av_len(pTHX_ AV* ar);
80PERL_CALLCONV AV*       Perl_av_make(pTHX_ I32 size, SV** svp);
81PERL_CALLCONV SV*       Perl_av_pop(pTHX_ AV* ar);
82PERL_CALLCONV void      Perl_av_push(pTHX_ AV* ar, SV* val);
83PERL_CALLCONV void      Perl_av_reify(pTHX_ AV* ar);
84PERL_CALLCONV SV*       Perl_av_shift(pTHX_ AV* ar);
85PERL_CALLCONV SV**      Perl_av_store(pTHX_ AV* ar, I32 key, SV* val);
86PERL_CALLCONV void      Perl_av_undef(pTHX_ AV* ar);
87PERL_CALLCONV void      Perl_av_unshift(pTHX_ AV* ar, I32 num);
88PERL_CALLCONV OP*       Perl_bind_match(pTHX_ I32 type, OP* left, OP* pat);
89PERL_CALLCONV OP*       Perl_block_end(pTHX_ I32 floor, OP* seq);
90PERL_CALLCONV I32       Perl_block_gimme(pTHX);
91PERL_CALLCONV int       Perl_block_start(pTHX_ int full);
92PERL_CALLCONV void      Perl_boot_core_UNIVERSAL(pTHX);
93PERL_CALLCONV void      Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
94PERL_CALLCONV bool      Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp);
95PERL_CALLCONV U32       Perl_cast_ulong(pTHX_ NV f);
96PERL_CALLCONV I32       Perl_cast_i32(pTHX_ NV f);
97PERL_CALLCONV IV        Perl_cast_iv(pTHX_ NV f);
98PERL_CALLCONV UV        Perl_cast_uv(pTHX_ NV f);
99#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
100PERL_CALLCONV I32       Perl_my_chsize(pTHX_ int fd, Off_t length);
101#endif
102#if defined(USE_THREADS)
103PERL_CALLCONV MAGIC*    Perl_condpair_magic(pTHX_ SV *sv);
104#endif
105PERL_CALLCONV OP*       Perl_convert(pTHX_ I32 optype, I32 flags, OP* o);
106PERL_CALLCONV void      Perl_croak(pTHX_ const char* pat, ...) __attribute__((noreturn))
107#ifdef CHECK_FORMAT
108 __attribute__((format(printf,pTHX_1,pTHX_2)))
109#endif
110;
111PERL_CALLCONV void      Perl_vcroak(pTHX_ const char* pat, va_list* args) __attribute__((noreturn));
112#if defined(PERL_IMPLICIT_CONTEXT)
113PERL_CALLCONV void      Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn))
114#ifdef CHECK_FORMAT
115 __attribute__((format(printf,1,2)))
116#endif
117;
118PERL_CALLCONV OP*       Perl_die_nocontext(const char* pat, ...)
119#ifdef CHECK_FORMAT
120 __attribute__((format(printf,1,2)))
121#endif
122;
123PERL_CALLCONV void      Perl_deb_nocontext(const char* pat, ...)
124#ifdef CHECK_FORMAT
125 __attribute__((format(printf,1,2)))
126#endif
127;
128PERL_CALLCONV char*     Perl_form_nocontext(const char* pat, ...)
129#ifdef CHECK_FORMAT
130 __attribute__((format(printf,1,2)))
131#endif
132;
133PERL_CALLCONV void      Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...);
134PERL_CALLCONV SV*       Perl_mess_nocontext(const char* pat, ...)
135#ifdef CHECK_FORMAT
136 __attribute__((format(printf,1,2)))
137#endif
138;
139PERL_CALLCONV void      Perl_warn_nocontext(const char* pat, ...)
140#ifdef CHECK_FORMAT
141 __attribute__((format(printf,1,2)))
142#endif
143;
144PERL_CALLCONV void      Perl_warner_nocontext(U32 err, const char* pat, ...)
145#ifdef CHECK_FORMAT
146 __attribute__((format(printf,2,3)))
147#endif
148;
149PERL_CALLCONV SV*       Perl_newSVpvf_nocontext(const char* pat, ...)
150#ifdef CHECK_FORMAT
151 __attribute__((format(printf,1,2)))
152#endif
153;
154PERL_CALLCONV void      Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
155#ifdef CHECK_FORMAT
156 __attribute__((format(printf,2,3)))
157#endif
158;
159PERL_CALLCONV void      Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
160#ifdef CHECK_FORMAT
161 __attribute__((format(printf,2,3)))
162#endif
163;
164PERL_CALLCONV void      Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
165#ifdef CHECK_FORMAT
166 __attribute__((format(printf,2,3)))
167#endif
168;
169PERL_CALLCONV void      Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
170#ifdef CHECK_FORMAT
171 __attribute__((format(printf,2,3)))
172#endif
173;
174PERL_CALLCONV int       Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...)
175#ifdef CHECK_FORMAT
176 __attribute__((format(printf,2,3)))
177#endif
178;
179PERL_CALLCONV int       Perl_printf_nocontext(const char* fmt, ...)
180#ifdef CHECK_FORMAT
181 __attribute__((format(printf,1,2)))
182#endif
183;
184#endif
185PERL_CALLCONV void      Perl_cv_ckproto(pTHX_ CV* cv, GV* gv, char* p);
186PERL_CALLCONV CV*       Perl_cv_clone(pTHX_ CV* proto);
187PERL_CALLCONV SV*       Perl_cv_const_sv(pTHX_ CV* cv);
188PERL_CALLCONV SV*       Perl_op_const_sv(pTHX_ OP* o, CV* cv);
189PERL_CALLCONV void      Perl_cv_undef(pTHX_ CV* cv);
190PERL_CALLCONV void      Perl_cx_dump(pTHX_ PERL_CONTEXT* cs);
191PERL_CALLCONV SV*       Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
192PERL_CALLCONV void      Perl_filter_del(pTHX_ filter_t funcp);
193PERL_CALLCONV I32       Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen);
194PERL_CALLCONV char**    Perl_get_op_descs(pTHX);
195PERL_CALLCONV char**    Perl_get_op_names(pTHX);
196PERL_CALLCONV char*     Perl_get_no_modify(pTHX);
197PERL_CALLCONV U32*      Perl_get_opargs(pTHX);
198PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX);
199PERL_CALLCONV I32       Perl_cxinc(pTHX);
200PERL_CALLCONV void      Perl_deb(pTHX_ const char* pat, ...)
201#ifdef CHECK_FORMAT
202 __attribute__((format(printf,pTHX_1,pTHX_2)))
203#endif
204;
205PERL_CALLCONV void      Perl_vdeb(pTHX_ const char* pat, va_list* args);
206PERL_CALLCONV void      Perl_debprofdump(pTHX);
207PERL_CALLCONV I32       Perl_debop(pTHX_ OP* o);
208PERL_CALLCONV I32       Perl_debstack(pTHX);
209PERL_CALLCONV I32       Perl_debstackptrs(pTHX);
210PERL_CALLCONV char*     Perl_delimcpy(pTHX_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
211PERL_CALLCONV void      Perl_deprecate(pTHX_ char* s);
212PERL_CALLCONV OP*       Perl_die(pTHX_ const char* pat, ...)
213#ifdef CHECK_FORMAT
214 __attribute__((format(printf,pTHX_1,pTHX_2)))
215#endif
216;
217PERL_CALLCONV OP*       Perl_vdie(pTHX_ const char* pat, va_list* args);
218PERL_CALLCONV OP*       Perl_die_where(pTHX_ char* message, STRLEN msglen);
219PERL_CALLCONV void      Perl_dounwind(pTHX_ I32 cxix);
220PERL_CALLCONV bool      Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp);
221PERL_CALLCONV bool      Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag);
222PERL_CALLCONV int       Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode);
223PERL_CALLCONV void      Perl_do_chop(pTHX_ SV* asv, SV* sv);
224PERL_CALLCONV bool      Perl_do_close(pTHX_ GV* gv, bool not_implicit);
225PERL_CALLCONV bool      Perl_do_eof(pTHX_ GV* gv);
226PERL_CALLCONV bool      Perl_do_exec(pTHX_ char* cmd);
227#if !defined(WIN32)
228PERL_CALLCONV bool      Perl_do_exec3(pTHX_ char* cmd, int fd, int flag);
229#endif
230PERL_CALLCONV void      Perl_do_execfree(pTHX);
231#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
232PERL_CALLCONV I32       Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp);
233PERL_CALLCONV I32       Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp);
234PERL_CALLCONV I32       Perl_do_msgrcv(pTHX_ SV** mark, SV** sp);
235PERL_CALLCONV I32       Perl_do_msgsnd(pTHX_ SV** mark, SV** sp);
236PERL_CALLCONV I32       Perl_do_semop(pTHX_ SV** mark, SV** sp);
237PERL_CALLCONV I32       Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp);
238#endif
239PERL_CALLCONV void      Perl_do_join(pTHX_ SV* sv, SV* del, SV** mark, SV** sp);
240PERL_CALLCONV OP*       Perl_do_kv(pTHX);
241PERL_CALLCONV bool      Perl_do_open(pTHX_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp);
242PERL_CALLCONV bool      Perl_do_open9(pTHX_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num);
243PERL_CALLCONV void      Perl_do_pipe(pTHX_ SV* sv, GV* rgv, GV* wgv);
244PERL_CALLCONV bool      Perl_do_print(pTHX_ SV* sv, PerlIO* fp);
245PERL_CALLCONV OP*       Perl_do_readline(pTHX);
246PERL_CALLCONV I32       Perl_do_chomp(pTHX_ SV* sv);
247PERL_CALLCONV bool      Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
248PERL_CALLCONV void      Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg);
249PERL_CALLCONV Off_t     Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
250PERL_CALLCONV Off_t     Perl_do_tell(pTHX_ GV* gv);
251PERL_CALLCONV I32       Perl_do_trans(pTHX_ SV* sv);
252PERL_CALLCONV UV        Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size);
253PERL_CALLCONV void      Perl_do_vecset(pTHX_ SV* sv);
254PERL_CALLCONV void      Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
255PERL_CALLCONV OP*       Perl_dofile(pTHX_ OP* term);
256PERL_CALLCONV I32       Perl_dowantarray(pTHX);
257PERL_CALLCONV void      Perl_dump_all(pTHX);
258PERL_CALLCONV void      Perl_dump_eval(pTHX);
259#if defined(DUMP_FDS)
260PERL_CALLCONV void      Perl_dump_fds(pTHX_ char* s);
261#endif
262PERL_CALLCONV void      Perl_dump_form(pTHX_ GV* gv);
263PERL_CALLCONV void      Perl_gv_dump(pTHX_ GV* gv);
264PERL_CALLCONV void      Perl_op_dump(pTHX_ OP* arg);
265PERL_CALLCONV void      Perl_pmop_dump(pTHX_ PMOP* pm);
266PERL_CALLCONV void      Perl_dump_packsubs(pTHX_ HV* stash);
267PERL_CALLCONV void      Perl_dump_sub(pTHX_ GV* gv);
268PERL_CALLCONV void      Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
269PERL_CALLCONV char*     Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
270PERL_CALLCONV char*     Perl_find_script(pTHX_ char *scriptname, bool dosearch, char **search_ext, I32 flags);
271#if defined(USE_THREADS)
272PERL_CALLCONV PADOFFSET Perl_find_threadsv(pTHX_ const char *name);
273#endif
274PERL_CALLCONV OP*       Perl_force_list(pTHX_ OP* arg);
275PERL_CALLCONV OP*       Perl_fold_constants(pTHX_ OP* arg);
276PERL_CALLCONV char*     Perl_form(pTHX_ const char* pat, ...)
277#ifdef CHECK_FORMAT
278 __attribute__((format(printf,pTHX_1,pTHX_2)))
279#endif
280;
281PERL_CALLCONV char*     Perl_vform(pTHX_ const char* pat, va_list* args);
282PERL_CALLCONV void      Perl_free_tmps(pTHX);
283PERL_CALLCONV OP*       Perl_gen_constant_list(pTHX_ OP* o);
284#if !defined(HAS_GETENV_LEN)
285PERL_CALLCONV char*     Perl_getenv_len(pTHX_ const char* key, unsigned long *len);
286#endif
287PERL_CALLCONV void      Perl_gp_free(pTHX_ GV* gv);
288PERL_CALLCONV GP*       Perl_gp_ref(pTHX_ GP* gp);
289PERL_CALLCONV GV*       Perl_gv_AVadd(pTHX_ GV* gv);
290PERL_CALLCONV GV*       Perl_gv_HVadd(pTHX_ GV* gv);
291PERL_CALLCONV GV*       Perl_gv_IOadd(pTHX_ GV* gv);
292PERL_CALLCONV GV*       Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method);
293PERL_CALLCONV void      Perl_gv_check(pTHX_ HV* stash);
294PERL_CALLCONV void      Perl_gv_efullname(pTHX_ SV* sv, GV* gv);
295PERL_CALLCONV void      Perl_gv_efullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
296PERL_CALLCONV void      Perl_gv_efullname4(pTHX_ SV* sv, GV* gv, const char* prefix, bool keepmain);
297PERL_CALLCONV GV*       Perl_gv_fetchfile(pTHX_ const char* name);
298PERL_CALLCONV GV*       Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
299PERL_CALLCONV GV*       Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
300PERL_CALLCONV GV*       Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload);
301PERL_CALLCONV GV*       Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type);
302PERL_CALLCONV void      Perl_gv_fullname(pTHX_ SV* sv, GV* gv);
303PERL_CALLCONV void      Perl_gv_fullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
304PERL_CALLCONV void      Perl_gv_fullname4(pTHX_ SV* sv, GV* gv, const char* prefix, bool keepmain);
305PERL_CALLCONV void      Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi);
306PERL_CALLCONV HV*       Perl_gv_stashpv(pTHX_ const char* name, I32 create);
307PERL_CALLCONV HV*       Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 create);
308PERL_CALLCONV HV*       Perl_gv_stashsv(pTHX_ SV* sv, I32 create);
309PERL_CALLCONV void      Perl_hv_clear(pTHX_ HV* tb);
310PERL_CALLCONV void      Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry);
311PERL_CALLCONV SV*       Perl_hv_delete(pTHX_ HV* tb, const char* key, U32 klen, I32 flags);
312PERL_CALLCONV SV*       Perl_hv_delete_ent(pTHX_ HV* tb, SV* key, I32 flags, U32 hash);
313PERL_CALLCONV bool      Perl_hv_exists(pTHX_ HV* tb, const char* key, U32 klen);
314PERL_CALLCONV bool      Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash);
315PERL_CALLCONV SV**      Perl_hv_fetch(pTHX_ HV* tb, const char* key, U32 klen, I32 lval);
316PERL_CALLCONV HE*       Perl_hv_fetch_ent(pTHX_ HV* tb, SV* key, I32 lval, U32 hash);
317PERL_CALLCONV void      Perl_hv_free_ent(pTHX_ HV* hv, HE* entry);
318PERL_CALLCONV I32       Perl_hv_iterinit(pTHX_ HV* tb);
319PERL_CALLCONV char*     Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen);
320PERL_CALLCONV SV*       Perl_hv_iterkeysv(pTHX_ HE* entry);
321PERL_CALLCONV HE*       Perl_hv_iternext(pTHX_ HV* tb);
322PERL_CALLCONV SV*       Perl_hv_iternextsv(pTHX_ HV* hv, char** key, I32* retlen);
323PERL_CALLCONV SV*       Perl_hv_iterval(pTHX_ HV* tb, HE* entry);
324PERL_CALLCONV void      Perl_hv_ksplit(pTHX_ HV* hv, IV newmax);
325PERL_CALLCONV void      Perl_hv_magic(pTHX_ HV* hv, GV* gv, int how);
326PERL_CALLCONV SV**      Perl_hv_store(pTHX_ HV* tb, const char* key, U32 klen, SV* val, U32 hash);
327PERL_CALLCONV HE*       Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
328PERL_CALLCONV void      Perl_hv_undef(pTHX_ HV* tb);
329PERL_CALLCONV I32       Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len);
330PERL_CALLCONV I32       Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len);
331PERL_CALLCONV bool      Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
332PERL_CALLCONV void      Perl_init_debugger(pTHX);
333PERL_CALLCONV void      Perl_init_stacks(pTHX);
334PERL_CALLCONV U32       Perl_intro_my(pTHX);
335PERL_CALLCONV char*     Perl_instr(pTHX_ const char* big, const char* little);
336PERL_CALLCONV bool      Perl_io_close(pTHX_ IO* io, bool not_implicit);
337PERL_CALLCONV OP*       Perl_invert(pTHX_ OP* cmd);
338PERL_CALLCONV bool      Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags);
339PERL_CALLCONV I32       Perl_is_lvalue_sub(pTHX);
340PERL_CALLCONV bool      Perl_is_uni_alnum(pTHX_ U32 c);
341PERL_CALLCONV bool      Perl_is_uni_alnumc(pTHX_ U32 c);
342PERL_CALLCONV bool      Perl_is_uni_idfirst(pTHX_ U32 c);
343PERL_CALLCONV bool      Perl_is_uni_alpha(pTHX_ U32 c);
344PERL_CALLCONV bool      Perl_is_uni_ascii(pTHX_ U32 c);
345PERL_CALLCONV bool      Perl_is_uni_space(pTHX_ U32 c);
346PERL_CALLCONV bool      Perl_is_uni_cntrl(pTHX_ U32 c);
347PERL_CALLCONV bool      Perl_is_uni_graph(pTHX_ U32 c);
348PERL_CALLCONV bool      Perl_is_uni_digit(pTHX_ U32 c);
349PERL_CALLCONV bool      Perl_is_uni_upper(pTHX_ U32 c);
350PERL_CALLCONV bool      Perl_is_uni_lower(pTHX_ U32 c);
351PERL_CALLCONV bool      Perl_is_uni_print(pTHX_ U32 c);
352PERL_CALLCONV bool      Perl_is_uni_punct(pTHX_ U32 c);
353PERL_CALLCONV bool      Perl_is_uni_xdigit(pTHX_ U32 c);
354PERL_CALLCONV U32       Perl_to_uni_upper(pTHX_ U32 c);
355PERL_CALLCONV U32       Perl_to_uni_title(pTHX_ U32 c);
356PERL_CALLCONV U32       Perl_to_uni_lower(pTHX_ U32 c);
357PERL_CALLCONV bool      Perl_is_uni_alnum_lc(pTHX_ U32 c);
358PERL_CALLCONV bool      Perl_is_uni_alnumc_lc(pTHX_ U32 c);
359PERL_CALLCONV bool      Perl_is_uni_idfirst_lc(pTHX_ U32 c);
360PERL_CALLCONV bool      Perl_is_uni_alpha_lc(pTHX_ U32 c);
361PERL_CALLCONV bool      Perl_is_uni_ascii_lc(pTHX_ U32 c);
362PERL_CALLCONV bool      Perl_is_uni_space_lc(pTHX_ U32 c);
363PERL_CALLCONV bool      Perl_is_uni_cntrl_lc(pTHX_ U32 c);
364PERL_CALLCONV bool      Perl_is_uni_graph_lc(pTHX_ U32 c);
365PERL_CALLCONV bool      Perl_is_uni_digit_lc(pTHX_ U32 c);
366PERL_CALLCONV bool      Perl_is_uni_upper_lc(pTHX_ U32 c);
367PERL_CALLCONV bool      Perl_is_uni_lower_lc(pTHX_ U32 c);
368PERL_CALLCONV bool      Perl_is_uni_print_lc(pTHX_ U32 c);
369PERL_CALLCONV bool      Perl_is_uni_punct_lc(pTHX_ U32 c);
370PERL_CALLCONV bool      Perl_is_uni_xdigit_lc(pTHX_ U32 c);
371PERL_CALLCONV U32       Perl_to_uni_upper_lc(pTHX_ U32 c);
372PERL_CALLCONV U32       Perl_to_uni_title_lc(pTHX_ U32 c);
373PERL_CALLCONV U32       Perl_to_uni_lower_lc(pTHX_ U32 c);
374PERL_CALLCONV STRLEN    Perl_is_utf8_char(pTHX_ U8 *p);
375PERL_CALLCONV bool      Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len);
376PERL_CALLCONV bool      Perl_is_utf8_alnum(pTHX_ U8 *p);
377PERL_CALLCONV bool      Perl_is_utf8_alnumc(pTHX_ U8 *p);
378PERL_CALLCONV bool      Perl_is_utf8_idfirst(pTHX_ U8 *p);
379PERL_CALLCONV bool      Perl_is_utf8_alpha(pTHX_ U8 *p);
380PERL_CALLCONV bool      Perl_is_utf8_ascii(pTHX_ U8 *p);
381PERL_CALLCONV bool      Perl_is_utf8_space(pTHX_ U8 *p);
382PERL_CALLCONV bool      Perl_is_utf8_cntrl(pTHX_ U8 *p);
383PERL_CALLCONV bool      Perl_is_utf8_digit(pTHX_ U8 *p);
384PERL_CALLCONV bool      Perl_is_utf8_graph(pTHX_ U8 *p);
385PERL_CALLCONV bool      Perl_is_utf8_upper(pTHX_ U8 *p);
386PERL_CALLCONV bool      Perl_is_utf8_lower(pTHX_ U8 *p);
387PERL_CALLCONV bool      Perl_is_utf8_print(pTHX_ U8 *p);
388PERL_CALLCONV bool      Perl_is_utf8_punct(pTHX_ U8 *p);
389PERL_CALLCONV bool      Perl_is_utf8_xdigit(pTHX_ U8 *p);
390PERL_CALLCONV bool      Perl_is_utf8_mark(pTHX_ U8 *p);
391PERL_CALLCONV OP*       Perl_jmaybe(pTHX_ OP* arg);
392PERL_CALLCONV I32       Perl_keyword(pTHX_ char* d, I32 len);
393PERL_CALLCONV void      Perl_leave_scope(pTHX_ I32 base);
394PERL_CALLCONV void      Perl_lex_end(pTHX);
395PERL_CALLCONV void      Perl_lex_start(pTHX_ SV* line);
396PERL_CALLCONV OP*       Perl_linklist(pTHX_ OP* o);
397PERL_CALLCONV OP*       Perl_list(pTHX_ OP* o);
398PERL_CALLCONV OP*       Perl_listkids(pTHX_ OP* o);
399PERL_CALLCONV void      Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...);
400PERL_CALLCONV void      Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args);
401PERL_CALLCONV OP*       Perl_localize(pTHX_ OP* arg, I32 lexical);
402PERL_CALLCONV I32       Perl_looks_like_number(pTHX_ SV* sv);
403PERL_CALLCONV int       Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
404PERL_CALLCONV int       Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
405PERL_CALLCONV int       Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
406PERL_CALLCONV int       Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
407PERL_CALLCONV int       Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg);
408PERL_CALLCONV int       Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg);
409PERL_CALLCONV int       Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
410PERL_CALLCONV int       Perl_magic_getarylen(pTHX_ SV* sv, MAGIC* mg);
411PERL_CALLCONV int       Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
412PERL_CALLCONV int       Perl_magic_getglob(pTHX_ SV* sv, MAGIC* mg);
413PERL_CALLCONV int       Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg);
414PERL_CALLCONV int       Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg);
415PERL_CALLCONV int       Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg);
416PERL_CALLCONV int       Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg);
417PERL_CALLCONV int       Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg);
418PERL_CALLCONV int       Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg);
419PERL_CALLCONV int       Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg);
420PERL_CALLCONV int       Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg);
421PERL_CALLCONV U32       Perl_magic_len(pTHX_ SV* sv, MAGIC* mg);
422#if defined(USE_THREADS)
423PERL_CALLCONV int       Perl_magic_mutexfree(pTHX_ SV* sv, MAGIC* mg);
424#endif
425PERL_CALLCONV int       Perl_magic_nextpack(pTHX_ SV* sv, MAGIC* mg, SV* key);
426PERL_CALLCONV U32       Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg);
427PERL_CALLCONV int       Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg);
428PERL_CALLCONV int       Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg);
429PERL_CALLCONV int       Perl_magic_set(pTHX_ SV* sv, MAGIC* mg);
430PERL_CALLCONV int       Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg);
431PERL_CALLCONV int       Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg);
432PERL_CALLCONV int       Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg);
433PERL_CALLCONV int       Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
434#if defined(USE_LOCALE_COLLATE)
435PERL_CALLCONV int       Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
436#endif
437PERL_CALLCONV int       Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
438PERL_CALLCONV int       Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg);
439PERL_CALLCONV int       Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg);
440PERL_CALLCONV int       Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg);
441PERL_CALLCONV int       Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg);
442PERL_CALLCONV int       Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg);
443PERL_CALLCONV int       Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg);
444PERL_CALLCONV int       Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg);
445PERL_CALLCONV int       Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg);
446PERL_CALLCONV int       Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg);
447PERL_CALLCONV int       Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg);
448PERL_CALLCONV int       Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg);
449PERL_CALLCONV int       Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg);
450PERL_CALLCONV int       Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg);
451PERL_CALLCONV int       Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg);
452PERL_CALLCONV U32       Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg);
453PERL_CALLCONV int       Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg);
454PERL_CALLCONV void      Perl_magicname(pTHX_ char* sym, char* name, I32 namlen);
455PERL_CALLCONV void      Perl_markstack_grow(pTHX);
456#if defined(USE_LOCALE_COLLATE)
457PERL_CALLCONV char*     Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
458#endif
459PERL_CALLCONV SV*       Perl_mess(pTHX_ const char* pat, ...)
460#ifdef CHECK_FORMAT
461 __attribute__((format(printf,pTHX_1,pTHX_2)))
462#endif
463;
464PERL_CALLCONV SV*       Perl_vmess(pTHX_ const char* pat, va_list* args);
465PERL_CALLCONV void      Perl_qerror(pTHX_ SV* err);
466PERL_CALLCONV int       Perl_mg_clear(pTHX_ SV* sv);
467PERL_CALLCONV int       Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen);
468PERL_CALLCONV MAGIC*    Perl_mg_find(pTHX_ SV* sv, int type);
469PERL_CALLCONV int       Perl_mg_free(pTHX_ SV* sv);
470PERL_CALLCONV int       Perl_mg_get(pTHX_ SV* sv);
471PERL_CALLCONV U32       Perl_mg_length(pTHX_ SV* sv);
472PERL_CALLCONV void      Perl_mg_magical(pTHX_ SV* sv);
473PERL_CALLCONV int       Perl_mg_set(pTHX_ SV* sv);
474PERL_CALLCONV I32       Perl_mg_size(pTHX_ SV* sv);
475PERL_CALLCONV OP*       Perl_mod(pTHX_ OP* o, I32 type);
476PERL_CALLCONV int       Perl_mode_from_discipline(pTHX_ SV* discp);
477PERL_CALLCONV char*     Perl_moreswitches(pTHX_ char* s);
478PERL_CALLCONV OP*       Perl_my(pTHX_ OP* o);
479PERL_CALLCONV NV        Perl_my_atof(pTHX_ const char *s);
480#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
481PERL_CALLCONV char*     Perl_my_bcopy(const char* from, char* to, I32 len);
482#endif
483#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
484PERL_CALLCONV char*     Perl_my_bzero(char* loc, I32 len);
485#endif
486PERL_CALLCONV void      Perl_my_exit(pTHX_ U32 status) __attribute__((noreturn));
487PERL_CALLCONV void      Perl_my_failure_exit(pTHX) __attribute__((noreturn));
488PERL_CALLCONV I32       Perl_my_fflush_all(pTHX);
489PERL_CALLCONV I32       Perl_my_lstat(pTHX);
490#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
491PERL_CALLCONV I32       Perl_my_memcmp(const char* s1, const char* s2, I32 len);
492#endif
493#if !defined(HAS_MEMSET)
494PERL_CALLCONV void*     Perl_my_memset(char* loc, I32 ch, I32 len);
495#endif
496#if !defined(PERL_OBJECT)
497PERL_CALLCONV I32       Perl_my_pclose(pTHX_ PerlIO* ptr);
498PERL_CALLCONV PerlIO*   Perl_my_popen(pTHX_ char* cmd, char* mode);
499#endif
500PERL_CALLCONV void      Perl_my_setenv(pTHX_ char* nam, char* val);
501PERL_CALLCONV I32       Perl_my_stat(pTHX);
502#if defined(MYSWAP)
503PERL_CALLCONV short     Perl_my_swap(pTHX_ short s);
504PERL_CALLCONV long      Perl_my_htonl(pTHX_ long l);
505PERL_CALLCONV long      Perl_my_ntohl(pTHX_ long l);
506#endif
507PERL_CALLCONV void      Perl_my_unexec(pTHX);
508PERL_CALLCONV OP*       Perl_newANONLIST(pTHX_ OP* o);
509PERL_CALLCONV OP*       Perl_newANONHASH(pTHX_ OP* o);
510PERL_CALLCONV OP*       Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
511PERL_CALLCONV OP*       Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right);
512PERL_CALLCONV OP*       Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop);
513PERL_CALLCONV void      Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv);
514PERL_CALLCONV void      Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
515PERL_CALLCONV OP*       Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont);
516PERL_CALLCONV OP*       Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right);
517PERL_CALLCONV OP*       Perl_newLOOPEX(pTHX_ I32 type, OP* label);
518PERL_CALLCONV OP*       Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block);
519PERL_CALLCONV OP*       Perl_newNULLLIST(pTHX);
520PERL_CALLCONV OP*       Perl_newOP(pTHX_ I32 optype, I32 flags);
521PERL_CALLCONV void      Perl_newPROG(pTHX_ OP* o);
522PERL_CALLCONV OP*       Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right);
523PERL_CALLCONV OP*       Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop);
524PERL_CALLCONV OP*       Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o);
525PERL_CALLCONV CV*       Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
526PERL_CALLCONV CV*       Perl_newXS(pTHX_ char* name, XSUBADDR_t f, char* filename);
527PERL_CALLCONV AV*       Perl_newAV(pTHX);
528PERL_CALLCONV OP*       Perl_newAVREF(pTHX_ OP* o);
529PERL_CALLCONV OP*       Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
530PERL_CALLCONV OP*       Perl_newCVREF(pTHX_ I32 flags, OP* o);
531PERL_CALLCONV OP*       Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv);
532PERL_CALLCONV GV*       Perl_newGVgen(pTHX_ char* pack);
533PERL_CALLCONV OP*       Perl_newGVREF(pTHX_ I32 type, OP* o);
534PERL_CALLCONV OP*       Perl_newHVREF(pTHX_ OP* o);
535PERL_CALLCONV HV*       Perl_newHV(pTHX);
536PERL_CALLCONV HV*       Perl_newHVhv(pTHX_ HV* hv);
537PERL_CALLCONV IO*       Perl_newIO(pTHX);
538PERL_CALLCONV OP*       Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
539PERL_CALLCONV OP*       Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv);
540PERL_CALLCONV OP*       Perl_newPMOP(pTHX_ I32 type, I32 flags);
541PERL_CALLCONV OP*       Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv);
542PERL_CALLCONV SV*       Perl_newRV(pTHX_ SV* pref);
543PERL_CALLCONV SV*       Perl_newRV_noinc(pTHX_ SV *sv);
544PERL_CALLCONV SV*       Perl_newSV(pTHX_ STRLEN len);
545PERL_CALLCONV OP*       Perl_newSVREF(pTHX_ OP* o);
546PERL_CALLCONV OP*       Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv);
547PERL_CALLCONV SV*       Perl_newSViv(pTHX_ IV i);
548PERL_CALLCONV SV*       Perl_newSVuv(pTHX_ UV u);
549PERL_CALLCONV SV*       Perl_newSVnv(pTHX_ NV n);
550PERL_CALLCONV SV*       Perl_newSVpv(pTHX_ const char* s, STRLEN len);
551PERL_CALLCONV SV*       Perl_newSVpvn(pTHX_ const char* s, STRLEN len);
552PERL_CALLCONV SV*       Perl_newSVpvf(pTHX_ const char* pat, ...)
553#ifdef CHECK_FORMAT
554 __attribute__((format(printf,pTHX_1,pTHX_2)))
555#endif
556;
557PERL_CALLCONV SV*       Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args);
558PERL_CALLCONV SV*       Perl_newSVrv(pTHX_ SV* rv, const char* classname);
559PERL_CALLCONV SV*       Perl_newSVsv(pTHX_ SV* old);
560PERL_CALLCONV OP*       Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
561PERL_CALLCONV OP*       Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);
562
563PERL_CALLCONV PERL_SI*  Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
564PERL_CALLCONV PerlIO*   Perl_nextargv(pTHX_ GV* gv);
565PERL_CALLCONV char*     Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
566PERL_CALLCONV OP*       Perl_oopsCV(pTHX_ OP* o);
567PERL_CALLCONV void      Perl_op_free(pTHX_ OP* arg);
568PERL_CALLCONV void      Perl_package(pTHX_ OP* o);
569PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
570PERL_CALLCONV PADOFFSET Perl_pad_allocmy(pTHX_ char* name);
571PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ char* name);
572PERL_CALLCONV OP*       Perl_oopsAV(pTHX_ OP* o);
573PERL_CALLCONV OP*       Perl_oopsHV(pTHX_ OP* o);
574PERL_CALLCONV void      Perl_pad_leavemy(pTHX_ I32 fill);
575PERL_CALLCONV SV*       Perl_pad_sv(pTHX_ PADOFFSET po);
576PERL_CALLCONV void      Perl_pad_free(pTHX_ PADOFFSET po);
577PERL_CALLCONV void      Perl_pad_reset(pTHX);
578PERL_CALLCONV void      Perl_pad_swipe(pTHX_ PADOFFSET po);
579PERL_CALLCONV void      Perl_peep(pTHX_ OP* o);
580#if defined(PERL_OBJECT)
581PERL_CALLCONV void      Perl_construct(pTHX);
582PERL_CALLCONV void      Perl_destruct(pTHX);
583PERL_CALLCONV void      Perl_free(pTHX);
584PERL_CALLCONV int       Perl_run(pTHX);
585PERL_CALLCONV int       Perl_parse(pTHX_ XSINIT_t xsinit, int argc, char** argv, char** env);
586#endif
587#if defined(USE_THREADS)
588PERL_CALLCONV struct perl_thread*       Perl_new_struct_thread(pTHX_ struct perl_thread *t);
589#endif
590PERL_CALLCONV void      Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
591PERL_CALLCONV I32       Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv);
592PERL_CALLCONV I32       Perl_call_method(pTHX_ const char* methname, I32 flags);
593PERL_CALLCONV I32       Perl_call_pv(pTHX_ const char* sub_name, I32 flags);
594PERL_CALLCONV I32       Perl_call_sv(pTHX_ SV* sv, I32 flags);
595PERL_CALLCONV SV*       Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error);
596PERL_CALLCONV I32       Perl_eval_sv(pTHX_ SV* sv, I32 flags);
597PERL_CALLCONV SV*       Perl_get_sv(pTHX_ const char* name, I32 create);
598PERL_CALLCONV AV*       Perl_get_av(pTHX_ const char* name, I32 create);
599PERL_CALLCONV HV*       Perl_get_hv(pTHX_ const char* name, I32 create);
600PERL_CALLCONV CV*       Perl_get_cv(pTHX_ const char* name, I32 create);
601PERL_CALLCONV int       Perl_init_i18nl10n(pTHX_ int printwarn);
602PERL_CALLCONV int       Perl_init_i18nl14n(pTHX_ int printwarn);
603PERL_CALLCONV void      Perl_new_collate(pTHX_ char* newcoll);
604PERL_CALLCONV void      Perl_new_ctype(pTHX_ char* newctype);
605PERL_CALLCONV void      Perl_new_numeric(pTHX_ char* newcoll);
606PERL_CALLCONV void      Perl_set_numeric_local(pTHX);
607PERL_CALLCONV void      Perl_set_numeric_radix(pTHX);
608PERL_CALLCONV void      Perl_set_numeric_standard(pTHX);
609PERL_CALLCONV void      Perl_require_pv(pTHX_ const char* pv);
610PERL_CALLCONV void      Perl_pidgone(pTHX_ Pid_t pid, int status);
611PERL_CALLCONV void      Perl_pmflag(pTHX_ U16* pmfl, int ch);
612PERL_CALLCONV OP*       Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
613PERL_CALLCONV OP*       Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
614PERL_CALLCONV OP*       Perl_pop_return(pTHX);
615PERL_CALLCONV void      Perl_pop_scope(pTHX);
616PERL_CALLCONV OP*       Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
617PERL_CALLCONV void      Perl_push_return(pTHX_ OP* o);
618PERL_CALLCONV void      Perl_push_scope(pTHX);
619PERL_CALLCONV OP*       Perl_ref(pTHX_ OP* o, I32 type);
620PERL_CALLCONV OP*       Perl_refkids(pTHX_ OP* o, I32 type);
621PERL_CALLCONV void      Perl_regdump(pTHX_ regexp* r);
622PERL_CALLCONV I32       Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
623PERL_CALLCONV void      Perl_pregfree(pTHX_ struct regexp* r);
624PERL_CALLCONV regexp*   Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm);
625PERL_CALLCONV char*     Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
626PERL_CALLCONV SV*       Perl_re_intuit_string(pTHX_ regexp* prog);
627PERL_CALLCONV I32       Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
628PERL_CALLCONV regnode*  Perl_regnext(pTHX_ regnode* p);
629PERL_CALLCONV void      Perl_regprop(pTHX_ SV* sv, regnode* o);
630PERL_CALLCONV void      Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count);
631PERL_CALLCONV char*     Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
632PERL_CALLCONV Sighandler_t      Perl_rsignal(pTHX_ int i, Sighandler_t t);
633PERL_CALLCONV int       Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
634PERL_CALLCONV int       Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2);
635PERL_CALLCONV Sighandler_t      Perl_rsignal_state(pTHX_ int i);
636PERL_CALLCONV void      Perl_rxres_free(pTHX_ void** rsp);
637PERL_CALLCONV void      Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx);
638PERL_CALLCONV void      Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx);
639#if !defined(HAS_RENAME)
640PERL_CALLCONV I32       Perl_same_dirent(pTHX_ char* a, char* b);
641#endif
642PERL_CALLCONV char*     Perl_savepv(pTHX_ const char* sv);
643PERL_CALLCONV char*     Perl_savepvn(pTHX_ const char* sv, I32 len);
644PERL_CALLCONV void      Perl_savestack_grow(pTHX);
645PERL_CALLCONV void      Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr);
646PERL_CALLCONV I32       Perl_save_alloc(pTHX_ I32 size, I32 pad);
647PERL_CALLCONV void      Perl_save_aptr(pTHX_ AV** aptr);
648PERL_CALLCONV AV*       Perl_save_ary(pTHX_ GV* gv);
649PERL_CALLCONV void      Perl_save_clearsv(pTHX_ SV** svp);
650PERL_CALLCONV void      Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen);
651PERL_CALLCONV void      Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
652PERL_CALLCONV void      Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
653PERL_CALLCONV void      Perl_save_freesv(pTHX_ SV* sv);
654PERL_CALLCONV void      Perl_save_freeop(pTHX_ OP* o);
655PERL_CALLCONV void      Perl_save_freepv(pTHX_ char* pv);
656PERL_CALLCONV void      Perl_save_generic_svref(pTHX_ SV** sptr);
657PERL_CALLCONV void      Perl_save_generic_pvref(pTHX_ char** str);
658PERL_CALLCONV void      Perl_save_gp(pTHX_ GV* gv, I32 empty);
659PERL_CALLCONV HV*       Perl_save_hash(pTHX_ GV* gv);
660PERL_CALLCONV void      Perl_save_helem(pTHX_ HV* hv, SV *key, SV **sptr);
661PERL_CALLCONV void      Perl_save_hints(pTHX);
662PERL_CALLCONV void      Perl_save_hptr(pTHX_ HV** hptr);
663PERL_CALLCONV void      Perl_save_I16(pTHX_ I16* intp);
664PERL_CALLCONV void      Perl_save_I32(pTHX_ I32* intp);
665PERL_CALLCONV void      Perl_save_I8(pTHX_ I8* bytep);
666PERL_CALLCONV void      Perl_save_int(pTHX_ int* intp);
667PERL_CALLCONV void      Perl_save_item(pTHX_ SV* item);
668PERL_CALLCONV void      Perl_save_iv(pTHX_ IV* iv);
669PERL_CALLCONV void      Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
670PERL_CALLCONV void      Perl_save_long(pTHX_ long* longp);
671PERL_CALLCONV void      Perl_save_mortalizesv(pTHX_ SV* sv);
672PERL_CALLCONV void      Perl_save_nogv(pTHX_ GV* gv);
673PERL_CALLCONV void      Perl_save_op(pTHX);
674PERL_CALLCONV SV*       Perl_save_scalar(pTHX_ GV* gv);
675PERL_CALLCONV void      Perl_save_pptr(pTHX_ char** pptr);
676PERL_CALLCONV void      Perl_save_vptr(pTHX_ void* pptr);
677PERL_CALLCONV void      Perl_save_re_context(pTHX);
678PERL_CALLCONV void      Perl_save_padsv(pTHX_ PADOFFSET off);
679PERL_CALLCONV void      Perl_save_sptr(pTHX_ SV** sptr);
680PERL_CALLCONV SV*       Perl_save_svref(pTHX_ SV** sptr);
681PERL_CALLCONV SV**      Perl_save_threadsv(pTHX_ PADOFFSET i);
682PERL_CALLCONV OP*       Perl_sawparens(pTHX_ OP* o);
683PERL_CALLCONV OP*       Perl_scalar(pTHX_ OP* o);
684PERL_CALLCONV OP*       Perl_scalarkids(pTHX_ OP* o);
685PERL_CALLCONV OP*       Perl_scalarseq(pTHX_ OP* o);
686PERL_CALLCONV OP*       Perl_scalarvoid(pTHX_ OP* o);
687PERL_CALLCONV NV        Perl_scan_bin(pTHX_ char* start, STRLEN len, STRLEN* retlen);
688PERL_CALLCONV NV        Perl_scan_hex(pTHX_ char* start, STRLEN len, STRLEN* retlen);
689PERL_CALLCONV char*     Perl_scan_num(pTHX_ char* s, YYSTYPE *lvalp);
690PERL_CALLCONV NV        Perl_scan_oct(pTHX_ char* start, STRLEN len, STRLEN* retlen);
691PERL_CALLCONV OP*       Perl_scope(pTHX_ OP* o);
692PERL_CALLCONV char*     Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);
693#if !defined(VMS)
694PERL_CALLCONV I32       Perl_setenv_getix(pTHX_ char* nam);
695#endif
696PERL_CALLCONV void      Perl_setdefout(pTHX_ GV* gv);
697PERL_CALLCONV char*     Perl_sharepvn(pTHX_ const char* sv, I32 len, U32 hash);
698PERL_CALLCONV HEK*      Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
699PERL_CALLCONV Signal_t  Perl_sighandler(int sig);
700PERL_CALLCONV SV**      Perl_stack_grow(pTHX_ SV** sp, SV**p, int n);
701PERL_CALLCONV I32       Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
702PERL_CALLCONV void      Perl_sub_crush_depth(pTHX_ CV* cv);
703PERL_CALLCONV bool      Perl_sv_2bool(pTHX_ SV* sv);
704PERL_CALLCONV CV*       Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref);
705PERL_CALLCONV IO*       Perl_sv_2io(pTHX_ SV* sv);
706PERL_CALLCONV IV        Perl_sv_2iv(pTHX_ SV* sv);
707PERL_CALLCONV SV*       Perl_sv_2mortal(pTHX_ SV* sv);
708PERL_CALLCONV NV        Perl_sv_2nv(pTHX_ SV* sv);
709PERL_CALLCONV char*     Perl_sv_2pv(pTHX_ SV* sv, STRLEN* lp);
710PERL_CALLCONV char*     Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp);
711PERL_CALLCONV char*     Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp);
712PERL_CALLCONV UV        Perl_sv_2uv(pTHX_ SV* sv);
713PERL_CALLCONV IV        Perl_sv_iv(pTHX_ SV* sv);
714PERL_CALLCONV UV        Perl_sv_uv(pTHX_ SV* sv);
715PERL_CALLCONV NV        Perl_sv_nv(pTHX_ SV* sv);
716PERL_CALLCONV char*     Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len);
717PERL_CALLCONV char*     Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *len);
718PERL_CALLCONV char*     Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len);
719PERL_CALLCONV I32       Perl_sv_true(pTHX_ SV *sv);
720PERL_CALLCONV void      Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags);
721PERL_CALLCONV int       Perl_sv_backoff(pTHX_ SV* sv);
722PERL_CALLCONV SV*       Perl_sv_bless(pTHX_ SV* sv, HV* stash);
723PERL_CALLCONV void      Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...)
724#ifdef CHECK_FORMAT
725 __attribute__((format(printf,pTHX_2,pTHX_3)))
726#endif
727;
728PERL_CALLCONV void      Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args);
729PERL_CALLCONV void      Perl_sv_catpv(pTHX_ SV* sv, const char* ptr);
730PERL_CALLCONV void      Perl_sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
731PERL_CALLCONV void      Perl_sv_catsv(pTHX_ SV* dsv, SV* ssv);
732PERL_CALLCONV void      Perl_sv_chop(pTHX_ SV* sv, char* ptr);
733PERL_CALLCONV I32       Perl_sv_clean_all(pTHX);
734PERL_CALLCONV void      Perl_sv_clean_objs(pTHX);
735PERL_CALLCONV void      Perl_sv_clear(pTHX_ SV* sv);
736PERL_CALLCONV I32       Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2);
737PERL_CALLCONV I32       Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
738#if defined(USE_LOCALE_COLLATE)
739PERL_CALLCONV char*     Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp);
740#endif
741PERL_CALLCONV OP*       Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, char* code, AV** avp);
742PERL_CALLCONV void      Perl_sv_dec(pTHX_ SV* sv);
743PERL_CALLCONV void      Perl_sv_dump(pTHX_ SV* sv);
744PERL_CALLCONV bool      Perl_sv_derived_from(pTHX_ SV* sv, const char* name);
745PERL_CALLCONV I32       Perl_sv_eq(pTHX_ SV* sv1, SV* sv2);
746PERL_CALLCONV void      Perl_sv_free(pTHX_ SV* sv);
747PERL_CALLCONV void      Perl_sv_free_arenas(pTHX);
748PERL_CALLCONV char*     Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append);
749PERL_CALLCONV char*     Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen);
750PERL_CALLCONV void      Perl_sv_inc(pTHX_ SV* sv);
751PERL_CALLCONV void      Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
752PERL_CALLCONV int       Perl_sv_isa(pTHX_ SV* sv, const char* name);
753PERL_CALLCONV int       Perl_sv_isobject(pTHX_ SV* sv);
754PERL_CALLCONV STRLEN    Perl_sv_len(pTHX_ SV* sv);
755PERL_CALLCONV STRLEN    Perl_sv_len_utf8(pTHX_ SV* sv);
756PERL_CALLCONV void      Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen);
757PERL_CALLCONV SV*       Perl_sv_mortalcopy(pTHX_ SV* oldsv);
758PERL_CALLCONV SV*       Perl_sv_newmortal(pTHX);
759PERL_CALLCONV SV*       Perl_sv_newref(pTHX_ SV* sv);
760PERL_CALLCONV char*     Perl_sv_peek(pTHX_ SV* sv);
761PERL_CALLCONV void      Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp);
762PERL_CALLCONV void      Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp);
763PERL_CALLCONV char*     Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp);
764PERL_CALLCONV char*     Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp);
765PERL_CALLCONV char*     Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp);
766PERL_CALLCONV char*     Perl_sv_reftype(pTHX_ SV* sv, int ob);
767PERL_CALLCONV void      Perl_sv_replace(pTHX_ SV* sv, SV* nsv);
768PERL_CALLCONV void      Perl_sv_report_used(pTHX);
769PERL_CALLCONV void      Perl_sv_reset(pTHX_ char* s, HV* stash);
770PERL_CALLCONV void      Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...)
771#ifdef CHECK_FORMAT
772 __attribute__((format(printf,pTHX_2,pTHX_3)))
773#endif
774;
775PERL_CALLCONV void      Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args);
776PERL_CALLCONV void      Perl_sv_setiv(pTHX_ SV* sv, IV num);
777PERL_CALLCONV void      Perl_sv_setpviv(pTHX_ SV* sv, IV num);
778PERL_CALLCONV void      Perl_sv_setuv(pTHX_ SV* sv, UV num);
779PERL_CALLCONV void      Perl_sv_setnv(pTHX_ SV* sv, NV num);
780PERL_CALLCONV SV*       Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv);
781PERL_CALLCONV SV*       Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv);
782PERL_CALLCONV SV*       Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv);
783PERL_CALLCONV SV*       Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n);
784PERL_CALLCONV void      Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
785PERL_CALLCONV void      Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
786PERL_CALLCONV void      Perl_sv_setsv(pTHX_ SV* dsv, SV* ssv);
787PERL_CALLCONV void      Perl_sv_taint(pTHX_ SV* sv);
788PERL_CALLCONV bool      Perl_sv_tainted(pTHX_ SV* sv);
789PERL_CALLCONV int       Perl_sv_unmagic(pTHX_ SV* sv, int type);
790PERL_CALLCONV void      Perl_sv_unref(pTHX_ SV* sv);
791PERL_CALLCONV void      Perl_sv_untaint(pTHX_ SV* sv);
792PERL_CALLCONV bool      Perl_sv_upgrade(pTHX_ SV* sv, U32 mt);
793PERL_CALLCONV void      Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len);
794PERL_CALLCONV void      Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
795PERL_CALLCONV void      Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
796PERL_CALLCONV NV        Perl_str_to_version(pTHX_ SV *sv);
797PERL_CALLCONV SV*       Perl_swash_init(pTHX_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
798PERL_CALLCONV UV        Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr);
799PERL_CALLCONV void      Perl_taint_env(pTHX);
800PERL_CALLCONV void      Perl_taint_proper(pTHX_ const char* f, const char* s);
801PERL_CALLCONV UV        Perl_to_utf8_lower(pTHX_ U8 *p);
802PERL_CALLCONV UV        Perl_to_utf8_upper(pTHX_ U8 *p);
803PERL_CALLCONV UV        Perl_to_utf8_title(pTHX_ U8 *p);
804#if defined(UNLINK_ALL_VERSIONS)
805PERL_CALLCONV I32       Perl_unlnk(pTHX_ char* f);
806#endif
807#if defined(USE_THREADS)
808PERL_CALLCONV void      Perl_unlock_condpair(pTHX_ void* svv);
809#endif
810PERL_CALLCONV void      Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
811PERL_CALLCONV void      Perl_unshare_hek(pTHX_ HEK* hek);
812PERL_CALLCONV void      Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* id, OP* arg);
813PERL_CALLCONV U8*       Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
814PERL_CALLCONV U8*       Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
815PERL_CALLCONV STRLEN    Perl_utf8_length(pTHX_ U8* s, U8 *e);
816PERL_CALLCONV IV        Perl_utf8_distance(pTHX_ U8 *a, U8 *b);
817PERL_CALLCONV U8*       Perl_utf8_hop(pTHX_ U8 *s, I32 off);
818PERL_CALLCONV U8*       Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len);
819PERL_CALLCONV U8*       Perl_bytes_from_utf8(pTHX_ U8 *s, STRLEN *len, bool *is_utf8);
820PERL_CALLCONV U8*       Perl_bytes_to_utf8(pTHX_ U8 *s, STRLEN *len);
821PERL_CALLCONV UV        Perl_utf8_to_uv_simple(pTHX_ U8 *s, STRLEN* retlen);
822PERL_CALLCONV UV        Perl_utf8_to_uv(pTHX_ U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
823PERL_CALLCONV U8*       Perl_uv_to_utf8(pTHX_ U8 *d, UV uv);
824PERL_CALLCONV void      Perl_vivify_defelem(pTHX_ SV* sv);
825PERL_CALLCONV void      Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
826PERL_CALLCONV I32       Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
827PERL_CALLCONV void      Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op);
828PERL_CALLCONV void      Perl_report_uninit(pTHX);
829PERL_CALLCONV void      Perl_warn(pTHX_ const char* pat, ...)
830#ifdef CHECK_FORMAT
831 __attribute__((format(printf,pTHX_1,pTHX_2)))
832#endif
833;
834PERL_CALLCONV void      Perl_vwarn(pTHX_ const char* pat, va_list* args);
835PERL_CALLCONV void      Perl_warner(pTHX_ U32 err, const char* pat, ...)
836#ifdef CHECK_FORMAT
837 __attribute__((format(printf,pTHX_2,pTHX_3)))
838#endif
839;
840PERL_CALLCONV void      Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
841PERL_CALLCONV void      Perl_watch(pTHX_ char** addr);
842PERL_CALLCONV I32       Perl_whichsig(pTHX_ char* sig);
843PERL_CALLCONV int       Perl_yyerror(pTHX_ char* s);
844#ifdef USE_PURE_BISON
845PERL_CALLCONV int       Perl_yylex_r(pTHX_ YYSTYPE *lvalp, int *lcharp);
846#endif
847PERL_CALLCONV int       Perl_yylex(pTHX);
848PERL_CALLCONV int       Perl_yyparse(pTHX);
849PERL_CALLCONV int       Perl_yywarn(pTHX_ char* s);
850#if defined(MYMALLOC)
851PERL_CALLCONV void      Perl_dump_mstats(pTHX_ char* s);
852PERL_CALLCONV int       Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level);
853#endif
854PERL_CALLCONV Malloc_t  Perl_safesysmalloc(MEM_SIZE nbytes);
855PERL_CALLCONV Malloc_t  Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size);
856PERL_CALLCONV Malloc_t  Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes);
857PERL_CALLCONV Free_t    Perl_safesysfree(Malloc_t where);
858#if defined(LEAKTEST)
859PERL_CALLCONV Malloc_t  Perl_safexmalloc(I32 x, MEM_SIZE size);
860PERL_CALLCONV Malloc_t  Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size);
861PERL_CALLCONV Malloc_t  Perl_safexrealloc(Malloc_t where, MEM_SIZE size);
862PERL_CALLCONV void      Perl_safexfree(Malloc_t where);
863#endif
864#if defined(PERL_GLOBAL_STRUCT)
865PERL_CALLCONV struct perl_vars *        Perl_GetVars(pTHX);
866#endif
867PERL_CALLCONV int       Perl_runops_standard(pTHX);
868PERL_CALLCONV int       Perl_runops_debug(pTHX);
869#if defined(USE_THREADS)
870PERL_CALLCONV SV*       Perl_sv_lock(pTHX_ SV *sv);
871#endif
872PERL_CALLCONV void      Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...)
873#ifdef CHECK_FORMAT
874 __attribute__((format(printf,pTHX_2,pTHX_3)))
875#endif
876;
877PERL_CALLCONV void      Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
878PERL_CALLCONV void      Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr);
879PERL_CALLCONV void      Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
880PERL_CALLCONV void      Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr);
881PERL_CALLCONV void      Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...)
882#ifdef CHECK_FORMAT
883 __attribute__((format(printf,pTHX_2,pTHX_3)))
884#endif
885;
886PERL_CALLCONV void      Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
887PERL_CALLCONV void      Perl_sv_setiv_mg(pTHX_ SV *sv, IV i);
888PERL_CALLCONV void      Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv);
889PERL_CALLCONV void      Perl_sv_setuv_mg(pTHX_ SV *sv, UV u);
890PERL_CALLCONV void      Perl_sv_setnv_mg(pTHX_ SV *sv, NV num);
891PERL_CALLCONV void      Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr);
892PERL_CALLCONV void      Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
893PERL_CALLCONV void      Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr);
894PERL_CALLCONV void      Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
895PERL_CALLCONV MGVTBL*   Perl_get_vtbl(pTHX_ int vtbl_id);
896PERL_CALLCONV char*     Perl_pv_display(pTHX_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
897PERL_CALLCONV void      Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
898#ifdef CHECK_FORMAT
899 __attribute__((format(printf,pTHX_3,pTHX_4)))
900#endif
901;
902PERL_CALLCONV void      Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args);
903PERL_CALLCONV void      Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
904PERL_CALLCONV void      Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
905PERL_CALLCONV void      Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv);
906PERL_CALLCONV void      Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
907PERL_CALLCONV void      Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o);
908PERL_CALLCONV void      Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm);
909PERL_CALLCONV void      Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
910PERL_CALLCONV void      Perl_magic_dump(pTHX_ MAGIC *mg);
911#if defined(PERL_FLEXIBLE_EXCEPTIONS)
912PERL_CALLCONV void*     Perl_default_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, ...);
913PERL_CALLCONV void*     Perl_vdefault_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args);
914#endif
915PERL_CALLCONV void      Perl_reginitcolors(pTHX);
916PERL_CALLCONV char*     Perl_sv_2pv_nolen(pTHX_ SV* sv);
917PERL_CALLCONV char*     Perl_sv_2pvutf8_nolen(pTHX_ SV* sv);
918PERL_CALLCONV char*     Perl_sv_2pvbyte_nolen(pTHX_ SV* sv);
919PERL_CALLCONV char*     Perl_sv_pv(pTHX_ SV *sv);
920PERL_CALLCONV char*     Perl_sv_pvutf8(pTHX_ SV *sv);
921PERL_CALLCONV char*     Perl_sv_pvbyte(pTHX_ SV *sv);
922PERL_CALLCONV void      Perl_sv_utf8_upgrade(pTHX_ SV *sv);
923PERL_CALLCONV bool      Perl_sv_utf8_downgrade(pTHX_ SV *sv, bool fail_ok);
924PERL_CALLCONV void      Perl_sv_utf8_encode(pTHX_ SV *sv);
925PERL_CALLCONV bool      Perl_sv_utf8_decode(pTHX_ SV *sv);
926PERL_CALLCONV void      Perl_sv_force_normal(pTHX_ SV *sv);
927PERL_CALLCONV void      Perl_sv_add_backref(pTHX_ SV *tsv, SV *sv);
928PERL_CALLCONV void      Perl_sv_del_backref(pTHX_ SV *sv);
929PERL_CALLCONV void      Perl_tmps_grow(pTHX_ I32 n);
930PERL_CALLCONV SV*       Perl_sv_rvweaken(pTHX_ SV *sv);
931PERL_CALLCONV int       Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg);
932PERL_CALLCONV OP*       Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
933PERL_CALLCONV CV*       Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
934PERL_CALLCONV void      Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
935PERL_CALLCONV OP *      Perl_my_attrs(pTHX_ OP *o, OP *attrs);
936PERL_CALLCONV void      Perl_boot_core_xsutils(pTHX);
937#if defined(USE_ITHREADS)
938PERL_CALLCONV PERL_CONTEXT*     Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max);
939PERL_CALLCONV PERL_SI*  Perl_si_dup(pTHX_ PERL_SI* si);
940PERL_CALLCONV ANY*      Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl);
941PERL_CALLCONV void*     Perl_any_dup(pTHX_ void* v, PerlInterpreter* proto_perl);
942PERL_CALLCONV HE*       Perl_he_dup(pTHX_ HE* e, bool shared);
943PERL_CALLCONV REGEXP*   Perl_re_dup(pTHX_ REGEXP* r);
944PERL_CALLCONV PerlIO*   Perl_fp_dup(pTHX_ PerlIO* fp, char type);
945PERL_CALLCONV DIR*      Perl_dirp_dup(pTHX_ DIR* dp);
946PERL_CALLCONV GP*       Perl_gp_dup(pTHX_ GP* gp);
947PERL_CALLCONV MAGIC*    Perl_mg_dup(pTHX_ MAGIC* mg);
948PERL_CALLCONV SV*       Perl_sv_dup(pTHX_ SV* sstr);
949#if defined(HAVE_INTERP_INTERN)
950PERL_CALLCONV void      Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst);
951#endif
952PERL_CALLCONV PTR_TBL_t*        Perl_ptr_table_new(pTHX);
953PERL_CALLCONV void*     Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv);
954PERL_CALLCONV void      Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv);
955PERL_CALLCONV void      Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl);
956PERL_CALLCONV void      Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl);
957PERL_CALLCONV void      Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl);
958#endif
959#if defined(HAVE_INTERP_INTERN)
960PERL_CALLCONV void      Perl_sys_intern_clear(pTHX);
961PERL_CALLCONV void      Perl_sys_intern_init(pTHX);
962#endif
963
964#if defined(PERL_OBJECT)
965protected:
966#else
967END_EXTERN_C
968#endif
969
970#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
971STATIC I32      S_avhv_index_sv(pTHX_ SV* sv);
972STATIC I32      S_avhv_index(pTHX_ AV* av, SV* sv, U32 hash);
973#endif
974
975#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
976STATIC I32      S_do_trans_simple(pTHX_ SV *sv);
977STATIC I32      S_do_trans_count(pTHX_ SV *sv);
978STATIC I32      S_do_trans_complex(pTHX_ SV *sv);
979STATIC I32      S_do_trans_simple_utf8(pTHX_ SV *sv);
980STATIC I32      S_do_trans_count_utf8(pTHX_ SV *sv);
981STATIC I32      S_do_trans_complex_utf8(pTHX_ SV *sv);
982#endif
983
984#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
985STATIC void     S_gv_init_sv(pTHX_ GV *gv, I32 sv_type);
986#endif
987
988#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
989STATIC void     S_hsplit(pTHX_ HV *hv);
990STATIC void     S_hfreeentries(pTHX_ HV *hv);
991STATIC void     S_more_he(pTHX);
992STATIC HE*      S_new_he(pTHX);
993STATIC void     S_del_he(pTHX_ HE *p);
994STATIC HEK*     S_save_hek(pTHX_ const char *str, I32 len, U32 hash);
995STATIC void     S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store);
996#endif
997
998#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
999STATIC void     S_save_magic(pTHX_ I32 mgs_ix, SV *sv);
1000STATIC int      S_magic_methpack(pTHX_ SV *sv, MAGIC *mg, char *meth);
1001STATIC int      S_magic_methcall(pTHX_ SV *sv, MAGIC *mg, char *meth, I32 f, int n, SV *val);
1002#endif
1003
1004#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
1005STATIC I32      S_list_assignment(pTHX_ OP *o);
1006STATIC void     S_bad_type(pTHX_ I32 n, char *t, char *name, OP *kid);
1007STATIC void     S_cop_free(pTHX_ COP *cop);
1008STATIC OP*      S_modkids(pTHX_ OP *o, I32 type);
1009STATIC void     S_no_bareword_allowed(pTHX_ OP *o);
1010STATIC OP*      S_no_fh_allowed(pTHX_ OP *o);
1011STATIC OP*      S_scalarboolean(pTHX_ OP *o);
1012STATIC OP*      S_too_few_arguments(pTHX_ OP *o, char* name);
1013STATIC OP*      S_too_many_arguments(pTHX_ OP *o, char* name);
1014STATIC U8*      S_trlist_upgrade(pTHX_ U8** sp, U8** ep);
1015STATIC void     S_op_clear(pTHX_ OP* o);
1016STATIC void     S_null(pTHX_ OP* o);
1017STATIC PADOFFSET        S_pad_addlex(pTHX_ SV* name);
1018STATIC PADOFFSET        S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, U32 seq, CV* startcv, I32 cx_ix, I32 saweval, U32 flags);
1019STATIC OP*      S_newDEFSVOP(pTHX);
1020STATIC OP*      S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp);
1021STATIC void     S_simplify_sort(pTHX_ OP *o);
1022STATIC bool     S_is_handle_constructor(pTHX_ OP *o, I32 argnum);
1023STATIC char*    S_gv_ename(pTHX_ GV *gv);
1024STATIC void     S_cv_dump(pTHX_ CV *cv);
1025STATIC CV*      S_cv_clone2(pTHX_ CV *proto, CV *outside);
1026STATIC bool     S_scalar_mod_type(pTHX_ OP *o, I32 type);
1027STATIC OP *     S_my_kid(pTHX_ OP *o, OP *attrs);
1028STATIC OP *     S_dup_attrlist(pTHX_ OP *o);
1029STATIC void     S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs);
1030#  if defined(PL_OP_SLAB_ALLOC)
1031STATIC void*    S_Slab_Alloc(pTHX_ int m, size_t sz);
1032#  endif
1033#endif
1034
1035#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
1036STATIC void     S_find_beginning(pTHX);
1037STATIC void     S_forbid_setid(pTHX_ char *);
1038STATIC void     S_incpush(pTHX_ char *, int, int);
1039STATIC void     S_init_interp(pTHX);
1040STATIC void     S_init_ids(pTHX);
1041STATIC void     S_init_lexer(pTHX);
1042STATIC void     S_init_main_stash(pTHX);
1043STATIC void     S_init_perllib(pTHX);
1044STATIC void     S_init_postdump_symbols(pTHX_ int, char **, char **);
1045STATIC void     S_init_predump_symbols(pTHX);
1046STATIC void     S_my_exit_jump(pTHX) __attribute__((noreturn));
1047STATIC void     S_nuke_stacks(pTHX);
1048STATIC void     S_open_script(pTHX_ char *, bool, SV *, int *fd);
1049STATIC void     S_usage(pTHX_ char *);
1050STATIC void     S_validate_suid(pTHX_ char *, char*, int);
1051#  if defined(IAMSUID)
1052STATIC int      S_fd_on_nosuid_fs(pTHX_ int fd);
1053#  endif
1054STATIC void*    S_parse_body(pTHX_ char **env, XSINIT_t xsinit);
1055STATIC void*    S_run_body(pTHX_ I32 oldscope);
1056STATIC void     S_call_body(pTHX_ OP *myop, int is_eval);
1057STATIC void*    S_call_list_body(pTHX_ CV *cv);
1058#if defined(PERL_FLEXIBLE_EXCEPTIONS)
1059STATIC void*    S_vparse_body(pTHX_ va_list args);
1060STATIC void*    S_vrun_body(pTHX_ va_list args);
1061STATIC void*    S_vcall_body(pTHX_ va_list args);
1062STATIC void*    S_vcall_list_body(pTHX_ va_list args);
1063#endif
1064#  if defined(USE_THREADS)
1065STATIC struct perl_thread *     S_init_main_thread(pTHX);
1066#  endif
1067#endif
1068
1069#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
1070STATIC void     S_doencodes(pTHX_ SV* sv, char* s, I32 len);
1071STATIC SV*      S_refto(pTHX_ SV* sv);
1072STATIC U32      S_seed(pTHX);
1073STATIC SV*      S_mul128(pTHX_ SV *sv, U8 m);
1074STATIC SV*      S_is_an_int(pTHX_ char *s, STRLEN l);
1075STATIC int      S_div128(pTHX_ SV *pnum, bool *done);
1076#endif
1077
1078#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
1079STATIC OP*      S_docatch(pTHX_ OP *o);
1080STATIC void*    S_docatch_body(pTHX);
1081#if defined(PERL_FLEXIBLE_EXCEPTIONS)
1082STATIC void*    S_vdocatch_body(pTHX_ va_list args);
1083#endif
1084STATIC OP*      S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit);
1085STATIC void     S_doparseform(pTHX_ SV *sv);
1086STATIC I32      S_dopoptoeval(pTHX_ I32 startingblock);
1087STATIC I32      S_dopoptolabel(pTHX_ char *label);
1088STATIC I32      S_dopoptoloop(pTHX_ I32 startingblock);
1089STATIC I32      S_dopoptosub(pTHX_ I32 startingblock);
1090STATIC I32      S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock);
1091STATIC void     S_save_lines(pTHX_ AV *array, SV *sv);
1092STATIC OP*      S_doeval(pTHX_ int gimme, OP** startop);
1093STATIC PerlIO * S_doopen_pmc(pTHX_ const char *name, const char *mode);
1094STATIC void     S_qsortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t f);
1095#endif
1096
1097#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
1098STATIC int      S_do_maybe_phash(pTHX_ AV *ary, SV **lelem, SV **firstlelem, SV **relem, SV **lastrelem);
1099STATIC void     S_do_oddball(pTHX_ HV *hash, SV **relem, SV **firstrelem);
1100STATIC CV*      S_get_db_sub(pTHX_ SV **svp, CV *cv);
1101STATIC SV*      S_method_common(pTHX_ SV* meth, U32* hashp);
1102#endif
1103
1104#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
1105STATIC OP*      S_doform(pTHX_ CV *cv, GV *gv, OP *retop);
1106STATIC int      S_emulate_eaccess(pTHX_ const char* path, Mode_t mode);
1107#  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
1108STATIC int      S_dooneliner(pTHX_ char *cmd, char *filename);
1109#  endif
1110#endif
1111
1112#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
1113STATIC regnode* S_reg(pTHX_ I32, I32 *);
1114STATIC regnode* S_reganode(pTHX_ U8, U32);
1115STATIC regnode* S_regatom(pTHX_ I32 *);
1116STATIC regnode* S_regbranch(pTHX_ I32 *, I32);
1117STATIC void     S_reguni(pTHX_ UV, char *, STRLEN*);
1118STATIC regnode* S_regclass(pTHX);
1119STATIC regnode* S_regclassutf8(pTHX);
1120STATIC I32      S_regcurly(pTHX_ char *);
1121STATIC regnode* S_reg_node(pTHX_ U8);
1122STATIC regnode* S_regpiece(pTHX_ I32 *);
1123STATIC void     S_reginsert(pTHX_ U8, regnode *);
1124STATIC void     S_regoptail(pTHX_ regnode *, regnode *);
1125STATIC void     S_regtail(pTHX_ regnode *, regnode *);
1126STATIC char*    S_regwhite(pTHX_ char *, char *);
1127STATIC char*    S_nextchar(pTHX);
1128STATIC regnode* S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l);
1129STATIC void     S_put_byte(pTHX_ SV* sv, int c);
1130STATIC void     S_scan_commit(pTHX_ struct scan_data_t *data);
1131STATIC void     S_cl_anything(pTHX_ struct regnode_charclass_class *cl);
1132STATIC int      S_cl_is_anything(pTHX_ struct regnode_charclass_class *cl);
1133STATIC void     S_cl_init(pTHX_ struct regnode_charclass_class *cl);
1134STATIC void     S_cl_init_zero(pTHX_ struct regnode_charclass_class *cl);
1135STATIC void     S_cl_and(pTHX_ struct regnode_charclass_class *cl, struct regnode_charclass_class *and_with);
1136STATIC void     S_cl_or(pTHX_ struct regnode_charclass_class *cl, struct regnode_charclass_class *or_with);
1137STATIC I32      S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, struct scan_data_t *data, U32 flags);
1138STATIC I32      S_add_data(pTHX_ I32 n, char *s);
1139STATIC void     S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...) __attribute__((noreturn));
1140STATIC I32      S_regpposixcc(pTHX_ I32 value);
1141STATIC void     S_checkposixcc(pTHX);
1142#endif
1143
1144#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
1145STATIC I32      S_regmatch(pTHX_ regnode *prog);
1146STATIC I32      S_regrepeat(pTHX_ regnode *p, I32 max);
1147STATIC I32      S_regrepeat_hard(pTHX_ regnode *p, I32 max, I32 *lp);
1148STATIC I32      S_regtry(pTHX_ regexp *prog, char *startpos);
1149STATIC bool     S_reginclass(pTHX_ regnode *p, I32 c);
1150STATIC bool     S_reginclassutf8(pTHX_ regnode *f, U8* p);
1151STATIC CHECKPOINT       S_regcppush(pTHX_ I32 parenfloor);
1152STATIC char*    S_regcppop(pTHX);
1153STATIC char*    S_regcp_set_to(pTHX_ I32 ss);
1154STATIC void     S_cache_re(pTHX_ regexp *prog);
1155STATIC U8*      S_reghop(pTHX_ U8 *pos, I32 off);
1156STATIC U8*      S_reghopmaybe(pTHX_ U8 *pos, I32 off);
1157STATIC char*    S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun);
1158#endif
1159
1160#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
1161STATIC void     S_debprof(pTHX_ OP *o);
1162#endif
1163
1164#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
1165STATIC SV*      S_save_scalar_at(pTHX_ SV **sptr);
1166#endif
1167
1168#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
1169STATIC IV       S_asIV(pTHX_ SV* sv);
1170STATIC UV       S_asUV(pTHX_ SV* sv);
1171STATIC SV*      S_more_sv(pTHX);
1172STATIC void     S_more_xiv(pTHX);
1173STATIC void     S_more_xnv(pTHX);
1174STATIC void     S_more_xpv(pTHX);
1175STATIC void     S_more_xpviv(pTHX);
1176STATIC void     S_more_xpvnv(pTHX);
1177STATIC void     S_more_xpvcv(pTHX);
1178STATIC void     S_more_xpvav(pTHX);
1179STATIC void     S_more_xpvhv(pTHX);
1180STATIC void     S_more_xpvmg(pTHX);
1181STATIC void     S_more_xpvlv(pTHX);
1182STATIC void     S_more_xpvbm(pTHX);
1183STATIC void     S_more_xrv(pTHX);
1184STATIC XPVIV*   S_new_xiv(pTHX);
1185STATIC XPVNV*   S_new_xnv(pTHX);
1186STATIC XPV*     S_new_xpv(pTHX);
1187STATIC XPVIV*   S_new_xpviv(pTHX);
1188STATIC XPVNV*   S_new_xpvnv(pTHX);
1189STATIC XPVCV*   S_new_xpvcv(pTHX);
1190STATIC XPVAV*   S_new_xpvav(pTHX);
1191STATIC XPVHV*   S_new_xpvhv(pTHX);
1192STATIC XPVMG*   S_new_xpvmg(pTHX);
1193STATIC XPVLV*   S_new_xpvlv(pTHX);
1194STATIC XPVBM*   S_new_xpvbm(pTHX);
1195STATIC XRV*     S_new_xrv(pTHX);
1196STATIC void     S_del_xiv(pTHX_ XPVIV* p);
1197STATIC void     S_del_xnv(pTHX_ XPVNV* p);
1198STATIC void     S_del_xpv(pTHX_ XPV* p);
1199STATIC void     S_del_xpviv(pTHX_ XPVIV* p);
1200STATIC void     S_del_xpvnv(pTHX_ XPVNV* p);
1201STATIC void     S_del_xpvcv(pTHX_ XPVCV* p);
1202STATIC void     S_del_xpvav(pTHX_ XPVAV* p);
1203STATIC void     S_del_xpvhv(pTHX_ XPVHV* p);
1204STATIC void     S_del_xpvmg(pTHX_ XPVMG* p);
1205STATIC void     S_del_xpvlv(pTHX_ XPVLV* p);
1206STATIC void     S_del_xpvbm(pTHX_ XPVBM* p);
1207STATIC void     S_del_xrv(pTHX_ XRV* p);
1208STATIC void     S_sv_unglob(pTHX_ SV* sv);
1209STATIC void     S_not_a_number(pTHX_ SV *sv);
1210STATIC I32      S_visit(pTHX_ SVFUNC_t f);
1211#  if defined(DEBUGGING)
1212STATIC void     S_del_sv(pTHX_ SV *p);
1213#  endif
1214#endif
1215
1216#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
1217STATIC void     S_check_uni(pTHX);
1218STATIC void     S_force_next(pTHX_ I32 type);
1219STATIC char*    S_force_version(pTHX_ char *start);
1220STATIC char*    S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack, int allow_tick);
1221STATIC SV*      S_tokeq(pTHX_ SV *sv);
1222STATIC char*    S_scan_const(pTHX_ char *start);
1223STATIC char*    S_scan_formline(pTHX_ char *s);
1224STATIC char*    S_scan_heredoc(pTHX_ char *s);
1225STATIC char*    S_scan_ident(pTHX_ char *s, char *send, char *dest, STRLEN destlen, I32 ck_uni);
1226STATIC char*    S_scan_inputsymbol(pTHX_ char *start);
1227STATIC char*    S_scan_pat(pTHX_ char *start, I32 type);
1228STATIC char*    S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims);
1229STATIC char*    S_scan_subst(pTHX_ char *start);
1230STATIC char*    S_scan_trans(pTHX_ char *start);
1231STATIC char*    S_scan_word(pTHX_ char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp);
1232STATIC char*    S_skipspace(pTHX_ char *s);
1233STATIC char*    S_swallow_bom(pTHX_ U8 *s);
1234STATIC void     S_checkcomma(pTHX_ char *s, char *name, char *what);
1235STATIC void     S_force_ident(pTHX_ char *s, int kind);
1236STATIC void     S_incline(pTHX_ char *s);
1237STATIC int      S_intuit_method(pTHX_ char *s, GV *gv);
1238STATIC int      S_intuit_more(pTHX_ char *s);
1239STATIC I32      S_lop(pTHX_ I32 f, int x, char *s);
1240STATIC void     S_missingterm(pTHX_ char *s);
1241STATIC void     S_no_op(pTHX_ char *what, char *s);
1242STATIC void     S_set_csh(pTHX);
1243STATIC I32      S_sublex_done(pTHX);
1244STATIC I32      S_sublex_push(pTHX);
1245STATIC I32      S_sublex_start(pTHX);
1246STATIC char *   S_filter_gets(pTHX_ SV *sv, PerlIO *fp, STRLEN append);
1247STATIC HV *     S_find_in_my_stash(pTHX_ char *pkgname, I32 len);
1248STATIC SV*      S_new_constant(pTHX_ char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type);
1249STATIC int      S_ao(pTHX_ int toketype);
1250STATIC void     S_depcom(pTHX);
1251STATIC char*    S_incl_perldb(pTHX);
1252#if 0
1253STATIC I32      S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen);
1254STATIC I32      S_utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen);
1255#endif
1256#  if defined(CRIPPLED_CC)
1257STATIC int      S_uni(pTHX_ I32 f, char *s);
1258#  endif
1259#  if defined(PERL_CR_FILTER)
1260STATIC I32      S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
1261#  endif
1262#endif
1263
1264#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
1265STATIC SV*      S_isa_lookup(pTHX_ HV *stash, const char *name, int len, int level);
1266#endif
1267
1268#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
1269STATIC char*    S_stdize_locale(pTHX_ char* locs);
1270STATIC SV*      S_mess_alloc(pTHX);
1271#  if defined(LEAKTEST)
1272STATIC void     S_xstat(pTHX_ int);
1273#  endif
1274#endif
1275
1276#if defined(PERL_OBJECT)
1277};
1278#endif
Note: See TracBrowser for help on using the repository browser.