1 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
3 perlvars.h and thrdvar.h. Any changes made here will be lost!
10 #if defined(PERL_OBJECT)
12 /* accessor functions for Perl variables (provides binary compatibility) */
19 #define PERLVAR(v,t) t* Perl_##v##_ptr(void *p) \
20 { return &(((CPerlObj*)p)->PL_##v); }
21 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(void *p) \
22 { return &(((CPerlObj*)p)->PL_##v); }
23 #define PERLVARI(v,t,i) PERLVAR(v,t)
24 #define PERLVARIC(v,t,i) PERLVAR(v,t)
35 #if defined(PERL_OBJECT)
38 #undef Perl_amagic_call
40 Perl_amagic_call(void *pPerl, SV* left, SV* right, int method, int dir)
42 return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
45 #undef Perl_Gv_AMupdate
47 Perl_Gv_AMupdate(void *pPerl, HV* stash)
49 return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
52 #undef Perl_append_elem
54 Perl_append_elem(void *pPerl, I32 optype, OP* head, OP* tail)
56 return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail);
59 #undef Perl_append_list
61 Perl_append_list(void *pPerl, I32 optype, LISTOP* first, LISTOP* last)
63 return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last);
68 Perl_apply(void *pPerl, I32 type, SV** mark, SV** sp)
70 return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
75 Perl_assertref(void *pPerl, OP* o)
77 ((CPerlObj*)pPerl)->Perl_assertref(o);
80 #undef Perl_avhv_exists_ent
82 Perl_avhv_exists_ent(void *pPerl, AV *ar, SV* keysv, U32 hash)
84 return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
87 #undef Perl_avhv_fetch_ent
89 Perl_avhv_fetch_ent(void *pPerl, AV *ar, SV* keysv, I32 lval, U32 hash)
91 return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
94 #undef Perl_avhv_iternext
96 Perl_avhv_iternext(void *pPerl, AV *ar)
98 return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
101 #undef Perl_avhv_iterval
103 Perl_avhv_iterval(void *pPerl, AV *ar, HE* entry)
105 return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
108 #undef Perl_avhv_keys
110 Perl_avhv_keys(void *pPerl, AV *ar)
112 return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
117 Perl_av_clear(void *pPerl, AV* ar)
119 ((CPerlObj*)pPerl)->Perl_av_clear(ar);
122 #undef Perl_av_extend
124 Perl_av_extend(void *pPerl, AV* ar, I32 key)
126 ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
131 Perl_av_fake(void *pPerl, I32 size, SV** svp)
133 return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
138 Perl_av_fetch(void *pPerl, AV* ar, I32 key, I32 lval)
140 return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
145 Perl_av_fill(void *pPerl, AV* ar, I32 fill)
147 ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
152 Perl_av_len(void *pPerl, AV* ar)
154 return ((CPerlObj*)pPerl)->Perl_av_len(ar);
159 Perl_av_make(void *pPerl, I32 size, SV** svp)
161 return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
166 Perl_av_pop(void *pPerl, AV* ar)
168 return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
173 Perl_av_push(void *pPerl, AV* ar, SV* val)
175 ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
180 Perl_av_reify(void *pPerl, AV* ar)
182 ((CPerlObj*)pPerl)->Perl_av_reify(ar);
187 Perl_av_shift(void *pPerl, AV* ar)
189 return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
194 Perl_av_store(void *pPerl, AV* ar, I32 key, SV* val)
196 return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
201 Perl_av_undef(void *pPerl, AV* ar)
203 ((CPerlObj*)pPerl)->Perl_av_undef(ar);
206 #undef Perl_av_unshift
208 Perl_av_unshift(void *pPerl, AV* ar, I32 num)
210 ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
213 #undef Perl_bind_match
215 Perl_bind_match(void *pPerl, I32 type, OP* left, OP* pat)
217 return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat);
220 #undef Perl_block_end
222 Perl_block_end(void *pPerl, I32 floor, OP* seq)
224 return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq);
227 #undef Perl_block_gimme
229 Perl_block_gimme(void *pPerl)
231 return ((CPerlObj*)pPerl)->Perl_block_gimme();
234 #undef Perl_block_start
236 Perl_block_start(void *pPerl, int full)
238 return ((CPerlObj*)pPerl)->Perl_block_start(full);
241 #undef Perl_boot_core_UNIVERSAL
243 Perl_boot_core_UNIVERSAL(void *pPerl)
245 ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
248 #undef Perl_call_list
250 Perl_call_list(void *pPerl, I32 oldscope, AV* av_list)
252 ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
257 Perl_cando(void *pPerl, I32 bit, I32 effective, Stat_t* statbufp)
259 return ((CPerlObj*)pPerl)->Perl_cando(bit, effective, statbufp);
262 #undef Perl_cast_ulong
264 Perl_cast_ulong(void *pPerl, NV f)
266 return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
271 Perl_cast_i32(void *pPerl, NV f)
273 return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
278 Perl_cast_iv(void *pPerl, NV f)
280 return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
285 Perl_cast_uv(void *pPerl, NV f)
287 return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
289 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
291 #undef Perl_my_chsize
293 Perl_my_chsize(void *pPerl, int fd, Off_t length)
295 return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
298 #if defined(USE_THREADS)
300 #undef Perl_condpair_magic
302 Perl_condpair_magic(void *pPerl, SV *sv)
304 return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
310 Perl_convert(void *pPerl, I32 optype, I32 flags, OP* o)
312 return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o);
314 #if defined(PERL_IMPLICIT_CONTEXT)
317 #undef Perl_cv_ckproto
319 Perl_cv_ckproto(void *pPerl, CV* cv, GV* gv, char* p)
321 ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p);
326 Perl_cv_clone(void *pPerl, CV* proto)
328 return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
331 #undef Perl_cv_const_sv
333 Perl_cv_const_sv(void *pPerl, CV* cv)
335 return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
338 #undef Perl_op_const_sv
340 Perl_op_const_sv(void *pPerl, OP* o, CV* cv)
342 return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv);
347 Perl_cv_undef(void *pPerl, CV* cv)
349 ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
354 Perl_cx_dump(void *pPerl, PERL_CONTEXT* cs)
356 ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
359 #undef Perl_filter_add
361 Perl_filter_add(void *pPerl, filter_t funcp, SV* datasv)
363 return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
366 #undef Perl_filter_del
368 Perl_filter_del(void *pPerl, filter_t funcp)
370 ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
373 #undef Perl_filter_read
375 Perl_filter_read(void *pPerl, int idx, SV* buffer, int maxlen)
377 return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
380 #undef Perl_get_op_descs
382 Perl_get_op_descs(void *pPerl)
384 return ((CPerlObj*)pPerl)->Perl_get_op_descs();
387 #undef Perl_get_op_names
389 Perl_get_op_names(void *pPerl)
391 return ((CPerlObj*)pPerl)->Perl_get_op_names();
394 #undef Perl_get_no_modify
396 Perl_get_no_modify(void *pPerl)
398 return ((CPerlObj*)pPerl)->Perl_get_no_modify();
401 #undef Perl_get_opargs
403 Perl_get_opargs(void *pPerl)
405 return ((CPerlObj*)pPerl)->Perl_get_opargs();
408 #undef Perl_get_ppaddr
410 Perl_get_ppaddr(void *pPerl)
412 return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
417 Perl_cxinc(void *pPerl)
419 return ((CPerlObj*)pPerl)->Perl_cxinc();
422 #undef Perl_deb_growlevel
424 Perl_deb_growlevel(void *pPerl)
426 ((CPerlObj*)pPerl)->Perl_deb_growlevel();
429 #undef Perl_debprofdump
431 Perl_debprofdump(void *pPerl)
433 ((CPerlObj*)pPerl)->Perl_debprofdump();
438 Perl_debop(void *pPerl, OP* o)
440 return ((CPerlObj*)pPerl)->Perl_debop(o);
445 Perl_debstack(void *pPerl)
447 return ((CPerlObj*)pPerl)->Perl_debstack();
450 #undef Perl_debstackptrs
452 Perl_debstackptrs(void *pPerl)
454 return ((CPerlObj*)pPerl)->Perl_debstackptrs();
459 Perl_delimcpy(void *pPerl, char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
461 return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
464 #undef Perl_deprecate
466 Perl_deprecate(void *pPerl, char* s)
468 ((CPerlObj*)pPerl)->Perl_deprecate(s);
471 #undef Perl_die_where
473 Perl_die_where(void *pPerl, char* message, STRLEN msglen)
475 return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
480 Perl_dounwind(void *pPerl, I32 cxix)
482 ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
487 Perl_do_aexec(void *pPerl, SV* really, SV** mark, SV** sp)
489 return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
492 #undef Perl_do_binmode
494 Perl_do_binmode(void *pPerl, PerlIO *fp, int iotype, int flag)
496 return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
501 Perl_do_chop(void *pPerl, SV* asv, SV* sv)
503 ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
508 Perl_do_close(void *pPerl, GV* gv, bool not_implicit)
510 return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
515 Perl_do_eof(void *pPerl, GV* gv)
517 return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
522 Perl_do_exec(void *pPerl, char* cmd)
524 return ((CPerlObj*)pPerl)->Perl_do_exec(cmd);
530 Perl_do_exec3(void *pPerl, char* cmd, int fd, int flag)
532 return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag);
536 #undef Perl_do_execfree
538 Perl_do_execfree(void *pPerl)
540 ((CPerlObj*)pPerl)->Perl_do_execfree();
542 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
544 #undef Perl_do_ipcctl
546 Perl_do_ipcctl(void *pPerl, I32 optype, SV** mark, SV** sp)
548 return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp);
551 #undef Perl_do_ipcget
553 Perl_do_ipcget(void *pPerl, I32 optype, SV** mark, SV** sp)
555 return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp);
558 #undef Perl_do_msgrcv
560 Perl_do_msgrcv(void *pPerl, SV** mark, SV** sp)
562 return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp);
565 #undef Perl_do_msgsnd
567 Perl_do_msgsnd(void *pPerl, SV** mark, SV** sp)
569 return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp);
574 Perl_do_semop(void *pPerl, SV** mark, SV** sp)
576 return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp);
581 Perl_do_shmio(void *pPerl, I32 optype, SV** mark, SV** sp)
583 return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp);
589 Perl_do_join(void *pPerl, SV* sv, SV* del, SV** mark, SV** sp)
591 ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
596 Perl_do_kv(void *pPerl)
598 return ((CPerlObj*)pPerl)->Perl_do_kv();
603 Perl_do_open(void *pPerl, GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
605 return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
610 Perl_do_pipe(void *pPerl, SV* sv, GV* rgv, GV* wgv)
612 ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv);
617 Perl_do_print(void *pPerl, SV* sv, PerlIO* fp)
619 return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp);
622 #undef Perl_do_readline
624 Perl_do_readline(void *pPerl)
626 return ((CPerlObj*)pPerl)->Perl_do_readline();
631 Perl_do_chomp(void *pPerl, SV* sv)
633 return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
638 Perl_do_seek(void *pPerl, GV* gv, Off_t pos, int whence)
640 return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence);
643 #undef Perl_do_sprintf
645 Perl_do_sprintf(void *pPerl, SV* sv, I32 len, SV** sarg)
647 ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg);
650 #undef Perl_do_sysseek
652 Perl_do_sysseek(void *pPerl, GV* gv, Off_t pos, int whence)
654 return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence);
659 Perl_do_tell(void *pPerl, GV* gv)
661 return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
666 Perl_do_trans(void *pPerl, SV* sv)
668 return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
671 #undef Perl_do_vecset
673 Perl_do_vecset(void *pPerl, SV* sv)
675 ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
680 Perl_do_vop(void *pPerl, I32 optype, SV* sv, SV* left, SV* right)
682 ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right);
687 Perl_dofile(void *pPerl, OP* term)
689 return ((CPerlObj*)pPerl)->Perl_dofile(term);
692 #undef Perl_dowantarray
694 Perl_dowantarray(void *pPerl)
696 return ((CPerlObj*)pPerl)->Perl_dowantarray();
701 Perl_dump_all(void *pPerl)
703 ((CPerlObj*)pPerl)->Perl_dump_all();
706 #undef Perl_dump_eval
708 Perl_dump_eval(void *pPerl)
710 ((CPerlObj*)pPerl)->Perl_dump_eval();
712 #if defined(DUMP_FDS)
716 Perl_dump_fds(void *pPerl, char* s)
718 ((CPerlObj*)pPerl)->Perl_dump_fds(s);
722 #undef Perl_dump_form
724 Perl_dump_form(void *pPerl, GV* gv)
726 ((CPerlObj*)pPerl)->Perl_dump_form(gv);
731 Perl_gv_dump(void *pPerl, GV* gv)
733 ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
738 Perl_op_dump(void *pPerl, OP* arg)
740 ((CPerlObj*)pPerl)->Perl_op_dump(arg);
743 #undef Perl_pmop_dump
745 Perl_pmop_dump(void *pPerl, PMOP* pm)
747 ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
750 #undef Perl_dump_packsubs
752 Perl_dump_packsubs(void *pPerl, HV* stash)
754 ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
759 Perl_dump_sub(void *pPerl, GV* gv)
761 ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
764 #undef Perl_fbm_compile
766 Perl_fbm_compile(void *pPerl, SV* sv, U32 flags)
768 ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
771 #undef Perl_fbm_instr
773 Perl_fbm_instr(void *pPerl, unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
775 return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
778 #undef Perl_find_script
780 Perl_find_script(void *pPerl, char *scriptname, bool dosearch, char **search_ext, I32 flags)
782 return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags);
784 #if defined(USE_THREADS)
786 #undef Perl_find_threadsv
788 Perl_find_threadsv(void *pPerl, const char *name)
790 return ((CPerlObj*)pPerl)->Perl_find_threadsv(name);
794 #undef Perl_force_list
796 Perl_force_list(void *pPerl, OP* arg)
798 return ((CPerlObj*)pPerl)->Perl_force_list(arg);
801 #undef Perl_fold_constants
803 Perl_fold_constants(void *pPerl, OP* arg)
805 return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
808 #undef Perl_free_tmps
810 Perl_free_tmps(void *pPerl)
812 ((CPerlObj*)pPerl)->Perl_free_tmps();
815 #undef Perl_gen_constant_list
817 Perl_gen_constant_list(void *pPerl, OP* o)
819 return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o);
821 #if !defined(HAS_GETENV_LEN)
823 #undef Perl_getenv_len
825 Perl_getenv_len(void *pPerl, char* key, unsigned long *len)
827 return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len);
833 Perl_gp_free(void *pPerl, GV* gv)
835 ((CPerlObj*)pPerl)->Perl_gp_free(gv);
840 Perl_gp_ref(void *pPerl, GP* gp)
842 return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
847 Perl_gv_AVadd(void *pPerl, GV* gv)
849 return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
854 Perl_gv_HVadd(void *pPerl, GV* gv)
856 return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
861 Perl_gv_IOadd(void *pPerl, GV* gv)
863 return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
866 #undef Perl_gv_autoload4
868 Perl_gv_autoload4(void *pPerl, HV* stash, const char* name, STRLEN len, I32 method)
870 return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
875 Perl_gv_check(void *pPerl, HV* stash)
877 ((CPerlObj*)pPerl)->Perl_gv_check(stash);
880 #undef Perl_gv_efullname
882 Perl_gv_efullname(void *pPerl, SV* sv, GV* gv)
884 ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
887 #undef Perl_gv_efullname3
889 Perl_gv_efullname3(void *pPerl, SV* sv, GV* gv, const char* prefix)
891 ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
894 #undef Perl_gv_fetchfile
896 Perl_gv_fetchfile(void *pPerl, const char* name)
898 return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
901 #undef Perl_gv_fetchmeth
903 Perl_gv_fetchmeth(void *pPerl, HV* stash, const char* name, STRLEN len, I32 level)
905 return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
908 #undef Perl_gv_fetchmethod
910 Perl_gv_fetchmethod(void *pPerl, HV* stash, const char* name)
912 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
915 #undef Perl_gv_fetchmethod_autoload
917 Perl_gv_fetchmethod_autoload(void *pPerl, HV* stash, const char* name, I32 autoload)
919 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
922 #undef Perl_gv_fetchpv
924 Perl_gv_fetchpv(void *pPerl, const char* name, I32 add, I32 sv_type)
926 return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
929 #undef Perl_gv_fullname
931 Perl_gv_fullname(void *pPerl, SV* sv, GV* gv)
933 ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
936 #undef Perl_gv_fullname3
938 Perl_gv_fullname3(void *pPerl, SV* sv, GV* gv, const char* prefix)
940 ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
945 Perl_gv_init(void *pPerl, GV* gv, HV* stash, const char* name, STRLEN len, int multi)
947 ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
950 #undef Perl_gv_stashpv
952 Perl_gv_stashpv(void *pPerl, const char* name, I32 create)
954 return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
957 #undef Perl_gv_stashpvn
959 Perl_gv_stashpvn(void *pPerl, const char* name, U32 namelen, I32 create)
961 return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
964 #undef Perl_gv_stashsv
966 Perl_gv_stashsv(void *pPerl, SV* sv, I32 create)
968 return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
973 Perl_hv_clear(void *pPerl, HV* tb)
975 ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
978 #undef Perl_hv_delayfree_ent
980 Perl_hv_delayfree_ent(void *pPerl, HV* hv, HE* entry)
982 ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
985 #undef Perl_hv_delete
987 Perl_hv_delete(void *pPerl, HV* tb, const char* key, U32 klen, I32 flags)
989 return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
992 #undef Perl_hv_delete_ent
994 Perl_hv_delete_ent(void *pPerl, HV* tb, SV* key, I32 flags, U32 hash)
996 return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
999 #undef Perl_hv_exists
1001 Perl_hv_exists(void *pPerl, HV* tb, const char* key, U32 klen)
1003 return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
1006 #undef Perl_hv_exists_ent
1008 Perl_hv_exists_ent(void *pPerl, HV* tb, SV* key, U32 hash)
1010 return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
1013 #undef Perl_hv_fetch
1015 Perl_hv_fetch(void *pPerl, HV* tb, const char* key, U32 klen, I32 lval)
1017 return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
1020 #undef Perl_hv_fetch_ent
1022 Perl_hv_fetch_ent(void *pPerl, HV* tb, SV* key, I32 lval, U32 hash)
1024 return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
1027 #undef Perl_hv_free_ent
1029 Perl_hv_free_ent(void *pPerl, HV* hv, HE* entry)
1031 ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
1034 #undef Perl_hv_iterinit
1036 Perl_hv_iterinit(void *pPerl, HV* tb)
1038 return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1041 #undef Perl_hv_iterkey
1043 Perl_hv_iterkey(void *pPerl, HE* entry, I32* retlen)
1045 return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
1048 #undef Perl_hv_iterkeysv
1050 Perl_hv_iterkeysv(void *pPerl, HE* entry)
1052 return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1055 #undef Perl_hv_iternext
1057 Perl_hv_iternext(void *pPerl, HV* tb)
1059 return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1062 #undef Perl_hv_iternextsv
1064 Perl_hv_iternextsv(void *pPerl, HV* hv, char** key, I32* retlen)
1066 return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1069 #undef Perl_hv_iterval
1071 Perl_hv_iterval(void *pPerl, HV* tb, HE* entry)
1073 return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1076 #undef Perl_hv_ksplit
1078 Perl_hv_ksplit(void *pPerl, HV* hv, IV newmax)
1080 ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1083 #undef Perl_hv_magic
1085 Perl_hv_magic(void *pPerl, HV* hv, GV* gv, int how)
1087 ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1090 #undef Perl_hv_store
1092 Perl_hv_store(void *pPerl, HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1094 return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1097 #undef Perl_hv_store_ent
1099 Perl_hv_store_ent(void *pPerl, HV* tb, SV* key, SV* val, U32 hash)
1101 return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1104 #undef Perl_hv_undef
1106 Perl_hv_undef(void *pPerl, HV* tb)
1108 ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1113 Perl_ibcmp(void *pPerl, const char* a, const char* b, I32 len)
1115 return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1118 #undef Perl_ibcmp_locale
1120 Perl_ibcmp_locale(void *pPerl, const char* a, const char* b, I32 len)
1122 return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1127 Perl_ingroup(void *pPerl, I32 testgid, I32 effective)
1129 return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1132 #undef Perl_init_stacks
1134 Perl_init_stacks(void *pPerl)
1136 ((CPerlObj*)pPerl)->Perl_init_stacks();
1139 #undef Perl_intro_my
1141 Perl_intro_my(void *pPerl)
1143 return ((CPerlObj*)pPerl)->Perl_intro_my();
1148 Perl_instr(void *pPerl, const char* big, const char* little)
1150 return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1153 #undef Perl_io_close
1155 Perl_io_close(void *pPerl, IO* io)
1157 return ((CPerlObj*)pPerl)->Perl_io_close(io);
1162 Perl_invert(void *pPerl, OP* cmd)
1164 return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1167 #undef Perl_is_uni_alnum
1169 Perl_is_uni_alnum(void *pPerl, U32 c)
1171 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1174 #undef Perl_is_uni_alnumc
1176 Perl_is_uni_alnumc(void *pPerl, U32 c)
1178 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1181 #undef Perl_is_uni_idfirst
1183 Perl_is_uni_idfirst(void *pPerl, U32 c)
1185 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1188 #undef Perl_is_uni_alpha
1190 Perl_is_uni_alpha(void *pPerl, U32 c)
1192 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1195 #undef Perl_is_uni_ascii
1197 Perl_is_uni_ascii(void *pPerl, U32 c)
1199 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1202 #undef Perl_is_uni_space
1204 Perl_is_uni_space(void *pPerl, U32 c)
1206 return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1209 #undef Perl_is_uni_cntrl
1211 Perl_is_uni_cntrl(void *pPerl, U32 c)
1213 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1216 #undef Perl_is_uni_graph
1218 Perl_is_uni_graph(void *pPerl, U32 c)
1220 return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1223 #undef Perl_is_uni_digit
1225 Perl_is_uni_digit(void *pPerl, U32 c)
1227 return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1230 #undef Perl_is_uni_upper
1232 Perl_is_uni_upper(void *pPerl, U32 c)
1234 return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1237 #undef Perl_is_uni_lower
1239 Perl_is_uni_lower(void *pPerl, U32 c)
1241 return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1244 #undef Perl_is_uni_print
1246 Perl_is_uni_print(void *pPerl, U32 c)
1248 return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1251 #undef Perl_is_uni_punct
1253 Perl_is_uni_punct(void *pPerl, U32 c)
1255 return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1258 #undef Perl_is_uni_xdigit
1260 Perl_is_uni_xdigit(void *pPerl, U32 c)
1262 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1265 #undef Perl_to_uni_upper
1267 Perl_to_uni_upper(void *pPerl, U32 c)
1269 return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1272 #undef Perl_to_uni_title
1274 Perl_to_uni_title(void *pPerl, U32 c)
1276 return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1279 #undef Perl_to_uni_lower
1281 Perl_to_uni_lower(void *pPerl, U32 c)
1283 return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1286 #undef Perl_is_uni_alnum_lc
1288 Perl_is_uni_alnum_lc(void *pPerl, U32 c)
1290 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1293 #undef Perl_is_uni_alnumc_lc
1295 Perl_is_uni_alnumc_lc(void *pPerl, U32 c)
1297 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1300 #undef Perl_is_uni_idfirst_lc
1302 Perl_is_uni_idfirst_lc(void *pPerl, U32 c)
1304 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1307 #undef Perl_is_uni_alpha_lc
1309 Perl_is_uni_alpha_lc(void *pPerl, U32 c)
1311 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1314 #undef Perl_is_uni_ascii_lc
1316 Perl_is_uni_ascii_lc(void *pPerl, U32 c)
1318 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1321 #undef Perl_is_uni_space_lc
1323 Perl_is_uni_space_lc(void *pPerl, U32 c)
1325 return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1328 #undef Perl_is_uni_cntrl_lc
1330 Perl_is_uni_cntrl_lc(void *pPerl, U32 c)
1332 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1335 #undef Perl_is_uni_graph_lc
1337 Perl_is_uni_graph_lc(void *pPerl, U32 c)
1339 return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1342 #undef Perl_is_uni_digit_lc
1344 Perl_is_uni_digit_lc(void *pPerl, U32 c)
1346 return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1349 #undef Perl_is_uni_upper_lc
1351 Perl_is_uni_upper_lc(void *pPerl, U32 c)
1353 return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1356 #undef Perl_is_uni_lower_lc
1358 Perl_is_uni_lower_lc(void *pPerl, U32 c)
1360 return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1363 #undef Perl_is_uni_print_lc
1365 Perl_is_uni_print_lc(void *pPerl, U32 c)
1367 return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1370 #undef Perl_is_uni_punct_lc
1372 Perl_is_uni_punct_lc(void *pPerl, U32 c)
1374 return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1377 #undef Perl_is_uni_xdigit_lc
1379 Perl_is_uni_xdigit_lc(void *pPerl, U32 c)
1381 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1384 #undef Perl_to_uni_upper_lc
1386 Perl_to_uni_upper_lc(void *pPerl, U32 c)
1388 return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1391 #undef Perl_to_uni_title_lc
1393 Perl_to_uni_title_lc(void *pPerl, U32 c)
1395 return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1398 #undef Perl_to_uni_lower_lc
1400 Perl_to_uni_lower_lc(void *pPerl, U32 c)
1402 return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1405 #undef Perl_is_utf8_alnum
1407 Perl_is_utf8_alnum(void *pPerl, U8 *p)
1409 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1412 #undef Perl_is_utf8_alnumc
1414 Perl_is_utf8_alnumc(void *pPerl, U8 *p)
1416 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1419 #undef Perl_is_utf8_idfirst
1421 Perl_is_utf8_idfirst(void *pPerl, U8 *p)
1423 return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1426 #undef Perl_is_utf8_alpha
1428 Perl_is_utf8_alpha(void *pPerl, U8 *p)
1430 return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1433 #undef Perl_is_utf8_ascii
1435 Perl_is_utf8_ascii(void *pPerl, U8 *p)
1437 return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1440 #undef Perl_is_utf8_space
1442 Perl_is_utf8_space(void *pPerl, U8 *p)
1444 return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1447 #undef Perl_is_utf8_cntrl
1449 Perl_is_utf8_cntrl(void *pPerl, U8 *p)
1451 return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1454 #undef Perl_is_utf8_digit
1456 Perl_is_utf8_digit(void *pPerl, U8 *p)
1458 return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1461 #undef Perl_is_utf8_graph
1463 Perl_is_utf8_graph(void *pPerl, U8 *p)
1465 return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1468 #undef Perl_is_utf8_upper
1470 Perl_is_utf8_upper(void *pPerl, U8 *p)
1472 return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1475 #undef Perl_is_utf8_lower
1477 Perl_is_utf8_lower(void *pPerl, U8 *p)
1479 return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1482 #undef Perl_is_utf8_print
1484 Perl_is_utf8_print(void *pPerl, U8 *p)
1486 return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1489 #undef Perl_is_utf8_punct
1491 Perl_is_utf8_punct(void *pPerl, U8 *p)
1493 return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1496 #undef Perl_is_utf8_xdigit
1498 Perl_is_utf8_xdigit(void *pPerl, U8 *p)
1500 return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1503 #undef Perl_is_utf8_mark
1505 Perl_is_utf8_mark(void *pPerl, U8 *p)
1507 return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1512 Perl_jmaybe(void *pPerl, OP* arg)
1514 return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1519 Perl_keyword(void *pPerl, char* d, I32 len)
1521 return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1524 #undef Perl_leave_scope
1526 Perl_leave_scope(void *pPerl, I32 base)
1528 ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1533 Perl_lex_end(void *pPerl)
1535 ((CPerlObj*)pPerl)->Perl_lex_end();
1538 #undef Perl_lex_start
1540 Perl_lex_start(void *pPerl, SV* line)
1542 ((CPerlObj*)pPerl)->Perl_lex_start(line);
1545 #undef Perl_linklist
1547 Perl_linklist(void *pPerl, OP* o)
1549 return ((CPerlObj*)pPerl)->Perl_linklist(o);
1554 Perl_list(void *pPerl, OP* o)
1556 return ((CPerlObj*)pPerl)->Perl_list(o);
1559 #undef Perl_listkids
1561 Perl_listkids(void *pPerl, OP* o)
1563 return ((CPerlObj*)pPerl)->Perl_listkids(o);
1566 #undef Perl_localize
1568 Perl_localize(void *pPerl, OP* arg, I32 lexical)
1570 return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1573 #undef Perl_looks_like_number
1575 Perl_looks_like_number(void *pPerl, SV* sv)
1577 return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1580 #undef Perl_magic_clearenv
1582 Perl_magic_clearenv(void *pPerl, SV* sv, MAGIC* mg)
1584 return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg);
1587 #undef Perl_magic_clear_all_env
1589 Perl_magic_clear_all_env(void *pPerl, SV* sv, MAGIC* mg)
1591 return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg);
1594 #undef Perl_magic_clearpack
1596 Perl_magic_clearpack(void *pPerl, SV* sv, MAGIC* mg)
1598 return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg);
1601 #undef Perl_magic_clearsig
1603 Perl_magic_clearsig(void *pPerl, SV* sv, MAGIC* mg)
1605 return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg);
1608 #undef Perl_magic_existspack
1610 Perl_magic_existspack(void *pPerl, SV* sv, MAGIC* mg)
1612 return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg);
1615 #undef Perl_magic_freeregexp
1617 Perl_magic_freeregexp(void *pPerl, SV* sv, MAGIC* mg)
1619 return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg);
1622 #undef Perl_magic_get
1624 Perl_magic_get(void *pPerl, SV* sv, MAGIC* mg)
1626 return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg);
1629 #undef Perl_magic_getarylen
1631 Perl_magic_getarylen(void *pPerl, SV* sv, MAGIC* mg)
1633 return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg);
1636 #undef Perl_magic_getdefelem
1638 Perl_magic_getdefelem(void *pPerl, SV* sv, MAGIC* mg)
1640 return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg);
1643 #undef Perl_magic_getglob
1645 Perl_magic_getglob(void *pPerl, SV* sv, MAGIC* mg)
1647 return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg);
1650 #undef Perl_magic_getnkeys
1652 Perl_magic_getnkeys(void *pPerl, SV* sv, MAGIC* mg)
1654 return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg);
1657 #undef Perl_magic_getpack
1659 Perl_magic_getpack(void *pPerl, SV* sv, MAGIC* mg)
1661 return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg);
1664 #undef Perl_magic_getpos
1666 Perl_magic_getpos(void *pPerl, SV* sv, MAGIC* mg)
1668 return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg);
1671 #undef Perl_magic_getsig
1673 Perl_magic_getsig(void *pPerl, SV* sv, MAGIC* mg)
1675 return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg);
1678 #undef Perl_magic_getsubstr
1680 Perl_magic_getsubstr(void *pPerl, SV* sv, MAGIC* mg)
1682 return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg);
1685 #undef Perl_magic_gettaint
1687 Perl_magic_gettaint(void *pPerl, SV* sv, MAGIC* mg)
1689 return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg);
1692 #undef Perl_magic_getuvar
1694 Perl_magic_getuvar(void *pPerl, SV* sv, MAGIC* mg)
1696 return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg);
1699 #undef Perl_magic_getvec
1701 Perl_magic_getvec(void *pPerl, SV* sv, MAGIC* mg)
1703 return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg);
1706 #undef Perl_magic_len
1708 Perl_magic_len(void *pPerl, SV* sv, MAGIC* mg)
1710 return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg);
1712 #if defined(USE_THREADS)
1714 #undef Perl_magic_mutexfree
1716 Perl_magic_mutexfree(void *pPerl, SV* sv, MAGIC* mg)
1718 return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg);
1722 #undef Perl_magic_nextpack
1724 Perl_magic_nextpack(void *pPerl, SV* sv, MAGIC* mg, SV* key)
1726 return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key);
1729 #undef Perl_magic_regdata_cnt
1731 Perl_magic_regdata_cnt(void *pPerl, SV* sv, MAGIC* mg)
1733 return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg);
1736 #undef Perl_magic_regdatum_get
1738 Perl_magic_regdatum_get(void *pPerl, SV* sv, MAGIC* mg)
1740 return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg);
1743 #undef Perl_magic_set
1745 Perl_magic_set(void *pPerl, SV* sv, MAGIC* mg)
1747 return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg);
1750 #undef Perl_magic_setamagic
1752 Perl_magic_setamagic(void *pPerl, SV* sv, MAGIC* mg)
1754 return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg);
1757 #undef Perl_magic_setarylen
1759 Perl_magic_setarylen(void *pPerl, SV* sv, MAGIC* mg)
1761 return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg);
1764 #undef Perl_magic_setbm
1766 Perl_magic_setbm(void *pPerl, SV* sv, MAGIC* mg)
1768 return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg);
1771 #undef Perl_magic_setdbline
1773 Perl_magic_setdbline(void *pPerl, SV* sv, MAGIC* mg)
1775 return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg);
1777 #if defined(USE_LOCALE_COLLATE)
1779 #undef Perl_magic_setcollxfrm
1781 Perl_magic_setcollxfrm(void *pPerl, SV* sv, MAGIC* mg)
1783 return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg);
1787 #undef Perl_magic_setdefelem
1789 Perl_magic_setdefelem(void *pPerl, SV* sv, MAGIC* mg)
1791 return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg);
1794 #undef Perl_magic_setenv
1796 Perl_magic_setenv(void *pPerl, SV* sv, MAGIC* mg)
1798 return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg);
1801 #undef Perl_magic_setfm
1803 Perl_magic_setfm(void *pPerl, SV* sv, MAGIC* mg)
1805 return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg);
1808 #undef Perl_magic_setisa
1810 Perl_magic_setisa(void *pPerl, SV* sv, MAGIC* mg)
1812 return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg);
1815 #undef Perl_magic_setglob
1817 Perl_magic_setglob(void *pPerl, SV* sv, MAGIC* mg)
1819 return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg);
1822 #undef Perl_magic_setmglob
1824 Perl_magic_setmglob(void *pPerl, SV* sv, MAGIC* mg)
1826 return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg);
1829 #undef Perl_magic_setnkeys
1831 Perl_magic_setnkeys(void *pPerl, SV* sv, MAGIC* mg)
1833 return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg);
1836 #undef Perl_magic_setpack
1838 Perl_magic_setpack(void *pPerl, SV* sv, MAGIC* mg)
1840 return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg);
1843 #undef Perl_magic_setpos
1845 Perl_magic_setpos(void *pPerl, SV* sv, MAGIC* mg)
1847 return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg);
1850 #undef Perl_magic_setsig
1852 Perl_magic_setsig(void *pPerl, SV* sv, MAGIC* mg)
1854 return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg);
1857 #undef Perl_magic_setsubstr
1859 Perl_magic_setsubstr(void *pPerl, SV* sv, MAGIC* mg)
1861 return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg);
1864 #undef Perl_magic_settaint
1866 Perl_magic_settaint(void *pPerl, SV* sv, MAGIC* mg)
1868 return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg);
1871 #undef Perl_magic_setuvar
1873 Perl_magic_setuvar(void *pPerl, SV* sv, MAGIC* mg)
1875 return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg);
1878 #undef Perl_magic_setvec
1880 Perl_magic_setvec(void *pPerl, SV* sv, MAGIC* mg)
1882 return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg);
1885 #undef Perl_magic_set_all_env
1887 Perl_magic_set_all_env(void *pPerl, SV* sv, MAGIC* mg)
1889 return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg);
1892 #undef Perl_magic_sizepack
1894 Perl_magic_sizepack(void *pPerl, SV* sv, MAGIC* mg)
1896 return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg);
1899 #undef Perl_magic_wipepack
1901 Perl_magic_wipepack(void *pPerl, SV* sv, MAGIC* mg)
1903 return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
1906 #undef Perl_magicname
1908 Perl_magicname(void *pPerl, char* sym, char* name, I32 namlen)
1910 ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen);
1912 #if defined(MYMALLOC)
1914 #undef Perl_malloced_size
1916 Perl_malloced_size(void *pPerl, void *p)
1918 return ((CPerlObj*)pPerl)->Perl_malloced_size(p);
1922 #undef Perl_markstack_grow
1924 Perl_markstack_grow(void *pPerl)
1926 ((CPerlObj*)pPerl)->Perl_markstack_grow();
1928 #if defined(USE_LOCALE_COLLATE)
1930 #undef Perl_mem_collxfrm
1932 Perl_mem_collxfrm(void *pPerl, const char* s, STRLEN len, STRLEN* xlen)
1934 return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen);
1940 Perl_mess(void *pPerl, const char* pat, va_list* args)
1942 return ((CPerlObj*)pPerl)->Perl_mess(pat, args);
1945 #undef Perl_mg_clear
1947 Perl_mg_clear(void *pPerl, SV* sv)
1949 return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1954 Perl_mg_copy(void *pPerl, SV* sv, SV* nsv, const char* key, I32 klen)
1956 return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
1961 Perl_mg_find(void *pPerl, SV* sv, int type)
1963 return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
1968 Perl_mg_free(void *pPerl, SV* sv)
1970 return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1975 Perl_mg_get(void *pPerl, SV* sv)
1977 return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1980 #undef Perl_mg_length
1982 Perl_mg_length(void *pPerl, SV* sv)
1984 return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1987 #undef Perl_mg_magical
1989 Perl_mg_magical(void *pPerl, SV* sv)
1991 ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1996 Perl_mg_set(void *pPerl, SV* sv)
1998 return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
2003 Perl_mg_size(void *pPerl, SV* sv)
2005 return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2010 Perl_mod(void *pPerl, OP* o, I32 type)
2012 return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2015 #undef Perl_moreswitches
2017 Perl_moreswitches(void *pPerl, char* s)
2019 return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2024 Perl_my(void *pPerl, OP* o)
2026 return ((CPerlObj*)pPerl)->Perl_my(o);
2031 Perl_my_atof(void *pPerl, const char *s)
2033 return ((CPerlObj*)pPerl)->Perl_my_atof(s);
2035 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
2037 #undef Perl_my_bcopy
2039 Perl_my_bcopy(void *pPerl, const char* from, char* to, I32 len)
2041 return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2044 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2046 #undef Perl_my_bzero
2048 Perl_my_bzero(void *pPerl, char* loc, I32 len)
2050 return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2056 Perl_my_exit(void *pPerl, U32 status)
2058 ((CPerlObj*)pPerl)->Perl_my_exit(status);
2061 #undef Perl_my_failure_exit
2063 Perl_my_failure_exit(void *pPerl)
2065 ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2068 #undef Perl_my_fflush_all
2070 Perl_my_fflush_all(void *pPerl)
2072 return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2075 #undef Perl_my_lstat
2077 Perl_my_lstat(void *pPerl)
2079 return ((CPerlObj*)pPerl)->Perl_my_lstat();
2081 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2083 #undef Perl_my_memcmp
2085 Perl_my_memcmp(void *pPerl, const char* s1, const char* s2, I32 len)
2087 return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2090 #if !defined(HAS_MEMSET)
2092 #undef Perl_my_memset
2094 Perl_my_memset(void *pPerl, char* loc, I32 ch, I32 len)
2096 return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2099 #if !defined(PERL_OBJECT)
2101 #undef Perl_my_pclose
2103 Perl_my_pclose(void *pPerl, PerlIO* ptr)
2105 return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2108 #undef Perl_my_popen
2110 Perl_my_popen(void *pPerl, char* cmd, char* mode)
2112 return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2116 #undef Perl_my_setenv
2118 Perl_my_setenv(void *pPerl, char* nam, char* val)
2120 ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2125 Perl_my_stat(void *pPerl)
2127 return ((CPerlObj*)pPerl)->Perl_my_stat();
2133 Perl_my_swap(void *pPerl, short s)
2135 return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2138 #undef Perl_my_htonl
2140 Perl_my_htonl(void *pPerl, long l)
2142 return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2145 #undef Perl_my_ntohl
2147 Perl_my_ntohl(void *pPerl, long l)
2149 return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2153 #undef Perl_my_unexec
2155 Perl_my_unexec(void *pPerl)
2157 ((CPerlObj*)pPerl)->Perl_my_unexec();
2160 #undef Perl_newANONLIST
2162 Perl_newANONLIST(void *pPerl, OP* o)
2164 return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2167 #undef Perl_newANONHASH
2169 Perl_newANONHASH(void *pPerl, OP* o)
2171 return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2174 #undef Perl_newANONSUB
2176 Perl_newANONSUB(void *pPerl, I32 floor, OP* proto, OP* block)
2178 return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2181 #undef Perl_newASSIGNOP
2183 Perl_newASSIGNOP(void *pPerl, I32 flags, OP* left, I32 optype, OP* right)
2185 return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2188 #undef Perl_newCONDOP
2190 Perl_newCONDOP(void *pPerl, I32 flags, OP* expr, OP* trueop, OP* falseop)
2192 return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2195 #undef Perl_newCONSTSUB
2197 Perl_newCONSTSUB(void *pPerl, HV* stash, char* name, SV* sv)
2199 ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2204 Perl_newFORM(void *pPerl, I32 floor, OP* o, OP* block)
2206 ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2209 #undef Perl_newFOROP
2211 Perl_newFOROP(void *pPerl, I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2213 return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2216 #undef Perl_newLOGOP
2218 Perl_newLOGOP(void *pPerl, I32 optype, I32 flags, OP* left, OP* right)
2220 return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2223 #undef Perl_newLOOPEX
2225 Perl_newLOOPEX(void *pPerl, I32 type, OP* label)
2227 return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2230 #undef Perl_newLOOPOP
2232 Perl_newLOOPOP(void *pPerl, I32 flags, I32 debuggable, OP* expr, OP* block)
2234 return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2237 #undef Perl_newNULLLIST
2239 Perl_newNULLLIST(void *pPerl)
2241 return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2246 Perl_newOP(void *pPerl, I32 optype, I32 flags)
2248 return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2253 Perl_newPROG(void *pPerl, OP* o)
2255 ((CPerlObj*)pPerl)->Perl_newPROG(o);
2258 #undef Perl_newRANGE
2260 Perl_newRANGE(void *pPerl, I32 flags, OP* left, OP* right)
2262 return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2265 #undef Perl_newSLICEOP
2267 Perl_newSLICEOP(void *pPerl, I32 flags, OP* subscript, OP* listop)
2269 return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2272 #undef Perl_newSTATEOP
2274 Perl_newSTATEOP(void *pPerl, I32 flags, char* label, OP* o)
2276 return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2281 Perl_newSUB(void *pPerl, I32 floor, OP* o, OP* proto, OP* block)
2283 return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2288 Perl_newXS(void *pPerl, char* name, XSUBADDR_t f, char* filename)
2290 return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2295 Perl_newAV(void *pPerl)
2297 return ((CPerlObj*)pPerl)->Perl_newAV();
2300 #undef Perl_newAVREF
2302 Perl_newAVREF(void *pPerl, OP* o)
2304 return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2307 #undef Perl_newBINOP
2309 Perl_newBINOP(void *pPerl, I32 type, I32 flags, OP* first, OP* last)
2311 return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2314 #undef Perl_newCVREF
2316 Perl_newCVREF(void *pPerl, I32 flags, OP* o)
2318 return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2323 Perl_newGVOP(void *pPerl, I32 type, I32 flags, GV* gv)
2325 return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2328 #undef Perl_newGVgen
2330 Perl_newGVgen(void *pPerl, char* pack)
2332 return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2335 #undef Perl_newGVREF
2337 Perl_newGVREF(void *pPerl, I32 type, OP* o)
2339 return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2342 #undef Perl_newHVREF
2344 Perl_newHVREF(void *pPerl, OP* o)
2346 return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2351 Perl_newHV(void *pPerl)
2353 return ((CPerlObj*)pPerl)->Perl_newHV();
2358 Perl_newHVhv(void *pPerl, HV* hv)
2360 return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2365 Perl_newIO(void *pPerl)
2367 return ((CPerlObj*)pPerl)->Perl_newIO();
2370 #undef Perl_newLISTOP
2372 Perl_newLISTOP(void *pPerl, I32 type, I32 flags, OP* first, OP* last)
2374 return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2379 Perl_newPMOP(void *pPerl, I32 type, I32 flags)
2381 return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2386 Perl_newPVOP(void *pPerl, I32 type, I32 flags, char* pv)
2388 return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2393 Perl_newRV(void *pPerl, SV* pref)
2395 return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2398 #undef Perl_newRV_noinc
2400 Perl_newRV_noinc(void *pPerl, SV *sv)
2402 return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2407 Perl_newSV(void *pPerl, STRLEN len)
2409 return ((CPerlObj*)pPerl)->Perl_newSV(len);
2412 #undef Perl_newSVREF
2414 Perl_newSVREF(void *pPerl, OP* o)
2416 return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2421 Perl_newSVOP(void *pPerl, I32 type, I32 flags, SV* sv)
2423 return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2428 Perl_newSViv(void *pPerl, IV i)
2430 return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2435 Perl_newSVnv(void *pPerl, NV n)
2437 return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2442 Perl_newSVpv(void *pPerl, const char* s, STRLEN len)
2444 return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2447 #undef Perl_newSVpvn
2449 Perl_newSVpvn(void *pPerl, const char* s, STRLEN len)
2451 return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2456 Perl_newSVrv(void *pPerl, SV* rv, const char* classname)
2458 return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2463 Perl_newSVsv(void *pPerl, SV* old)
2465 return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2470 Perl_newUNOP(void *pPerl, I32 type, I32 flags, OP* first)
2472 return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2475 #undef Perl_newWHILEOP
2477 Perl_newWHILEOP(void *pPerl, I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2479 return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2481 #if defined(USE_THREADS)
2483 #undef Perl_new_struct_thread
2485 Perl_new_struct_thread(void *pPerl, struct perl_thread *t)
2487 return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2491 #undef Perl_new_stackinfo
2493 Perl_new_stackinfo(void *pPerl, I32 stitems, I32 cxitems)
2495 return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2498 #undef Perl_nextargv
2500 Perl_nextargv(void *pPerl, GV* gv)
2502 return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2507 Perl_ninstr(void *pPerl, const char* big, const char* bigend, const char* little, const char* lend)
2509 return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2514 Perl_oopsCV(void *pPerl, OP* o)
2516 return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2521 Perl_op_free(void *pPerl, OP* arg)
2523 ((CPerlObj*)pPerl)->Perl_op_free(arg);
2528 Perl_package(void *pPerl, OP* o)
2530 ((CPerlObj*)pPerl)->Perl_package(o);
2533 #undef Perl_pad_alloc
2535 Perl_pad_alloc(void *pPerl, I32 optype, U32 tmptype)
2537 return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2540 #undef Perl_pad_allocmy
2542 Perl_pad_allocmy(void *pPerl, char* name)
2544 return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2547 #undef Perl_pad_findmy
2549 Perl_pad_findmy(void *pPerl, char* name)
2551 return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2556 Perl_oopsAV(void *pPerl, OP* o)
2558 return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2563 Perl_oopsHV(void *pPerl, OP* o)
2565 return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2568 #undef Perl_pad_leavemy
2570 Perl_pad_leavemy(void *pPerl, I32 fill)
2572 ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2577 Perl_pad_sv(void *pPerl, PADOFFSET po)
2579 return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2582 #undef Perl_pad_free
2584 Perl_pad_free(void *pPerl, PADOFFSET po)
2586 ((CPerlObj*)pPerl)->Perl_pad_free(po);
2589 #undef Perl_pad_reset
2591 Perl_pad_reset(void *pPerl)
2593 ((CPerlObj*)pPerl)->Perl_pad_reset();
2596 #undef Perl_pad_swipe
2598 Perl_pad_swipe(void *pPerl, PADOFFSET po)
2600 ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2605 Perl_peep(void *pPerl, OP* o)
2607 ((CPerlObj*)pPerl)->Perl_peep(o);
2609 #if defined(PERL_OBJECT)
2614 perl_alloc(void *pPerl)
2616 return ((CPerlObj*)pPerl)->perl_alloc();
2620 #undef Perl_call_atexit
2622 Perl_call_atexit(void *pPerl, ATEXIT_t fn, void *ptr)
2624 ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2627 #undef Perl_call_argv
2629 Perl_call_argv(void *pPerl, const char* sub_name, I32 flags, char** argv)
2631 return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2634 #undef Perl_call_method
2636 Perl_call_method(void *pPerl, const char* methname, I32 flags)
2638 return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2643 Perl_call_pv(void *pPerl, const char* sub_name, I32 flags)
2645 return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2650 Perl_call_sv(void *pPerl, SV* sv, I32 flags)
2652 return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2657 Perl_eval_pv(void *pPerl, const char* p, I32 croak_on_error)
2659 return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2664 Perl_eval_sv(void *pPerl, SV* sv, I32 flags)
2666 return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2671 Perl_get_sv(void *pPerl, const char* name, I32 create)
2673 return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2678 Perl_get_av(void *pPerl, const char* name, I32 create)
2680 return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2685 Perl_get_hv(void *pPerl, const char* name, I32 create)
2687 return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2692 Perl_get_cv(void *pPerl, const char* name, I32 create)
2694 return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2697 #undef Perl_init_i18nl10n
2699 Perl_init_i18nl10n(void *pPerl, int printwarn)
2701 return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2704 #undef Perl_init_i18nl14n
2706 Perl_init_i18nl14n(void *pPerl, int printwarn)
2708 return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2711 #undef Perl_new_collate
2713 Perl_new_collate(void *pPerl, const char* newcoll)
2715 ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2718 #undef Perl_new_ctype
2720 Perl_new_ctype(void *pPerl, const char* newctype)
2722 ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2725 #undef Perl_new_numeric
2727 Perl_new_numeric(void *pPerl, const char* newcoll)
2729 ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2732 #undef Perl_set_numeric_local
2734 Perl_set_numeric_local(void *pPerl)
2736 ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2739 #undef Perl_set_numeric_radix
2741 Perl_set_numeric_radix(void *pPerl)
2743 ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2746 #undef Perl_set_numeric_standard
2748 Perl_set_numeric_standard(void *pPerl)
2750 ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2753 #undef Perl_require_pv
2755 Perl_require_pv(void *pPerl, const char* pv)
2757 ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2762 Perl_pidgone(void *pPerl, int pid, int status)
2764 ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
2769 Perl_pmflag(void *pPerl, U16* pmfl, int ch)
2771 ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2774 #undef Perl_pmruntime
2776 Perl_pmruntime(void *pPerl, OP* pm, OP* expr, OP* repl)
2778 return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
2783 Perl_pmtrans(void *pPerl, OP* o, OP* expr, OP* repl)
2785 return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
2788 #undef Perl_pop_return
2790 Perl_pop_return(void *pPerl)
2792 return ((CPerlObj*)pPerl)->Perl_pop_return();
2795 #undef Perl_pop_scope
2797 Perl_pop_scope(void *pPerl)
2799 ((CPerlObj*)pPerl)->Perl_pop_scope();
2802 #undef Perl_prepend_elem
2804 Perl_prepend_elem(void *pPerl, I32 optype, OP* head, OP* tail)
2806 return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
2809 #undef Perl_push_return
2811 Perl_push_return(void *pPerl, OP* o)
2813 ((CPerlObj*)pPerl)->Perl_push_return(o);
2816 #undef Perl_push_scope
2818 Perl_push_scope(void *pPerl)
2820 ((CPerlObj*)pPerl)->Perl_push_scope();
2825 Perl_ref(void *pPerl, OP* o, I32 type)
2827 return ((CPerlObj*)pPerl)->Perl_ref(o, type);
2832 Perl_refkids(void *pPerl, OP* o, I32 type)
2834 return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
2839 Perl_regdump(void *pPerl, regexp* r)
2841 ((CPerlObj*)pPerl)->Perl_regdump(r);
2844 #undef Perl_pregexec
2846 Perl_pregexec(void *pPerl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2848 return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2851 #undef Perl_pregfree
2853 Perl_pregfree(void *pPerl, struct regexp* r)
2855 ((CPerlObj*)pPerl)->Perl_pregfree(r);
2858 #undef Perl_pregcomp
2860 Perl_pregcomp(void *pPerl, char* exp, char* xend, PMOP* pm)
2862 return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2865 #undef Perl_re_intuit_start
2867 Perl_re_intuit_start(void *pPerl, regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2869 return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2872 #undef Perl_re_intuit_string
2874 Perl_re_intuit_string(void *pPerl, regexp* prog)
2876 return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2879 #undef Perl_regexec_flags
2881 Perl_regexec_flags(void *pPerl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2883 return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2888 Perl_regnext(void *pPerl, regnode* p)
2890 return ((CPerlObj*)pPerl)->Perl_regnext(p);
2895 Perl_regprop(void *pPerl, SV* sv, regnode* o)
2897 ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
2900 #undef Perl_repeatcpy
2902 Perl_repeatcpy(void *pPerl, char* to, const char* from, I32 len, I32 count)
2904 ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2909 Perl_rninstr(void *pPerl, const char* big, const char* bigend, const char* little, const char* lend)
2911 return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2916 Perl_rsignal(void *pPerl, int i, Sighandler_t t)
2918 return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
2921 #undef Perl_rsignal_restore
2923 Perl_rsignal_restore(void *pPerl, int i, Sigsave_t* t)
2925 return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
2928 #undef Perl_rsignal_save
2930 Perl_rsignal_save(void *pPerl, int i, Sighandler_t t1, Sigsave_t* t2)
2932 return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
2935 #undef Perl_rsignal_state
2937 Perl_rsignal_state(void *pPerl, int i)
2939 return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
2942 #undef Perl_rxres_free
2944 Perl_rxres_free(void *pPerl, void** rsp)
2946 ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
2949 #undef Perl_rxres_restore
2951 Perl_rxres_restore(void *pPerl, void** rsp, REGEXP* prx)
2953 ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
2956 #undef Perl_rxres_save
2958 Perl_rxres_save(void *pPerl, void** rsp, REGEXP* prx)
2960 ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
2962 #if !defined(HAS_RENAME)
2964 #undef Perl_same_dirent
2966 Perl_same_dirent(void *pPerl, char* a, char* b)
2968 return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
2974 Perl_savepv(void *pPerl, const char* sv)
2976 return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2981 Perl_savepvn(void *pPerl, const char* sv, I32 len)
2983 return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2986 #undef Perl_savestack_grow
2988 Perl_savestack_grow(void *pPerl)
2990 ((CPerlObj*)pPerl)->Perl_savestack_grow();
2993 #undef Perl_save_aelem
2995 Perl_save_aelem(void *pPerl, AV* av, I32 idx, SV **sptr)
2997 ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
3000 #undef Perl_save_alloc
3002 Perl_save_alloc(void *pPerl, I32 size, I32 pad)
3004 return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3007 #undef Perl_save_aptr
3009 Perl_save_aptr(void *pPerl, AV** aptr)
3011 ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3014 #undef Perl_save_ary
3016 Perl_save_ary(void *pPerl, GV* gv)
3018 return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3021 #undef Perl_save_clearsv
3023 Perl_save_clearsv(void *pPerl, SV** svp)
3025 ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3028 #undef Perl_save_delete
3030 Perl_save_delete(void *pPerl, HV* hv, char* key, I32 klen)
3032 ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3035 #undef Perl_save_destructor
3037 Perl_save_destructor(void *pPerl, DESTRUCTORFUNC_t f, void* p)
3039 ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3042 #undef Perl_save_freesv
3044 Perl_save_freesv(void *pPerl, SV* sv)
3046 ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3049 #undef Perl_save_freeop
3051 Perl_save_freeop(void *pPerl, OP* o)
3053 ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3056 #undef Perl_save_freepv
3058 Perl_save_freepv(void *pPerl, char* pv)
3060 ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3063 #undef Perl_save_generic_svref
3065 Perl_save_generic_svref(void *pPerl, SV** sptr)
3067 ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3072 Perl_save_gp(void *pPerl, GV* gv, I32 empty)
3074 ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3077 #undef Perl_save_hash
3079 Perl_save_hash(void *pPerl, GV* gv)
3081 return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3084 #undef Perl_save_helem
3086 Perl_save_helem(void *pPerl, HV* hv, SV *key, SV **sptr)
3088 ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3091 #undef Perl_save_hints
3093 Perl_save_hints(void *pPerl)
3095 ((CPerlObj*)pPerl)->Perl_save_hints();
3098 #undef Perl_save_hptr
3100 Perl_save_hptr(void *pPerl, HV** hptr)
3102 ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3105 #undef Perl_save_I16
3107 Perl_save_I16(void *pPerl, I16* intp)
3109 ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3112 #undef Perl_save_I32
3114 Perl_save_I32(void *pPerl, I32* intp)
3116 ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3119 #undef Perl_save_int
3121 Perl_save_int(void *pPerl, int* intp)
3123 ((CPerlObj*)pPerl)->Perl_save_int(intp);
3126 #undef Perl_save_item
3128 Perl_save_item(void *pPerl, SV* item)
3130 ((CPerlObj*)pPerl)->Perl_save_item(item);
3135 Perl_save_iv(void *pPerl, IV* iv)
3137 ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3140 #undef Perl_save_list
3142 Perl_save_list(void *pPerl, SV** sarg, I32 maxsarg)
3144 ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3147 #undef Perl_save_long
3149 Perl_save_long(void *pPerl, long* longp)
3151 ((CPerlObj*)pPerl)->Perl_save_long(longp);
3154 #undef Perl_save_nogv
3156 Perl_save_nogv(void *pPerl, GV* gv)
3158 ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3163 Perl_save_op(void *pPerl)
3165 ((CPerlObj*)pPerl)->Perl_save_op();
3168 #undef Perl_save_scalar
3170 Perl_save_scalar(void *pPerl, GV* gv)
3172 return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3175 #undef Perl_save_pptr
3177 Perl_save_pptr(void *pPerl, char** pptr)
3179 ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3182 #undef Perl_save_re_context
3184 Perl_save_re_context(void *pPerl)
3186 ((CPerlObj*)pPerl)->Perl_save_re_context();
3189 #undef Perl_save_sptr
3191 Perl_save_sptr(void *pPerl, SV** sptr)
3193 ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3196 #undef Perl_save_svref
3198 Perl_save_svref(void *pPerl, SV** sptr)
3200 return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3203 #undef Perl_save_threadsv
3205 Perl_save_threadsv(void *pPerl, PADOFFSET i)
3207 return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3210 #undef Perl_sawparens
3212 Perl_sawparens(void *pPerl, OP* o)
3214 return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3219 Perl_scalar(void *pPerl, OP* o)
3221 return ((CPerlObj*)pPerl)->Perl_scalar(o);
3224 #undef Perl_scalarkids
3226 Perl_scalarkids(void *pPerl, OP* o)
3228 return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3231 #undef Perl_scalarseq
3233 Perl_scalarseq(void *pPerl, OP* o)
3235 return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3238 #undef Perl_scalarvoid
3240 Perl_scalarvoid(void *pPerl, OP* o)
3242 return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3245 #undef Perl_scan_bin
3247 Perl_scan_bin(void *pPerl, char* start, I32 len, I32* retlen)
3249 return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3252 #undef Perl_scan_hex
3254 Perl_scan_hex(void *pPerl, char* start, I32 len, I32* retlen)
3256 return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3259 #undef Perl_scan_num
3261 Perl_scan_num(void *pPerl, char* s)
3263 return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3266 #undef Perl_scan_oct
3268 Perl_scan_oct(void *pPerl, char* start, I32 len, I32* retlen)
3270 return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3275 Perl_scope(void *pPerl, OP* o)
3277 return ((CPerlObj*)pPerl)->Perl_scope(o);
3280 #undef Perl_screaminstr
3282 Perl_screaminstr(void *pPerl, SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3284 return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3288 #undef Perl_setenv_getix
3290 Perl_setenv_getix(void *pPerl, char* nam)
3292 return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3296 #undef Perl_setdefout
3298 Perl_setdefout(void *pPerl, GV* gv)
3300 ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3303 #undef Perl_sharepvn
3305 Perl_sharepvn(void *pPerl, const char* sv, I32 len, U32 hash)
3307 return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3310 #undef Perl_share_hek
3312 Perl_share_hek(void *pPerl, const char* sv, I32 len, U32 hash)
3314 return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3317 #undef Perl_sighandler
3319 Perl_sighandler(void *pPerl, int sig)
3321 ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3324 #undef Perl_stack_grow
3326 Perl_stack_grow(void *pPerl, SV** sp, SV**p, int n)
3328 return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3331 #undef Perl_start_subparse
3333 Perl_start_subparse(void *pPerl, I32 is_format, U32 flags)
3335 return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3338 #undef Perl_sub_crush_depth
3340 Perl_sub_crush_depth(void *pPerl, CV* cv)
3342 ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3345 #undef Perl_sv_2bool
3347 Perl_sv_2bool(void *pPerl, SV* sv)
3349 return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3354 Perl_sv_2cv(void *pPerl, SV* sv, HV** st, GV** gvp, I32 lref)
3356 return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3361 Perl_sv_2io(void *pPerl, SV* sv)
3363 return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3368 Perl_sv_2iv(void *pPerl, SV* sv)
3370 return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3373 #undef Perl_sv_2mortal
3375 Perl_sv_2mortal(void *pPerl, SV* sv)
3377 return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3382 Perl_sv_2nv(void *pPerl, SV* sv)
3384 return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3389 Perl_sv_2pv(void *pPerl, SV* sv, STRLEN* lp)
3391 return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3396 Perl_sv_2uv(void *pPerl, SV* sv)
3398 return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3403 Perl_sv_iv(void *pPerl, SV* sv)
3405 return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3410 Perl_sv_uv(void *pPerl, SV* sv)
3412 return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3417 Perl_sv_nv(void *pPerl, SV* sv)
3419 return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3424 Perl_sv_pvn(void *pPerl, SV *sv, STRLEN *len)
3426 return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3431 Perl_sv_true(void *pPerl, SV *sv)
3433 return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3436 #undef Perl_sv_add_arena
3438 Perl_sv_add_arena(void *pPerl, char* ptr, U32 size, U32 flags)
3440 ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3443 #undef Perl_sv_backoff
3445 Perl_sv_backoff(void *pPerl, SV* sv)
3447 return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3450 #undef Perl_sv_bless
3452 Perl_sv_bless(void *pPerl, SV* sv, HV* stash)
3454 return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3457 #undef Perl_sv_catpv
3459 Perl_sv_catpv(void *pPerl, SV* sv, const char* ptr)
3461 ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3464 #undef Perl_sv_catpvn
3466 Perl_sv_catpvn(void *pPerl, SV* sv, const char* ptr, STRLEN len)
3468 ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3471 #undef Perl_sv_catsv
3473 Perl_sv_catsv(void *pPerl, SV* dsv, SV* ssv)
3475 ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3480 Perl_sv_chop(void *pPerl, SV* sv, char* ptr)
3482 ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3485 #undef Perl_sv_clean_all
3487 Perl_sv_clean_all(void *pPerl)
3489 ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3492 #undef Perl_sv_clean_objs
3494 Perl_sv_clean_objs(void *pPerl)
3496 ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3499 #undef Perl_sv_clear
3501 Perl_sv_clear(void *pPerl, SV* sv)
3503 ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3508 Perl_sv_cmp(void *pPerl, SV* sv1, SV* sv2)
3510 return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3513 #undef Perl_sv_cmp_locale
3515 Perl_sv_cmp_locale(void *pPerl, SV* sv1, SV* sv2)
3517 return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3519 #if defined(USE_LOCALE_COLLATE)
3521 #undef Perl_sv_collxfrm
3523 Perl_sv_collxfrm(void *pPerl, SV* sv, STRLEN* nxp)
3525 return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3529 #undef Perl_sv_compile_2op
3531 Perl_sv_compile_2op(void *pPerl, SV* sv, OP** startp, char* code, AV** avp)
3533 return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3538 Perl_sv_dec(void *pPerl, SV* sv)
3540 ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3545 Perl_sv_dump(void *pPerl, SV* sv)
3547 ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3550 #undef Perl_sv_derived_from
3552 Perl_sv_derived_from(void *pPerl, SV* sv, const char* name)
3554 return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3559 Perl_sv_eq(void *pPerl, SV* sv1, SV* sv2)
3561 return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3566 Perl_sv_free(void *pPerl, SV* sv)
3568 ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3571 #undef Perl_sv_free_arenas
3573 Perl_sv_free_arenas(void *pPerl)
3575 ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3580 Perl_sv_gets(void *pPerl, SV* sv, PerlIO* fp, I32 append)
3582 return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3587 Perl_sv_grow(void *pPerl, SV* sv, STRLEN newlen)
3589 return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3594 Perl_sv_inc(void *pPerl, SV* sv)
3596 ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3599 #undef Perl_sv_insert
3601 Perl_sv_insert(void *pPerl, SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3603 ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3608 Perl_sv_isa(void *pPerl, SV* sv, const char* name)
3610 return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
3613 #undef Perl_sv_isobject
3615 Perl_sv_isobject(void *pPerl, SV* sv)
3617 return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
3622 Perl_sv_len(void *pPerl, SV* sv)
3624 return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3627 #undef Perl_sv_len_utf8
3629 Perl_sv_len_utf8(void *pPerl, SV* sv)
3631 return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3634 #undef Perl_sv_magic
3636 Perl_sv_magic(void *pPerl, SV* sv, SV* obj, int how, const char* name, I32 namlen)
3638 ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
3641 #undef Perl_sv_mortalcopy
3643 Perl_sv_mortalcopy(void *pPerl, SV* oldsv)
3645 return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
3648 #undef Perl_sv_newmortal
3650 Perl_sv_newmortal(void *pPerl)
3652 return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
3655 #undef Perl_sv_newref
3657 Perl_sv_newref(void *pPerl, SV* sv)
3659 return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
3664 Perl_sv_peek(void *pPerl, SV* sv)
3666 return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
3669 #undef Perl_sv_pos_u2b
3671 Perl_sv_pos_u2b(void *pPerl, SV* sv, I32* offsetp, I32* lenp)
3673 ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
3676 #undef Perl_sv_pos_b2u
3678 Perl_sv_pos_b2u(void *pPerl, SV* sv, I32* offsetp)
3680 ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
3683 #undef Perl_sv_pvn_force
3685 Perl_sv_pvn_force(void *pPerl, SV* sv, STRLEN* lp)
3687 return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
3690 #undef Perl_sv_reftype
3692 Perl_sv_reftype(void *pPerl, SV* sv, int ob)
3694 return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
3697 #undef Perl_sv_replace
3699 Perl_sv_replace(void *pPerl, SV* sv, SV* nsv)
3701 ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
3704 #undef Perl_sv_report_used
3706 Perl_sv_report_used(void *pPerl)
3708 ((CPerlObj*)pPerl)->Perl_sv_report_used();
3711 #undef Perl_sv_reset
3713 Perl_sv_reset(void *pPerl, char* s, HV* stash)
3715 ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
3718 #undef Perl_sv_setiv
3720 Perl_sv_setiv(void *pPerl, SV* sv, IV num)
3722 ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3725 #undef Perl_sv_setpviv
3727 Perl_sv_setpviv(void *pPerl, SV* sv, IV num)
3729 ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3732 #undef Perl_sv_setuv
3734 Perl_sv_setuv(void *pPerl, SV* sv, UV num)
3736 ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3739 #undef Perl_sv_setnv
3741 Perl_sv_setnv(void *pPerl, SV* sv, NV num)
3743 ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3746 #undef Perl_sv_setref_iv
3748 Perl_sv_setref_iv(void *pPerl, SV* rv, const char* classname, IV iv)
3750 return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3753 #undef Perl_sv_setref_nv
3755 Perl_sv_setref_nv(void *pPerl, SV* rv, const char* classname, NV nv)
3757 return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3760 #undef Perl_sv_setref_pv
3762 Perl_sv_setref_pv(void *pPerl, SV* rv, const char* classname, void* pv)
3764 return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3767 #undef Perl_sv_setref_pvn
3769 Perl_sv_setref_pvn(void *pPerl, SV* rv, const char* classname, char* pv, STRLEN n)
3771 return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3774 #undef Perl_sv_setpv
3776 Perl_sv_setpv(void *pPerl, SV* sv, const char* ptr)
3778 ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3781 #undef Perl_sv_setpvn
3783 Perl_sv_setpvn(void *pPerl, SV* sv, const char* ptr, STRLEN len)
3785 ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3788 #undef Perl_sv_setsv
3790 Perl_sv_setsv(void *pPerl, SV* dsv, SV* ssv)
3792 ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3795 #undef Perl_sv_taint
3797 Perl_sv_taint(void *pPerl, SV* sv)
3799 ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3802 #undef Perl_sv_tainted
3804 Perl_sv_tainted(void *pPerl, SV* sv)
3806 return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3809 #undef Perl_sv_unmagic
3811 Perl_sv_unmagic(void *pPerl, SV* sv, int type)
3813 return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3816 #undef Perl_sv_unref
3818 Perl_sv_unref(void *pPerl, SV* sv)
3820 ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3823 #undef Perl_sv_untaint
3825 Perl_sv_untaint(void *pPerl, SV* sv)
3827 ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3830 #undef Perl_sv_upgrade
3832 Perl_sv_upgrade(void *pPerl, SV* sv, U32 mt)
3834 return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3837 #undef Perl_sv_usepvn
3839 Perl_sv_usepvn(void *pPerl, SV* sv, char* ptr, STRLEN len)
3841 ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3844 #undef Perl_sv_vcatpvfn
3846 Perl_sv_vcatpvfn(void *pPerl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
3848 ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
3851 #undef Perl_sv_vsetpvfn
3853 Perl_sv_vsetpvfn(void *pPerl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
3855 ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
3858 #undef Perl_swash_init
3860 Perl_swash_init(void *pPerl, char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3862 return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3865 #undef Perl_swash_fetch
3867 Perl_swash_fetch(void *pPerl, SV *sv, U8 *ptr)
3869 return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3872 #undef Perl_taint_env
3874 Perl_taint_env(void *pPerl)
3876 ((CPerlObj*)pPerl)->Perl_taint_env();
3879 #undef Perl_taint_proper
3881 Perl_taint_proper(void *pPerl, const char* f, char* s)
3883 ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3886 #undef Perl_to_utf8_lower
3888 Perl_to_utf8_lower(void *pPerl, U8 *p)
3890 return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3893 #undef Perl_to_utf8_upper
3895 Perl_to_utf8_upper(void *pPerl, U8 *p)
3897 return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3900 #undef Perl_to_utf8_title
3902 Perl_to_utf8_title(void *pPerl, U8 *p)
3904 return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3906 #if defined(UNLINK_ALL_VERSIONS)
3910 Perl_unlnk(void *pPerl, char* f)
3912 return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3915 #if defined(USE_THREADS)
3917 #undef Perl_unlock_condpair
3919 Perl_unlock_condpair(void *pPerl, void* svv)
3921 ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3925 #undef Perl_unsharepvn
3927 Perl_unsharepvn(void *pPerl, const char* sv, I32 len, U32 hash)
3929 ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3932 #undef Perl_unshare_hek
3934 Perl_unshare_hek(void *pPerl, HEK* hek)
3936 ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
3941 Perl_utilize(void *pPerl, int aver, I32 floor, OP* version, OP* id, OP* arg)
3943 ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
3946 #undef Perl_utf16_to_utf8
3948 Perl_utf16_to_utf8(void *pPerl, U16* p, U8 *d, I32 bytelen)
3950 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
3953 #undef Perl_utf16_to_utf8_reversed
3955 Perl_utf16_to_utf8_reversed(void *pPerl, U16* p, U8 *d, I32 bytelen)
3957 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
3960 #undef Perl_utf8_distance
3962 Perl_utf8_distance(void *pPerl, U8 *a, U8 *b)
3964 return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3967 #undef Perl_utf8_hop
3969 Perl_utf8_hop(void *pPerl, U8 *s, I32 off)
3971 return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3974 #undef Perl_utf8_to_uv
3976 Perl_utf8_to_uv(void *pPerl, U8 *s, I32* retlen)
3978 return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
3981 #undef Perl_uv_to_utf8
3983 Perl_uv_to_utf8(void *pPerl, U8 *d, UV uv)
3985 return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3988 #undef Perl_vivify_defelem
3990 Perl_vivify_defelem(void *pPerl, SV* sv)
3992 ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
3995 #undef Perl_vivify_ref
3997 Perl_vivify_ref(void *pPerl, SV* sv, U32 to_what)
3999 ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4002 #undef Perl_wait4pid
4004 Perl_wait4pid(void *pPerl, int pid, int* statusp, int flags)
4006 return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4011 Perl_watch(void *pPerl, char** addr)
4013 ((CPerlObj*)pPerl)->Perl_watch(addr);
4016 #undef Perl_whichsig
4018 Perl_whichsig(void *pPerl, char* sig)
4020 return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4025 Perl_yyerror(void *pPerl, char* s)
4027 return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4029 #if defined(USE_PURE_BISON)
4033 Perl_yylex(void *pPerl, YYSTYPE *lvalp, int *lcharp)
4035 return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4041 Perl_yylex(void *pPerl)
4043 return ((CPerlObj*)pPerl)->Perl_yylex();
4049 Perl_yyparse(void *pPerl)
4051 return ((CPerlObj*)pPerl)->Perl_yyparse();
4056 Perl_yywarn(void *pPerl, char* s)
4058 return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4060 #if defined(MYMALLOC)
4062 #undef Perl_dump_mstats
4064 Perl_dump_mstats(void *pPerl, char* s)
4066 ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4071 Perl_malloc(void *pPerl, MEM_SIZE nbytes)
4073 return ((CPerlObj*)pPerl)->Perl_malloc(nbytes);
4078 Perl_calloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4080 return ((CPerlObj*)pPerl)->Perl_calloc(elements, size);
4085 Perl_realloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4087 return ((CPerlObj*)pPerl)->Perl_realloc(where, nbytes);
4092 Perl_mfree(void *pPerl, Malloc_t where)
4094 ((CPerlObj*)pPerl)->Perl_mfree(where);
4098 #undef Perl_safesysmalloc
4100 Perl_safesysmalloc(void *pPerl, MEM_SIZE nbytes)
4102 return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4105 #undef Perl_safesyscalloc
4107 Perl_safesyscalloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4109 return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4112 #undef Perl_safesysrealloc
4114 Perl_safesysrealloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4116 return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4119 #undef Perl_safesysfree
4121 Perl_safesysfree(void *pPerl, Malloc_t where)
4123 ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4125 #if defined(LEAKTEST)
4127 #undef Perl_safexmalloc
4129 Perl_safexmalloc(void *pPerl, I32 x, MEM_SIZE size)
4131 return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4134 #undef Perl_safexcalloc
4136 Perl_safexcalloc(void *pPerl, I32 x, MEM_SIZE elements, MEM_SIZE size)
4138 return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4141 #undef Perl_safexrealloc
4143 Perl_safexrealloc(void *pPerl, Malloc_t where, MEM_SIZE size)
4145 return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4148 #undef Perl_safexfree
4150 Perl_safexfree(void *pPerl, Malloc_t where)
4152 ((CPerlObj*)pPerl)->Perl_safexfree(where);
4155 #if defined(PERL_GLOBAL_STRUCT)
4159 Perl_GetVars(void *pPerl)
4161 return ((CPerlObj*)pPerl)->Perl_GetVars();
4165 #undef Perl_runops_standard
4167 Perl_runops_standard(void *pPerl)
4169 return ((CPerlObj*)pPerl)->Perl_runops_standard();
4172 #undef Perl_runops_debug
4174 Perl_runops_debug(void *pPerl)
4176 return ((CPerlObj*)pPerl)->Perl_runops_debug();
4179 #undef Perl_sv_catpv_mg
4181 Perl_sv_catpv_mg(void *pPerl, SV *sv, const char *ptr)
4183 ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4186 #undef Perl_sv_catpvn_mg
4188 Perl_sv_catpvn_mg(void *pPerl, SV *sv, const char *ptr, STRLEN len)
4190 ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4193 #undef Perl_sv_catsv_mg
4195 Perl_sv_catsv_mg(void *pPerl, SV *dstr, SV *sstr)
4197 ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4200 #undef Perl_sv_setiv_mg
4202 Perl_sv_setiv_mg(void *pPerl, SV *sv, IV i)
4204 ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4207 #undef Perl_sv_setpviv_mg
4209 Perl_sv_setpviv_mg(void *pPerl, SV *sv, IV iv)
4211 ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4214 #undef Perl_sv_setuv_mg
4216 Perl_sv_setuv_mg(void *pPerl, SV *sv, UV u)
4218 ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4221 #undef Perl_sv_setnv_mg
4223 Perl_sv_setnv_mg(void *pPerl, SV *sv, NV num)
4225 ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4228 #undef Perl_sv_setpv_mg
4230 Perl_sv_setpv_mg(void *pPerl, SV *sv, const char *ptr)
4232 ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4235 #undef Perl_sv_setpvn_mg
4237 Perl_sv_setpvn_mg(void *pPerl, SV *sv, const char *ptr, STRLEN len)
4239 ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4242 #undef Perl_sv_setsv_mg
4244 Perl_sv_setsv_mg(void *pPerl, SV *dstr, SV *sstr)
4246 ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4249 #undef Perl_sv_usepvn_mg
4251 Perl_sv_usepvn_mg(void *pPerl, SV *sv, char *ptr, STRLEN len)
4253 ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4256 #undef Perl_get_vtbl
4258 Perl_get_vtbl(void *pPerl, int vtbl_id)
4260 return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4263 #undef Perl_pv_display
4265 Perl_pv_display(void *pPerl, SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4267 return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4270 #undef Perl_do_gv_dump
4272 Perl_do_gv_dump(void *pPerl, I32 level, PerlIO *file, char *name, GV *sv)
4274 ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4277 #undef Perl_do_gvgv_dump
4279 Perl_do_gvgv_dump(void *pPerl, I32 level, PerlIO *file, char *name, GV *sv)
4281 ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4284 #undef Perl_do_hv_dump
4286 Perl_do_hv_dump(void *pPerl, I32 level, PerlIO *file, char *name, HV *sv)
4288 ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4291 #undef Perl_do_magic_dump
4293 Perl_do_magic_dump(void *pPerl, I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4295 ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4298 #undef Perl_do_op_dump
4300 Perl_do_op_dump(void *pPerl, I32 level, PerlIO *file, OP *o)
4302 ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4305 #undef Perl_do_pmop_dump
4307 Perl_do_pmop_dump(void *pPerl, I32 level, PerlIO *file, PMOP *pm)
4309 ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4312 #undef Perl_do_sv_dump
4314 Perl_do_sv_dump(void *pPerl, I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4316 ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4319 #undef Perl_magic_dump
4321 Perl_magic_dump(void *pPerl, MAGIC *mg)
4323 ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4326 #undef Perl_reginitcolors
4328 Perl_reginitcolors(void *pPerl)
4330 ((CPerlObj*)pPerl)->Perl_reginitcolors();
4333 #undef Perl_sv_2pv_nolen
4335 Perl_sv_2pv_nolen(void *pPerl, SV* sv)
4337 return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4342 Perl_sv_pv(void *pPerl, SV *sv)
4344 return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4347 #undef Perl_sv_force_normal
4349 Perl_sv_force_normal(void *pPerl, SV *sv)
4351 ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4354 #undef Perl_tmps_grow
4356 Perl_tmps_grow(void *pPerl, I32 n)
4358 ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4361 #undef Perl_sv_rvweaken
4363 Perl_sv_rvweaken(void *pPerl, SV *sv)
4365 return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4368 #undef Perl_magic_killbackrefs
4370 Perl_magic_killbackrefs(void *pPerl, SV *sv, MAGIC *mg)
4372 return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4374 #if defined(PERL_OBJECT)
4376 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
4378 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
4380 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
4382 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
4384 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
4386 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
4387 # if defined(PL_OP_SLAB_ALLOC)
4390 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
4391 # if defined(IAMSUID)
4393 # if defined(USE_THREADS)
4396 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
4398 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
4400 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
4402 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
4403 # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
4406 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
4408 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
4410 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
4412 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
4414 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
4415 # if defined(PURIFY)
4418 # if defined(DEBUGGING)
4421 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
4422 # if defined(CRIPPLED_CC)
4427 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
4429 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
4430 # if defined(LEAKTEST)
4434 #undef Perl_ck_anoncode
4436 Perl_ck_anoncode(void *pPerl, OP *o)
4438 return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
4441 #undef Perl_ck_bitop
4443 Perl_ck_bitop(void *pPerl, OP *o)
4445 return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
4448 #undef Perl_ck_concat
4450 Perl_ck_concat(void *pPerl, OP *o)
4452 return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
4455 #undef Perl_ck_defined
4457 Perl_ck_defined(void *pPerl, OP *o)
4459 return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
4462 #undef Perl_ck_delete
4464 Perl_ck_delete(void *pPerl, OP *o)
4466 return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
4471 Perl_ck_eof(void *pPerl, OP *o)
4473 return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
4478 Perl_ck_eval(void *pPerl, OP *o)
4480 return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
4485 Perl_ck_exec(void *pPerl, OP *o)
4487 return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
4490 #undef Perl_ck_exists
4492 Perl_ck_exists(void *pPerl, OP *o)
4494 return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
4499 Perl_ck_ftst(void *pPerl, OP *o)
4501 return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
4506 Perl_ck_fun(void *pPerl, OP *o)
4508 return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
4511 #undef Perl_ck_fun_locale
4513 Perl_ck_fun_locale(void *pPerl, OP *o)
4515 return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
4520 Perl_ck_glob(void *pPerl, OP *o)
4522 return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
4527 Perl_ck_grep(void *pPerl, OP *o)
4529 return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
4532 #undef Perl_ck_index
4534 Perl_ck_index(void *pPerl, OP *o)
4536 return ((CPerlObj*)pPerl)->Perl_ck_index(o);
4539 #undef Perl_ck_lengthconst
4541 Perl_ck_lengthconst(void *pPerl, OP *o)
4543 return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
4548 Perl_ck_lfun(void *pPerl, OP *o)
4550 return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
4553 #undef Perl_ck_listiob
4555 Perl_ck_listiob(void *pPerl, OP *o)
4557 return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
4560 #undef Perl_ck_match
4562 Perl_ck_match(void *pPerl, OP *o)
4564 return ((CPerlObj*)pPerl)->Perl_ck_match(o);
4569 Perl_ck_null(void *pPerl, OP *o)
4571 return ((CPerlObj*)pPerl)->Perl_ck_null(o);
4574 #undef Perl_ck_repeat
4576 Perl_ck_repeat(void *pPerl, OP *o)
4578 return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
4581 #undef Perl_ck_require
4583 Perl_ck_require(void *pPerl, OP *o)
4585 return ((CPerlObj*)pPerl)->Perl_ck_require(o);
4590 Perl_ck_rfun(void *pPerl, OP *o)
4592 return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
4595 #undef Perl_ck_rvconst
4597 Perl_ck_rvconst(void *pPerl, OP *o)
4599 return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
4602 #undef Perl_ck_sassign
4604 Perl_ck_sassign(void *pPerl, OP *o)
4606 return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
4611 Perl_ck_scmp(void *pPerl, OP *o)
4613 return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
4616 #undef Perl_ck_select
4618 Perl_ck_select(void *pPerl, OP *o)
4620 return ((CPerlObj*)pPerl)->Perl_ck_select(o);
4623 #undef Perl_ck_shift
4625 Perl_ck_shift(void *pPerl, OP *o)
4627 return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
4632 Perl_ck_sort(void *pPerl, OP *o)
4634 return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
4637 #undef Perl_ck_spair
4639 Perl_ck_spair(void *pPerl, OP *o)
4641 return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
4644 #undef Perl_ck_split
4646 Perl_ck_split(void *pPerl, OP *o)
4648 return ((CPerlObj*)pPerl)->Perl_ck_split(o);
4653 Perl_ck_subr(void *pPerl, OP *o)
4655 return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
4658 #undef Perl_ck_svconst
4660 Perl_ck_svconst(void *pPerl, OP *o)
4662 return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
4665 #undef Perl_ck_trunc
4667 Perl_ck_trunc(void *pPerl, OP *o)
4669 return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
4672 #undef Perl_pp_aassign
4674 Perl_pp_aassign(void *pPerl)
4676 return ((CPerlObj*)pPerl)->Perl_pp_aassign();
4681 Perl_pp_abs(void *pPerl)
4683 return ((CPerlObj*)pPerl)->Perl_pp_abs();
4686 #undef Perl_pp_accept
4688 Perl_pp_accept(void *pPerl)
4690 return ((CPerlObj*)pPerl)->Perl_pp_accept();
4695 Perl_pp_add(void *pPerl)
4697 return ((CPerlObj*)pPerl)->Perl_pp_add();
4700 #undef Perl_pp_aelem
4702 Perl_pp_aelem(void *pPerl)
4704 return ((CPerlObj*)pPerl)->Perl_pp_aelem();
4707 #undef Perl_pp_aelemfast
4709 Perl_pp_aelemfast(void *pPerl)
4711 return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
4714 #undef Perl_pp_alarm
4716 Perl_pp_alarm(void *pPerl)
4718 return ((CPerlObj*)pPerl)->Perl_pp_alarm();
4723 Perl_pp_and(void *pPerl)
4725 return ((CPerlObj*)pPerl)->Perl_pp_and();
4728 #undef Perl_pp_andassign
4730 Perl_pp_andassign(void *pPerl)
4732 return ((CPerlObj*)pPerl)->Perl_pp_andassign();
4735 #undef Perl_pp_anoncode
4737 Perl_pp_anoncode(void *pPerl)
4739 return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
4742 #undef Perl_pp_anonhash
4744 Perl_pp_anonhash(void *pPerl)
4746 return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
4749 #undef Perl_pp_anonlist
4751 Perl_pp_anonlist(void *pPerl)
4753 return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
4756 #undef Perl_pp_aslice
4758 Perl_pp_aslice(void *pPerl)
4760 return ((CPerlObj*)pPerl)->Perl_pp_aslice();
4763 #undef Perl_pp_atan2
4765 Perl_pp_atan2(void *pPerl)
4767 return ((CPerlObj*)pPerl)->Perl_pp_atan2();
4770 #undef Perl_pp_av2arylen
4772 Perl_pp_av2arylen(void *pPerl)
4774 return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
4777 #undef Perl_pp_backtick
4779 Perl_pp_backtick(void *pPerl)
4781 return ((CPerlObj*)pPerl)->Perl_pp_backtick();
4786 Perl_pp_bind(void *pPerl)
4788 return ((CPerlObj*)pPerl)->Perl_pp_bind();
4791 #undef Perl_pp_binmode
4793 Perl_pp_binmode(void *pPerl)
4795 return ((CPerlObj*)pPerl)->Perl_pp_binmode();
4798 #undef Perl_pp_bit_and
4800 Perl_pp_bit_and(void *pPerl)
4802 return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
4805 #undef Perl_pp_bit_or
4807 Perl_pp_bit_or(void *pPerl)
4809 return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
4812 #undef Perl_pp_bit_xor
4814 Perl_pp_bit_xor(void *pPerl)
4816 return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
4819 #undef Perl_pp_bless
4821 Perl_pp_bless(void *pPerl)
4823 return ((CPerlObj*)pPerl)->Perl_pp_bless();
4826 #undef Perl_pp_caller
4828 Perl_pp_caller(void *pPerl)
4830 return ((CPerlObj*)pPerl)->Perl_pp_caller();
4833 #undef Perl_pp_chdir
4835 Perl_pp_chdir(void *pPerl)
4837 return ((CPerlObj*)pPerl)->Perl_pp_chdir();
4840 #undef Perl_pp_chmod
4842 Perl_pp_chmod(void *pPerl)
4844 return ((CPerlObj*)pPerl)->Perl_pp_chmod();
4847 #undef Perl_pp_chomp
4849 Perl_pp_chomp(void *pPerl)
4851 return ((CPerlObj*)pPerl)->Perl_pp_chomp();
4856 Perl_pp_chop(void *pPerl)
4858 return ((CPerlObj*)pPerl)->Perl_pp_chop();
4861 #undef Perl_pp_chown
4863 Perl_pp_chown(void *pPerl)
4865 return ((CPerlObj*)pPerl)->Perl_pp_chown();
4870 Perl_pp_chr(void *pPerl)
4872 return ((CPerlObj*)pPerl)->Perl_pp_chr();
4875 #undef Perl_pp_chroot
4877 Perl_pp_chroot(void *pPerl)
4879 return ((CPerlObj*)pPerl)->Perl_pp_chroot();
4882 #undef Perl_pp_close
4884 Perl_pp_close(void *pPerl)
4886 return ((CPerlObj*)pPerl)->Perl_pp_close();
4889 #undef Perl_pp_closedir
4891 Perl_pp_closedir(void *pPerl)
4893 return ((CPerlObj*)pPerl)->Perl_pp_closedir();
4896 #undef Perl_pp_complement
4898 Perl_pp_complement(void *pPerl)
4900 return ((CPerlObj*)pPerl)->Perl_pp_complement();
4903 #undef Perl_pp_concat
4905 Perl_pp_concat(void *pPerl)
4907 return ((CPerlObj*)pPerl)->Perl_pp_concat();
4910 #undef Perl_pp_cond_expr
4912 Perl_pp_cond_expr(void *pPerl)
4914 return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
4917 #undef Perl_pp_connect
4919 Perl_pp_connect(void *pPerl)
4921 return ((CPerlObj*)pPerl)->Perl_pp_connect();
4924 #undef Perl_pp_const
4926 Perl_pp_const(void *pPerl)
4928 return ((CPerlObj*)pPerl)->Perl_pp_const();
4933 Perl_pp_cos(void *pPerl)
4935 return ((CPerlObj*)pPerl)->Perl_pp_cos();
4938 #undef Perl_pp_crypt
4940 Perl_pp_crypt(void *pPerl)
4942 return ((CPerlObj*)pPerl)->Perl_pp_crypt();
4945 #undef Perl_pp_dbmclose
4947 Perl_pp_dbmclose(void *pPerl)
4949 return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
4952 #undef Perl_pp_dbmopen
4954 Perl_pp_dbmopen(void *pPerl)
4956 return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
4959 #undef Perl_pp_dbstate
4961 Perl_pp_dbstate(void *pPerl)
4963 return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
4966 #undef Perl_pp_defined
4968 Perl_pp_defined(void *pPerl)
4970 return ((CPerlObj*)pPerl)->Perl_pp_defined();
4973 #undef Perl_pp_delete
4975 Perl_pp_delete(void *pPerl)
4977 return ((CPerlObj*)pPerl)->Perl_pp_delete();
4982 Perl_pp_die(void *pPerl)
4984 return ((CPerlObj*)pPerl)->Perl_pp_die();
4987 #undef Perl_pp_divide
4989 Perl_pp_divide(void *pPerl)
4991 return ((CPerlObj*)pPerl)->Perl_pp_divide();
4994 #undef Perl_pp_dofile
4996 Perl_pp_dofile(void *pPerl)
4998 return ((CPerlObj*)pPerl)->Perl_pp_dofile();
5003 Perl_pp_dump(void *pPerl)
5005 return ((CPerlObj*)pPerl)->Perl_pp_dump();
5010 Perl_pp_each(void *pPerl)
5012 return ((CPerlObj*)pPerl)->Perl_pp_each();
5015 #undef Perl_pp_egrent
5017 Perl_pp_egrent(void *pPerl)
5019 return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5022 #undef Perl_pp_ehostent
5024 Perl_pp_ehostent(void *pPerl)
5026 return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5029 #undef Perl_pp_enetent
5031 Perl_pp_enetent(void *pPerl)
5033 return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5036 #undef Perl_pp_enter
5038 Perl_pp_enter(void *pPerl)
5040 return ((CPerlObj*)pPerl)->Perl_pp_enter();
5043 #undef Perl_pp_entereval
5045 Perl_pp_entereval(void *pPerl)
5047 return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5050 #undef Perl_pp_enteriter
5052 Perl_pp_enteriter(void *pPerl)
5054 return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5057 #undef Perl_pp_enterloop
5059 Perl_pp_enterloop(void *pPerl)
5061 return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5064 #undef Perl_pp_entersub
5066 Perl_pp_entersub(void *pPerl)
5068 return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5071 #undef Perl_pp_entertry
5073 Perl_pp_entertry(void *pPerl)
5075 return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5078 #undef Perl_pp_enterwrite
5080 Perl_pp_enterwrite(void *pPerl)
5082 return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5087 Perl_pp_eof(void *pPerl)
5089 return ((CPerlObj*)pPerl)->Perl_pp_eof();
5092 #undef Perl_pp_eprotoent
5094 Perl_pp_eprotoent(void *pPerl)
5096 return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5099 #undef Perl_pp_epwent
5101 Perl_pp_epwent(void *pPerl)
5103 return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5108 Perl_pp_eq(void *pPerl)
5110 return ((CPerlObj*)pPerl)->Perl_pp_eq();
5113 #undef Perl_pp_eservent
5115 Perl_pp_eservent(void *pPerl)
5117 return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5122 Perl_pp_exec(void *pPerl)
5124 return ((CPerlObj*)pPerl)->Perl_pp_exec();
5127 #undef Perl_pp_exists
5129 Perl_pp_exists(void *pPerl)
5131 return ((CPerlObj*)pPerl)->Perl_pp_exists();
5136 Perl_pp_exit(void *pPerl)
5138 return ((CPerlObj*)pPerl)->Perl_pp_exit();
5143 Perl_pp_exp(void *pPerl)
5145 return ((CPerlObj*)pPerl)->Perl_pp_exp();
5148 #undef Perl_pp_fcntl
5150 Perl_pp_fcntl(void *pPerl)
5152 return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5155 #undef Perl_pp_fileno
5157 Perl_pp_fileno(void *pPerl)
5159 return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5164 Perl_pp_flip(void *pPerl)
5166 return ((CPerlObj*)pPerl)->Perl_pp_flip();
5169 #undef Perl_pp_flock
5171 Perl_pp_flock(void *pPerl)
5173 return ((CPerlObj*)pPerl)->Perl_pp_flock();
5178 Perl_pp_flop(void *pPerl)
5180 return ((CPerlObj*)pPerl)->Perl_pp_flop();
5185 Perl_pp_fork(void *pPerl)
5187 return ((CPerlObj*)pPerl)->Perl_pp_fork();
5190 #undef Perl_pp_formline
5192 Perl_pp_formline(void *pPerl)
5194 return ((CPerlObj*)pPerl)->Perl_pp_formline();
5197 #undef Perl_pp_ftatime
5199 Perl_pp_ftatime(void *pPerl)
5201 return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5204 #undef Perl_pp_ftbinary
5206 Perl_pp_ftbinary(void *pPerl)
5208 return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5211 #undef Perl_pp_ftblk
5213 Perl_pp_ftblk(void *pPerl)
5215 return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5218 #undef Perl_pp_ftchr
5220 Perl_pp_ftchr(void *pPerl)
5222 return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5225 #undef Perl_pp_ftctime
5227 Perl_pp_ftctime(void *pPerl)
5229 return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5232 #undef Perl_pp_ftdir
5234 Perl_pp_ftdir(void *pPerl)
5236 return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5239 #undef Perl_pp_fteexec
5241 Perl_pp_fteexec(void *pPerl)
5243 return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5246 #undef Perl_pp_fteowned
5248 Perl_pp_fteowned(void *pPerl)
5250 return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5253 #undef Perl_pp_fteread
5255 Perl_pp_fteread(void *pPerl)
5257 return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5260 #undef Perl_pp_ftewrite
5262 Perl_pp_ftewrite(void *pPerl)
5264 return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5267 #undef Perl_pp_ftfile
5269 Perl_pp_ftfile(void *pPerl)
5271 return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5276 Perl_pp_ftis(void *pPerl)
5278 return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5281 #undef Perl_pp_ftlink
5283 Perl_pp_ftlink(void *pPerl)
5285 return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5288 #undef Perl_pp_ftmtime
5290 Perl_pp_ftmtime(void *pPerl)
5292 return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
5295 #undef Perl_pp_ftpipe
5297 Perl_pp_ftpipe(void *pPerl)
5299 return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
5302 #undef Perl_pp_ftrexec
5304 Perl_pp_ftrexec(void *pPerl)
5306 return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
5309 #undef Perl_pp_ftrowned
5311 Perl_pp_ftrowned(void *pPerl)
5313 return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
5316 #undef Perl_pp_ftrread
5318 Perl_pp_ftrread(void *pPerl)
5320 return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
5323 #undef Perl_pp_ftrwrite
5325 Perl_pp_ftrwrite(void *pPerl)
5327 return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
5330 #undef Perl_pp_ftsgid
5332 Perl_pp_ftsgid(void *pPerl)
5334 return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
5337 #undef Perl_pp_ftsize
5339 Perl_pp_ftsize(void *pPerl)
5341 return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
5344 #undef Perl_pp_ftsock
5346 Perl_pp_ftsock(void *pPerl)
5348 return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
5351 #undef Perl_pp_ftsuid
5353 Perl_pp_ftsuid(void *pPerl)
5355 return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
5358 #undef Perl_pp_ftsvtx
5360 Perl_pp_ftsvtx(void *pPerl)
5362 return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
5365 #undef Perl_pp_fttext
5367 Perl_pp_fttext(void *pPerl)
5369 return ((CPerlObj*)pPerl)->Perl_pp_fttext();
5372 #undef Perl_pp_fttty
5374 Perl_pp_fttty(void *pPerl)
5376 return ((CPerlObj*)pPerl)->Perl_pp_fttty();
5379 #undef Perl_pp_ftzero
5381 Perl_pp_ftzero(void *pPerl)
5383 return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
5388 Perl_pp_ge(void *pPerl)
5390 return ((CPerlObj*)pPerl)->Perl_pp_ge();
5393 #undef Perl_pp_gelem
5395 Perl_pp_gelem(void *pPerl)
5397 return ((CPerlObj*)pPerl)->Perl_pp_gelem();
5402 Perl_pp_getc(void *pPerl)
5404 return ((CPerlObj*)pPerl)->Perl_pp_getc();
5407 #undef Perl_pp_getlogin
5409 Perl_pp_getlogin(void *pPerl)
5411 return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
5414 #undef Perl_pp_getpeername
5416 Perl_pp_getpeername(void *pPerl)
5418 return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
5421 #undef Perl_pp_getpgrp
5423 Perl_pp_getpgrp(void *pPerl)
5425 return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
5428 #undef Perl_pp_getppid
5430 Perl_pp_getppid(void *pPerl)
5432 return ((CPerlObj*)pPerl)->Perl_pp_getppid();
5435 #undef Perl_pp_getpriority
5437 Perl_pp_getpriority(void *pPerl)
5439 return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
5442 #undef Perl_pp_getsockname
5444 Perl_pp_getsockname(void *pPerl)
5446 return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
5449 #undef Perl_pp_ggrent
5451 Perl_pp_ggrent(void *pPerl)
5453 return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
5456 #undef Perl_pp_ggrgid
5458 Perl_pp_ggrgid(void *pPerl)
5460 return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
5463 #undef Perl_pp_ggrnam
5465 Perl_pp_ggrnam(void *pPerl)
5467 return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
5470 #undef Perl_pp_ghbyaddr
5472 Perl_pp_ghbyaddr(void *pPerl)
5474 return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
5477 #undef Perl_pp_ghbyname
5479 Perl_pp_ghbyname(void *pPerl)
5481 return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
5484 #undef Perl_pp_ghostent
5486 Perl_pp_ghostent(void *pPerl)
5488 return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
5493 Perl_pp_glob(void *pPerl)
5495 return ((CPerlObj*)pPerl)->Perl_pp_glob();
5498 #undef Perl_pp_gmtime
5500 Perl_pp_gmtime(void *pPerl)
5502 return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
5505 #undef Perl_pp_gnbyaddr
5507 Perl_pp_gnbyaddr(void *pPerl)
5509 return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
5512 #undef Perl_pp_gnbyname
5514 Perl_pp_gnbyname(void *pPerl)
5516 return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
5519 #undef Perl_pp_gnetent
5521 Perl_pp_gnetent(void *pPerl)
5523 return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
5528 Perl_pp_goto(void *pPerl)
5530 return ((CPerlObj*)pPerl)->Perl_pp_goto();
5533 #undef Perl_pp_gpbyname
5535 Perl_pp_gpbyname(void *pPerl)
5537 return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
5540 #undef Perl_pp_gpbynumber
5542 Perl_pp_gpbynumber(void *pPerl)
5544 return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
5547 #undef Perl_pp_gprotoent
5549 Perl_pp_gprotoent(void *pPerl)
5551 return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
5554 #undef Perl_pp_gpwent
5556 Perl_pp_gpwent(void *pPerl)
5558 return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
5561 #undef Perl_pp_gpwnam
5563 Perl_pp_gpwnam(void *pPerl)
5565 return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
5568 #undef Perl_pp_gpwuid
5570 Perl_pp_gpwuid(void *pPerl)
5572 return ((CPerlObj*)pPerl)->Perl_pp_gpwuid();
5575 #undef Perl_pp_grepstart
5577 Perl_pp_grepstart(void *pPerl)
5579 return ((CPerlObj*)pPerl)->Perl_pp_grepstart();
5582 #undef Perl_pp_grepwhile
5584 Perl_pp_grepwhile(void *pPerl)
5586 return ((CPerlObj*)pPerl)->Perl_pp_grepwhile();
5589 #undef Perl_pp_gsbyname
5591 Perl_pp_gsbyname(void *pPerl)
5593 return ((CPerlObj*)pPerl)->Perl_pp_gsbyname();
5596 #undef Perl_pp_gsbyport
5598 Perl_pp_gsbyport(void *pPerl)
5600 return ((CPerlObj*)pPerl)->Perl_pp_gsbyport();
5603 #undef Perl_pp_gservent
5605 Perl_pp_gservent(void *pPerl)
5607 return ((CPerlObj*)pPerl)->Perl_pp_gservent();
5610 #undef Perl_pp_gsockopt
5612 Perl_pp_gsockopt(void *pPerl)
5614 return ((CPerlObj*)pPerl)->Perl_pp_gsockopt();
5619 Perl_pp_gt(void *pPerl)
5621 return ((CPerlObj*)pPerl)->Perl_pp_gt();
5626 Perl_pp_gv(void *pPerl)
5628 return ((CPerlObj*)pPerl)->Perl_pp_gv();
5633 Perl_pp_gvsv(void *pPerl)
5635 return ((CPerlObj*)pPerl)->Perl_pp_gvsv();
5638 #undef Perl_pp_helem
5640 Perl_pp_helem(void *pPerl)
5642 return ((CPerlObj*)pPerl)->Perl_pp_helem();
5647 Perl_pp_hex(void *pPerl)
5649 return ((CPerlObj*)pPerl)->Perl_pp_hex();
5652 #undef Perl_pp_hslice
5654 Perl_pp_hslice(void *pPerl)
5656 return ((CPerlObj*)pPerl)->Perl_pp_hslice();
5659 #undef Perl_pp_i_add
5661 Perl_pp_i_add(void *pPerl)
5663 return ((CPerlObj*)pPerl)->Perl_pp_i_add();
5666 #undef Perl_pp_i_divide
5668 Perl_pp_i_divide(void *pPerl)
5670 return ((CPerlObj*)pPerl)->Perl_pp_i_divide();
5675 Perl_pp_i_eq(void *pPerl)
5677 return ((CPerlObj*)pPerl)->Perl_pp_i_eq();
5682 Perl_pp_i_ge(void *pPerl)
5684 return ((CPerlObj*)pPerl)->Perl_pp_i_ge();
5689 Perl_pp_i_gt(void *pPerl)
5691 return ((CPerlObj*)pPerl)->Perl_pp_i_gt();
5696 Perl_pp_i_le(void *pPerl)
5698 return ((CPerlObj*)pPerl)->Perl_pp_i_le();
5703 Perl_pp_i_lt(void *pPerl)
5705 return ((CPerlObj*)pPerl)->Perl_pp_i_lt();
5708 #undef Perl_pp_i_modulo
5710 Perl_pp_i_modulo(void *pPerl)
5712 return ((CPerlObj*)pPerl)->Perl_pp_i_modulo();
5715 #undef Perl_pp_i_multiply
5717 Perl_pp_i_multiply(void *pPerl)
5719 return ((CPerlObj*)pPerl)->Perl_pp_i_multiply();
5722 #undef Perl_pp_i_ncmp
5724 Perl_pp_i_ncmp(void *pPerl)
5726 return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp();
5731 Perl_pp_i_ne(void *pPerl)
5733 return ((CPerlObj*)pPerl)->Perl_pp_i_ne();
5736 #undef Perl_pp_i_negate
5738 Perl_pp_i_negate(void *pPerl)
5740 return ((CPerlObj*)pPerl)->Perl_pp_i_negate();
5743 #undef Perl_pp_i_subtract
5745 Perl_pp_i_subtract(void *pPerl)
5747 return ((CPerlObj*)pPerl)->Perl_pp_i_subtract();
5750 #undef Perl_pp_index
5752 Perl_pp_index(void *pPerl)
5754 return ((CPerlObj*)pPerl)->Perl_pp_index();
5759 Perl_pp_int(void *pPerl)
5761 return ((CPerlObj*)pPerl)->Perl_pp_int();
5764 #undef Perl_pp_ioctl
5766 Perl_pp_ioctl(void *pPerl)
5768 return ((CPerlObj*)pPerl)->Perl_pp_ioctl();
5773 Perl_pp_iter(void *pPerl)
5775 return ((CPerlObj*)pPerl)->Perl_pp_iter();
5780 Perl_pp_join(void *pPerl)
5782 return ((CPerlObj*)pPerl)->Perl_pp_join();
5787 Perl_pp_keys(void *pPerl)
5789 return ((CPerlObj*)pPerl)->Perl_pp_keys();
5794 Perl_pp_kill(void *pPerl)
5796 return ((CPerlObj*)pPerl)->Perl_pp_kill();
5801 Perl_pp_last(void *pPerl)
5803 return ((CPerlObj*)pPerl)->Perl_pp_last();
5808 Perl_pp_lc(void *pPerl)
5810 return ((CPerlObj*)pPerl)->Perl_pp_lc();
5813 #undef Perl_pp_lcfirst
5815 Perl_pp_lcfirst(void *pPerl)
5817 return ((CPerlObj*)pPerl)->Perl_pp_lcfirst();
5822 Perl_pp_le(void *pPerl)
5824 return ((CPerlObj*)pPerl)->Perl_pp_le();
5827 #undef Perl_pp_leave
5829 Perl_pp_leave(void *pPerl)
5831 return ((CPerlObj*)pPerl)->Perl_pp_leave();
5834 #undef Perl_pp_leaveeval
5836 Perl_pp_leaveeval(void *pPerl)
5838 return ((CPerlObj*)pPerl)->Perl_pp_leaveeval();
5841 #undef Perl_pp_leaveloop
5843 Perl_pp_leaveloop(void *pPerl)
5845 return ((CPerlObj*)pPerl)->Perl_pp_leaveloop();
5848 #undef Perl_pp_leavesub
5850 Perl_pp_leavesub(void *pPerl)
5852 return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
5855 #undef Perl_pp_leavetry
5857 Perl_pp_leavetry(void *pPerl)
5859 return ((CPerlObj*)pPerl)->Perl_pp_leavetry();
5862 #undef Perl_pp_leavewrite
5864 Perl_pp_leavewrite(void *pPerl)
5866 return ((CPerlObj*)pPerl)->Perl_pp_leavewrite();
5869 #undef Perl_pp_left_shift
5871 Perl_pp_left_shift(void *pPerl)
5873 return ((CPerlObj*)pPerl)->Perl_pp_left_shift();
5876 #undef Perl_pp_length
5878 Perl_pp_length(void *pPerl)
5880 return ((CPerlObj*)pPerl)->Perl_pp_length();
5883 #undef Perl_pp_lineseq
5885 Perl_pp_lineseq(void *pPerl)
5887 return ((CPerlObj*)pPerl)->Perl_pp_lineseq();
5892 Perl_pp_link(void *pPerl)
5894 return ((CPerlObj*)pPerl)->Perl_pp_link();
5899 Perl_pp_list(void *pPerl)
5901 return ((CPerlObj*)pPerl)->Perl_pp_list();
5904 #undef Perl_pp_listen
5906 Perl_pp_listen(void *pPerl)
5908 return ((CPerlObj*)pPerl)->Perl_pp_listen();
5911 #undef Perl_pp_localtime
5913 Perl_pp_localtime(void *pPerl)
5915 return ((CPerlObj*)pPerl)->Perl_pp_localtime();
5920 Perl_pp_lock(void *pPerl)
5922 return ((CPerlObj*)pPerl)->Perl_pp_lock();
5927 Perl_pp_log(void *pPerl)
5929 return ((CPerlObj*)pPerl)->Perl_pp_log();
5932 #undef Perl_pp_lslice
5934 Perl_pp_lslice(void *pPerl)
5936 return ((CPerlObj*)pPerl)->Perl_pp_lslice();
5939 #undef Perl_pp_lstat
5941 Perl_pp_lstat(void *pPerl)
5943 return ((CPerlObj*)pPerl)->Perl_pp_lstat();
5948 Perl_pp_lt(void *pPerl)
5950 return ((CPerlObj*)pPerl)->Perl_pp_lt();
5953 #undef Perl_pp_mapstart
5955 Perl_pp_mapstart(void *pPerl)
5957 return ((CPerlObj*)pPerl)->Perl_pp_mapstart();
5960 #undef Perl_pp_mapwhile
5962 Perl_pp_mapwhile(void *pPerl)
5964 return ((CPerlObj*)pPerl)->Perl_pp_mapwhile();
5967 #undef Perl_pp_match
5969 Perl_pp_match(void *pPerl)
5971 return ((CPerlObj*)pPerl)->Perl_pp_match();
5974 #undef Perl_pp_method
5976 Perl_pp_method(void *pPerl)
5978 return ((CPerlObj*)pPerl)->Perl_pp_method();
5981 #undef Perl_pp_mkdir
5983 Perl_pp_mkdir(void *pPerl)
5985 return ((CPerlObj*)pPerl)->Perl_pp_mkdir();
5988 #undef Perl_pp_modulo
5990 Perl_pp_modulo(void *pPerl)
5992 return ((CPerlObj*)pPerl)->Perl_pp_modulo();
5995 #undef Perl_pp_msgctl
5997 Perl_pp_msgctl(void *pPerl)
5999 return ((CPerlObj*)pPerl)->Perl_pp_msgctl();
6002 #undef Perl_pp_msgget
6004 Perl_pp_msgget(void *pPerl)
6006 return ((CPerlObj*)pPerl)->Perl_pp_msgget();
6009 #undef Perl_pp_msgrcv
6011 Perl_pp_msgrcv(void *pPerl)
6013 return ((CPerlObj*)pPerl)->Perl_pp_msgrcv();
6016 #undef Perl_pp_msgsnd
6018 Perl_pp_msgsnd(void *pPerl)
6020 return ((CPerlObj*)pPerl)->Perl_pp_msgsnd();
6023 #undef Perl_pp_multiply
6025 Perl_pp_multiply(void *pPerl)
6027 return ((CPerlObj*)pPerl)->Perl_pp_multiply();
6032 Perl_pp_ncmp(void *pPerl)
6034 return ((CPerlObj*)pPerl)->Perl_pp_ncmp();
6039 Perl_pp_ne(void *pPerl)
6041 return ((CPerlObj*)pPerl)->Perl_pp_ne();
6044 #undef Perl_pp_negate
6046 Perl_pp_negate(void *pPerl)
6048 return ((CPerlObj*)pPerl)->Perl_pp_negate();
6053 Perl_pp_next(void *pPerl)
6055 return ((CPerlObj*)pPerl)->Perl_pp_next();
6058 #undef Perl_pp_nextstate
6060 Perl_pp_nextstate(void *pPerl)
6062 return ((CPerlObj*)pPerl)->Perl_pp_nextstate();
6067 Perl_pp_not(void *pPerl)
6069 return ((CPerlObj*)pPerl)->Perl_pp_not();
6074 Perl_pp_null(void *pPerl)
6076 return ((CPerlObj*)pPerl)->Perl_pp_null();
6081 Perl_pp_oct(void *pPerl)
6083 return ((CPerlObj*)pPerl)->Perl_pp_oct();
6088 Perl_pp_open(void *pPerl)
6090 return ((CPerlObj*)pPerl)->Perl_pp_open();
6093 #undef Perl_pp_open_dir
6095 Perl_pp_open_dir(void *pPerl)
6097 return ((CPerlObj*)pPerl)->Perl_pp_open_dir();
6102 Perl_pp_or(void *pPerl)
6104 return ((CPerlObj*)pPerl)->Perl_pp_or();
6107 #undef Perl_pp_orassign
6109 Perl_pp_orassign(void *pPerl)
6111 return ((CPerlObj*)pPerl)->Perl_pp_orassign();
6116 Perl_pp_ord(void *pPerl)
6118 return ((CPerlObj*)pPerl)->Perl_pp_ord();
6123 Perl_pp_pack(void *pPerl)
6125 return ((CPerlObj*)pPerl)->Perl_pp_pack();
6128 #undef Perl_pp_padany
6130 Perl_pp_padany(void *pPerl)
6132 return ((CPerlObj*)pPerl)->Perl_pp_padany();
6135 #undef Perl_pp_padav
6137 Perl_pp_padav(void *pPerl)
6139 return ((CPerlObj*)pPerl)->Perl_pp_padav();
6142 #undef Perl_pp_padhv
6144 Perl_pp_padhv(void *pPerl)
6146 return ((CPerlObj*)pPerl)->Perl_pp_padhv();
6149 #undef Perl_pp_padsv
6151 Perl_pp_padsv(void *pPerl)
6153 return ((CPerlObj*)pPerl)->Perl_pp_padsv();
6156 #undef Perl_pp_pipe_op
6158 Perl_pp_pipe_op(void *pPerl)
6160 return ((CPerlObj*)pPerl)->Perl_pp_pipe_op();
6165 Perl_pp_pop(void *pPerl)
6167 return ((CPerlObj*)pPerl)->Perl_pp_pop();
6172 Perl_pp_pos(void *pPerl)
6174 return ((CPerlObj*)pPerl)->Perl_pp_pos();
6177 #undef Perl_pp_postdec
6179 Perl_pp_postdec(void *pPerl)
6181 return ((CPerlObj*)pPerl)->Perl_pp_postdec();
6184 #undef Perl_pp_postinc
6186 Perl_pp_postinc(void *pPerl)
6188 return ((CPerlObj*)pPerl)->Perl_pp_postinc();
6193 Perl_pp_pow(void *pPerl)
6195 return ((CPerlObj*)pPerl)->Perl_pp_pow();
6198 #undef Perl_pp_predec
6200 Perl_pp_predec(void *pPerl)
6202 return ((CPerlObj*)pPerl)->Perl_pp_predec();
6205 #undef Perl_pp_preinc
6207 Perl_pp_preinc(void *pPerl)
6209 return ((CPerlObj*)pPerl)->Perl_pp_preinc();
6212 #undef Perl_pp_print
6214 Perl_pp_print(void *pPerl)
6216 return ((CPerlObj*)pPerl)->Perl_pp_print();
6219 #undef Perl_pp_prototype
6221 Perl_pp_prototype(void *pPerl)
6223 return ((CPerlObj*)pPerl)->Perl_pp_prototype();
6228 Perl_pp_prtf(void *pPerl)
6230 return ((CPerlObj*)pPerl)->Perl_pp_prtf();
6235 Perl_pp_push(void *pPerl)
6237 return ((CPerlObj*)pPerl)->Perl_pp_push();
6240 #undef Perl_pp_pushmark
6242 Perl_pp_pushmark(void *pPerl)
6244 return ((CPerlObj*)pPerl)->Perl_pp_pushmark();
6247 #undef Perl_pp_pushre
6249 Perl_pp_pushre(void *pPerl)
6251 return ((CPerlObj*)pPerl)->Perl_pp_pushre();
6256 Perl_pp_qr(void *pPerl)
6258 return ((CPerlObj*)pPerl)->Perl_pp_qr();
6261 #undef Perl_pp_quotemeta
6263 Perl_pp_quotemeta(void *pPerl)
6265 return ((CPerlObj*)pPerl)->Perl_pp_quotemeta();
6270 Perl_pp_rand(void *pPerl)
6272 return ((CPerlObj*)pPerl)->Perl_pp_rand();
6275 #undef Perl_pp_range
6277 Perl_pp_range(void *pPerl)
6279 return ((CPerlObj*)pPerl)->Perl_pp_range();
6282 #undef Perl_pp_rcatline
6284 Perl_pp_rcatline(void *pPerl)
6286 return ((CPerlObj*)pPerl)->Perl_pp_rcatline();
6291 Perl_pp_read(void *pPerl)
6293 return ((CPerlObj*)pPerl)->Perl_pp_read();
6296 #undef Perl_pp_readdir
6298 Perl_pp_readdir(void *pPerl)
6300 return ((CPerlObj*)pPerl)->Perl_pp_readdir();
6303 #undef Perl_pp_readline
6305 Perl_pp_readline(void *pPerl)
6307 return ((CPerlObj*)pPerl)->Perl_pp_readline();
6310 #undef Perl_pp_readlink
6312 Perl_pp_readlink(void *pPerl)
6314 return ((CPerlObj*)pPerl)->Perl_pp_readlink();
6319 Perl_pp_recv(void *pPerl)
6321 return ((CPerlObj*)pPerl)->Perl_pp_recv();
6326 Perl_pp_redo(void *pPerl)
6328 return ((CPerlObj*)pPerl)->Perl_pp_redo();
6333 Perl_pp_ref(void *pPerl)
6335 return ((CPerlObj*)pPerl)->Perl_pp_ref();
6338 #undef Perl_pp_refgen
6340 Perl_pp_refgen(void *pPerl)
6342 return ((CPerlObj*)pPerl)->Perl_pp_refgen();
6345 #undef Perl_pp_regcmaybe
6347 Perl_pp_regcmaybe(void *pPerl)
6349 return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe();
6352 #undef Perl_pp_regcomp
6354 Perl_pp_regcomp(void *pPerl)
6356 return ((CPerlObj*)pPerl)->Perl_pp_regcomp();
6359 #undef Perl_pp_regcreset
6361 Perl_pp_regcreset(void *pPerl)
6363 return ((CPerlObj*)pPerl)->Perl_pp_regcreset();
6366 #undef Perl_pp_rename
6368 Perl_pp_rename(void *pPerl)
6370 return ((CPerlObj*)pPerl)->Perl_pp_rename();
6373 #undef Perl_pp_repeat
6375 Perl_pp_repeat(void *pPerl)
6377 return ((CPerlObj*)pPerl)->Perl_pp_repeat();
6380 #undef Perl_pp_require
6382 Perl_pp_require(void *pPerl)
6384 return ((CPerlObj*)pPerl)->Perl_pp_require();
6387 #undef Perl_pp_reset
6389 Perl_pp_reset(void *pPerl)
6391 return ((CPerlObj*)pPerl)->Perl_pp_reset();
6394 #undef Perl_pp_return
6396 Perl_pp_return(void *pPerl)
6398 return ((CPerlObj*)pPerl)->Perl_pp_return();
6401 #undef Perl_pp_reverse
6403 Perl_pp_reverse(void *pPerl)
6405 return ((CPerlObj*)pPerl)->Perl_pp_reverse();
6408 #undef Perl_pp_rewinddir
6410 Perl_pp_rewinddir(void *pPerl)
6412 return ((CPerlObj*)pPerl)->Perl_pp_rewinddir();
6415 #undef Perl_pp_right_shift
6417 Perl_pp_right_shift(void *pPerl)
6419 return ((CPerlObj*)pPerl)->Perl_pp_right_shift();
6422 #undef Perl_pp_rindex
6424 Perl_pp_rindex(void *pPerl)
6426 return ((CPerlObj*)pPerl)->Perl_pp_rindex();
6429 #undef Perl_pp_rmdir
6431 Perl_pp_rmdir(void *pPerl)
6433 return ((CPerlObj*)pPerl)->Perl_pp_rmdir();
6436 #undef Perl_pp_rv2av
6438 Perl_pp_rv2av(void *pPerl)
6440 return ((CPerlObj*)pPerl)->Perl_pp_rv2av();
6443 #undef Perl_pp_rv2cv
6445 Perl_pp_rv2cv(void *pPerl)
6447 return ((CPerlObj*)pPerl)->Perl_pp_rv2cv();
6450 #undef Perl_pp_rv2gv
6452 Perl_pp_rv2gv(void *pPerl)
6454 return ((CPerlObj*)pPerl)->Perl_pp_rv2gv();
6457 #undef Perl_pp_rv2hv
6459 Perl_pp_rv2hv(void *pPerl)
6461 return ((CPerlObj*)pPerl)->Perl_pp_rv2hv();
6464 #undef Perl_pp_rv2sv
6466 Perl_pp_rv2sv(void *pPerl)
6468 return ((CPerlObj*)pPerl)->Perl_pp_rv2sv();
6471 #undef Perl_pp_sassign
6473 Perl_pp_sassign(void *pPerl)
6475 return ((CPerlObj*)pPerl)->Perl_pp_sassign();
6478 #undef Perl_pp_scalar
6480 Perl_pp_scalar(void *pPerl)
6482 return ((CPerlObj*)pPerl)->Perl_pp_scalar();
6485 #undef Perl_pp_schomp
6487 Perl_pp_schomp(void *pPerl)
6489 return ((CPerlObj*)pPerl)->Perl_pp_schomp();
6492 #undef Perl_pp_schop
6494 Perl_pp_schop(void *pPerl)
6496 return ((CPerlObj*)pPerl)->Perl_pp_schop();
6501 Perl_pp_scmp(void *pPerl)
6503 return ((CPerlObj*)pPerl)->Perl_pp_scmp();
6506 #undef Perl_pp_scope
6508 Perl_pp_scope(void *pPerl)
6510 return ((CPerlObj*)pPerl)->Perl_pp_scope();
6515 Perl_pp_seek(void *pPerl)
6517 return ((CPerlObj*)pPerl)->Perl_pp_seek();
6520 #undef Perl_pp_seekdir
6522 Perl_pp_seekdir(void *pPerl)
6524 return ((CPerlObj*)pPerl)->Perl_pp_seekdir();
6527 #undef Perl_pp_select
6529 Perl_pp_select(void *pPerl)
6531 return ((CPerlObj*)pPerl)->Perl_pp_select();
6534 #undef Perl_pp_semctl
6536 Perl_pp_semctl(void *pPerl)
6538 return ((CPerlObj*)pPerl)->Perl_pp_semctl();
6541 #undef Perl_pp_semget
6543 Perl_pp_semget(void *pPerl)
6545 return ((CPerlObj*)pPerl)->Perl_pp_semget();
6548 #undef Perl_pp_semop
6550 Perl_pp_semop(void *pPerl)
6552 return ((CPerlObj*)pPerl)->Perl_pp_semop();
6557 Perl_pp_send(void *pPerl)
6559 return ((CPerlObj*)pPerl)->Perl_pp_send();
6564 Perl_pp_seq(void *pPerl)
6566 return ((CPerlObj*)pPerl)->Perl_pp_seq();
6569 #undef Perl_pp_setpgrp
6571 Perl_pp_setpgrp(void *pPerl)
6573 return ((CPerlObj*)pPerl)->Perl_pp_setpgrp();
6576 #undef Perl_pp_setpriority
6578 Perl_pp_setpriority(void *pPerl)
6580 return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
6585 Perl_pp_sge(void *pPerl)
6587 return ((CPerlObj*)pPerl)->Perl_pp_sge();
6590 #undef Perl_pp_sgrent
6592 Perl_pp_sgrent(void *pPerl)
6594 return ((CPerlObj*)pPerl)->Perl_pp_sgrent();
6599 Perl_pp_sgt(void *pPerl)
6601 return ((CPerlObj*)pPerl)->Perl_pp_sgt();
6604 #undef Perl_pp_shift
6606 Perl_pp_shift(void *pPerl)
6608 return ((CPerlObj*)pPerl)->Perl_pp_shift();
6611 #undef Perl_pp_shmctl
6613 Perl_pp_shmctl(void *pPerl)
6615 return ((CPerlObj*)pPerl)->Perl_pp_shmctl();
6618 #undef Perl_pp_shmget
6620 Perl_pp_shmget(void *pPerl)
6622 return ((CPerlObj*)pPerl)->Perl_pp_shmget();
6625 #undef Perl_pp_shmread
6627 Perl_pp_shmread(void *pPerl)
6629 return ((CPerlObj*)pPerl)->Perl_pp_shmread();
6632 #undef Perl_pp_shmwrite
6634 Perl_pp_shmwrite(void *pPerl)
6636 return ((CPerlObj*)pPerl)->Perl_pp_shmwrite();
6639 #undef Perl_pp_shostent
6641 Perl_pp_shostent(void *pPerl)
6643 return ((CPerlObj*)pPerl)->Perl_pp_shostent();
6646 #undef Perl_pp_shutdown
6648 Perl_pp_shutdown(void *pPerl)
6650 return ((CPerlObj*)pPerl)->Perl_pp_shutdown();
6655 Perl_pp_sin(void *pPerl)
6657 return ((CPerlObj*)pPerl)->Perl_pp_sin();
6662 Perl_pp_sle(void *pPerl)
6664 return ((CPerlObj*)pPerl)->Perl_pp_sle();
6667 #undef Perl_pp_sleep
6669 Perl_pp_sleep(void *pPerl)
6671 return ((CPerlObj*)pPerl)->Perl_pp_sleep();
6676 Perl_pp_slt(void *pPerl)
6678 return ((CPerlObj*)pPerl)->Perl_pp_slt();
6683 Perl_pp_sne(void *pPerl)
6685 return ((CPerlObj*)pPerl)->Perl_pp_sne();
6688 #undef Perl_pp_snetent
6690 Perl_pp_snetent(void *pPerl)
6692 return ((CPerlObj*)pPerl)->Perl_pp_snetent();
6695 #undef Perl_pp_socket
6697 Perl_pp_socket(void *pPerl)
6699 return ((CPerlObj*)pPerl)->Perl_pp_socket();
6702 #undef Perl_pp_sockpair
6704 Perl_pp_sockpair(void *pPerl)
6706 return ((CPerlObj*)pPerl)->Perl_pp_sockpair();
6711 Perl_pp_sort(void *pPerl)
6713 return ((CPerlObj*)pPerl)->Perl_pp_sort();
6716 #undef Perl_pp_splice
6718 Perl_pp_splice(void *pPerl)
6720 return ((CPerlObj*)pPerl)->Perl_pp_splice();
6723 #undef Perl_pp_split
6725 Perl_pp_split(void *pPerl)
6727 return ((CPerlObj*)pPerl)->Perl_pp_split();
6730 #undef Perl_pp_sprintf
6732 Perl_pp_sprintf(void *pPerl)
6734 return ((CPerlObj*)pPerl)->Perl_pp_sprintf();
6737 #undef Perl_pp_sprotoent
6739 Perl_pp_sprotoent(void *pPerl)
6741 return ((CPerlObj*)pPerl)->Perl_pp_sprotoent();
6744 #undef Perl_pp_spwent
6746 Perl_pp_spwent(void *pPerl)
6748 return ((CPerlObj*)pPerl)->Perl_pp_spwent();
6753 Perl_pp_sqrt(void *pPerl)
6755 return ((CPerlObj*)pPerl)->Perl_pp_sqrt();
6758 #undef Perl_pp_srand
6760 Perl_pp_srand(void *pPerl)
6762 return ((CPerlObj*)pPerl)->Perl_pp_srand();
6765 #undef Perl_pp_srefgen
6767 Perl_pp_srefgen(void *pPerl)
6769 return ((CPerlObj*)pPerl)->Perl_pp_srefgen();
6772 #undef Perl_pp_sselect
6774 Perl_pp_sselect(void *pPerl)
6776 return ((CPerlObj*)pPerl)->Perl_pp_sselect();
6779 #undef Perl_pp_sservent
6781 Perl_pp_sservent(void *pPerl)
6783 return ((CPerlObj*)pPerl)->Perl_pp_sservent();
6786 #undef Perl_pp_ssockopt
6788 Perl_pp_ssockopt(void *pPerl)
6790 return ((CPerlObj*)pPerl)->Perl_pp_ssockopt();
6795 Perl_pp_stat(void *pPerl)
6797 return ((CPerlObj*)pPerl)->Perl_pp_stat();
6800 #undef Perl_pp_stringify
6802 Perl_pp_stringify(void *pPerl)
6804 return ((CPerlObj*)pPerl)->Perl_pp_stringify();
6809 Perl_pp_stub(void *pPerl)
6811 return ((CPerlObj*)pPerl)->Perl_pp_stub();
6814 #undef Perl_pp_study
6816 Perl_pp_study(void *pPerl)
6818 return ((CPerlObj*)pPerl)->Perl_pp_study();
6821 #undef Perl_pp_subst
6823 Perl_pp_subst(void *pPerl)
6825 return ((CPerlObj*)pPerl)->Perl_pp_subst();
6828 #undef Perl_pp_substcont
6830 Perl_pp_substcont(void *pPerl)
6832 return ((CPerlObj*)pPerl)->Perl_pp_substcont();
6835 #undef Perl_pp_substr
6837 Perl_pp_substr(void *pPerl)
6839 return ((CPerlObj*)pPerl)->Perl_pp_substr();
6842 #undef Perl_pp_subtract
6844 Perl_pp_subtract(void *pPerl)
6846 return ((CPerlObj*)pPerl)->Perl_pp_subtract();
6849 #undef Perl_pp_symlink
6851 Perl_pp_symlink(void *pPerl)
6853 return ((CPerlObj*)pPerl)->Perl_pp_symlink();
6856 #undef Perl_pp_syscall
6858 Perl_pp_syscall(void *pPerl)
6860 return ((CPerlObj*)pPerl)->Perl_pp_syscall();
6863 #undef Perl_pp_sysopen
6865 Perl_pp_sysopen(void *pPerl)
6867 return ((CPerlObj*)pPerl)->Perl_pp_sysopen();
6870 #undef Perl_pp_sysread
6872 Perl_pp_sysread(void *pPerl)
6874 return ((CPerlObj*)pPerl)->Perl_pp_sysread();
6877 #undef Perl_pp_sysseek
6879 Perl_pp_sysseek(void *pPerl)
6881 return ((CPerlObj*)pPerl)->Perl_pp_sysseek();
6884 #undef Perl_pp_system
6886 Perl_pp_system(void *pPerl)
6888 return ((CPerlObj*)pPerl)->Perl_pp_system();
6891 #undef Perl_pp_syswrite
6893 Perl_pp_syswrite(void *pPerl)
6895 return ((CPerlObj*)pPerl)->Perl_pp_syswrite();
6900 Perl_pp_tell(void *pPerl)
6902 return ((CPerlObj*)pPerl)->Perl_pp_tell();
6905 #undef Perl_pp_telldir
6907 Perl_pp_telldir(void *pPerl)
6909 return ((CPerlObj*)pPerl)->Perl_pp_telldir();
6912 #undef Perl_pp_threadsv
6914 Perl_pp_threadsv(void *pPerl)
6916 return ((CPerlObj*)pPerl)->Perl_pp_threadsv();
6921 Perl_pp_tie(void *pPerl)
6923 return ((CPerlObj*)pPerl)->Perl_pp_tie();
6928 Perl_pp_tied(void *pPerl)
6930 return ((CPerlObj*)pPerl)->Perl_pp_tied();
6935 Perl_pp_time(void *pPerl)
6937 return ((CPerlObj*)pPerl)->Perl_pp_time();
6942 Perl_pp_tms(void *pPerl)
6944 return ((CPerlObj*)pPerl)->Perl_pp_tms();
6947 #undef Perl_pp_trans
6949 Perl_pp_trans(void *pPerl)
6951 return ((CPerlObj*)pPerl)->Perl_pp_trans();
6954 #undef Perl_pp_truncate
6956 Perl_pp_truncate(void *pPerl)
6958 return ((CPerlObj*)pPerl)->Perl_pp_truncate();
6963 Perl_pp_uc(void *pPerl)
6965 return ((CPerlObj*)pPerl)->Perl_pp_uc();
6968 #undef Perl_pp_ucfirst
6970 Perl_pp_ucfirst(void *pPerl)
6972 return ((CPerlObj*)pPerl)->Perl_pp_ucfirst();
6975 #undef Perl_pp_umask
6977 Perl_pp_umask(void *pPerl)
6979 return ((CPerlObj*)pPerl)->Perl_pp_umask();
6982 #undef Perl_pp_undef
6984 Perl_pp_undef(void *pPerl)
6986 return ((CPerlObj*)pPerl)->Perl_pp_undef();
6989 #undef Perl_pp_unlink
6991 Perl_pp_unlink(void *pPerl)
6993 return ((CPerlObj*)pPerl)->Perl_pp_unlink();
6996 #undef Perl_pp_unpack
6998 Perl_pp_unpack(void *pPerl)
7000 return ((CPerlObj*)pPerl)->Perl_pp_unpack();
7003 #undef Perl_pp_unshift
7005 Perl_pp_unshift(void *pPerl)
7007 return ((CPerlObj*)pPerl)->Perl_pp_unshift();
7010 #undef Perl_pp_unstack
7012 Perl_pp_unstack(void *pPerl)
7014 return ((CPerlObj*)pPerl)->Perl_pp_unstack();
7017 #undef Perl_pp_untie
7019 Perl_pp_untie(void *pPerl)
7021 return ((CPerlObj*)pPerl)->Perl_pp_untie();
7024 #undef Perl_pp_utime
7026 Perl_pp_utime(void *pPerl)
7028 return ((CPerlObj*)pPerl)->Perl_pp_utime();
7031 #undef Perl_pp_values
7033 Perl_pp_values(void *pPerl)
7035 return ((CPerlObj*)pPerl)->Perl_pp_values();
7040 Perl_pp_vec(void *pPerl)
7042 return ((CPerlObj*)pPerl)->Perl_pp_vec();
7047 Perl_pp_wait(void *pPerl)
7049 return ((CPerlObj*)pPerl)->Perl_pp_wait();
7052 #undef Perl_pp_waitpid
7054 Perl_pp_waitpid(void *pPerl)
7056 return ((CPerlObj*)pPerl)->Perl_pp_waitpid();
7059 #undef Perl_pp_wantarray
7061 Perl_pp_wantarray(void *pPerl)
7063 return ((CPerlObj*)pPerl)->Perl_pp_wantarray();
7068 Perl_pp_warn(void *pPerl)
7070 return ((CPerlObj*)pPerl)->Perl_pp_warn();
7075 Perl_pp_xor(void *pPerl)
7077 return ((CPerlObj*)pPerl)->Perl_pp_xor();
7082 #endif /* PERL_OBJECT */