globals.c

   1 #include "INTERN.h"
   2 #include "perl.h"
   3
   4 #ifdef PERL_OBJECT
   5 #undef  pp_null
   6 #define pp_null         CPerlObj::Perl_pp_null
   7 #undef  pp_stub
   8 #define pp_stub         CPerlObj::Perl_pp_stub
   9 #undef  pp_scalar
  10 #define pp_scalar       CPerlObj::Perl_pp_scalar
  11 #undef  pp_pushmark
  12 #define pp_pushmark     CPerlObj::Perl_pp_pushmark
  13 #undef  pp_wantarray
  14 #define pp_wantarray    CPerlObj::Perl_pp_wantarray
  15 #undef  pp_const
  16 #define pp_const        CPerlObj::Perl_pp_const
  17 #undef  pp_gvsv
  18 #define pp_gvsv         CPerlObj::Perl_pp_gvsv
  19 #undef  pp_gv
  20 #define pp_gv           CPerlObj::Perl_pp_gv
  21 #undef  pp_gelem
  22 #define pp_gelem        CPerlObj::Perl_pp_gelem
  23 #undef  pp_padsv
  24 #define pp_padsv        CPerlObj::Perl_pp_padsv
  25 #undef  pp_padav
  26 #define pp_padav        CPerlObj::Perl_pp_padav
  27 #undef  pp_padhv
  28 #define pp_padhv        CPerlObj::Perl_pp_padhv
  29 #undef  pp_padany
  30 #define pp_padany       CPerlObj::Perl_pp_padany
  31 #undef  pp_pushre
  32 #define pp_pushre       CPerlObj::Perl_pp_pushre
  33 #undef  pp_rv2gv
  34 #define pp_rv2gv        CPerlObj::Perl_pp_rv2gv
  35 #undef  pp_rv2sv
  36 #define pp_rv2sv        CPerlObj::Perl_pp_rv2sv
  37 #undef  pp_av2arylen
  38 #define pp_av2arylen    CPerlObj::Perl_pp_av2arylen
  39 #undef  pp_rv2cv
  40 #define pp_rv2cv        CPerlObj::Perl_pp_rv2cv
  41 #undef  pp_anoncode
  42 #define pp_anoncode     CPerlObj::Perl_pp_anoncode
  43 #undef  pp_prototype
  44 #define pp_prototype    CPerlObj::Perl_pp_prototype
  45 #undef  pp_refgen
  46 #define pp_refgen       CPerlObj::Perl_pp_refgen
  47 #undef  pp_srefgen
  48 #define pp_srefgen      CPerlObj::Perl_pp_srefgen
  49 #undef  pp_ref
  50 #define pp_ref          CPerlObj::Perl_pp_ref
  51 #undef  pp_bless
  52 #define pp_bless        CPerlObj::Perl_pp_bless
  53 #undef  pp_backtick
  54 #define pp_backtick     CPerlObj::Perl_pp_backtick
  55 #undef  pp_glob
  56 #define pp_glob         CPerlObj::Perl_pp_glob
  57 #undef  pp_readline
  58 #define pp_readline     CPerlObj::Perl_pp_readline
  59 #undef  pp_rcatline
  60 #define pp_rcatline     CPerlObj::Perl_pp_rcatline
  61 #undef  pp_regcmaybe
  62 #define pp_regcmaybe    CPerlObj::Perl_pp_regcmaybe
  63 #undef  pp_regcreset
  64 #define pp_regcreset    CPerlObj::Perl_pp_regcreset
  65 #undef  pp_regcomp
  66 #define pp_regcomp      CPerlObj::Perl_pp_regcomp
  67 #undef  pp_match
  68 #define pp_match        CPerlObj::Perl_pp_match
  69 #undef  pp_qr
  70 #define pp_qr           CPerlObj::Perl_pp_qr
  71 #undef  pp_subst
  72 #define pp_subst        CPerlObj::Perl_pp_subst
  73 #undef  pp_substcont
  74 #define pp_substcont    CPerlObj::Perl_pp_substcont
  75 #undef  pp_trans
  76 #define pp_trans        CPerlObj::Perl_pp_trans
  77 #undef  pp_sassign
  78 #define pp_sassign      CPerlObj::Perl_pp_sassign
  79 #undef  pp_aassign
  80 #define pp_aassign      CPerlObj::Perl_pp_aassign
  81 #undef  pp_chop
  82 #define pp_chop         CPerlObj::Perl_pp_chop
  83 #undef  pp_schop
  84 #define pp_schop        CPerlObj::Perl_pp_schop
  85 #undef  pp_chomp
  86 #define pp_chomp        CPerlObj::Perl_pp_chomp
  87 #undef  pp_schomp
  88 #define pp_schomp       CPerlObj::Perl_pp_schomp
  89 #undef  pp_defined
  90 #define pp_defined      CPerlObj::Perl_pp_defined
  91 #undef  pp_undef
  92 #define pp_undef        CPerlObj::Perl_pp_undef
  93 #undef  pp_study
  94 #define pp_study        CPerlObj::Perl_pp_study
  95 #undef  pp_pos
  96 #define pp_pos          CPerlObj::Perl_pp_pos
  97 #undef  pp_preinc
  98 #define pp_preinc       CPerlObj::Perl_pp_preinc
  99 #undef  pp_i_preinc
 100 #define pp_i_preinc     CPerlObj::Perl_pp_preinc
 101 #undef  pp_predec
 102 #define pp_predec       CPerlObj::Perl_pp_predec
 103 #undef  pp_i_predec
 104 #define pp_i_predec     CPerlObj::Perl_pp_predec
 105 #undef  pp_postinc
 106 #define pp_postinc      CPerlObj::Perl_pp_postinc
 107 #undef  pp_i_postinc
 108 #define pp_i_postinc    CPerlObj::Perl_pp_postinc
 109 #undef  pp_postdec
 110 #define pp_postdec      CPerlObj::Perl_pp_postdec
 111 #undef  pp_i_postdec
 112 #define pp_i_postdec    CPerlObj::Perl_pp_postdec
 113 #undef  pp_pow
 114 #define pp_pow          CPerlObj::Perl_pp_pow
 115 #undef  pp_multiply
 116 #define pp_multiply     CPerlObj::Perl_pp_multiply
 117 #undef  pp_i_multiply
 118 #define pp_i_multiply   CPerlObj::Perl_pp_i_multiply
 119 #undef  pp_divide
 120 #define pp_divide       CPerlObj::Perl_pp_divide
 121 #undef  pp_i_divide
 122 #define pp_i_divide     CPerlObj::Perl_pp_i_divide
 123 #undef  pp_modulo
 124 #define pp_modulo       CPerlObj::Perl_pp_modulo
 125 #undef  pp_i_modulo
 126 #define pp_i_modulo     CPerlObj::Perl_pp_i_modulo
 127 #undef  pp_repeat
 128 #define pp_repeat       CPerlObj::Perl_pp_repeat
 129 #undef  pp_add
 130 #define pp_add          CPerlObj::Perl_pp_add
 131 #undef  pp_i_add
 132 #define pp_i_add        CPerlObj::Perl_pp_i_add
 133 #undef  pp_subtract
 134 #define pp_subtract     CPerlObj::Perl_pp_subtract
 135 #undef  pp_i_subtract
 136 #define pp_i_subtract   CPerlObj::Perl_pp_i_subtract
 137 #undef  pp_concat
 138 #define pp_concat       CPerlObj::Perl_pp_concat
 139 #undef  pp_stringify
 140 #define pp_stringify    CPerlObj::Perl_pp_stringify
 141 #undef  pp_left_shift
 142 #define pp_left_shift   CPerlObj::Perl_pp_left_shift
 143 #undef  pp_right_shift
 144 #define pp_right_shift  CPerlObj::Perl_pp_right_shift
 145 #undef  pp_lt
 146 #define pp_lt           CPerlObj::Perl_pp_lt
 147 #undef  pp_i_lt
 148 #define pp_i_lt         CPerlObj::Perl_pp_i_lt
 149 #undef  pp_gt
 150 #define pp_gt           CPerlObj::Perl_pp_gt
 151 #undef  pp_i_gt
 152 #define pp_i_gt         CPerlObj::Perl_pp_i_gt
 153 #undef  pp_le
 154 #define pp_le           CPerlObj::Perl_pp_le
 155 #undef  pp_i_le
 156 #define pp_i_le         CPerlObj::Perl_pp_i_le
 157 #undef  pp_ge
 158 #define pp_ge           CPerlObj::Perl_pp_ge
 159 #undef  pp_i_ge
 160 #define pp_i_ge         CPerlObj::Perl_pp_i_ge
 161 #undef  pp_eq
 162 #define pp_eq           CPerlObj::Perl_pp_eq
 163 #undef  pp_i_eq
 164 #define pp_i_eq         CPerlObj::Perl_pp_i_eq
 165 #undef  pp_ne
 166 #define pp_ne           CPerlObj::Perl_pp_ne
 167 #undef  pp_i_ne
 168 #define pp_i_ne         CPerlObj::Perl_pp_i_ne
 169 #undef  pp_ncmp
 170 #define pp_ncmp         CPerlObj::Perl_pp_ncmp
 171 #undef  pp_i_ncmp
 172 #define pp_i_ncmp       CPerlObj::Perl_pp_i_ncmp
 173 #undef  pp_slt
 174 #define pp_slt          CPerlObj::Perl_pp_slt
 175 #undef  pp_sgt
 176 #define pp_sgt          CPerlObj::Perl_pp_sgt
 177 #undef  pp_sle
 178 #define pp_sle          CPerlObj::Perl_pp_sle
 179 #undef  pp_sge
 180 #define pp_sge          CPerlObj::Perl_pp_sge
 181 #undef  pp_seq
 182 #define pp_seq          CPerlObj::Perl_pp_seq
 183 #undef  pp_sne
 184 #define pp_sne          CPerlObj::Perl_pp_sne
 185 #undef  pp_scmp
 186 #define pp_scmp         CPerlObj::Perl_pp_scmp
 187 #undef  pp_bit_and
 188 #define pp_bit_and      CPerlObj::Perl_pp_bit_and
 189 #undef  pp_bit_xor
 190 #define pp_bit_xor      CPerlObj::Perl_pp_bit_xor
 191 #undef  pp_bit_or
 192 #define pp_bit_or       CPerlObj::Perl_pp_bit_or
 193 #undef  pp_negate
 194 #define pp_negate       CPerlObj::Perl_pp_negate
 195 #undef  pp_i_negate
 196 #define pp_i_negate     CPerlObj::Perl_pp_i_negate
 197 #undef  pp_not
 198 #define pp_not          CPerlObj::Perl_pp_not
 199 #undef  pp_complement
 200 #define pp_complement   CPerlObj::Perl_pp_complement
 201 #undef  pp_atan2
 202 #define pp_atan2        CPerlObj::Perl_pp_atan2
 203 #undef  pp_sin
 204 #define pp_sin          CPerlObj::Perl_pp_sin
 205 #undef  pp_cos
 206 #define pp_cos          CPerlObj::Perl_pp_cos
 207 #undef  pp_rand
 208 #define pp_rand         CPerlObj::Perl_pp_rand
 209 #undef  pp_srand
 210 #define pp_srand        CPerlObj::Perl_pp_srand
 211 #undef  pp_exp
 212 #define pp_exp          CPerlObj::Perl_pp_exp
 213 #undef  pp_log
 214 #define pp_log          CPerlObj::Perl_pp_log
 215 #undef  pp_sqrt
 216 #define pp_sqrt         CPerlObj::Perl_pp_sqrt
 217 #undef  pp_int
 218 #define pp_int          CPerlObj::Perl_pp_int
 219 #undef  pp_hex
 220 #define pp_hex          CPerlObj::Perl_pp_hex
 221 #undef  pp_oct
 222 #define pp_oct          CPerlObj::Perl_pp_oct
 223 #undef  pp_abs
 224 #define pp_abs          CPerlObj::Perl_pp_abs
 225 #undef  pp_length
 226 #define pp_length       CPerlObj::Perl_pp_length
 227 #undef  pp_substr
 228 #define pp_substr       CPerlObj::Perl_pp_substr
 229 #undef  pp_vec
 230 #define pp_vec          CPerlObj::Perl_pp_vec
 231 #undef  pp_index
 232 #define pp_index        CPerlObj::Perl_pp_index
 233 #undef  pp_rindex
 234 #define pp_rindex       CPerlObj::Perl_pp_rindex
 235 #undef  pp_sprintf
 236 #define pp_sprintf      CPerlObj::Perl_pp_sprintf
 237 #undef  pp_formline
 238 #define pp_formline     CPerlObj::Perl_pp_formline
 239 #undef  pp_ord
 240 #define pp_ord          CPerlObj::Perl_pp_ord
 241 #undef  pp_chr
 242 #define pp_chr          CPerlObj::Perl_pp_chr
 243 #undef  pp_crypt
 244 #define pp_crypt        CPerlObj::Perl_pp_crypt
 245 #undef  pp_ucfirst
 246 #define pp_ucfirst      CPerlObj::Perl_pp_ucfirst
 247 #undef  pp_lcfirst
 248 #define pp_lcfirst      CPerlObj::Perl_pp_lcfirst
 249 #undef  pp_uc
 250 #define pp_uc           CPerlObj::Perl_pp_uc
 251 #undef  pp_lc
 252 #define pp_lc           CPerlObj::Perl_pp_lc
 253 #undef  pp_quotemeta
 254 #define pp_quotemeta    CPerlObj::Perl_pp_quotemeta
 255 #undef  pp_rv2av
 256 #define pp_rv2av        CPerlObj::Perl_pp_rv2av
 257 #undef  pp_aelemfast
 258 #define pp_aelemfast    CPerlObj::Perl_pp_aelemfast
 259 #undef  pp_aelem
 260 #define pp_aelem        CPerlObj::Perl_pp_aelem
 261 #undef  pp_aslice
 262 #define pp_aslice       CPerlObj::Perl_pp_aslice
 263 #undef  pp_each
 264 #define pp_each         CPerlObj::Perl_pp_each
 265 #undef  pp_values
 266 #define pp_values       CPerlObj::Perl_pp_values
 267 #undef  pp_keys
 268 #define pp_keys         CPerlObj::Perl_pp_keys
 269 #undef  pp_delete
 270 #define pp_delete       CPerlObj::Perl_pp_delete
 271 #undef  pp_exists
 272 #define pp_exists       CPerlObj::Perl_pp_exists
 273 #undef  pp_rv2hv
 274 #define pp_rv2hv        CPerlObj::Perl_pp_rv2hv
 275 #undef  pp_helem
 276 #define pp_helem        CPerlObj::Perl_pp_helem
 277 #undef  pp_hslice
 278 #define pp_hslice       CPerlObj::Perl_pp_hslice
 279 #undef  pp_unpack
 280 #define pp_unpack       CPerlObj::Perl_pp_unpack
 281 #undef  pp_pack
 282 #define pp_pack         CPerlObj::Perl_pp_pack
 283 #undef  pp_split
 284 #define pp_split        CPerlObj::Perl_pp_split
 285 #undef  pp_join
 286 #define pp_join         CPerlObj::Perl_pp_join
 287 #undef  pp_list
 288 #define pp_list         CPerlObj::Perl_pp_list
 289 #undef  pp_lslice
 290 #define pp_lslice       CPerlObj::Perl_pp_lslice
 291 #undef  pp_anonlist
 292 #define pp_anonlist     CPerlObj::Perl_pp_anonlist
 293 #undef  pp_anonhash
 294 #define pp_anonhash     CPerlObj::Perl_pp_anonhash
 295 #undef  pp_splice
 296 #define pp_splice       CPerlObj::Perl_pp_splice
 297 #undef  pp_push
 298 #define pp_push         CPerlObj::Perl_pp_push
 299 #undef  pp_pop
 300 #define pp_pop          CPerlObj::Perl_pp_pop
 301 #undef  pp_shift
 302 #define pp_shift        CPerlObj::Perl_pp_shift
 303 #undef  pp_unshift
 304 #define pp_unshift      CPerlObj::Perl_pp_unshift
 305 #undef  pp_sort
 306 #define pp_sort         CPerlObj::Perl_pp_sort
 307 #undef  pp_reverse
 308 #define pp_reverse      CPerlObj::Perl_pp_reverse
 309 #undef  pp_grepstart
 310 #define pp_grepstart    CPerlObj::Perl_pp_grepstart
 311 #undef  pp_grepwhile
 312 #define pp_grepwhile    CPerlObj::Perl_pp_grepwhile
 313 #undef  pp_mapstart
 314 #define pp_mapstart     CPerlObj::Perl_pp_mapstart
 315 #undef  pp_mapwhile
 316 #define pp_mapwhile     CPerlObj::Perl_pp_mapwhile
 317 #undef  pp_range
 318 #define pp_range        CPerlObj::Perl_pp_range
 319 #undef  pp_flip
 320 #define pp_flip         CPerlObj::Perl_pp_flip
 321 #undef  pp_flop
 322 #define pp_flop         CPerlObj::Perl_pp_flop
 323 #undef  pp_and
 324 #define pp_and          CPerlObj::Perl_pp_and
 325 #undef  pp_or
 326 #define pp_or           CPerlObj::Perl_pp_or
 327 #undef  pp_xor
 328 #define pp_xor          CPerlObj::Perl_pp_xor
 329 #undef  pp_cond_expr
 330 #define pp_cond_expr    CPerlObj::Perl_pp_cond_expr
 331 #undef  pp_andassign
 332 #define pp_andassign    CPerlObj::Perl_pp_andassign
 333 #undef  pp_orassign
 334 #define pp_orassign     CPerlObj::Perl_pp_orassign
 335 #undef  pp_method
 336 #define pp_method       CPerlObj::Perl_pp_method
 337 #undef  pp_entersub
 338 #define pp_entersub     CPerlObj::Perl_pp_entersub
 339 #undef  pp_leavesub
 340 #define pp_leavesub     CPerlObj::Perl_pp_leavesub
 341 #undef  pp_caller
 342 #define pp_caller       CPerlObj::Perl_pp_caller
 343 #undef  pp_warn
 344 #define pp_warn         CPerlObj::Perl_pp_warn
 345 #undef  pp_die
 346 #define pp_die          CPerlObj::Perl_pp_die
 347 #undef  pp_reset
 348 #define pp_reset        CPerlObj::Perl_pp_reset
 349 #undef  pp_lineseq
 350 #define pp_lineseq      CPerlObj::Perl_pp_lineseq
 351 #undef  pp_nextstate
 352 #define pp_nextstate    CPerlObj::Perl_pp_nextstate
 353 #undef  pp_dbstate
 354 #define pp_dbstate      CPerlObj::Perl_pp_dbstate
 355 #undef  pp_unstack
 356 #define pp_unstack      CPerlObj::Perl_pp_unstack
 357 #undef  pp_enter
 358 #define pp_enter        CPerlObj::Perl_pp_enter
 359 #undef  pp_leave
 360 #define pp_leave        CPerlObj::Perl_pp_leave
 361 #undef  pp_scope
 362 #define pp_scope        CPerlObj::Perl_pp_scope
 363 #undef  pp_enteriter
 364 #define pp_enteriter    CPerlObj::Perl_pp_enteriter
 365 #undef  pp_iter
 366 #define pp_iter         CPerlObj::Perl_pp_iter
 367 #undef  pp_enterloop
 368 #define pp_enterloop    CPerlObj::Perl_pp_enterloop
 369 #undef  pp_leaveloop
 370 #define pp_leaveloop    CPerlObj::Perl_pp_leaveloop
 371 #undef  pp_return
 372 #define pp_return       CPerlObj::Perl_pp_return
 373 #undef  pp_last
 374 #define pp_last         CPerlObj::Perl_pp_last
 375 #undef  pp_next
 376 #define pp_next         CPerlObj::Perl_pp_next
 377 #undef  pp_redo
 378 #define pp_redo         CPerlObj::Perl_pp_redo
 379 #undef  pp_dump
 380 #define pp_dump         CPerlObj::Perl_pp_dump
 381 #undef  pp_goto
 382 #define pp_goto         CPerlObj::Perl_pp_goto
 383 #undef  pp_exit
 384 #define pp_exit         CPerlObj::Perl_pp_exit
 385 #undef  pp_open
 386 #define pp_open         CPerlObj::Perl_pp_open
 387 #undef  pp_close
 388 #define pp_close        CPerlObj::Perl_pp_close
 389 #undef  pp_pipe_op
 390 #define pp_pipe_op      CPerlObj::Perl_pp_pipe_op
 391 #undef  pp_fileno
 392 #define pp_fileno       CPerlObj::Perl_pp_fileno
 393 #undef  pp_umask
 394 #define pp_umask        CPerlObj::Perl_pp_umask
 395 #undef  pp_binmode
 396 #define pp_binmode      CPerlObj::Perl_pp_binmode
 397 #undef  pp_tie
 398 #define pp_tie          CPerlObj::Perl_pp_tie
 399 #undef  pp_untie
 400 #define pp_untie        CPerlObj::Perl_pp_untie
 401 #undef  pp_tied
 402 #define pp_tied         CPerlObj::Perl_pp_tied
 403 #undef  pp_dbmopen
 404 #define pp_dbmopen      CPerlObj::Perl_pp_dbmopen
 405 #undef  pp_dbmclose
 406 #define pp_dbmclose     CPerlObj::Perl_pp_dbmclose
 407 #undef  pp_sselect
 408 #define pp_sselect      CPerlObj::Perl_pp_sselect
 409 #undef  pp_select
 410 #define pp_select       CPerlObj::Perl_pp_select
 411 #undef  pp_getc
 412 #define pp_getc         CPerlObj::Perl_pp_getc
 413 #undef  pp_read
 414 #define pp_read         CPerlObj::Perl_pp_read
 415 #undef  pp_enterwrite
 416 #define pp_enterwrite   CPerlObj::Perl_pp_enterwrite
 417 #undef  pp_leavewrite
 418 #define pp_leavewrite   CPerlObj::Perl_pp_leavewrite
 419 #undef  pp_prtf
 420 #define pp_prtf         CPerlObj::Perl_pp_prtf
 421 #undef  pp_print
 422 #define pp_print        CPerlObj::Perl_pp_print
 423 #undef  pp_sysopen
 424 #define pp_sysopen      CPerlObj::Perl_pp_sysopen
 425 #undef  pp_sysseek
 426 #define pp_sysseek      CPerlObj::Perl_pp_sysseek
 427 #undef  pp_sysread
 428 #define pp_sysread      CPerlObj::Perl_pp_sysread
 429 #undef  pp_syswrite
 430 #define pp_syswrite     CPerlObj::Perl_pp_syswrite
 431 #undef  pp_send
 432 #define pp_send         CPerlObj::Perl_pp_send
 433 #undef  pp_recv
 434 #define pp_recv         CPerlObj::Perl_pp_recv
 435 #undef  pp_eof
 436 #define pp_eof          CPerlObj::Perl_pp_eof
 437 #undef  pp_tell
 438 #define pp_tell         CPerlObj::Perl_pp_tell
 439 #undef  pp_seek
 440 #define pp_seek         CPerlObj::Perl_pp_seek
 441 #undef  pp_truncate
 442 #define pp_truncate     CPerlObj::Perl_pp_truncate
 443 #undef  pp_fcntl
 444 #define pp_fcntl        CPerlObj::Perl_pp_fcntl
 445 #undef  pp_ioctl
 446 #define pp_ioctl        CPerlObj::Perl_pp_ioctl
 447 #undef  pp_flock
 448 #define pp_flock        CPerlObj::Perl_pp_flock
 449 #undef  pp_socket
 450 #define pp_socket       CPerlObj::Perl_pp_socket
 451 #undef  pp_sockpair
 452 #define pp_sockpair     CPerlObj::Perl_pp_sockpair
 453 #undef  pp_bind
 454 #define pp_bind         CPerlObj::Perl_pp_bind
 455 #undef  pp_connect
 456 #define pp_connect      CPerlObj::Perl_pp_connect
 457 #undef  pp_listen
 458 #define pp_listen       CPerlObj::Perl_pp_listen
 459 #undef  pp_accept
 460 #define pp_accept       CPerlObj::Perl_pp_accept
 461 #undef  pp_shutdown
 462 #define pp_shutdown     CPerlObj::Perl_pp_shutdown
 463 #undef  pp_gsockopt
 464 #define pp_gsockopt     CPerlObj::Perl_pp_gsockopt
 465 #undef  pp_ssockopt
 466 #define pp_ssockopt     CPerlObj::Perl_pp_ssockopt
 467 #undef  pp_getsockname
 468 #define pp_getsockname  CPerlObj::Perl_pp_getsockname
 469 #undef  pp_getpeername
 470 #define pp_getpeername  CPerlObj::Perl_pp_getpeername
 471 #undef  pp_lstat
 472 #define pp_lstat        CPerlObj::Perl_pp_lstat
 473 #undef  pp_stat
 474 #define pp_stat         CPerlObj::Perl_pp_stat
 475 #undef  pp_ftrread
 476 #define pp_ftrread      CPerlObj::Perl_pp_ftrread
 477 #undef  pp_ftrwrite
 478 #define pp_ftrwrite     CPerlObj::Perl_pp_ftrwrite
 479 #undef  pp_ftrexec
 480 #define pp_ftrexec      CPerlObj::Perl_pp_ftrexec
 481 #undef  pp_fteread
 482 #define pp_fteread      CPerlObj::Perl_pp_fteread
 483 #undef  pp_ftewrite
 484 #define pp_ftewrite     CPerlObj::Perl_pp_ftewrite
 485 #undef  pp_fteexec
 486 #define pp_fteexec      CPerlObj::Perl_pp_fteexec
 487 #undef  pp_ftis
 488 #define pp_ftis         CPerlObj::Perl_pp_ftis
 489 #undef  pp_fteowned
 490 #define pp_fteowned     CPerlObj::Perl_pp_fteowned
 491 #undef  pp_ftrowned
 492 #define pp_ftrowned     CPerlObj::Perl_pp_ftrowned
 493 #undef  pp_ftzero
 494 #define pp_ftzero       CPerlObj::Perl_pp_ftzero
 495 #undef  pp_ftsize
 496 #define pp_ftsize       CPerlObj::Perl_pp_ftsize
 497 #undef  pp_ftmtime
 498 #define pp_ftmtime      CPerlObj::Perl_pp_ftmtime
 499 #undef  pp_ftatime
 500 #define pp_ftatime      CPerlObj::Perl_pp_ftatime
 501 #undef  pp_ftctime
 502 #define pp_ftctime      CPerlObj::Perl_pp_ftctime
 503 #undef  pp_ftsock
 504 #define pp_ftsock       CPerlObj::Perl_pp_ftsock
 505 #undef  pp_ftchr
 506 #define pp_ftchr        CPerlObj::Perl_pp_ftchr
 507 #undef  pp_ftblk
 508 #define pp_ftblk        CPerlObj::Perl_pp_ftblk
 509 #undef  pp_ftfile
 510 #define pp_ftfile       CPerlObj::Perl_pp_ftfile
 511 #undef  pp_ftdir
 512 #define pp_ftdir        CPerlObj::Perl_pp_ftdir
 513 #undef  pp_ftpipe
 514 #define pp_ftpipe       CPerlObj::Perl_pp_ftpipe
 515 #undef  pp_ftlink
 516 #define pp_ftlink       CPerlObj::Perl_pp_ftlink
 517 #undef  pp_ftsuid
 518 #define pp_ftsuid       CPerlObj::Perl_pp_ftsuid
 519 #undef  pp_ftsgid
 520 #define pp_ftsgid       CPerlObj::Perl_pp_ftsgid
 521 #undef  pp_ftsvtx
 522 #define pp_ftsvtx       CPerlObj::Perl_pp_ftsvtx
 523 #undef  pp_fttty
 524 #define pp_fttty        CPerlObj::Perl_pp_fttty
 525 #undef  pp_fttext
 526 #define pp_fttext       CPerlObj::Perl_pp_fttext
 527 #undef  pp_ftbinary
 528 #define pp_ftbinary     CPerlObj::Perl_pp_ftbinary
 529 #undef  pp_chdir
 530 #define pp_chdir        CPerlObj::Perl_pp_chdir
 531 #undef  pp_chown
 532 #define pp_chown        CPerlObj::Perl_pp_chown
 533 #undef  pp_chroot
 534 #define pp_chroot       CPerlObj::Perl_pp_chroot
 535 #undef  pp_unlink
 536 #define pp_unlink       CPerlObj::Perl_pp_unlink
 537 #undef  pp_chmod
 538 #define pp_chmod        CPerlObj::Perl_pp_chmod
 539 #undef  pp_utime
 540 #define pp_utime        CPerlObj::Perl_pp_utime
 541 #undef  pp_rename
 542 #define pp_rename       CPerlObj::Perl_pp_rename
 543 #undef  pp_link
 544 #define pp_link         CPerlObj::Perl_pp_link
 545 #undef  pp_symlink
 546 #define pp_symlink      CPerlObj::Perl_pp_symlink
 547 #undef  pp_readlink
 548 #define pp_readlink     CPerlObj::Perl_pp_readlink
 549 #undef  pp_mkdir
 550 #define pp_mkdir        CPerlObj::Perl_pp_mkdir
 551 #undef  pp_rmdir
 552 #define pp_rmdir        CPerlObj::Perl_pp_rmdir
 553 #undef  pp_open_dir
 554 #define pp_open_dir     CPerlObj::Perl_pp_open_dir
 555 #undef  pp_readdir
 556 #define pp_readdir      CPerlObj::Perl_pp_readdir
 557 #undef  pp_telldir
 558 #define pp_telldir      CPerlObj::Perl_pp_telldir
 559 #undef  pp_seekdir
 560 #define pp_seekdir      CPerlObj::Perl_pp_seekdir
 561 #undef  pp_rewinddir
 562 #define pp_rewinddir    CPerlObj::Perl_pp_rewinddir
 563 #undef  pp_closedir
 564 #define pp_closedir     CPerlObj::Perl_pp_closedir
 565 #undef  pp_fork
 566 #define pp_fork         CPerlObj::Perl_pp_fork
 567 #undef  pp_wait
 568 #define pp_wait         CPerlObj::Perl_pp_wait
 569 #undef  pp_waitpid
 570 #define pp_waitpid      CPerlObj::Perl_pp_waitpid
 571 #undef  pp_system
 572 #define pp_system       CPerlObj::Perl_pp_system
 573 #undef  pp_exec
 574 #define pp_exec         CPerlObj::Perl_pp_exec
 575 #undef  pp_kill
 576 #define pp_kill         CPerlObj::Perl_pp_kill
 577 #undef  pp_getppid
 578 #define pp_getppid      CPerlObj::Perl_pp_getppid
 579 #undef  pp_getpgrp
 580 #define pp_getpgrp      CPerlObj::Perl_pp_getpgrp
 581 #undef  pp_setpgrp
 582 #define pp_setpgrp      CPerlObj::Perl_pp_setpgrp
 583 #undef  pp_getpriority
 584 #define pp_getpriority  CPerlObj::Perl_pp_getpriority
 585 #undef  pp_setpriority
 586 #define pp_setpriority  CPerlObj::Perl_pp_setpriority
 587 #undef  pp_time
 588 #define pp_time         CPerlObj::Perl_pp_time
 589 #undef  pp_tms
 590 #define pp_tms          CPerlObj::Perl_pp_tms
 591 #undef  pp_localtime
 592 #define pp_localtime    CPerlObj::Perl_pp_localtime
 593 #undef  pp_gmtime
 594 #define pp_gmtime       CPerlObj::Perl_pp_gmtime
 595 #undef  pp_alarm
 596 #define pp_alarm        CPerlObj::Perl_pp_alarm
 597 #undef  pp_sleep
 598 #define pp_sleep        CPerlObj::Perl_pp_sleep
 599 #undef  pp_shmget
 600 #define pp_shmget       CPerlObj::Perl_pp_shmget
 601 #undef  pp_shmctl
 602 #define pp_shmctl       CPerlObj::Perl_pp_shmctl
 603 #undef  pp_shmread
 604 #define pp_shmread      CPerlObj::Perl_pp_shmread
 605 #undef  pp_shmwrite
 606 #define pp_shmwrite     CPerlObj::Perl_pp_shmwrite
 607 #undef  pp_msgget
 608 #define pp_msgget       CPerlObj::Perl_pp_msgget
 609 #undef  pp_msgctl
 610 #define pp_msgctl       CPerlObj::Perl_pp_msgctl
 611 #undef  pp_msgsnd
 612 #define pp_msgsnd       CPerlObj::Perl_pp_msgsnd
 613 #undef  pp_msgrcv
 614 #define pp_msgrcv       CPerlObj::Perl_pp_msgrcv
 615 #undef  pp_semget
 616 #define pp_semget       CPerlObj::Perl_pp_semget
 617 #undef  pp_semctl
 618 #define pp_semctl       CPerlObj::Perl_pp_semctl
 619 #undef  pp_semop
 620 #define pp_semop        CPerlObj::Perl_pp_semop
 621 #undef  pp_require
 622 #define pp_require      CPerlObj::Perl_pp_require
 623 #undef  pp_dofile
 624 #define pp_dofile       CPerlObj::Perl_pp_dofile
 625 #undef  pp_entereval
 626 #define pp_entereval    CPerlObj::Perl_pp_entereval
 627 #undef  pp_leaveeval
 628 #define pp_leaveeval    CPerlObj::Perl_pp_leaveeval
 629 #undef  pp_entertry
 630 #define pp_entertry     CPerlObj::Perl_pp_entertry
 631 #undef  pp_leavetry
 632 #define pp_leavetry     CPerlObj::Perl_pp_leavetry
 633 #undef  pp_ghbyname
 634 #define pp_ghbyname     CPerlObj::Perl_pp_ghbyname
 635 #undef  pp_ghbyaddr
 636 #define pp_ghbyaddr     CPerlObj::Perl_pp_ghbyaddr
 637 #undef  pp_ghostent
 638 #define pp_ghostent     CPerlObj::Perl_pp_ghostent
 639 #undef  pp_gnbyname
 640 #define pp_gnbyname     CPerlObj::Perl_pp_gnbyname
 641 #undef  pp_gnbyaddr
 642 #define pp_gnbyaddr     CPerlObj::Perl_pp_gnbyaddr
 643 #undef  pp_gnetent
 644 #define pp_gnetent      CPerlObj::Perl_pp_gnetent
 645 #undef  pp_gpbyname
 646 #define pp_gpbyname     CPerlObj::Perl_pp_gpbyname
 647 #undef  pp_gpbynumber
 648 #define pp_gpbynumber   CPerlObj::Perl_pp_gpbynumber
 649 #undef  pp_gprotoent
 650 #define pp_gprotoent    CPerlObj::Perl_pp_gprotoent
 651 #undef  pp_gsbyname
 652 #define pp_gsbyname     CPerlObj::Perl_pp_gsbyname
 653 #undef  pp_gsbyport
 654 #define pp_gsbyport     CPerlObj::Perl_pp_gsbyport
 655 #undef  pp_gservent
 656 #define pp_gservent     CPerlObj::Perl_pp_gservent
 657 #undef  pp_shostent
 658 #define pp_shostent     CPerlObj::Perl_pp_shostent
 659 #undef  pp_snetent
 660 #define pp_snetent      CPerlObj::Perl_pp_snetent
 661 #undef  pp_sprotoent
 662 #define pp_sprotoent    CPerlObj::Perl_pp_sprotoent
 663 #undef  pp_sservent
 664 #define pp_sservent     CPerlObj::Perl_pp_sservent
 665 #undef  pp_ehostent
 666 #define pp_ehostent     CPerlObj::Perl_pp_ehostent
 667 #undef  pp_enetent
 668 #define pp_enetent      CPerlObj::Perl_pp_enetent
 669 #undef  pp_eprotoent
 670 #define pp_eprotoent    CPerlObj::Perl_pp_eprotoent
 671 #undef  pp_eservent
 672 #define pp_eservent     CPerlObj::Perl_pp_eservent
 673 #undef  pp_gpwnam
 674 #define pp_gpwnam       CPerlObj::Perl_pp_gpwnam
 675 #undef  pp_gpwuid
 676 #define pp_gpwuid       CPerlObj::Perl_pp_gpwuid
 677 #undef  pp_gpwent
 678 #define pp_gpwent       CPerlObj::Perl_pp_gpwent
 679 #undef  pp_spwent
 680 #define pp_spwent       CPerlObj::Perl_pp_spwent
 681 #undef  pp_epwent
 682 #define pp_epwent       CPerlObj::Perl_pp_epwent
 683 #undef  pp_ggrnam
 684 #define pp_ggrnam       CPerlObj::Perl_pp_ggrnam
 685 #undef  pp_ggrgid
 686 #define pp_ggrgid       CPerlObj::Perl_pp_ggrgid
 687 #undef  pp_ggrent
 688 #define pp_ggrent       CPerlObj::Perl_pp_ggrent
 689 #undef  pp_sgrent
 690 #define pp_sgrent       CPerlObj::Perl_pp_sgrent
 691 #undef  pp_egrent
 692 #define pp_egrent       CPerlObj::Perl_pp_egrent
 693 #undef  pp_getlogin
 694 #define pp_getlogin     CPerlObj::Perl_pp_getlogin
 695 #undef  pp_syscall
 696 #define pp_syscall      CPerlObj::Perl_pp_syscall
 697 #undef  pp_lock
 698 #define pp_lock         CPerlObj::Perl_pp_lock
 699 #undef  pp_threadsv
 700 #define pp_threadsv     CPerlObj::Perl_pp_threadsv
 701
 702 OP * (CPERLscope(*check)[]) _((OP *op)) = {
 703         ck_null,        /* null */
 704         ck_null,        /* stub */
 705         ck_fun,         /* scalar */
 706         ck_null,        /* pushmark */
 707         ck_null,        /* wantarray */
 708         ck_svconst,     /* const */
 709         ck_null,        /* gvsv */
 710         ck_null,        /* gv */
 711         ck_null,        /* gelem */
 712         ck_null,        /* padsv */
 713         ck_null,        /* padav */
 714         ck_null,        /* padhv */
 715         ck_null,        /* padany */
 716         ck_null,        /* pushre */
 717         ck_rvconst,     /* rv2gv */
 718         ck_rvconst,     /* rv2sv */
 719         ck_null,        /* av2arylen */
 720         ck_rvconst,     /* rv2cv */
 721         ck_anoncode,    /* anoncode */
 722         ck_null,        /* prototype */
 723         ck_spair,       /* refgen */
 724         ck_null,        /* srefgen */
 725         ck_fun,         /* ref */
 726         ck_fun,         /* bless */
 727         ck_null,        /* backtick */
 728         ck_glob,        /* glob */
 729         ck_null,        /* readline */
 730         ck_null,        /* rcatline */
 731         ck_fun,         /* regcmaybe */
 732         ck_fun,         /* regcreset */
 733         ck_null,        /* regcomp */
 734         ck_match,       /* match */
 735         ck_match,       /* qr */
 736         ck_null,        /* subst */
 737         ck_null,        /* substcont */
 738         ck_null,        /* trans */
 739         ck_null,        /* sassign */
 740         ck_null,        /* aassign */
 741         ck_spair,       /* chop */
 742         ck_null,        /* schop */
 743         ck_spair,       /* chomp */
 744         ck_null,        /* schomp */
 745         ck_rfun,        /* defined */
 746         ck_lfun,        /* undef */
 747         ck_fun,         /* study */
 748         ck_lfun,        /* pos */
 749         ck_lfun,        /* preinc */
 750         ck_lfun,        /* i_preinc */
 751         ck_lfun,        /* predec */
 752         ck_lfun,        /* i_predec */
 753         ck_lfun,        /* postinc */
 754         ck_lfun,        /* i_postinc */
 755         ck_lfun,        /* postdec */
 756         ck_lfun,        /* i_postdec */
 757         ck_null,        /* pow */
 758         ck_null,        /* multiply */
 759         ck_null,        /* i_multiply */
 760         ck_null,        /* divide */
 761         ck_null,        /* i_divide */
 762         ck_null,        /* modulo */
 763         ck_null,        /* i_modulo */
 764         ck_repeat,      /* repeat */
 765         ck_null,        /* add */
 766         ck_null,        /* i_add */
 767         ck_null,        /* subtract */
 768         ck_null,        /* i_subtract */
 769         ck_concat,      /* concat */
 770         ck_fun,         /* stringify */
 771         ck_bitop,       /* left_shift */
 772         ck_bitop,       /* right_shift */
 773         ck_null,        /* lt */
 774         ck_null,        /* i_lt */
 775         ck_null,        /* gt */
 776         ck_null,        /* i_gt */
 777         ck_null,        /* le */
 778         ck_null,        /* i_le */
 779         ck_null,        /* ge */
 780         ck_null,        /* i_ge */
 781         ck_null,        /* eq */
 782         ck_null,        /* i_eq */
 783         ck_null,        /* ne */
 784         ck_null,        /* i_ne */
 785         ck_null,        /* ncmp */
 786         ck_null,        /* i_ncmp */
 787         ck_scmp,        /* slt */
 788         ck_scmp,        /* sgt */
 789         ck_scmp,        /* sle */
 790         ck_scmp,        /* sge */
 791         ck_null,        /* seq */
 792         ck_null,        /* sne */
 793         ck_scmp,        /* scmp */
 794         ck_bitop,       /* bit_and */
 795         ck_bitop,       /* bit_xor */
 796         ck_bitop,       /* bit_or */
 797         ck_null,        /* negate */
 798         ck_null,        /* i_negate */
 799         ck_null,        /* not */
 800         ck_bitop,       /* complement */
 801         ck_fun,         /* atan2 */
 802         ck_fun,         /* sin */
 803         ck_fun,         /* cos */
 804         ck_fun,         /* rand */
 805         ck_fun,         /* srand */
 806         ck_fun,         /* exp */
 807         ck_fun,         /* log */
 808         ck_fun,         /* sqrt */
 809         ck_fun,         /* int */
 810         ck_fun,         /* hex */
 811         ck_fun,         /* oct */
 812         ck_fun,         /* abs */
 813         ck_lengthconst, /* length */
 814         ck_fun,         /* substr */
 815         ck_fun,         /* vec */
 816         ck_index,       /* index */
 817         ck_index,       /* rindex */
 818         ck_fun_locale,  /* sprintf */
 819         ck_fun,         /* formline */
 820         ck_fun,         /* ord */
 821         ck_fun,         /* chr */
 822         ck_fun,         /* crypt */
 823         ck_fun_locale,  /* ucfirst */
 824         ck_fun_locale,  /* lcfirst */
 825         ck_fun_locale,  /* uc */
 826         ck_fun_locale,  /* lc */
 827         ck_fun,         /* quotemeta */
 828         ck_rvconst,     /* rv2av */
 829         ck_null,        /* aelemfast */
 830         ck_null,        /* aelem */
 831         ck_null,        /* aslice */
 832         ck_fun,         /* each */
 833         ck_fun,         /* values */
 834         ck_fun,         /* keys */
 835         ck_delete,      /* delete */
 836         ck_exists,      /* exists */
 837         ck_rvconst,     /* rv2hv */
 838         ck_null,        /* helem */
 839         ck_null,        /* hslice */
 840         ck_fun,         /* unpack */
 841         ck_fun,         /* pack */
 842         ck_split,       /* split */
 843         ck_fun,         /* join */
 844         ck_null,        /* list */
 845         ck_null,        /* lslice */
 846         ck_fun,         /* anonlist */
 847         ck_fun,         /* anonhash */
 848         ck_fun,         /* splice */
 849         ck_fun,         /* push */
 850         ck_shift,       /* pop */
 851         ck_shift,       /* shift */
 852         ck_fun,         /* unshift */
 853         ck_sort,        /* sort */
 854         ck_fun,         /* reverse */
 855         ck_grep,        /* grepstart */
 856         ck_null,        /* grepwhile */
 857         ck_grep,        /* mapstart */
 858         ck_null,        /* mapwhile */
 859         ck_null,        /* range */
 860         ck_null,        /* flip */
 861         ck_null,        /* flop */
 862         ck_null,        /* and */
 863         ck_null,        /* or */
 864         ck_null,        /* xor */
 865         ck_null,        /* cond_expr */
 866         ck_null,        /* andassign */
 867         ck_null,        /* orassign */
 868         ck_null,        /* method */
 869         ck_subr,        /* entersub */
 870         ck_null,        /* leavesub */
 871         ck_fun,         /* caller */
 872         ck_fun,         /* warn */
 873         ck_fun,         /* die */
 874         ck_fun,         /* reset */
 875         ck_null,        /* lineseq */
 876         ck_null,        /* nextstate */
 877         ck_null,        /* dbstate */
 878         ck_null,        /* unstack */
 879         ck_null,        /* enter */
 880         ck_null,        /* leave */
 881         ck_null,        /* scope */
 882         ck_null,        /* enteriter */
 883         ck_null,        /* iter */
 884         ck_null,        /* enterloop */
 885         ck_null,        /* leaveloop */
 886         ck_null,        /* return */
 887         ck_null,        /* last */
 888         ck_null,        /* next */
 889         ck_null,        /* redo */
 890         ck_null,        /* dump */
 891         ck_null,        /* goto */
 892         ck_fun,         /* exit */
 893         ck_fun,         /* open */
 894         ck_fun,         /* close */
 895         ck_fun,         /* pipe_op */
 896         ck_fun,         /* fileno */
 897         ck_fun,         /* umask */
 898         ck_fun,         /* binmode */
 899         ck_fun,         /* tie */
 900         ck_fun,         /* untie */
 901         ck_fun,         /* tied */
 902         ck_fun,         /* dbmopen */
 903         ck_fun,         /* dbmclose */
 904         ck_select,      /* sselect */
 905         ck_select,      /* select */
 906         ck_eof,         /* getc */
 907         ck_fun,         /* read */
 908         ck_fun,         /* enterwrite */
 909         ck_null,        /* leavewrite */
 910         ck_listiob,     /* prtf */
 911         ck_listiob,     /* print */
 912         ck_fun,         /* sysopen */
 913         ck_fun,         /* sysseek */
 914         ck_fun,         /* sysread */
 915         ck_fun,         /* syswrite */
 916         ck_fun,         /* send */
 917         ck_fun,         /* recv */
 918         ck_eof,         /* eof */
 919         ck_fun,         /* tell */
 920         ck_fun,         /* seek */
 921         ck_trunc,       /* truncate */
 922         ck_fun,         /* fcntl */
 923         ck_fun,         /* ioctl */
 924         ck_fun,         /* flock */
 925         ck_fun,         /* socket */
 926         ck_fun,         /* sockpair */
 927         ck_fun,         /* bind */
 928         ck_fun,         /* connect */
 929         ck_fun,         /* listen */
 930         ck_fun,         /* accept */
 931         ck_fun,         /* shutdown */
 932         ck_fun,         /* gsockopt */
 933         ck_fun,         /* ssockopt */
 934         ck_fun,         /* getsockname */
 935         ck_fun,         /* getpeername */
 936         ck_ftst,        /* lstat */
 937         ck_ftst,        /* stat */
 938         ck_ftst,        /* ftrread */
 939         ck_ftst,        /* ftrwrite */
 940         ck_ftst,        /* ftrexec */
 941         ck_ftst,        /* fteread */
 942         ck_ftst,        /* ftewrite */
 943         ck_ftst,        /* fteexec */
 944         ck_ftst,        /* ftis */
 945         ck_ftst,        /* fteowned */
 946         ck_ftst,        /* ftrowned */
 947         ck_ftst,        /* ftzero */
 948         ck_ftst,        /* ftsize */
 949         ck_ftst,        /* ftmtime */
 950         ck_ftst,        /* ftatime */
 951         ck_ftst,        /* ftctime */
 952         ck_ftst,        /* ftsock */
 953         ck_ftst,        /* ftchr */
 954         ck_ftst,        /* ftblk */
 955         ck_ftst,        /* ftfile */
 956         ck_ftst,        /* ftdir */
 957         ck_ftst,        /* ftpipe */
 958         ck_ftst,        /* ftlink */
 959         ck_ftst,        /* ftsuid */
 960         ck_ftst,        /* ftsgid */
 961         ck_ftst,        /* ftsvtx */
 962         ck_ftst,        /* fttty */
 963         ck_ftst,        /* fttext */
 964         ck_ftst,        /* ftbinary */
 965         ck_fun,         /* chdir */
 966         ck_fun,         /* chown */
 967         ck_fun,         /* chroot */
 968         ck_fun,         /* unlink */
 969         ck_fun,         /* chmod */
 970         ck_fun,         /* utime */
 971         ck_fun,         /* rename */
 972         ck_fun,         /* link */
 973         ck_fun,         /* symlink */
 974         ck_fun,         /* readlink */
 975         ck_fun,         /* mkdir */
 976         ck_fun,         /* rmdir */
 977         ck_fun,         /* open_dir */
 978         ck_fun,         /* readdir */
 979         ck_fun,         /* telldir */
 980         ck_fun,         /* seekdir */
 981         ck_fun,         /* rewinddir */
 982         ck_fun,         /* closedir */
 983         ck_null,        /* fork */
 984         ck_null,        /* wait */
 985         ck_fun,         /* waitpid */
 986         ck_exec,        /* system */
 987         ck_exec,        /* exec */
 988         ck_fun,         /* kill */
 989         ck_null,        /* getppid */
 990         ck_fun,         /* getpgrp */
 991         ck_fun,         /* setpgrp */
 992         ck_fun,         /* getpriority */
 993         ck_fun,         /* setpriority */
 994         ck_null,        /* time */
 995         ck_null,        /* tms */
 996         ck_fun,         /* localtime */
 997         ck_fun,         /* gmtime */
 998         ck_fun,         /* alarm */
 999         ck_fun,         /* sleep */
1000         ck_fun,         /* shmget */
1001         ck_fun,         /* shmctl */
1002         ck_fun,         /* shmread */
1003         ck_fun,         /* shmwrite */
1004         ck_fun,         /* msgget */
1005         ck_fun,         /* msgctl */
1006         ck_fun,         /* msgsnd */
1007         ck_fun,         /* msgrcv */
1008         ck_fun,         /* semget */
1009         ck_fun,         /* semctl */
1010         ck_fun,         /* semop */
1011         ck_require,     /* require */
1012         ck_fun,         /* dofile */
1013         ck_eval,        /* entereval */
1014         ck_null,        /* leaveeval */
1015         ck_null,        /* entertry */
1016         ck_null,        /* leavetry */
1017         ck_fun,         /* ghbyname */
1018         ck_fun,         /* ghbyaddr */
1019         ck_null,        /* ghostent */
1020         ck_fun,         /* gnbyname */
1021         ck_fun,         /* gnbyaddr */
1022         ck_null,        /* gnetent */
1023         ck_fun,         /* gpbyname */
1024         ck_fun,         /* gpbynumber */
1025         ck_null,        /* gprotoent */
1026         ck_fun,         /* gsbyname */
1027         ck_fun,         /* gsbyport */
1028         ck_null,        /* gservent */
1029         ck_fun,         /* shostent */
1030         ck_fun,         /* snetent */
1031         ck_fun,         /* sprotoent */
1032         ck_fun,         /* sservent */
1033         ck_null,        /* ehostent */
1034         ck_null,        /* enetent */
1035         ck_null,        /* eprotoent */
1036         ck_null,        /* eservent */
1037         ck_fun,         /* gpwnam */
1038         ck_fun,         /* gpwuid */
1039         ck_null,        /* gpwent */
1040         ck_null,        /* spwent */
1041         ck_null,        /* epwent */
1042         ck_fun,         /* ggrnam */
1043         ck_fun,         /* ggrgid */
1044         ck_null,        /* ggrent */
1045         ck_null,        /* sgrent */
1046         ck_null,        /* egrent */
1047         ck_null,        /* getlogin */
1048         ck_fun,         /* syscall */
1049         ck_rfun,        /* lock */
1050         ck_null,        /* threadsv */
1051 };
1052
1053 OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
1054         pp_null,
1055         pp_stub,
1056         pp_scalar,
1057         pp_pushmark,
1058         pp_wantarray,
1059         pp_const,
1060         pp_gvsv,
1061         pp_gv,
1062         pp_gelem,
1063         pp_padsv,
1064         pp_padav,
1065         pp_padhv,
1066         pp_padany,
1067         pp_pushre,
1068         pp_rv2gv,
1069         pp_rv2sv,
1070         pp_av2arylen,
1071         pp_rv2cv,
1072         pp_anoncode,
1073         pp_prototype,
1074         pp_refgen,
1075         pp_srefgen,
1076         pp_ref,
1077         pp_bless,
1078         pp_backtick,
1079         pp_glob,
1080         pp_readline,
1081         pp_rcatline,
1082         pp_regcmaybe,
1083         pp_regcreset,
1084         pp_regcomp,
1085         pp_match,
1086         pp_qr,
1087         pp_subst,
1088         pp_substcont,
1089         pp_trans,
1090         pp_sassign,
1091         pp_aassign,
1092         pp_chop,
1093         pp_schop,
1094         pp_chomp,
1095         pp_schomp,
1096         pp_defined,
1097         pp_undef,
1098         pp_study,
1099         pp_pos,
1100         pp_preinc,
1101         pp_i_preinc,
1102         pp_predec,
1103         pp_i_predec,
1104         pp_postinc,
1105         pp_i_postinc,
1106         pp_postdec,
1107         pp_i_postdec,
1108         pp_pow,
1109         pp_multiply,
1110         pp_i_multiply,
1111         pp_divide,
1112         pp_i_divide,
1113         pp_modulo,
1114         pp_i_modulo,
1115         pp_repeat,
1116         pp_add,
1117         pp_i_add,
1118         pp_subtract,
1119         pp_i_subtract,
1120         pp_concat,
1121         pp_stringify,
1122         pp_left_shift,
1123         pp_right_shift,
1124         pp_lt,
1125         pp_i_lt,
1126         pp_gt,
1127         pp_i_gt,
1128         pp_le,
1129         pp_i_le,
1130         pp_ge,
1131         pp_i_ge,
1132         pp_eq,
1133         pp_i_eq,
1134         pp_ne,
1135         pp_i_ne,
1136         pp_ncmp,
1137         pp_i_ncmp,
1138         pp_slt,
1139         pp_sgt,
1140         pp_sle,
1141         pp_sge,
1142         pp_seq,
1143         pp_sne,
1144         pp_scmp,
1145         pp_bit_and,
1146         pp_bit_xor,
1147         pp_bit_or,
1148         pp_negate,
1149         pp_i_negate,
1150         pp_not,
1151         pp_complement,
1152         pp_atan2,
1153         pp_sin,
1154         pp_cos,
1155         pp_rand,
1156         pp_srand,
1157         pp_exp,
1158         pp_log,
1159         pp_sqrt,
1160         pp_int,
1161         pp_hex,
1162         pp_oct,
1163         pp_abs,
1164         pp_length,
1165         pp_substr,
1166         pp_vec,
1167         pp_index,
1168         pp_rindex,
1169         pp_sprintf,
1170         pp_formline,
1171         pp_ord,
1172         pp_chr,
1173         pp_crypt,
1174         pp_ucfirst,
1175         pp_lcfirst,
1176         pp_uc,
1177         pp_lc,
1178         pp_quotemeta,
1179         pp_rv2av,
1180         pp_aelemfast,
1181         pp_aelem,
1182         pp_aslice,
1183         pp_each,
1184         pp_values,
1185         pp_keys,
1186         pp_delete,
1187         pp_exists,
1188         pp_rv2hv,
1189         pp_helem,
1190         pp_hslice,
1191         pp_unpack,
1192         pp_pack,
1193         pp_split,
1194         pp_join,
1195         pp_list,
1196         pp_lslice,
1197         pp_anonlist,
1198         pp_anonhash,
1199         pp_splice,
1200         pp_push,
1201         pp_pop,
1202         pp_shift,
1203         pp_unshift,
1204         pp_sort,
1205         pp_reverse,
1206         pp_grepstart,
1207         pp_grepwhile,
1208         pp_mapstart,
1209         pp_mapwhile,
1210         pp_range,
1211         pp_flip,
1212         pp_flop,
1213         pp_and,
1214         pp_or,
1215         pp_xor,
1216         pp_cond_expr,
1217         pp_andassign,
1218         pp_orassign,
1219         pp_method,
1220         pp_entersub,
1221         pp_leavesub,
1222         pp_caller,
1223         pp_warn,
1224         pp_die,
1225         pp_reset,
1226         pp_lineseq,
1227         pp_nextstate,
1228         pp_dbstate,
1229         pp_unstack,
1230         pp_enter,
1231         pp_leave,
1232         pp_scope,
1233         pp_enteriter,
1234         pp_iter,
1235         pp_enterloop,
1236         pp_leaveloop,
1237         pp_return,
1238         pp_last,
1239         pp_next,
1240         pp_redo,
1241         pp_dump,
1242         pp_goto,
1243         pp_exit,
1244         pp_open,
1245         pp_close,
1246         pp_pipe_op,
1247         pp_fileno,
1248         pp_umask,
1249         pp_binmode,
1250         pp_tie,
1251         pp_untie,
1252         pp_tied,
1253         pp_dbmopen,
1254         pp_dbmclose,
1255         pp_sselect,
1256         pp_select,
1257         pp_getc,
1258         pp_read,
1259         pp_enterwrite,
1260         pp_leavewrite,
1261         pp_prtf,
1262         pp_print,
1263         pp_sysopen,
1264         pp_sysseek,
1265         pp_sysread,
1266         pp_syswrite,
1267         pp_send,
1268         pp_recv,
1269         pp_eof,
1270         pp_tell,
1271         pp_seek,
1272         pp_truncate,
1273         pp_fcntl,
1274         pp_ioctl,
1275         pp_flock,
1276         pp_socket,
1277         pp_sockpair,
1278         pp_bind,
1279         pp_connect,
1280         pp_listen,
1281         pp_accept,
1282         pp_shutdown,
1283         pp_gsockopt,
1284         pp_ssockopt,
1285         pp_getsockname,
1286         pp_getpeername,
1287         pp_lstat,
1288         pp_stat,
1289         pp_ftrread,
1290         pp_ftrwrite,
1291         pp_ftrexec,
1292         pp_fteread,
1293         pp_ftewrite,
1294         pp_fteexec,
1295         pp_ftis,
1296         pp_fteowned,
1297         pp_ftrowned,
1298         pp_ftzero,
1299         pp_ftsize,
1300         pp_ftmtime,
1301         pp_ftatime,
1302         pp_ftctime,
1303         pp_ftsock,
1304         pp_ftchr,
1305         pp_ftblk,
1306         pp_ftfile,
1307         pp_ftdir,
1308         pp_ftpipe,
1309         pp_ftlink,
1310         pp_ftsuid,
1311         pp_ftsgid,
1312         pp_ftsvtx,
1313         pp_fttty,
1314         pp_fttext,
1315         pp_ftbinary,
1316         pp_chdir,
1317         pp_chown,
1318         pp_chroot,
1319         pp_unlink,
1320         pp_chmod,
1321         pp_utime,
1322         pp_rename,
1323         pp_link,
1324         pp_symlink,
1325         pp_readlink,
1326         pp_mkdir,
1327         pp_rmdir,
1328         pp_open_dir,
1329         pp_readdir,
1330         pp_telldir,
1331         pp_seekdir,
1332         pp_rewinddir,
1333         pp_closedir,
1334         pp_fork,
1335         pp_wait,
1336         pp_waitpid,
1337         pp_system,
1338         pp_exec,
1339         pp_kill,
1340         pp_getppid,
1341         pp_getpgrp,
1342         pp_setpgrp,
1343         pp_getpriority,
1344         pp_setpriority,
1345         pp_time,
1346         pp_tms,
1347         pp_localtime,
1348         pp_gmtime,
1349         pp_alarm,
1350         pp_sleep,
1351         pp_shmget,
1352         pp_shmctl,
1353         pp_shmread,
1354         pp_shmwrite,
1355         pp_msgget,
1356         pp_msgctl,
1357         pp_msgsnd,
1358         pp_msgrcv,
1359         pp_semget,
1360         pp_semctl,
1361         pp_semop,
1362         pp_require,
1363         pp_dofile,
1364         pp_entereval,
1365         pp_leaveeval,
1366         pp_entertry,
1367         pp_leavetry,
1368         pp_ghbyname,
1369         pp_ghbyaddr,
1370         pp_ghostent,
1371         pp_gnbyname,
1372         pp_gnbyaddr,
1373         pp_gnetent,
1374         pp_gpbyname,
1375         pp_gpbynumber,
1376         pp_gprotoent,
1377         pp_gsbyname,
1378         pp_gsbyport,
1379         pp_gservent,
1380         pp_shostent,
1381         pp_snetent,
1382         pp_sprotoent,
1383         pp_sservent,
1384         pp_ehostent,
1385         pp_enetent,
1386         pp_eprotoent,
1387         pp_eservent,
1388         pp_gpwnam,
1389         pp_gpwuid,
1390         pp_gpwent,
1391         pp_spwent,
1392         pp_epwent,
1393         pp_ggrnam,
1394         pp_ggrgid,
1395         pp_ggrent,
1396         pp_sgrent,
1397         pp_egrent,
1398         pp_getlogin,
1399         pp_syscall,
1400         pp_lock,
1401         pp_threadsv,
1402 };
1403
1404 int
1405 fprintf(PerlIO *stream, const char *format, ...)
1406 {
1407     va_list(arglist);
1408     va_start(arglist, format);
1409     return PerlIO_vprintf(stream, format, arglist);
1410 }
1411
1412 #undef PERLVAR
1413 #define PERLVAR(x, y)
1414 #undef PERLVARI
1415 #define PERLVARI(x, y, z) PL_##x = z;
1416 #undef PERLVARIC
1417 #define PERLVARIC(x, y, z) PL_##x = z;
1418
1419 CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
1420                                              IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP)
1421 {
1422     memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
1423
1424 #include "thrdvar.h"
1425 #include "intrpvar.h"
1426 #include "perlvars.h"
1427
1428     PL_piMem = ipM;
1429     PL_piENV = ipE;
1430     PL_piStdIO = ipStd;
1431     PL_piLIO = ipLIO;
1432     PL_piDir = ipD;
1433     PL_piSock = ipS;
1434     PL_piProc = ipP;
1435 }
1436
1437 void*
1438 CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
1439 {
1440     if(pvtbl != NULL)
1441         return pvtbl->Malloc(nSize);
1442
1443     return NULL;
1444 }
1445
1446 int&
1447 CPerlObj::ErrorNo(void)
1448 {
1449     return errno;
1450 }
1451
1452 void
1453 CPerlObj::Init(void)
1454 {
1455 }
1456
1457 #ifdef WIN32            /* XXX why are these needed? */
1458 bool
1459 do_exec(char *cmd)
1460 {
1461     return PerlProc_Cmd(cmd);
1462 }
1463
1464 int
1465 do_aspawn(void *vreally, void **vmark, void **vsp)
1466 {
1467     return PerlProc_aspawn(vreally, vmark, vsp);
1468 }
1469 #endif  /* WIN32 */
1470
1471 #endif   /* PERL_OBJECT */