X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7..cd5acddbd85c06fdc2c3069243a4796b290e5742:/globals.c diff --git a/globals.c b/globals.c index 249e69b..14a53a4 100644 --- a/globals.c +++ b/globals.c @@ -1,1471 +1,38 @@ +/* globals.c + * + * Copyright (C) 1995, 1999, 2000, 2001, 2008 by Larry Wall and others + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + */ + +/* + * 'For the rest, they shall represent the other Free Peoples of the World: + * Elves, Dwarves, and Men.' --Elrond + * + * [p.275 of _The Lord of the Rings_, II/iii: "The Ring Goes South"] + */ + +/* This file exists to #include "perl.h" _ONCE_ with + * PERL_IN_GLOBALS_C defined. That causes various global varaiables + * in perl.h and other files it includes to be _defined_ (and initialized) + * rather than just declared. + * + * There is a #include "perlapi.h" which makes use of the fact + * that the object file created from this file will be included by linker + * (to resolve global variables). perlapi.h mention various other "API" + * functions not used by perl itself, but the functions get + * pulled into the perl executable via the refrerence here. + * +*/ + #include "INTERN.h" +#define PERL_IN_GLOBALS_C #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) x = z; -#undef PERLVARIC -#define PERLVARIC(x, y, z) 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" - - piMem = ipM; - piENV = ipE; - piStdIO = ipStd; - piLIO = ipLIO; - piDir = ipD; - piSock = ipS; - 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 */ +#include "perlapi.h" /* bring in PL_force_link_funcs */ -#endif /* PERL_OBJECT */ +/* + * ex: set ts=8 sts=4 sw=4 et: + */