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