This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
runops becomes a funtion pointer and sv_bless3 created
[perl5.git] / proto.h
CommitLineData
fed7345c 1#ifndef NEXT30_NO_ATTRIBUTE
ecfc5424
AD
2#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
3#ifdef __attribute__ /* Avoid possible redefinition errors */
a0d0e21e 4#undef __attribute__
ecfc5424 5#endif
a0d0e21e 6#define __attribute__(attr)
fed7345c 7#endif
a0d0e21e
LW
8#endif
9#ifdef OVERLOAD
10SV* amagic_call _((SV* left,SV* right,int method,int dir));
44a8e56a 11bool Gv_AMupdate _((HV* stash));
a0d0e21e
LW
12#endif /* OVERLOAD */
13OP* append_elem _((I32 optype, OP* head, OP* tail));
14OP* append_list _((I32 optype, LISTOP* first, LISTOP* last));
15I32 apply _((I32 type, SV** mark, SV** sp));
11343788 16void assertref _((OP* o));
c750a3ec 17SV* avhv_delete _((AV *ar, char* key, U32 klen, I32 flags));
97fcbf96 18SV* avhv_delete_ent _((AV *ar, SV* keysv, I32 flags, U32 hash));
c750a3ec 19bool avhv_exists _((AV *ar, char* key, U32 klen));
97fcbf96 20bool avhv_exists_ent _((AV *ar, SV* keysv, U32 hash));
c750a3ec 21SV** avhv_fetch _((AV *ar, char* key, U32 klen, I32 lval));
97fcbf96 22SV** avhv_fetch_ent _((AV *ar, SV* keysv, I32 lval, U32 hash));
c750a3ec
MB
23I32 avhv_iterinit _((AV *ar));
24HE* avhv_iternext _((AV *ar));
25SV * avhv_iternextsv _((AV *ar, char** key, I32* retlen));
26SV* avhv_iterval _((AV *ar, HE* entry));
27SV** avhv_store _((AV *ar, char* key, U32 klen, SV* val, U32 hash));
a0d0e21e
LW
28void av_clear _((AV* ar));
29void av_extend _((AV* ar, I32 key));
30AV* av_fake _((I32 size, SV** svp));
31SV** av_fetch _((AV* ar, I32 key, I32 lval));
32void av_fill _((AV* ar, I32 fill));
33I32 av_len _((AV* ar));
34AV* av_make _((I32 size, SV** svp));
35SV* av_pop _((AV* ar));
36void av_push _((AV* ar, SV* val));
37SV* av_shift _((AV* ar));
38SV** av_store _((AV* ar, I32 key, SV* val));
39void av_undef _((AV* ar));
40void av_unshift _((AV* ar, I32 num));
41OP* bind_match _((I32 type, OP* left, OP* pat));
36477c24 42OP* block_end _((I32 floor, OP* seq));
54310121 43I32 block_gimme _((void));
55497cff 44int block_start _((int full));
45b989d7 45void boot_core_UNIVERSAL _((void));
68dc0745 46void call_list _((I32 oldscope, AV* list));
a0d0e21e
LW
47I32 cando _((I32 bit, I32 effective, struct stat* statbufp));
48#ifndef CASTNEGFLOAT
49U32 cast_ulong _((double f));
50#endif
51#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
45b989d7 52I32 my_chsize _((int fd, Off_t length));
a0d0e21e 53#endif
46fc3d4c 54OP* ck_gvconst _((OP* o));
5dc0d613 55OP* ck_retarget _((OP* o));
f93b4edd
MB
56#ifdef USE_THREADS
57MAGIC * condpair_magic _((SV *sv));
58#endif
11343788 59OP* convert _((I32 optype, I32 flags, OP* o));
fc36a67e 60void croak _((const char* pat,...)) __attribute__((noreturn));
3fe9a6f1 61void cv_ckproto _((CV* cv, GV* gv, char* p));
748a9306 62CV* cv_clone _((CV* proto));
760ac839 63SV* cv_const_sv _((CV* cv));
a0d0e21e
LW
64void cv_undef _((CV* cv));
65#ifdef DEBUGGING
66void cx_dump _((CONTEXT* cs));
67#endif
46fc3d4c 68SV* filter_add _((filter_t funcp, SV* datasv));
16d20bd9 69void filter_del _((filter_t funcp));
46fc3d4c 70I32 filter_read _((int idx, SV* buffer, int maxlen));
a0d0e21e 71I32 cxinc _((void));
71be2cbc 72void deb _((const char* pat,...)) __attribute__((format(printf,1,2)));
a0d0e21e 73void deb_growlevel _((void));
11343788 74I32 debop _((OP* o));
a0d0e21e
LW
75I32 debstackptrs _((void));
76#ifdef DEBUGGING
77void debprofdump _((void));
78#endif
79I32 debstack _((void));
fc36a67e
PP
80char* delimcpy _((char* to, char* toend, char* from, char* fromend,
81 int delim, I32* retlen));
a0d0e21e 82void deprecate _((char* s));
fc36a67e 83OP* die _((const char* pat,...));
a0d0e21e
LW
84OP* die_where _((char* message));
85void dounwind _((I32 cxix));
86bool do_aexec _((SV* really, SV** mark, SV** sp));
87void do_chop _((SV* asv, SV* sv));
45b989d7 88bool do_close _((GV* gv, bool not_implicit));
a0d0e21e
LW
89bool do_eof _((GV* gv));
90bool do_exec _((char* cmd));
91void do_execfree _((void));
92#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
93I32 do_ipcctl _((I32 optype, SV** mark, SV** sp));
94I32 do_ipcget _((I32 optype, SV** mark, SV** sp));
95#endif
96void do_join _((SV* sv, SV* del, SV** mark, SV** sp));
11343788 97OP* do_kv _((ARGSproto));
a0d0e21e
LW
98#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
99I32 do_msgrcv _((SV** mark, SV** sp));
100I32 do_msgsnd _((SV** mark, SV** sp));
101#endif
c07a80fd 102bool do_open _((GV* gv, char* name, I32 len,
760ac839 103 int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp));
a0d0e21e 104void do_pipe _((SV* sv, GV* rgv, GV* wgv));
760ac839 105bool do_print _((SV* sv, PerlIO* fp));
46fc3d4c 106OP* do_readline _((void));
a0d0e21e
LW
107I32 do_chomp _((SV* sv));
108bool do_seek _((GV* gv, long pos, int whence));
109#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
110I32 do_semop _((SV** mark, SV** sp));
111I32 do_shmio _((I32 optype, SV** mark, SV** sp));
112#endif
113void do_sprintf _((SV* sv, I32 len, SV** sarg));
8903cb82 114long do_sysseek _((GV* gv, long pos, int whence));
a0d0e21e
LW
115long do_tell _((GV* gv));
116I32 do_trans _((SV* sv, OP* arg));
117void do_vecset _((SV* sv));
118void do_vop _((I32 optype, SV* sv, SV* left, SV* right));
e50aee73 119I32 dowantarray _((void));
a0d0e21e
LW
120void dump_all _((void));
121void dump_eval _((void));
748a9306 122#ifdef DUMP_FDS /* See util.c */
a0d0e21e
LW
123int dump_fds _((char* s));
124#endif
125void dump_form _((GV* gv));
126void dump_gv _((GV* gv));
8eccb90b 127#ifdef MYMALLOC
c07a80fd 128void dump_mstats _((char* s));
8eccb90b 129#endif
a0d0e21e
LW
130void dump_op _((OP* arg));
131void dump_pm _((PMOP* pm));
132void dump_packsubs _((HV* stash));
133void dump_sub _((GV* gv));
bbce6d69 134void fbm_compile _((SV* sv));
a0d0e21e
LW
135char* fbm_instr _((unsigned char* big, unsigned char* bigend, SV* littlesv));
136OP* force_list _((OP* arg));
46fc3d4c
PP
137OP* fold_constants _((OP* arg));
138char* form _((const char* pat, ...));
a0d0e21e 139void free_tmps _((void));
11343788 140OP* gen_constant_list _((OP* o));
a0d0e21e
LW
141void gp_free _((GV* gv));
142GP* gp_ref _((GP* gp));
143GV* gv_AVadd _((GV* gv));
144GV* gv_HVadd _((GV* gv));
145GV* gv_IOadd _((GV* gv));
54310121 146GV* gv_autoload4 _((HV* stash, char* name, STRLEN len, I32 method));
a0d0e21e
LW
147void gv_check _((HV* stash));
148void gv_efullname _((SV* sv, GV* gv));
ab4ed645 149void gv_efullname3 _((SV* sv, GV* gv, char* prefix));
a0d0e21e
LW
150GV* gv_fetchfile _((char* name));
151GV* gv_fetchmeth _((HV* stash, char* name, STRLEN len, I32 level));
152GV* gv_fetchmethod _((HV* stash, char* name));
dc848c6f 153GV* gv_fetchmethod_autoload _((HV* stash, char* name, I32 autoload));
a0d0e21e
LW
154GV* gv_fetchpv _((char* name, I32 add, I32 sv_type));
155void gv_fullname _((SV* sv, GV* gv));
ab4ed645 156void gv_fullname3 _((SV* sv, GV* gv, char* prefix));
46fc3d4c 157void gv_init _((GV* gv, HV* stash, char* name, STRLEN len, int multi));
a0d0e21e 158HV* gv_stashpv _((char* name, I32 create));
45b989d7 159HV* gv_stashpvn _((char* name, U32 namelen, I32 create));
a0d0e21e 160HV* gv_stashsv _((SV* sv, I32 create));
a0d0e21e
LW
161void hoistmust _((PMOP* pm));
162void hv_clear _((HV* tb));
68dc0745 163void hv_delayfree_ent _((HV* hv, HE* entry));
748a9306 164SV* hv_delete _((HV* tb, char* key, U32 klen, I32 flags));
45b989d7 165SV* hv_delete_ent _((HV* tb, SV* key, I32 flags, U32 hash));
a0d0e21e 166bool hv_exists _((HV* tb, char* key, U32 klen));
45b989d7 167bool hv_exists_ent _((HV* tb, SV* key, U32 hash));
a0d0e21e 168SV** hv_fetch _((HV* tb, char* key, U32 klen, I32 lval));
45b989d7 169HE* hv_fetch_ent _((HV* tb, SV* key, I32 lval, U32 hash));
68dc0745 170void hv_free_ent _((HV* hv, HE* entry));
a0d0e21e
LW
171I32 hv_iterinit _((HV* tb));
172char* hv_iterkey _((HE* entry, I32* retlen));
45b989d7 173SV* hv_iterkeysv _((HE* entry));
a0d0e21e 174HE* hv_iternext _((HV* tb));
45b989d7 175SV* hv_iternextsv _((HV* hv, char** key, I32* retlen));
a0d0e21e 176SV* hv_iterval _((HV* tb, HE* entry));
ab4ed645 177void hv_ksplit _((HV* hv, IV newmax));
a0d0e21e
LW
178void hv_magic _((HV* hv, GV* gv, int how));
179SV** hv_store _((HV* tb, char* key, U32 klen, SV* val, U32 hash));
45b989d7 180HE* hv_store_ent _((HV* tb, SV* key, SV* val, U32 hash));
a0d0e21e 181void hv_undef _((HV* tb));
bbce6d69
PP
182I32 ibcmp _((char* a, char* b, I32 len));
183I32 ibcmp_locale _((char* a, char* b, I32 len));
a0d0e21e 184I32 ingroup _((I32 testgid, I32 effective));
11343788 185void init_stacks _((ARGSproto));
bbce6d69 186U32 intro_my _((void));
a0d0e21e 187char* instr _((char* big, char* little));
8eccb90b 188bool io_close _((IO* io));
a0d0e21e
LW
189OP* invert _((OP* cmd));
190OP* jmaybe _((OP* arg));
191I32 keyword _((char* d, I32 len));
192void leave_scope _((I32 base));
193void lex_end _((void));
46fc3d4c 194void lex_start _((SV* line));
11343788 195OP* linklist _((OP* o));
a0d0e21e
LW
196OP* list _((OP* o));
197OP* listkids _((OP* o));
198OP* localize _((OP* arg, I32 lexical));
199I32 looks_like_number _((SV* sv));
200int magic_clearenv _((SV* sv, MAGIC* mg));
201int magic_clearpack _((SV* sv, MAGIC* mg));
45b989d7 202int magic_clearsig _((SV* sv, MAGIC* mg));
5f05dabc 203int magic_existspack _((SV* sv, MAGIC* mg));
68dc0745 204int magic_freedefelem _((SV* sv, MAGIC* mg));
a0d0e21e
LW
205int magic_get _((SV* sv, MAGIC* mg));
206int magic_getarylen _((SV* sv, MAGIC* mg));
68dc0745 207int magic_getdefelem _((SV* sv, MAGIC* mg));
a0d0e21e 208int magic_getglob _((SV* sv, MAGIC* mg));
68dc0745 209int magic_getpack _((SV* sv, MAGIC* mg));
a0d0e21e 210int magic_getpos _((SV* sv, MAGIC* mg));
45b989d7 211int magic_getsig _((SV* sv, MAGIC* mg));
a0d0e21e
LW
212int magic_gettaint _((SV* sv, MAGIC* mg));
213int magic_getuvar _((SV* sv, MAGIC* mg));
214U32 magic_len _((SV* sv, MAGIC* mg));
f93b4edd
MB
215#ifdef USE_THREADS
216int magic_mutexfree _((SV* sv, MAGIC* mg));
217#endif /* USE_THREADS */
a0d0e21e
LW
218int magic_nextpack _((SV* sv, MAGIC* mg, SV* key));
219int magic_set _((SV* sv, MAGIC* mg));
220#ifdef OVERLOAD
221int magic_setamagic _((SV* sv, MAGIC* mg));
222#endif /* OVERLOAD */
223int magic_setarylen _((SV* sv, MAGIC* mg));
224int magic_setbm _((SV* sv, MAGIC* mg));
225int magic_setdbline _((SV* sv, MAGIC* mg));
44a8e56a 226#ifdef USE_LOCALE_COLLATE
bbce6d69 227int magic_setcollxfrm _((SV* sv, MAGIC* mg));
44a8e56a 228#endif
68dc0745 229int magic_setdefelem _((SV* sv, MAGIC* mg));
a0d0e21e 230int magic_setenv _((SV* sv, MAGIC* mg));
55497cff 231int magic_setfm _((SV* sv, MAGIC* mg));
a0d0e21e
LW
232int magic_setisa _((SV* sv, MAGIC* mg));
233int magic_setglob _((SV* sv, MAGIC* mg));
234int magic_setmglob _((SV* sv, MAGIC* mg));
ab4ed645 235int magic_setnkeys _((SV* sv, MAGIC* mg));
a0d0e21e
LW
236int magic_setpack _((SV* sv, MAGIC* mg));
237int magic_setpos _((SV* sv, MAGIC* mg));
238int magic_setsig _((SV* sv, MAGIC* mg));
239int magic_setsubstr _((SV* sv, MAGIC* mg));
240int magic_settaint _((SV* sv, MAGIC* mg));
241int magic_setuvar _((SV* sv, MAGIC* mg));
242int magic_setvec _((SV* sv, MAGIC* mg));
243int magic_wipepack _((SV* sv, MAGIC* mg));
244void magicname _((char* sym, char* name, I32 namlen));
245int main _((int argc, char** argv, char** env));
a0d0e21e 246void markstack_grow _((void));
5f05dabc 247#ifdef USE_LOCALE_COLLATE
46fc3d4c 248char* mem_collxfrm _((const char* s, STRLEN len, STRLEN* xlen));
5f05dabc 249#endif
71be2cbc 250char* mess _((const char* pat, va_list* args));
a0d0e21e 251int mg_clear _((SV* sv));
46fc3d4c 252int mg_copy _((SV* , SV* , char* , I32));
a0d0e21e
LW
253MAGIC* mg_find _((SV* sv, int type));
254int mg_free _((SV* sv));
255int mg_get _((SV* sv));
256U32 mg_len _((SV* sv));
257void mg_magical _((SV* sv));
258int mg_set _((SV* sv));
11343788 259OP* mod _((OP* o, I32 type));
a0d0e21e 260char* moreswitches _((char* s));
5dc0d613 261OP* my _((OP* o));
5f05dabc 262#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
a0d0e21e 263char* my_bcopy _((char* from, char* to, I32 len));
5f05dabc 264#endif
a0d0e21e
LW
265#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
266char* my_bzero _((char* loc, I32 len));
85e6fe83 267#endif
748a9306 268void my_exit _((U32 status)) __attribute__((noreturn));
f86702cc 269void my_failure_exit _((void)) __attribute__((noreturn));
11343788 270I32 my_lstat _((ARGSproto));
5f05dabc 271#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
36477c24 272I32 my_memcmp _((char* s1, char* s2, I32 len));
a0d0e21e 273#endif
fc36a67e
PP
274#if !defined(HAS_MEMSET)
275void* my_memset _((char* loc, I32 ch, I32 len));
276#endif
760ac839
LW
277I32 my_pclose _((PerlIO* ptr));
278PerlIO* my_popen _((char* cmd, char* mode));
a0d0e21e 279void my_setenv _((char* nam, char* val));
11343788 280I32 my_stat _((ARGSproto));
a0d0e21e
LW
281#ifdef MYSWAP
282short my_swap _((short s));
748a9306
LW
283long my_htonl _((long l));
284long my_ntohl _((long l));
a0d0e21e
LW
285#endif
286void my_unexec _((void));
11343788
MB
287OP* newANONLIST _((OP* o));
288OP* newANONHASH _((OP* o));
4633a7c4 289OP* newANONSUB _((I32 floor, OP* proto, OP* block));
a0d0e21e 290OP* newASSIGNOP _((I32 flags, OP* left, I32 optype, OP* right));
1aef975c 291OP* newCONDOP _((I32 flags, OP* expr, OP* trueop, OP* falseop));
11343788 292void newFORM _((I32 floor, OP* o, OP* block));
a0d0e21e
LW
293OP* newFOROP _((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
294OP* newLOGOP _((I32 optype, I32 flags, OP* left, OP* right));
295OP* newLOOPEX _((I32 type, OP* label));
296OP* newLOOPOP _((I32 flags, I32 debuggable, OP* expr, OP* block));
a0d0e21e
LW
297OP* newNULLLIST _((void));
298OP* newOP _((I32 optype, I32 flags));
11343788 299void newPROG _((OP* o));
a0d0e21e
LW
300OP* newRANGE _((I32 flags, OP* left, OP* right));
301OP* newSLICEOP _((I32 flags, OP* subscript, OP* list));
302OP* newSTATEOP _((I32 flags, char* label, OP* o));
11343788 303CV* newSUB _((I32 floor, OP* o, OP* proto, OP* block));
46fc3d4c 304CV* newXS _((char* name, void (*subaddr)(CV* cv), char* filename));
a0d0e21e 305#ifdef DEPRECATED
46fc3d4c 306CV* newXSUB _((char* name, I32 ix, I32 (*subaddr)(int,int,int), char* filename));
a0d0e21e
LW
307#endif
308AV* newAV _((void));
309OP* newAVREF _((OP* o));
310OP* newBINOP _((I32 type, I32 flags, OP* first, OP* last));
c07a80fd 311OP* newCVREF _((I32 flags, OP* o));
a0d0e21e 312OP* newGVOP _((I32 type, I32 flags, GV* gv));
46fc3d4c 313GV* newGVgen _((char* pack));
a0d0e21e
LW
314OP* newGVREF _((I32 type, OP* o));
315OP* newHVREF _((OP* o));
316HV* newHV _((void));
317IO* newIO _((void));
318OP* newLISTOP _((I32 type, I32 flags, OP* first, OP* last));
319OP* newPMOP _((I32 type, I32 flags));
320OP* newPVOP _((I32 type, I32 flags, char* pv));
321SV* newRV _((SV* ref));
79072805 322#ifdef LEAKTEST
a0d0e21e 323SV* newSV _((I32 x, STRLEN len));
79072805 324#else
a0d0e21e 325SV* newSV _((STRLEN len));
79072805 326#endif
a0d0e21e
LW
327OP* newSVREF _((OP* o));
328OP* newSVOP _((I32 type, I32 flags, SV* sv));
329SV* newSViv _((IV i));
330SV* newSVnv _((double n));
331SV* newSVpv _((char* s, STRLEN len));
46fc3d4c 332SV* newSVpvf _((const char* pat, ...));
a0d0e21e
LW
333SV* newSVrv _((SV* rv, char* classname));
334SV* newSVsv _((SV* old));
335OP* newUNOP _((I32 type, I32 flags, OP* first));
46fc3d4c 336OP* newWHILEOP _((I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont));
760ac839 337PerlIO* nextargv _((GV* gv));
a0d0e21e 338char* ninstr _((char* big, char* bigend, char* little, char* lend));
46fc3d4c 339OP* oopsCV _((OP* o));
a0d0e21e 340void op_free _((OP* arg));
11343788 341void package _((OP* o));
a0d0e21e
LW
342PADOFFSET pad_alloc _((I32 optype, U32 tmptype));
343PADOFFSET pad_allocmy _((char* name));
344PADOFFSET pad_findmy _((char* name));
345OP* oopsAV _((OP* o));
346OP* oopsHV _((OP* o));
347void pad_leavemy _((I32 fill));
348SV* pad_sv _((PADOFFSET po));
349void pad_free _((PADOFFSET po));
350void pad_reset _((void));
351void pad_swipe _((PADOFFSET po));
11343788 352void peep _((OP* o));
a0d0e21e
LW
353PerlInterpreter* perl_alloc _((void));
354I32 perl_call_argv _((char* subname, I32 flags, char** argv));
355I32 perl_call_method _((char* methname, I32 flags));
356I32 perl_call_pv _((char* subname, I32 flags));
357I32 perl_call_sv _((SV* sv, I32 flags));
a0d0e21e 358void perl_construct _((PerlInterpreter* sv_interp));
748a9306 359void perl_destruct _((PerlInterpreter* sv_interp));
137443ea 360SV* perl_eval_pv _((char* p, I32 croak_on_error));
4633a7c4 361I32 perl_eval_sv _((SV* sv, I32 flags));
a0d0e21e
LW
362void perl_free _((PerlInterpreter* sv_interp));
363SV* perl_get_sv _((char* name, I32 create));
364AV* perl_get_av _((char* name, I32 create));
365HV* perl_get_hv _((char* name, I32 create));
366CV* perl_get_cv _((char* name, I32 create));
45b989d7 367int perl_init_i18nl10n _((int printwarn));
8eccb90b 368int perl_init_i18nl14n _((int printwarn));
46fc3d4c
PP
369void perl_new_collate _((char* newcoll));
370void perl_new_ctype _((char* newctype));
371void perl_new_numeric _((char* newcoll));
36477c24
PP
372void perl_set_numeric_local _((void));
373void perl_set_numeric_standard _((void));
a0d0e21e 374int perl_parse _((PerlInterpreter* sv_interp, void(*xsinit)(void), int argc, char** argv, char** env));
4633a7c4
LW
375void perl_require_pv _((char* pv));
376#define perl_requirepv perl_require_pv
a0d0e21e
LW
377int perl_run _((PerlInterpreter* sv_interp));
378void pidgone _((int pid, int status));
379void pmflag _((U16* pmfl, int ch));
380OP* pmruntime _((OP* pm, OP* expr, OP* repl));
11343788 381OP* pmtrans _((OP* o, OP* expr, OP* repl));
a0d0e21e
LW
382OP* pop_return _((void));
383void pop_scope _((void));
384OP* prepend_elem _((I32 optype, OP* head, OP* tail));
11343788 385void push_return _((OP* o));
a0d0e21e 386void push_scope _((void));
e50aee73 387regexp* pregcomp _((char* exp, char* xend, PMOP* pm));
11343788
MB
388OP* ref _((OP* o, I32 type));
389OP* refkids _((OP* o, I32 type));
a0d0e21e 390void regdump _((regexp* r));
e50aee73
AD
391I32 pregexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase));
392void pregfree _((struct regexp* r));
a0d0e21e 393char* regnext _((char* p));
5dc0d613 394void regprop _((SV* sv, char* o));
a0d0e21e
LW
395void repeatcpy _((char* to, char* from, I32 len, I32 count));
396char* rninstr _((char* big, char* bigend, char* little, char* lend));
ff68c719
PP
397Sighandler_t rsignal _((int, Sighandler_t));
398int rsignal_restore _((int, Sigsave_t*));
399int rsignal_save _((int, Sighandler_t, Sigsave_t*));
400Sighandler_t rsignal_state _((int));
b83535cb
MB
401int runops_standard _((void));
402#ifdef DEBUGGING
403int runops_debug _((void));
404#endif
c90c0ff4
PP
405void rxres_free _((void** rsp));
406void rxres_restore _((void** rsp, REGEXP* rx));
407void rxres_save _((void** rsp, REGEXP* rx));
a0d0e21e
LW
408#ifndef HAS_RENAME
409I32 same_dirent _((char* a, char* b));
410#endif
411char* savepv _((char* sv));
412char* savepvn _((char* sv, I32 len));
413void savestack_grow _((void));
414void save_aptr _((AV** aptr));
415AV* save_ary _((GV* gv));
416void save_clearsv _((SV** svp));
417void save_delete _((HV* hv, char* key, I32 klen));
418#ifndef titan /* TitanOS cc can't handle this */
419void save_destructor _((void (*f)(void*), void* p));
420#endif /* titan */
421void save_freesv _((SV* sv));
11343788 422void save_freeop _((OP* o));
a0d0e21e 423void save_freepv _((char* pv));
5f05dabc 424void save_gp _((GV* gv, I32 empty));
a0d0e21e
LW
425HV* save_hash _((GV* gv));
426void save_hptr _((HV** hptr));
55497cff 427void save_I16 _((I16* intp));
a0d0e21e
LW
428void save_I32 _((I32* intp));
429void save_int _((int* intp));
430void save_item _((SV* item));
55497cff 431void save_iv _((IV* iv));
a0d0e21e 432void save_list _((SV** sarg, I32 maxsarg));
46fc3d4c 433void save_long _((long* longp));
a0d0e21e 434void save_nogv _((GV* gv));
462e5cf6 435void save_op _((void));
a0d0e21e 436SV* save_scalar _((GV* gv));
46fc3d4c 437void save_pptr _((char** pptr));
a0d0e21e
LW
438void save_sptr _((SV** sptr));
439SV* save_svref _((SV** sptr));
440OP* sawparens _((OP* o));
441OP* scalar _((OP* o));
11343788 442OP* scalarkids _((OP* o));
a0d0e21e 443OP* scalarseq _((OP* o));
11343788 444OP* scalarvoid _((OP* o));
55497cff 445UV scan_hex _((char* start, I32 len, I32* retlen));
a0d0e21e 446char* scan_num _((char* s));
55497cff 447UV scan_oct _((char* start, I32 len, I32* retlen));
a0d0e21e
LW
448OP* scope _((OP* o));
449char* screaminstr _((SV* bigsv, SV* littlesv));
450#ifndef VMS
451I32 setenv_getix _((char* nam));
85e6fe83 452#endif
46fc3d4c 453void setdefout _((GV* gv));
71be2cbc
PP
454char* sharepvn _((char* sv, I32 len, U32 hash));
455HEK* share_hek _((char* sv, I32 len, U32 hash));
ecfc5424 456Signal_t sighandler _((int sig));
a0d0e21e 457SV** stack_grow _((SV** sp, SV**p, int n));
ba6d6ac9 458I32 start_subparse _((I32 is_format, U32 flags));
44a8e56a 459void sub_crush_depth _((CV* cv));
a0d0e21e
LW
460bool sv_2bool _((SV* sv));
461CV* sv_2cv _((SV* sv, HV** st, GV** gvp, I32 lref));
462IO* sv_2io _((SV* sv));
463IV sv_2iv _((SV* sv));
464SV* sv_2mortal _((SV* sv));
465double sv_2nv _((SV* sv));
466char* sv_2pv _((SV* sv, STRLEN* lp));
ff68c719 467UV sv_2uv _((SV* sv));
4633a7c4 468void sv_add_arena _((char* ptr, U32 size, U32 flags));
a0d0e21e
LW
469int sv_backoff _((SV* sv));
470SV* sv_bless _((SV* sv, HV* stash));
b83535cb 471SV* sv_bless3 _((SV* sv, HV* stash, bool zaptilde));
46fc3d4c 472void sv_catpvf _((SV* sv, const char* pat, ...));
a0d0e21e
LW
473void sv_catpv _((SV* sv, char* ptr));
474void sv_catpvn _((SV* sv, char* ptr, STRLEN len));
475void sv_catsv _((SV* dsv, SV* ssv));
476void sv_chop _((SV* sv, char* ptr));
477void sv_clean_all _((void));
478void sv_clean_objs _((void));
479void sv_clear _((SV* sv));
480I32 sv_cmp _((SV* sv1, SV* sv2));
bbce6d69 481I32 sv_cmp_locale _((SV* sv1, SV* sv2));
5f05dabc 482#ifdef USE_LOCALE_COLLATE
bbce6d69 483char* sv_collxfrm _((SV* sv, STRLEN* nxp));
5f05dabc 484#endif
a0d0e21e
LW
485void sv_dec _((SV* sv));
486void sv_dump _((SV* sv));
55497cff 487bool sv_derived_from _((SV* sv, char* name));
a0d0e21e
LW
488I32 sv_eq _((SV* sv1, SV* sv2));
489void sv_free _((SV* sv));
4633a7c4 490void sv_free_arenas _((void));
760ac839 491char* sv_gets _((SV* sv, PerlIO* fp, I32 append));
93a17b20 492#ifndef DOSISH
a0d0e21e 493char* sv_grow _((SV* sv, I32 newlen));
93a17b20 494#else
a0d0e21e 495char* sv_grow _((SV* sv, unsigned long newlen));
93a17b20 496#endif
a0d0e21e
LW
497void sv_inc _((SV* sv));
498void sv_insert _((SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen));
499int sv_isa _((SV* sv, char* name));
500int sv_isobject _((SV* sv));
501STRLEN sv_len _((SV* sv));
502void sv_magic _((SV* sv, SV* obj, int how, char* name, I32 namlen));
503SV* sv_mortalcopy _((SV* oldsv));
504SV* sv_newmortal _((void));
505SV* sv_newref _((SV* sv));
46fc3d4c
PP
506char* sv_peek _((SV* sv));
507char* sv_pvn_force _((SV* sv, STRLEN* lp));
a0d0e21e
LW
508char* sv_reftype _((SV* sv, int ob));
509void sv_replace _((SV* sv, SV* nsv));
510void sv_report_used _((void));
511void sv_reset _((char* s, HV* stash));
46fc3d4c 512void sv_setpvf _((SV* sv, const char* pat, ...));
a0d0e21e 513void sv_setiv _((SV* sv, IV num));
55497cff 514void sv_setuv _((SV* sv, UV num));
a0d0e21e 515void sv_setnv _((SV* sv, double num));
46fc3d4c
PP
516SV* sv_setref_iv _((SV* rv, char* classname, IV iv));
517SV* sv_setref_nv _((SV* rv, char* classname, double nv));
518SV* sv_setref_pv _((SV* rv, char* classname, void* pv));
519SV* sv_setref_pvn _((SV* rv, char* classname, char* pv, I32 n));
71be2cbc
PP
520void sv_setpv _((SV* sv, const char* ptr));
521void sv_setpvn _((SV* sv, const char* ptr, STRLEN len));
a0d0e21e 522void sv_setsv _((SV* dsv, SV* ssv));
bbce6d69
PP
523void sv_taint _((SV* sv));
524bool sv_tainted _((SV* sv));
a0d0e21e
LW
525int sv_unmagic _((SV* sv, int type));
526void sv_unref _((SV* sv));
bbce6d69 527void sv_untaint _((SV* sv));
a0d0e21e
LW
528bool sv_upgrade _((SV* sv, U32 mt));
529void sv_usepvn _((SV* sv, char* ptr, STRLEN len));
46fc3d4c
PP
530void sv_vcatpvfn _((SV* sv, const char* pat, STRLEN patlen,
531 va_list* args, SV** svargs, I32 svmax,
532 bool *used_locale));
533void sv_vsetpvfn _((SV* sv, const char* pat, STRLEN patlen,
534 va_list* args, SV** svargs, I32 svmax,
535 bool *used_locale));
a0d0e21e 536void taint_env _((void));
71be2cbc 537void taint_proper _((const char* f, char* s));
16d20bd9 538#ifdef UNLINK_ALL_VERSIONS
a0d0e21e 539I32 unlnk _((char* f));
16d20bd9 540#endif
77a005ab
MB
541#ifdef USE_THREADS
542void unlock_condpair _((void* svv));
543#endif
71be2cbc
PP
544void unsharepvn _((char* sv, I32 len, U32 hash));
545void unshare_hek _((HEK* hek));
45b989d7 546void utilize _((int aver, I32 floor, OP* version, OP* id, OP* arg));
68dc0745
PP
547void vivify_defelem _((SV* sv));
548void vivify_ref _((SV* sv, U32 to_what));
a0d0e21e 549I32 wait4pid _((int pid, int* statusp, int flags));
fc36a67e 550void warn _((const char* pat,...));
46fc3d4c 551void watch _((char** addr));
a0d0e21e
LW
552I32 whichsig _((char* sig));
553int yyerror _((char* s));
554int yylex _((void));
555int yyparse _((void));
556int yywarn _((char* s));
55497cff
PP
557
558#if defined(MYMALLOC) || !defined(STANDARD_C)
559Malloc_t malloc _((MEM_SIZE nbytes));
560Malloc_t calloc _((MEM_SIZE elements, MEM_SIZE size));
561Malloc_t realloc _((Malloc_t where, MEM_SIZE nbytes));
562Free_t free _((Malloc_t where));
563#endif
564
bbce6d69
PP
565#ifndef MYMALLOC
566Malloc_t safemalloc _((MEM_SIZE nbytes));
567Malloc_t safecalloc _((MEM_SIZE elements, MEM_SIZE size));
568Malloc_t saferealloc _((Malloc_t where, MEM_SIZE nbytes));
569Free_t safefree _((Malloc_t where));
570#endif
571
55497cff
PP
572#ifdef LEAKTEST
573Malloc_t safexmalloc _((I32 x, MEM_SIZE size));
574Malloc_t safexcalloc _((I32 x, MEM_SIZE elements, MEM_SIZE size));
575Malloc_t safexrealloc _((Malloc_t where, MEM_SIZE size));
576void safexfree _((Malloc_t where));
577#endif