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