#include "INTERN.h" #include "perl.h" #ifdef PERL_OBJECT #undef pp_null #define pp_null CPerlObj::Perl_pp_null #undef pp_stub #define pp_stub CPerlObj::Perl_pp_stub #undef pp_scalar #define pp_scalar CPerlObj::Perl_pp_scalar #undef pp_pushmark #define pp_pushmark CPerlObj::Perl_pp_pushmark #undef pp_wantarray #define pp_wantarray CPerlObj::Perl_pp_wantarray #undef pp_const #define pp_const CPerlObj::Perl_pp_const #undef pp_gvsv #define pp_gvsv CPerlObj::Perl_pp_gvsv #undef pp_gv #define pp_gv CPerlObj::Perl_pp_gv #undef pp_gelem #define pp_gelem CPerlObj::Perl_pp_gelem #undef pp_padsv #define pp_padsv CPerlObj::Perl_pp_padsv #undef pp_padav #define pp_padav CPerlObj::Perl_pp_padav #undef pp_padhv #define pp_padhv CPerlObj::Perl_pp_padhv #undef pp_padany #define pp_padany CPerlObj::Perl_pp_padany #undef pp_pushre #define pp_pushre CPerlObj::Perl_pp_pushre #undef pp_rv2gv #define pp_rv2gv CPerlObj::Perl_pp_rv2gv #undef pp_rv2sv #define pp_rv2sv CPerlObj::Perl_pp_rv2sv #undef pp_av2arylen #define pp_av2arylen CPerlObj::Perl_pp_av2arylen #undef pp_rv2cv #define pp_rv2cv CPerlObj::Perl_pp_rv2cv #undef pp_anoncode #define pp_anoncode CPerlObj::Perl_pp_anoncode #undef pp_prototype #define pp_prototype CPerlObj::Perl_pp_prototype #undef pp_refgen #define pp_refgen CPerlObj::Perl_pp_refgen #undef pp_srefgen #define pp_srefgen CPerlObj::Perl_pp_srefgen #undef pp_ref #define pp_ref CPerlObj::Perl_pp_ref #undef pp_bless #define pp_bless CPerlObj::Perl_pp_bless #undef pp_backtick #define pp_backtick CPerlObj::Perl_pp_backtick #undef pp_glob #define pp_glob CPerlObj::Perl_pp_glob #undef pp_readline #define pp_readline CPerlObj::Perl_pp_readline #undef pp_rcatline #define pp_rcatline CPerlObj::Perl_pp_rcatline #undef pp_regcmaybe #define pp_regcmaybe CPerlObj::Perl_pp_regcmaybe #undef pp_regcreset #define pp_regcreset CPerlObj::Perl_pp_regcreset #undef pp_regcomp #define pp_regcomp CPerlObj::Perl_pp_regcomp #undef pp_match #define pp_match CPerlObj::Perl_pp_match #undef pp_qr #define pp_qr CPerlObj::Perl_pp_qr #undef pp_subst #define pp_subst CPerlObj::Perl_pp_subst #undef pp_substcont #define pp_substcont CPerlObj::Perl_pp_substcont #undef pp_trans #define pp_trans CPerlObj::Perl_pp_trans #undef pp_sassign #define pp_sassign CPerlObj::Perl_pp_sassign #undef pp_aassign #define pp_aassign CPerlObj::Perl_pp_aassign #undef pp_chop #define pp_chop CPerlObj::Perl_pp_chop #undef pp_schop #define pp_schop CPerlObj::Perl_pp_schop #undef pp_chomp #define pp_chomp CPerlObj::Perl_pp_chomp #undef pp_schomp #define pp_schomp CPerlObj::Perl_pp_schomp #undef pp_defined #define pp_defined CPerlObj::Perl_pp_defined #undef pp_undef #define pp_undef CPerlObj::Perl_pp_undef #undef pp_study #define pp_study CPerlObj::Perl_pp_study #undef pp_pos #define pp_pos CPerlObj::Perl_pp_pos #undef pp_preinc #define pp_preinc CPerlObj::Perl_pp_preinc #undef pp_i_preinc #define pp_i_preinc CPerlObj::Perl_pp_preinc #undef pp_predec #define pp_predec CPerlObj::Perl_pp_predec #undef pp_i_predec #define pp_i_predec CPerlObj::Perl_pp_predec #undef pp_postinc #define pp_postinc CPerlObj::Perl_pp_postinc #undef pp_i_postinc #define pp_i_postinc CPerlObj::Perl_pp_postinc #undef pp_postdec #define pp_postdec CPerlObj::Perl_pp_postdec #undef pp_i_postdec #define pp_i_postdec CPerlObj::Perl_pp_postdec #undef pp_pow #define pp_pow CPerlObj::Perl_pp_pow #undef pp_multiply #define pp_multiply CPerlObj::Perl_pp_multiply #undef pp_i_multiply #define pp_i_multiply CPerlObj::Perl_pp_i_multiply #undef pp_divide #define pp_divide CPerlObj::Perl_pp_divide #undef pp_i_divide #define pp_i_divide CPerlObj::Perl_pp_i_divide #undef pp_modulo #define pp_modulo CPerlObj::Perl_pp_modulo #undef pp_i_modulo #define pp_i_modulo CPerlObj::Perl_pp_i_modulo #undef pp_repeat #define pp_repeat CPerlObj::Perl_pp_repeat #undef pp_add #define pp_add CPerlObj::Perl_pp_add #undef pp_i_add #define pp_i_add CPerlObj::Perl_pp_i_add #undef pp_subtract #define pp_subtract CPerlObj::Perl_pp_subtract #undef pp_i_subtract #define pp_i_subtract CPerlObj::Perl_pp_i_subtract #undef pp_concat #define pp_concat CPerlObj::Perl_pp_concat #undef pp_stringify #define pp_stringify CPerlObj::Perl_pp_stringify #undef pp_left_shift #define pp_left_shift CPerlObj::Perl_pp_left_shift #undef pp_right_shift #define pp_right_shift CPerlObj::Perl_pp_right_shift #undef pp_lt #define pp_lt CPerlObj::Perl_pp_lt #undef pp_i_lt #define pp_i_lt CPerlObj::Perl_pp_i_lt #undef pp_gt #define pp_gt CPerlObj::Perl_pp_gt #undef pp_i_gt #define pp_i_gt CPerlObj::Perl_pp_i_gt #undef pp_le #define pp_le CPerlObj::Perl_pp_le #undef pp_i_le #define pp_i_le CPerlObj::Perl_pp_i_le #undef pp_ge #define pp_ge CPerlObj::Perl_pp_ge #undef pp_i_ge #define pp_i_ge CPerlObj::Perl_pp_i_ge #undef pp_eq #define pp_eq CPerlObj::Perl_pp_eq #undef pp_i_eq #define pp_i_eq CPerlObj::Perl_pp_i_eq #undef pp_ne #define pp_ne CPerlObj::Perl_pp_ne #undef pp_i_ne #define pp_i_ne CPerlObj::Perl_pp_i_ne #undef pp_ncmp #define pp_ncmp CPerlObj::Perl_pp_ncmp #undef pp_i_ncmp #define pp_i_ncmp CPerlObj::Perl_pp_i_ncmp #undef pp_slt #define pp_slt CPerlObj::Perl_pp_slt #undef pp_sgt #define pp_sgt CPerlObj::Perl_pp_sgt #undef pp_sle #define pp_sle CPerlObj::Perl_pp_sle #undef pp_sge #define pp_sge CPerlObj::Perl_pp_sge #undef pp_seq #define pp_seq CPerlObj::Perl_pp_seq #undef pp_sne #define pp_sne CPerlObj::Perl_pp_sne #undef pp_scmp #define pp_scmp CPerlObj::Perl_pp_scmp #undef pp_bit_and #define pp_bit_and CPerlObj::Perl_pp_bit_and #undef pp_bit_xor #define pp_bit_xor CPerlObj::Perl_pp_bit_xor #undef pp_bit_or #define pp_bit_or CPerlObj::Perl_pp_bit_or #undef pp_negate #define pp_negate CPerlObj::Perl_pp_negate #undef pp_i_negate #define pp_i_negate CPerlObj::Perl_pp_i_negate #undef pp_not #define pp_not CPerlObj::Perl_pp_not #undef pp_complement #define pp_complement CPerlObj::Perl_pp_complement #undef pp_atan2 #define pp_atan2 CPerlObj::Perl_pp_atan2 #undef pp_sin #define pp_sin CPerlObj::Perl_pp_sin #undef pp_cos #define pp_cos CPerlObj::Perl_pp_cos #undef pp_rand #define pp_rand CPerlObj::Perl_pp_rand #undef pp_srand #define pp_srand CPerlObj::Perl_pp_srand #undef pp_exp #define pp_exp CPerlObj::Perl_pp_exp #undef pp_log #define pp_log CPerlObj::Perl_pp_log #undef pp_sqrt #define pp_sqrt CPerlObj::Perl_pp_sqrt #undef pp_int #define pp_int CPerlObj::Perl_pp_int #undef pp_hex #define pp_hex CPerlObj::Perl_pp_hex #undef pp_oct #define pp_oct CPerlObj::Perl_pp_oct #undef pp_abs #define pp_abs CPerlObj::Perl_pp_abs #undef pp_length #define pp_length CPerlObj::Perl_pp_length #undef pp_substr #define pp_substr CPerlObj::Perl_pp_substr #undef pp_vec #define pp_vec CPerlObj::Perl_pp_vec #undef pp_index #define pp_index CPerlObj::Perl_pp_index #undef pp_rindex #define pp_rindex CPerlObj::Perl_pp_rindex #undef pp_sprintf #define pp_sprintf CPerlObj::Perl_pp_sprintf #undef pp_formline #define pp_formline CPerlObj::Perl_pp_formline #undef pp_ord #define pp_ord CPerlObj::Perl_pp_ord #undef pp_chr #define pp_chr CPerlObj::Perl_pp_chr #undef pp_crypt #define pp_crypt CPerlObj::Perl_pp_crypt #undef pp_ucfirst #define pp_ucfirst CPerlObj::Perl_pp_ucfirst #undef pp_lcfirst #define pp_lcfirst CPerlObj::Perl_pp_lcfirst #undef pp_uc #define pp_uc CPerlObj::Perl_pp_uc #undef pp_lc #define pp_lc CPerlObj::Perl_pp_lc #undef pp_quotemeta #define pp_quotemeta CPerlObj::Perl_pp_quotemeta #undef pp_rv2av #define pp_rv2av CPerlObj::Perl_pp_rv2av #undef pp_aelemfast #define pp_aelemfast CPerlObj::Perl_pp_aelemfast #undef pp_aelem #define pp_aelem CPerlObj::Perl_pp_aelem #undef pp_aslice #define pp_aslice CPerlObj::Perl_pp_aslice #undef pp_each #define pp_each CPerlObj::Perl_pp_each #undef pp_values #define pp_values CPerlObj::Perl_pp_values #undef pp_keys #define pp_keys CPerlObj::Perl_pp_keys #undef pp_delete #define pp_delete CPerlObj::Perl_pp_delete #undef pp_exists #define pp_exists CPerlObj::Perl_pp_exists #undef pp_rv2hv #define pp_rv2hv CPerlObj::Perl_pp_rv2hv #undef pp_helem #define pp_helem CPerlObj::Perl_pp_helem #undef pp_hslice #define pp_hslice CPerlObj::Perl_pp_hslice #undef pp_unpack #define pp_unpack CPerlObj::Perl_pp_unpack #undef pp_pack #define pp_pack CPerlObj::Perl_pp_pack #undef pp_split #define pp_split CPerlObj::Perl_pp_split #undef pp_join #define pp_join CPerlObj::Perl_pp_join #undef pp_list #define pp_list CPerlObj::Perl_pp_list #undef pp_lslice #define pp_lslice CPerlObj::Perl_pp_lslice #undef pp_anonlist #define pp_anonlist CPerlObj::Perl_pp_anonlist #undef pp_anonhash #define pp_anonhash CPerlObj::Perl_pp_anonhash #undef pp_splice #define pp_splice CPerlObj::Perl_pp_splice #undef pp_push #define pp_push CPerlObj::Perl_pp_push #undef pp_pop #define pp_pop CPerlObj::Perl_pp_pop #undef pp_shift #define pp_shift CPerlObj::Perl_pp_shift #undef pp_unshift #define pp_unshift CPerlObj::Perl_pp_unshift #undef pp_sort #define pp_sort CPerlObj::Perl_pp_sort #undef pp_reverse #define pp_reverse CPerlObj::Perl_pp_reverse #undef pp_grepstart #define pp_grepstart CPerlObj::Perl_pp_grepstart #undef pp_grepwhile #define pp_grepwhile CPerlObj::Perl_pp_grepwhile #undef pp_mapstart #define pp_mapstart CPerlObj::Perl_pp_mapstart #undef pp_mapwhile #define pp_mapwhile CPerlObj::Perl_pp_mapwhile #undef pp_range #define pp_range CPerlObj::Perl_pp_range #undef pp_flip #define pp_flip CPerlObj::Perl_pp_flip #undef pp_flop #define pp_flop CPerlObj::Perl_pp_flop #undef pp_and #define pp_and CPerlObj::Perl_pp_and #undef pp_or #define pp_or CPerlObj::Perl_pp_or #undef pp_xor #define pp_xor CPerlObj::Perl_pp_xor #undef pp_cond_expr #define pp_cond_expr CPerlObj::Perl_pp_cond_expr #undef pp_andassign #define pp_andassign CPerlObj::Perl_pp_andassign #undef pp_orassign #define pp_orassign CPerlObj::Perl_pp_orassign #undef pp_method #define pp_method CPerlObj::Perl_pp_method #undef pp_entersub #define pp_entersub CPerlObj::Perl_pp_entersub #undef pp_leavesub #define pp_leavesub CPerlObj::Perl_pp_leavesub #undef pp_caller #define pp_caller CPerlObj::Perl_pp_caller #undef pp_warn #define pp_warn CPerlObj::Perl_pp_warn #undef pp_die #define pp_die CPerlObj::Perl_pp_die #undef pp_reset #define pp_reset CPerlObj::Perl_pp_reset #undef pp_lineseq #define pp_lineseq CPerlObj::Perl_pp_lineseq #undef pp_nextstate #define pp_nextstate CPerlObj::Perl_pp_nextstate #undef pp_dbstate #define pp_dbstate CPerlObj::Perl_pp_dbstate #undef pp_unstack #define pp_unstack CPerlObj::Perl_pp_unstack #undef pp_enter #define pp_enter CPerlObj::Perl_pp_enter #undef pp_leave #define pp_leave CPerlObj::Perl_pp_leave #undef pp_scope #define pp_scope CPerlObj::Perl_pp_scope #undef pp_enteriter #define pp_enteriter CPerlObj::Perl_pp_enteriter #undef pp_iter #define pp_iter CPerlObj::Perl_pp_iter #undef pp_enterloop #define pp_enterloop CPerlObj::Perl_pp_enterloop #undef pp_leaveloop #define pp_leaveloop CPerlObj::Perl_pp_leaveloop #undef pp_return #define pp_return CPerlObj::Perl_pp_return #undef pp_last #define pp_last CPerlObj::Perl_pp_last #undef pp_next #define pp_next CPerlObj::Perl_pp_next #undef pp_redo #define pp_redo CPerlObj::Perl_pp_redo #undef pp_dump #define pp_dump CPerlObj::Perl_pp_dump #undef pp_goto #define pp_goto CPerlObj::Perl_pp_goto #undef pp_exit #define pp_exit CPerlObj::Perl_pp_exit #undef pp_open #define pp_open CPerlObj::Perl_pp_open #undef pp_close #define pp_close CPerlObj::Perl_pp_close #undef pp_pipe_op #define pp_pipe_op CPerlObj::Perl_pp_pipe_op #undef pp_fileno #define pp_fileno CPerlObj::Perl_pp_fileno #undef pp_umask #define pp_umask CPerlObj::Perl_pp_umask #undef pp_binmode #define pp_binmode CPerlObj::Perl_pp_binmode #undef pp_tie #define pp_tie CPerlObj::Perl_pp_tie #undef pp_untie #define pp_untie CPerlObj::Perl_pp_untie #undef pp_tied #define pp_tied CPerlObj::Perl_pp_tied #undef pp_dbmopen #define pp_dbmopen CPerlObj::Perl_pp_dbmopen #undef pp_dbmclose #define pp_dbmclose CPerlObj::Perl_pp_dbmclose #undef pp_sselect #define pp_sselect CPerlObj::Perl_pp_sselect #undef pp_select #define pp_select CPerlObj::Perl_pp_select #undef pp_getc #define pp_getc CPerlObj::Perl_pp_getc #undef pp_read #define pp_read CPerlObj::Perl_pp_read #undef pp_enterwrite #define pp_enterwrite CPerlObj::Perl_pp_enterwrite #undef pp_leavewrite #define pp_leavewrite CPerlObj::Perl_pp_leavewrite #undef pp_prtf #define pp_prtf CPerlObj::Perl_pp_prtf #undef pp_print #define pp_print CPerlObj::Perl_pp_print #undef pp_sysopen #define pp_sysopen CPerlObj::Perl_pp_sysopen #undef pp_sysseek #define pp_sysseek CPerlObj::Perl_pp_sysseek #undef pp_sysread #define pp_sysread CPerlObj::Perl_pp_sysread #undef pp_syswrite #define pp_syswrite CPerlObj::Perl_pp_syswrite #undef pp_send #define pp_send CPerlObj::Perl_pp_send #undef pp_recv #define pp_recv CPerlObj::Perl_pp_recv #undef pp_eof #define pp_eof CPerlObj::Perl_pp_eof #undef pp_tell #define pp_tell CPerlObj::Perl_pp_tell #undef pp_seek #define pp_seek CPerlObj::Perl_pp_seek #undef pp_truncate #define pp_truncate CPerlObj::Perl_pp_truncate #undef pp_fcntl #define pp_fcntl CPerlObj::Perl_pp_fcntl #undef pp_ioctl #define pp_ioctl CPerlObj::Perl_pp_ioctl #undef pp_flock #define pp_flock CPerlObj::Perl_pp_flock #undef pp_socket #define pp_socket CPerlObj::Perl_pp_socket #undef pp_sockpair #define pp_sockpair CPerlObj::Perl_pp_sockpair #undef pp_bind #define pp_bind CPerlObj::Perl_pp_bind #undef pp_connect #define pp_connect CPerlObj::Perl_pp_connect #undef pp_listen #define pp_listen CPerlObj::Perl_pp_listen #undef pp_accept #define pp_accept CPerlObj::Perl_pp_accept #undef pp_shutdown #define pp_shutdown CPerlObj::Perl_pp_shutdown #undef pp_gsockopt #define pp_gsockopt CPerlObj::Perl_pp_gsockopt #undef pp_ssockopt #define pp_ssockopt CPerlObj::Perl_pp_ssockopt #undef pp_getsockname #define pp_getsockname CPerlObj::Perl_pp_getsockname #undef pp_getpeername #define pp_getpeername CPerlObj::Perl_pp_getpeername #undef pp_lstat #define pp_lstat CPerlObj::Perl_pp_lstat #undef pp_stat #define pp_stat CPerlObj::Perl_pp_stat #undef pp_ftrread #define pp_ftrread CPerlObj::Perl_pp_ftrread #undef pp_ftrwrite #define pp_ftrwrite CPerlObj::Perl_pp_ftrwrite #undef pp_ftrexec #define pp_ftrexec CPerlObj::Perl_pp_ftrexec #undef pp_fteread #define pp_fteread CPerlObj::Perl_pp_fteread #undef pp_ftewrite #define pp_ftewrite CPerlObj::Perl_pp_ftewrite #undef pp_fteexec #define pp_fteexec CPerlObj::Perl_pp_fteexec #undef pp_ftis #define pp_ftis CPerlObj::Perl_pp_ftis #undef pp_fteowned #define pp_fteowned CPerlObj::Perl_pp_fteowned #undef pp_ftrowned #define pp_ftrowned CPerlObj::Perl_pp_ftrowned #undef pp_ftzero #define pp_ftzero CPerlObj::Perl_pp_ftzero #undef pp_ftsize #define pp_ftsize CPerlObj::Perl_pp_ftsize #undef pp_ftmtime #define pp_ftmtime CPerlObj::Perl_pp_ftmtime #undef pp_ftatime #define pp_ftatime CPerlObj::Perl_pp_ftatime #undef pp_ftctime #define pp_ftctime CPerlObj::Perl_pp_ftctime #undef pp_ftsock #define pp_ftsock CPerlObj::Perl_pp_ftsock #undef pp_ftchr #define pp_ftchr CPerlObj::Perl_pp_ftchr #undef pp_ftblk #define pp_ftblk CPerlObj::Perl_pp_ftblk #undef pp_ftfile #define pp_ftfile CPerlObj::Perl_pp_ftfile #undef pp_ftdir #define pp_ftdir CPerlObj::Perl_pp_ftdir #undef pp_ftpipe #define pp_ftpipe CPerlObj::Perl_pp_ftpipe #undef pp_ftlink #define pp_ftlink CPerlObj::Perl_pp_ftlink #undef pp_ftsuid #define pp_ftsuid CPerlObj::Perl_pp_ftsuid #undef pp_ftsgid #define pp_ftsgid CPerlObj::Perl_pp_ftsgid #undef pp_ftsvtx #define pp_ftsvtx CPerlObj::Perl_pp_ftsvtx #undef pp_fttty #define pp_fttty CPerlObj::Perl_pp_fttty #undef pp_fttext #define pp_fttext CPerlObj::Perl_pp_fttext #undef pp_ftbinary #define pp_ftbinary CPerlObj::Perl_pp_ftbinary #undef pp_chdir #define pp_chdir CPerlObj::Perl_pp_chdir #undef pp_chown #define pp_chown CPerlObj::Perl_pp_chown #undef pp_chroot #define pp_chroot CPerlObj::Perl_pp_chroot #undef pp_unlink #define pp_unlink CPerlObj::Perl_pp_unlink #undef pp_chmod #define pp_chmod CPerlObj::Perl_pp_chmod #undef pp_utime #define pp_utime CPerlObj::Perl_pp_utime #undef pp_rename #define pp_rename CPerlObj::Perl_pp_rename #undef pp_link #define pp_link CPerlObj::Perl_pp_link #undef pp_symlink #define pp_symlink CPerlObj::Perl_pp_symlink #undef pp_readlink #define pp_readlink CPerlObj::Perl_pp_readlink #undef pp_mkdir #define pp_mkdir CPerlObj::Perl_pp_mkdir #undef pp_rmdir #define pp_rmdir CPerlObj::Perl_pp_rmdir #undef pp_open_dir #define pp_open_dir CPerlObj::Perl_pp_open_dir #undef pp_readdir #define pp_readdir CPerlObj::Perl_pp_readdir #undef pp_telldir #define pp_telldir CPerlObj::Perl_pp_telldir #undef pp_seekdir #define pp_seekdir CPerlObj::Perl_pp_seekdir #undef pp_rewinddir #define pp_rewinddir CPerlObj::Perl_pp_rewinddir #undef pp_closedir #define pp_closedir CPerlObj::Perl_pp_closedir #undef pp_fork #define pp_fork CPerlObj::Perl_pp_fork #undef pp_wait #define pp_wait CPerlObj::Perl_pp_wait #undef pp_waitpid #define pp_waitpid CPerlObj::Perl_pp_waitpid #undef pp_system #define pp_system CPerlObj::Perl_pp_system #undef pp_exec #define pp_exec CPerlObj::Perl_pp_exec #undef pp_kill #define pp_kill CPerlObj::Perl_pp_kill #undef pp_getppid #define pp_getppid CPerlObj::Perl_pp_getppid #undef pp_getpgrp #define pp_getpgrp CPerlObj::Perl_pp_getpgrp #undef pp_setpgrp #define pp_setpgrp CPerlObj::Perl_pp_setpgrp #undef pp_getpriority #define pp_getpriority CPerlObj::Perl_pp_getpriority #undef pp_setpriority #define pp_setpriority CPerlObj::Perl_pp_setpriority #undef pp_time #define pp_time CPerlObj::Perl_pp_time #undef pp_tms #define pp_tms CPerlObj::Perl_pp_tms #undef pp_localtime #define pp_localtime CPerlObj::Perl_pp_localtime #undef pp_gmtime #define pp_gmtime CPerlObj::Perl_pp_gmtime #undef pp_alarm #define pp_alarm CPerlObj::Perl_pp_alarm #undef pp_sleep #define pp_sleep CPerlObj::Perl_pp_sleep #undef pp_shmget #define pp_shmget CPerlObj::Perl_pp_shmget #undef pp_shmctl #define pp_shmctl CPerlObj::Perl_pp_shmctl #undef pp_shmread #define pp_shmread CPerlObj::Perl_pp_shmread #undef pp_shmwrite #define pp_shmwrite CPerlObj::Perl_pp_shmwrite #undef pp_msgget #define pp_msgget CPerlObj::Perl_pp_msgget #undef pp_msgctl #define pp_msgctl CPerlObj::Perl_pp_msgctl #undef pp_msgsnd #define pp_msgsnd CPerlObj::Perl_pp_msgsnd #undef pp_msgrcv #define pp_msgrcv CPerlObj::Perl_pp_msgrcv #undef pp_semget #define pp_semget CPerlObj::Perl_pp_semget #undef pp_semctl #define pp_semctl CPerlObj::Perl_pp_semctl #undef pp_semop #define pp_semop CPerlObj::Perl_pp_semop #undef pp_require #define pp_require CPerlObj::Perl_pp_require #undef pp_dofile #define pp_dofile CPerlObj::Perl_pp_dofile #undef pp_entereval #define pp_entereval CPerlObj::Perl_pp_entereval #undef pp_leaveeval #define pp_leaveeval CPerlObj::Perl_pp_leaveeval #undef pp_entertry #define pp_entertry CPerlObj::Perl_pp_entertry #undef pp_leavetry #define pp_leavetry CPerlObj::Perl_pp_leavetry #undef pp_ghbyname #define pp_ghbyname CPerlObj::Perl_pp_ghbyname #undef pp_ghbyaddr #define pp_ghbyaddr CPerlObj::Perl_pp_ghbyaddr #undef pp_ghostent #define pp_ghostent CPerlObj::Perl_pp_ghostent #undef pp_gnbyname #define pp_gnbyname CPerlObj::Perl_pp_gnbyname #undef pp_gnbyaddr #define pp_gnbyaddr CPerlObj::Perl_pp_gnbyaddr #undef pp_gnetent #define pp_gnetent CPerlObj::Perl_pp_gnetent #undef pp_gpbyname #define pp_gpbyname CPerlObj::Perl_pp_gpbyname #undef pp_gpbynumber #define pp_gpbynumber CPerlObj::Perl_pp_gpbynumber #undef pp_gprotoent #define pp_gprotoent CPerlObj::Perl_pp_gprotoent #undef pp_gsbyname #define pp_gsbyname CPerlObj::Perl_pp_gsbyname #undef pp_gsbyport #define pp_gsbyport CPerlObj::Perl_pp_gsbyport #undef pp_gservent #define pp_gservent CPerlObj::Perl_pp_gservent #undef pp_shostent #define pp_shostent CPerlObj::Perl_pp_shostent #undef pp_snetent #define pp_snetent CPerlObj::Perl_pp_snetent #undef pp_sprotoent #define pp_sprotoent CPerlObj::Perl_pp_sprotoent #undef pp_sservent #define pp_sservent CPerlObj::Perl_pp_sservent #undef pp_ehostent #define pp_ehostent CPerlObj::Perl_pp_ehostent #undef pp_enetent #define pp_enetent CPerlObj::Perl_pp_enetent #undef pp_eprotoent #define pp_eprotoent CPerlObj::Perl_pp_eprotoent #undef pp_eservent #define pp_eservent CPerlObj::Perl_pp_eservent #undef pp_gpwnam #define pp_gpwnam CPerlObj::Perl_pp_gpwnam #undef pp_gpwuid #define pp_gpwuid CPerlObj::Perl_pp_gpwuid #undef pp_gpwent #define pp_gpwent CPerlObj::Perl_pp_gpwent #undef pp_spwent #define pp_spwent CPerlObj::Perl_pp_spwent #undef pp_epwent #define pp_epwent CPerlObj::Perl_pp_epwent #undef pp_ggrnam #define pp_ggrnam CPerlObj::Perl_pp_ggrnam #undef pp_ggrgid #define pp_ggrgid CPerlObj::Perl_pp_ggrgid #undef pp_ggrent #define pp_ggrent CPerlObj::Perl_pp_ggrent #undef pp_sgrent #define pp_sgrent CPerlObj::Perl_pp_sgrent #undef pp_egrent #define pp_egrent CPerlObj::Perl_pp_egrent #undef pp_getlogin #define pp_getlogin CPerlObj::Perl_pp_getlogin #undef pp_syscall #define pp_syscall CPerlObj::Perl_pp_syscall #undef pp_lock #define pp_lock CPerlObj::Perl_pp_lock #undef pp_threadsv #define pp_threadsv CPerlObj::Perl_pp_threadsv OP * (CPERLscope(*check)[]) _((OP *op)) = { ck_null, /* null */ ck_null, /* stub */ ck_fun, /* scalar */ ck_null, /* pushmark */ ck_null, /* wantarray */ ck_svconst, /* const */ ck_null, /* gvsv */ ck_null, /* gv */ ck_null, /* gelem */ ck_null, /* padsv */ ck_null, /* padav */ ck_null, /* padhv */ ck_null, /* padany */ ck_null, /* pushre */ ck_rvconst, /* rv2gv */ ck_rvconst, /* rv2sv */ ck_null, /* av2arylen */ ck_rvconst, /* rv2cv */ ck_anoncode, /* anoncode */ ck_null, /* prototype */ ck_spair, /* refgen */ ck_null, /* srefgen */ ck_fun, /* ref */ ck_fun, /* bless */ ck_null, /* backtick */ ck_glob, /* glob */ ck_null, /* readline */ ck_null, /* rcatline */ ck_fun, /* regcmaybe */ ck_fun, /* regcreset */ ck_null, /* regcomp */ ck_match, /* match */ ck_match, /* qr */ ck_null, /* subst */ ck_null, /* substcont */ ck_null, /* trans */ ck_null, /* sassign */ ck_null, /* aassign */ ck_spair, /* chop */ ck_null, /* schop */ ck_spair, /* chomp */ ck_null, /* schomp */ ck_rfun, /* defined */ ck_lfun, /* undef */ ck_fun, /* study */ ck_lfun, /* pos */ ck_lfun, /* preinc */ ck_lfun, /* i_preinc */ ck_lfun, /* predec */ ck_lfun, /* i_predec */ ck_lfun, /* postinc */ ck_lfun, /* i_postinc */ ck_lfun, /* postdec */ ck_lfun, /* i_postdec */ ck_null, /* pow */ ck_null, /* multiply */ ck_null, /* i_multiply */ ck_null, /* divide */ ck_null, /* i_divide */ ck_null, /* modulo */ ck_null, /* i_modulo */ ck_repeat, /* repeat */ ck_null, /* add */ ck_null, /* i_add */ ck_null, /* subtract */ ck_null, /* i_subtract */ ck_concat, /* concat */ ck_fun, /* stringify */ ck_bitop, /* left_shift */ ck_bitop, /* right_shift */ ck_null, /* lt */ ck_null, /* i_lt */ ck_null, /* gt */ ck_null, /* i_gt */ ck_null, /* le */ ck_null, /* i_le */ ck_null, /* ge */ ck_null, /* i_ge */ ck_null, /* eq */ ck_null, /* i_eq */ ck_null, /* ne */ ck_null, /* i_ne */ ck_null, /* ncmp */ ck_null, /* i_ncmp */ ck_scmp, /* slt */ ck_scmp, /* sgt */ ck_scmp, /* sle */ ck_scmp, /* sge */ ck_null, /* seq */ ck_null, /* sne */ ck_scmp, /* scmp */ ck_bitop, /* bit_and */ ck_bitop, /* bit_xor */ ck_bitop, /* bit_or */ ck_null, /* negate */ ck_null, /* i_negate */ ck_null, /* not */ ck_bitop, /* complement */ ck_fun, /* atan2 */ ck_fun, /* sin */ ck_fun, /* cos */ ck_fun, /* rand */ ck_fun, /* srand */ ck_fun, /* exp */ ck_fun, /* log */ ck_fun, /* sqrt */ ck_fun, /* int */ ck_fun, /* hex */ ck_fun, /* oct */ ck_fun, /* abs */ ck_lengthconst, /* length */ ck_fun, /* substr */ ck_fun, /* vec */ ck_index, /* index */ ck_index, /* rindex */ ck_fun_locale, /* sprintf */ ck_fun, /* formline */ ck_fun, /* ord */ ck_fun, /* chr */ ck_fun, /* crypt */ ck_fun_locale, /* ucfirst */ ck_fun_locale, /* lcfirst */ ck_fun_locale, /* uc */ ck_fun_locale, /* lc */ ck_fun, /* quotemeta */ ck_rvconst, /* rv2av */ ck_null, /* aelemfast */ ck_null, /* aelem */ ck_null, /* aslice */ ck_fun, /* each */ ck_fun, /* values */ ck_fun, /* keys */ ck_delete, /* delete */ ck_exists, /* exists */ ck_rvconst, /* rv2hv */ ck_null, /* helem */ ck_null, /* hslice */ ck_fun, /* unpack */ ck_fun, /* pack */ ck_split, /* split */ ck_fun, /* join */ ck_null, /* list */ ck_null, /* lslice */ ck_fun, /* anonlist */ ck_fun, /* anonhash */ ck_fun, /* splice */ ck_fun, /* push */ ck_shift, /* pop */ ck_shift, /* shift */ ck_fun, /* unshift */ ck_sort, /* sort */ ck_fun, /* reverse */ ck_grep, /* grepstart */ ck_null, /* grepwhile */ ck_grep, /* mapstart */ ck_null, /* mapwhile */ ck_null, /* range */ ck_null, /* flip */ ck_null, /* flop */ ck_null, /* and */ ck_null, /* or */ ck_null, /* xor */ ck_null, /* cond_expr */ ck_null, /* andassign */ ck_null, /* orassign */ ck_null, /* method */ ck_subr, /* entersub */ ck_null, /* leavesub */ ck_fun, /* caller */ ck_fun, /* warn */ ck_fun, /* die */ ck_fun, /* reset */ ck_null, /* lineseq */ ck_null, /* nextstate */ ck_null, /* dbstate */ ck_null, /* unstack */ ck_null, /* enter */ ck_null, /* leave */ ck_null, /* scope */ ck_null, /* enteriter */ ck_null, /* iter */ ck_null, /* enterloop */ ck_null, /* leaveloop */ ck_null, /* return */ ck_null, /* last */ ck_null, /* next */ ck_null, /* redo */ ck_null, /* dump */ ck_null, /* goto */ ck_fun, /* exit */ ck_fun, /* open */ ck_fun, /* close */ ck_fun, /* pipe_op */ ck_fun, /* fileno */ ck_fun, /* umask */ ck_fun, /* binmode */ ck_fun, /* tie */ ck_fun, /* untie */ ck_fun, /* tied */ ck_fun, /* dbmopen */ ck_fun, /* dbmclose */ ck_select, /* sselect */ ck_select, /* select */ ck_eof, /* getc */ ck_fun, /* read */ ck_fun, /* enterwrite */ ck_null, /* leavewrite */ ck_listiob, /* prtf */ ck_listiob, /* print */ ck_fun, /* sysopen */ ck_fun, /* sysseek */ ck_fun, /* sysread */ ck_fun, /* syswrite */ ck_fun, /* send */ ck_fun, /* recv */ ck_eof, /* eof */ ck_fun, /* tell */ ck_fun, /* seek */ ck_trunc, /* truncate */ ck_fun, /* fcntl */ ck_fun, /* ioctl */ ck_fun, /* flock */ ck_fun, /* socket */ ck_fun, /* sockpair */ ck_fun, /* bind */ ck_fun, /* connect */ ck_fun, /* listen */ ck_fun, /* accept */ ck_fun, /* shutdown */ ck_fun, /* gsockopt */ ck_fun, /* ssockopt */ ck_fun, /* getsockname */ ck_fun, /* getpeername */ ck_ftst, /* lstat */ ck_ftst, /* stat */ ck_ftst, /* ftrread */ ck_ftst, /* ftrwrite */ ck_ftst, /* ftrexec */ ck_ftst, /* fteread */ ck_ftst, /* ftewrite */ ck_ftst, /* fteexec */ ck_ftst, /* ftis */ ck_ftst, /* fteowned */ ck_ftst, /* ftrowned */ ck_ftst, /* ftzero */ ck_ftst, /* ftsize */ ck_ftst, /* ftmtime */ ck_ftst, /* ftatime */ ck_ftst, /* ftctime */ ck_ftst, /* ftsock */ ck_ftst, /* ftchr */ ck_ftst, /* ftblk */ ck_ftst, /* ftfile */ ck_ftst, /* ftdir */ ck_ftst, /* ftpipe */ ck_ftst, /* ftlink */ ck_ftst, /* ftsuid */ ck_ftst, /* ftsgid */ ck_ftst, /* ftsvtx */ ck_ftst, /* fttty */ ck_ftst, /* fttext */ ck_ftst, /* ftbinary */ ck_fun, /* chdir */ ck_fun, /* chown */ ck_fun, /* chroot */ ck_fun, /* unlink */ ck_fun, /* chmod */ ck_fun, /* utime */ ck_fun, /* rename */ ck_fun, /* link */ ck_fun, /* symlink */ ck_fun, /* readlink */ ck_fun, /* mkdir */ ck_fun, /* rmdir */ ck_fun, /* open_dir */ ck_fun, /* readdir */ ck_fun, /* telldir */ ck_fun, /* seekdir */ ck_fun, /* rewinddir */ ck_fun, /* closedir */ ck_null, /* fork */ ck_null, /* wait */ ck_fun, /* waitpid */ ck_exec, /* system */ ck_exec, /* exec */ ck_fun, /* kill */ ck_null, /* getppid */ ck_fun, /* getpgrp */ ck_fun, /* setpgrp */ ck_fun, /* getpriority */ ck_fun, /* setpriority */ ck_null, /* time */ ck_null, /* tms */ ck_fun, /* localtime */ ck_fun, /* gmtime */ ck_fun, /* alarm */ ck_fun, /* sleep */ ck_fun, /* shmget */ ck_fun, /* shmctl */ ck_fun, /* shmread */ ck_fun, /* shmwrite */ ck_fun, /* msgget */ ck_fun, /* msgctl */ ck_fun, /* msgsnd */ ck_fun, /* msgrcv */ ck_fun, /* semget */ ck_fun, /* semctl */ ck_fun, /* semop */ ck_require, /* require */ ck_fun, /* dofile */ ck_eval, /* entereval */ ck_null, /* leaveeval */ ck_null, /* entertry */ ck_null, /* leavetry */ ck_fun, /* ghbyname */ ck_fun, /* ghbyaddr */ ck_null, /* ghostent */ ck_fun, /* gnbyname */ ck_fun, /* gnbyaddr */ ck_null, /* gnetent */ ck_fun, /* gpbyname */ ck_fun, /* gpbynumber */ ck_null, /* gprotoent */ ck_fun, /* gsbyname */ ck_fun, /* gsbyport */ ck_null, /* gservent */ ck_fun, /* shostent */ ck_fun, /* snetent */ ck_fun, /* sprotoent */ ck_fun, /* sservent */ ck_null, /* ehostent */ ck_null, /* enetent */ ck_null, /* eprotoent */ ck_null, /* eservent */ ck_fun, /* gpwnam */ ck_fun, /* gpwuid */ ck_null, /* gpwent */ ck_null, /* spwent */ ck_null, /* epwent */ ck_fun, /* ggrnam */ ck_fun, /* ggrgid */ ck_null, /* ggrent */ ck_null, /* sgrent */ ck_null, /* egrent */ ck_null, /* getlogin */ ck_fun, /* syscall */ ck_rfun, /* lock */ ck_null, /* threadsv */ }; OP * (CPERLscope(*ppaddr)[])(ARGSproto) = { pp_null, pp_stub, pp_scalar, pp_pushmark, pp_wantarray, pp_const, pp_gvsv, pp_gv, pp_gelem, pp_padsv, pp_padav, pp_padhv, pp_padany, pp_pushre, pp_rv2gv, pp_rv2sv, pp_av2arylen, pp_rv2cv, pp_anoncode, pp_prototype, pp_refgen, pp_srefgen, pp_ref, pp_bless, pp_backtick, pp_glob, pp_readline, pp_rcatline, pp_regcmaybe, pp_regcreset, pp_regcomp, pp_match, pp_qr, pp_subst, pp_substcont, pp_trans, pp_sassign, pp_aassign, pp_chop, pp_schop, pp_chomp, pp_schomp, pp_defined, pp_undef, pp_study, pp_pos, pp_preinc, pp_i_preinc, pp_predec, pp_i_predec, pp_postinc, pp_i_postinc, pp_postdec, pp_i_postdec, pp_pow, pp_multiply, pp_i_multiply, pp_divide, pp_i_divide, pp_modulo, pp_i_modulo, pp_repeat, pp_add, pp_i_add, pp_subtract, pp_i_subtract, pp_concat, pp_stringify, pp_left_shift, pp_right_shift, pp_lt, pp_i_lt, pp_gt, pp_i_gt, pp_le, pp_i_le, pp_ge, pp_i_ge, pp_eq, pp_i_eq, pp_ne, pp_i_ne, pp_ncmp, pp_i_ncmp, pp_slt, pp_sgt, pp_sle, pp_sge, pp_seq, pp_sne, pp_scmp, pp_bit_and, pp_bit_xor, pp_bit_or, pp_negate, pp_i_negate, pp_not, pp_complement, pp_atan2, pp_sin, pp_cos, pp_rand, pp_srand, pp_exp, pp_log, pp_sqrt, pp_int, pp_hex, pp_oct, pp_abs, pp_length, pp_substr, pp_vec, pp_index, pp_rindex, pp_sprintf, pp_formline, pp_ord, pp_chr, pp_crypt, pp_ucfirst, pp_lcfirst, pp_uc, pp_lc, pp_quotemeta, pp_rv2av, pp_aelemfast, pp_aelem, pp_aslice, pp_each, pp_values, pp_keys, pp_delete, pp_exists, pp_rv2hv, pp_helem, pp_hslice, pp_unpack, pp_pack, pp_split, pp_join, pp_list, pp_lslice, pp_anonlist, pp_anonhash, pp_splice, pp_push, pp_pop, pp_shift, pp_unshift, pp_sort, pp_reverse, pp_grepstart, pp_grepwhile, pp_mapstart, pp_mapwhile, pp_range, pp_flip, pp_flop, pp_and, pp_or, pp_xor, pp_cond_expr, pp_andassign, pp_orassign, pp_method, pp_entersub, pp_leavesub, pp_caller, pp_warn, pp_die, pp_reset, pp_lineseq, pp_nextstate, pp_dbstate, pp_unstack, pp_enter, pp_leave, pp_scope, pp_enteriter, pp_iter, pp_enterloop, pp_leaveloop, pp_return, pp_last, pp_next, pp_redo, pp_dump, pp_goto, pp_exit, pp_open, pp_close, pp_pipe_op, pp_fileno, pp_umask, pp_binmode, pp_tie, pp_untie, pp_tied, pp_dbmopen, pp_dbmclose, pp_sselect, pp_select, pp_getc, pp_read, pp_enterwrite, pp_leavewrite, pp_prtf, pp_print, pp_sysopen, pp_sysseek, pp_sysread, pp_syswrite, pp_send, pp_recv, pp_eof, pp_tell, pp_seek, pp_truncate, pp_fcntl, pp_ioctl, pp_flock, pp_socket, pp_sockpair, pp_bind, pp_connect, pp_listen, pp_accept, pp_shutdown, pp_gsockopt, pp_ssockopt, pp_getsockname, pp_getpeername, pp_lstat, pp_stat, pp_ftrread, pp_ftrwrite, pp_ftrexec, pp_fteread, pp_ftewrite, pp_fteexec, pp_ftis, pp_fteowned, pp_ftrowned, pp_ftzero, pp_ftsize, pp_ftmtime, pp_ftatime, pp_ftctime, pp_ftsock, pp_ftchr, pp_ftblk, pp_ftfile, pp_ftdir, pp_ftpipe, pp_ftlink, pp_ftsuid, pp_ftsgid, pp_ftsvtx, pp_fttty, pp_fttext, pp_ftbinary, pp_chdir, pp_chown, pp_chroot, pp_unlink, pp_chmod, pp_utime, pp_rename, pp_link, pp_symlink, pp_readlink, pp_mkdir, pp_rmdir, pp_open_dir, pp_readdir, pp_telldir, pp_seekdir, pp_rewinddir, pp_closedir, pp_fork, pp_wait, pp_waitpid, pp_system, pp_exec, pp_kill, pp_getppid, pp_getpgrp, pp_setpgrp, pp_getpriority, pp_setpriority, pp_time, pp_tms, pp_localtime, pp_gmtime, pp_alarm, pp_sleep, pp_shmget, pp_shmctl, pp_shmread, pp_shmwrite, pp_msgget, pp_msgctl, pp_msgsnd, pp_msgrcv, pp_semget, pp_semctl, pp_semop, pp_require, pp_dofile, pp_entereval, pp_leaveeval, pp_entertry, pp_leavetry, pp_ghbyname, pp_ghbyaddr, pp_ghostent, pp_gnbyname, pp_gnbyaddr, pp_gnetent, pp_gpbyname, pp_gpbynumber, pp_gprotoent, pp_gsbyname, pp_gsbyport, pp_gservent, pp_shostent, pp_snetent, pp_sprotoent, pp_sservent, pp_ehostent, pp_enetent, pp_eprotoent, pp_eservent, pp_gpwnam, pp_gpwuid, pp_gpwent, pp_spwent, pp_epwent, pp_ggrnam, pp_ggrgid, pp_ggrent, pp_sgrent, pp_egrent, pp_getlogin, pp_syscall, pp_lock, pp_threadsv, }; int fprintf(PerlIO *stream, const char *format, ...) { va_list(arglist); va_start(arglist, format); return PerlIO_vprintf(stream, format, arglist); } #undef PERLVAR #define PERLVAR(x, y) #undef PERLVARI #define PERLVARI(x, y, z) PL_##x = z; #undef PERLVARIC #define PERLVARIC(x, y, z) PL_##x = z; CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP) { memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*)); #include "thrdvar.h" #include "intrpvar.h" #include "perlvars.h" PL_piMem = ipM; PL_piENV = ipE; PL_piStdIO = ipStd; PL_piLIO = ipLIO; PL_piDir = ipD; PL_piSock = ipS; PL_piProc = ipP; } void* CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl) { if(pvtbl != NULL) return pvtbl->Malloc(nSize); return NULL; } int& CPerlObj::ErrorNo(void) { return errno; } void CPerlObj::Init(void) { } #ifdef WIN32 /* XXX why are these needed? */ bool do_exec(char *cmd) { return PerlProc_Cmd(cmd); } int do_aspawn(void *vreally, void **vmark, void **vsp) { return PerlProc_aspawn(vreally, vmark, vsp); } #endif /* WIN32 */ #endif /* PERL_OBJECT */