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

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