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