This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
various tweaks for PERL_OBJECT build & test
[perl5.git] / 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_fun,         /* regcreset */
731         ck_null,        /* regcomp */
732         ck_match,       /* match */
733         ck_null,        /* subst */
734         ck_null,        /* substcont */
735         ck_null,        /* trans */
736         ck_null,        /* sassign */
737         ck_null,        /* aassign */
738         ck_spair,       /* chop */
739         ck_null,        /* schop */
740         ck_spair,       /* chomp */
741         ck_null,        /* schomp */
742         ck_rfun,        /* defined */
743         ck_lfun,        /* undef */
744         ck_fun,         /* study */
745         ck_lfun,        /* pos */
746         ck_lfun,        /* preinc */
747         ck_lfun,        /* i_preinc */
748         ck_lfun,        /* predec */
749         ck_lfun,        /* i_predec */
750         ck_lfun,        /* postinc */
751         ck_lfun,        /* i_postinc */
752         ck_lfun,        /* postdec */
753         ck_lfun,        /* i_postdec */
754         ck_null,        /* pow */
755         ck_null,        /* multiply */
756         ck_null,        /* i_multiply */
757         ck_null,        /* divide */
758         ck_null,        /* i_divide */
759         ck_null,        /* modulo */
760         ck_null,        /* i_modulo */
761         ck_repeat,      /* repeat */
762         ck_null,        /* add */
763         ck_null,        /* i_add */
764         ck_null,        /* subtract */
765         ck_null,        /* i_subtract */
766         ck_concat,      /* concat */
767         ck_fun,         /* stringify */
768         ck_bitop,       /* left_shift */
769         ck_bitop,       /* right_shift */
770         ck_null,        /* lt */
771         ck_null,        /* i_lt */
772         ck_null,        /* gt */
773         ck_null,        /* i_gt */
774         ck_null,        /* le */
775         ck_null,        /* i_le */
776         ck_null,        /* ge */
777         ck_null,        /* i_ge */
778         ck_null,        /* eq */
779         ck_null,        /* i_eq */
780         ck_null,        /* ne */
781         ck_null,        /* i_ne */
782         ck_null,        /* ncmp */
783         ck_null,        /* i_ncmp */
784         ck_scmp,        /* slt */
785         ck_scmp,        /* sgt */
786         ck_scmp,        /* sle */
787         ck_scmp,        /* sge */
788         ck_null,        /* seq */
789         ck_null,        /* sne */
790         ck_scmp,        /* scmp */
791         ck_bitop,       /* bit_and */
792         ck_bitop,       /* bit_xor */
793         ck_bitop,       /* bit_or */
794         ck_null,        /* negate */
795         ck_null,        /* i_negate */
796         ck_null,        /* not */
797         ck_bitop,       /* complement */
798         ck_fun,         /* atan2 */
799         ck_fun,         /* sin */
800         ck_fun,         /* cos */
801         ck_fun,         /* rand */
802         ck_fun,         /* srand */
803         ck_fun,         /* exp */
804         ck_fun,         /* log */
805         ck_fun,         /* sqrt */
806         ck_fun,         /* int */
807         ck_fun,         /* hex */
808         ck_fun,         /* oct */
809         ck_fun,         /* abs */
810         ck_lengthconst, /* length */
811         ck_fun,         /* substr */
812         ck_fun,         /* vec */
813         ck_index,       /* index */
814         ck_index,       /* rindex */
815         ck_fun_locale,  /* sprintf */
816         ck_fun,         /* formline */
817         ck_fun,         /* ord */
818         ck_fun,         /* chr */
819         ck_fun,         /* crypt */
820         ck_fun_locale,  /* ucfirst */
821         ck_fun_locale,  /* lcfirst */
822         ck_fun_locale,  /* uc */
823         ck_fun_locale,  /* lc */
824         ck_fun,         /* quotemeta */
825         ck_rvconst,     /* rv2av */
826         ck_null,        /* aelemfast */
827         ck_null,        /* aelem */
828         ck_null,        /* aslice */
829         ck_fun,         /* each */
830         ck_fun,         /* values */
831         ck_fun,         /* keys */
832         ck_delete,      /* delete */
833         ck_exists,      /* exists */
834         ck_rvconst,     /* rv2hv */
835         ck_null,        /* helem */
836         ck_null,        /* hslice */
837         ck_fun,         /* unpack */
838         ck_fun,         /* pack */
839         ck_split,       /* split */
840         ck_fun,         /* join */
841         ck_null,        /* list */
842         ck_null,        /* lslice */
843         ck_fun,         /* anonlist */
844         ck_fun,         /* anonhash */
845         ck_fun,         /* splice */
846         ck_fun,         /* push */
847         ck_shift,       /* pop */
848         ck_shift,       /* shift */
849         ck_fun,         /* unshift */
850         ck_sort,        /* sort */
851         ck_fun,         /* reverse */
852         ck_grep,        /* grepstart */
853         ck_null,        /* grepwhile */
854         ck_grep,        /* mapstart */
855         ck_null,        /* mapwhile */
856         ck_null,        /* range */
857         ck_null,        /* flip */
858         ck_null,        /* flop */
859         ck_null,        /* and */
860         ck_null,        /* or */
861         ck_null,        /* xor */
862         ck_null,        /* cond_expr */
863         ck_null,        /* andassign */
864         ck_null,        /* orassign */
865         ck_null,        /* method */
866         ck_subr,        /* entersub */
867         ck_null,        /* leavesub */
868         ck_fun,         /* caller */
869         ck_fun,         /* warn */
870         ck_fun,         /* die */
871         ck_fun,         /* reset */
872         ck_null,        /* lineseq */
873         ck_null,        /* nextstate */
874         ck_null,        /* dbstate */
875         ck_null,        /* unstack */
876         ck_null,        /* enter */
877         ck_null,        /* leave */
878         ck_null,        /* scope */
879         ck_null,        /* enteriter */
880         ck_null,        /* iter */
881         ck_null,        /* enterloop */
882         ck_null,        /* leaveloop */
883         ck_null,        /* return */
884         ck_null,        /* last */
885         ck_null,        /* next */
886         ck_null,        /* redo */
887         ck_null,        /* dump */
888         ck_null,        /* goto */
889         ck_fun,         /* exit */
890         ck_fun,         /* open */
891         ck_fun,         /* close */
892         ck_fun,         /* pipe_op */
893         ck_fun,         /* fileno */
894         ck_fun,         /* umask */
895         ck_fun,         /* binmode */
896         ck_fun,         /* tie */
897         ck_fun,         /* untie */
898         ck_fun,         /* tied */
899         ck_fun,         /* dbmopen */
900         ck_fun,         /* dbmclose */
901         ck_select,      /* sselect */
902         ck_select,      /* select */
903         ck_eof,         /* getc */
904         ck_fun,         /* read */
905         ck_fun,         /* enterwrite */
906         ck_null,        /* leavewrite */
907         ck_listiob,     /* prtf */
908         ck_listiob,     /* print */
909         ck_fun,         /* sysopen */
910         ck_fun,         /* sysseek */
911         ck_fun,         /* sysread */
912         ck_fun,         /* syswrite */
913         ck_fun,         /* send */
914         ck_fun,         /* recv */
915         ck_eof,         /* eof */
916         ck_fun,         /* tell */
917         ck_fun,         /* seek */
918         ck_trunc,       /* truncate */
919         ck_fun,         /* fcntl */
920         ck_fun,         /* ioctl */
921         ck_fun,         /* flock */
922         ck_fun,         /* socket */
923         ck_fun,         /* sockpair */
924         ck_fun,         /* bind */
925         ck_fun,         /* connect */
926         ck_fun,         /* listen */
927         ck_fun,         /* accept */
928         ck_fun,         /* shutdown */
929         ck_fun,         /* gsockopt */
930         ck_fun,         /* ssockopt */
931         ck_fun,         /* getsockname */
932         ck_fun,         /* getpeername */
933         ck_ftst,        /* lstat */
934         ck_ftst,        /* stat */
935         ck_ftst,        /* ftrread */
936         ck_ftst,        /* ftrwrite */
937         ck_ftst,        /* ftrexec */
938         ck_ftst,        /* fteread */
939         ck_ftst,        /* ftewrite */
940         ck_ftst,        /* fteexec */
941         ck_ftst,        /* ftis */
942         ck_ftst,        /* fteowned */
943         ck_ftst,        /* ftrowned */
944         ck_ftst,        /* ftzero */
945         ck_ftst,        /* ftsize */
946         ck_ftst,        /* ftmtime */
947         ck_ftst,        /* ftatime */
948         ck_ftst,        /* ftctime */
949         ck_ftst,        /* ftsock */
950         ck_ftst,        /* ftchr */
951         ck_ftst,        /* ftblk */
952         ck_ftst,        /* ftfile */
953         ck_ftst,        /* ftdir */
954         ck_ftst,        /* ftpipe */
955         ck_ftst,        /* ftlink */
956         ck_ftst,        /* ftsuid */
957         ck_ftst,        /* ftsgid */
958         ck_ftst,        /* ftsvtx */
959         ck_ftst,        /* fttty */
960         ck_ftst,        /* fttext */
961         ck_ftst,        /* ftbinary */
962         ck_fun,         /* chdir */
963         ck_fun,         /* chown */
964         ck_fun,         /* chroot */
965         ck_fun,         /* unlink */
966         ck_fun,         /* chmod */
967         ck_fun,         /* utime */
968         ck_fun,         /* rename */
969         ck_fun,         /* link */
970         ck_fun,         /* symlink */
971         ck_fun,         /* readlink */
972         ck_fun,         /* mkdir */
973         ck_fun,         /* rmdir */
974         ck_fun,         /* open_dir */
975         ck_fun,         /* readdir */
976         ck_fun,         /* telldir */
977         ck_fun,         /* seekdir */
978         ck_fun,         /* rewinddir */
979         ck_fun,         /* closedir */
980         ck_null,        /* fork */
981         ck_null,        /* wait */
982         ck_fun,         /* waitpid */
983         ck_exec,        /* system */
984         ck_exec,        /* exec */
985         ck_fun,         /* kill */
986         ck_null,        /* getppid */
987         ck_fun,         /* getpgrp */
988         ck_fun,         /* setpgrp */
989         ck_fun,         /* getpriority */
990         ck_fun,         /* setpriority */
991         ck_null,        /* time */
992         ck_null,        /* tms */
993         ck_fun,         /* localtime */
994         ck_fun,         /* gmtime */
995         ck_fun,         /* alarm */
996         ck_fun,         /* sleep */
997         ck_fun,         /* shmget */
998         ck_fun,         /* shmctl */
999         ck_fun,         /* shmread */
1000         ck_fun,         /* shmwrite */
1001         ck_fun,         /* msgget */
1002         ck_fun,         /* msgctl */
1003         ck_fun,         /* msgsnd */
1004         ck_fun,         /* msgrcv */
1005         ck_fun,         /* semget */
1006         ck_fun,         /* semctl */
1007         ck_fun,         /* semop */
1008         ck_require,     /* require */
1009         ck_fun,         /* dofile */
1010         ck_eval,        /* entereval */
1011         ck_null,        /* leaveeval */
1012         ck_null,        /* entertry */
1013         ck_null,        /* leavetry */
1014         ck_fun,         /* ghbyname */
1015         ck_fun,         /* ghbyaddr */
1016         ck_null,        /* ghostent */
1017         ck_fun,         /* gnbyname */
1018         ck_fun,         /* gnbyaddr */
1019         ck_null,        /* gnetent */
1020         ck_fun,         /* gpbyname */
1021         ck_fun,         /* gpbynumber */
1022         ck_null,        /* gprotoent */
1023         ck_fun,         /* gsbyname */
1024         ck_fun,         /* gsbyport */
1025         ck_null,        /* gservent */
1026         ck_fun,         /* shostent */
1027         ck_fun,         /* snetent */
1028         ck_fun,         /* sprotoent */
1029         ck_fun,         /* sservent */
1030         ck_null,        /* ehostent */
1031         ck_null,        /* enetent */
1032         ck_null,        /* eprotoent */
1033         ck_null,        /* eservent */
1034         ck_fun,         /* gpwnam */
1035         ck_fun,         /* gpwuid */
1036         ck_null,        /* gpwent */
1037         ck_null,        /* spwent */
1038         ck_null,        /* epwent */
1039         ck_fun,         /* ggrnam */
1040         ck_fun,         /* ggrgid */
1041         ck_null,        /* ggrent */
1042         ck_null,        /* sgrent */
1043         ck_null,        /* egrent */
1044         ck_null,        /* getlogin */
1045         ck_fun,         /* syscall */
1046         ck_rfun,        /* lock */
1047         ck_null,        /* threadsv */
1048 };
1049
1050 OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
1051         pp_null,
1052         pp_stub,
1053         pp_scalar,
1054         pp_pushmark,
1055         pp_wantarray,
1056         pp_const,
1057         pp_gvsv,
1058         pp_gv,
1059         pp_gelem,
1060         pp_padsv,
1061         pp_padav,
1062         pp_padhv,
1063         pp_padany,
1064         pp_pushre,
1065         pp_rv2gv,
1066         pp_rv2sv,
1067         pp_av2arylen,
1068         pp_rv2cv,
1069         pp_anoncode,
1070         pp_prototype,
1071         pp_refgen,
1072         pp_srefgen,
1073         pp_ref,
1074         pp_bless,
1075         pp_backtick,
1076         pp_glob,
1077         pp_readline,
1078         pp_rcatline,
1079         pp_regcmaybe,
1080         pp_regcreset,
1081         pp_regcomp,
1082         pp_match,
1083         pp_subst,
1084         pp_substcont,
1085         pp_trans,
1086         pp_sassign,
1087         pp_aassign,
1088         pp_chop,
1089         pp_schop,
1090         pp_chomp,
1091         pp_schomp,
1092         pp_defined,
1093         pp_undef,
1094         pp_study,
1095         pp_pos,
1096         pp_preinc,
1097         pp_i_preinc,
1098         pp_predec,
1099         pp_i_predec,
1100         pp_postinc,
1101         pp_i_postinc,
1102         pp_postdec,
1103         pp_i_postdec,
1104         pp_pow,
1105         pp_multiply,
1106         pp_i_multiply,
1107         pp_divide,
1108         pp_i_divide,
1109         pp_modulo,
1110         pp_i_modulo,
1111         pp_repeat,
1112         pp_add,
1113         pp_i_add,
1114         pp_subtract,
1115         pp_i_subtract,
1116         pp_concat,
1117         pp_stringify,
1118         pp_left_shift,
1119         pp_right_shift,
1120         pp_lt,
1121         pp_i_lt,
1122         pp_gt,
1123         pp_i_gt,
1124         pp_le,
1125         pp_i_le,
1126         pp_ge,
1127         pp_i_ge,
1128         pp_eq,
1129         pp_i_eq,
1130         pp_ne,
1131         pp_i_ne,
1132         pp_ncmp,
1133         pp_i_ncmp,
1134         pp_slt,
1135         pp_sgt,
1136         pp_sle,
1137         pp_sge,
1138         pp_seq,
1139         pp_sne,
1140         pp_scmp,
1141         pp_bit_and,
1142         pp_bit_xor,
1143         pp_bit_or,
1144         pp_negate,
1145         pp_i_negate,
1146         pp_not,
1147         pp_complement,
1148         pp_atan2,
1149         pp_sin,
1150         pp_cos,
1151         pp_rand,
1152         pp_srand,
1153         pp_exp,
1154         pp_log,
1155         pp_sqrt,
1156         pp_int,
1157         pp_hex,
1158         pp_oct,
1159         pp_abs,
1160         pp_length,
1161         pp_substr,
1162         pp_vec,
1163         pp_index,
1164         pp_rindex,
1165         pp_sprintf,
1166         pp_formline,
1167         pp_ord,
1168         pp_chr,
1169         pp_crypt,
1170         pp_ucfirst,
1171         pp_lcfirst,
1172         pp_uc,
1173         pp_lc,
1174         pp_quotemeta,
1175         pp_rv2av,
1176         pp_aelemfast,
1177         pp_aelem,
1178         pp_aslice,
1179         pp_each,
1180         pp_values,
1181         pp_keys,
1182         pp_delete,
1183         pp_exists,
1184         pp_rv2hv,
1185         pp_helem,
1186         pp_hslice,
1187         pp_unpack,
1188         pp_pack,
1189         pp_split,
1190         pp_join,
1191         pp_list,
1192         pp_lslice,
1193         pp_anonlist,
1194         pp_anonhash,
1195         pp_splice,
1196         pp_push,
1197         pp_pop,
1198         pp_shift,
1199         pp_unshift,
1200         pp_sort,
1201         pp_reverse,
1202         pp_grepstart,
1203         pp_grepwhile,
1204         pp_mapstart,
1205         pp_mapwhile,
1206         pp_range,
1207         pp_flip,
1208         pp_flop,
1209         pp_and,
1210         pp_or,
1211         pp_xor,
1212         pp_cond_expr,
1213         pp_andassign,
1214         pp_orassign,
1215         pp_method,
1216         pp_entersub,
1217         pp_leavesub,
1218         pp_caller,
1219         pp_warn,
1220         pp_die,
1221         pp_reset,
1222         pp_lineseq,
1223         pp_nextstate,
1224         pp_dbstate,
1225         pp_unstack,
1226         pp_enter,
1227         pp_leave,
1228         pp_scope,
1229         pp_enteriter,
1230         pp_iter,
1231         pp_enterloop,
1232         pp_leaveloop,
1233         pp_return,
1234         pp_last,
1235         pp_next,
1236         pp_redo,
1237         pp_dump,
1238         pp_goto,
1239         pp_exit,
1240         pp_open,
1241         pp_close,
1242         pp_pipe_op,
1243         pp_fileno,
1244         pp_umask,
1245         pp_binmode,
1246         pp_tie,
1247         pp_untie,
1248         pp_tied,
1249         pp_dbmopen,
1250         pp_dbmclose,
1251         pp_sselect,
1252         pp_select,
1253         pp_getc,
1254         pp_read,
1255         pp_enterwrite,
1256         pp_leavewrite,
1257         pp_prtf,
1258         pp_print,
1259         pp_sysopen,
1260         pp_sysseek,
1261         pp_sysread,
1262         pp_syswrite,
1263         pp_send,
1264         pp_recv,
1265         pp_eof,
1266         pp_tell,
1267         pp_seek,
1268         pp_truncate,
1269         pp_fcntl,
1270         pp_ioctl,
1271         pp_flock,
1272         pp_socket,
1273         pp_sockpair,
1274         pp_bind,
1275         pp_connect,
1276         pp_listen,
1277         pp_accept,
1278         pp_shutdown,
1279         pp_gsockopt,
1280         pp_ssockopt,
1281         pp_getsockname,
1282         pp_getpeername,
1283         pp_lstat,
1284         pp_stat,
1285         pp_ftrread,
1286         pp_ftrwrite,
1287         pp_ftrexec,
1288         pp_fteread,
1289         pp_ftewrite,
1290         pp_fteexec,
1291         pp_ftis,
1292         pp_fteowned,
1293         pp_ftrowned,
1294         pp_ftzero,
1295         pp_ftsize,
1296         pp_ftmtime,
1297         pp_ftatime,
1298         pp_ftctime,
1299         pp_ftsock,
1300         pp_ftchr,
1301         pp_ftblk,
1302         pp_ftfile,
1303         pp_ftdir,
1304         pp_ftpipe,
1305         pp_ftlink,
1306         pp_ftsuid,
1307         pp_ftsgid,
1308         pp_ftsvtx,
1309         pp_fttty,
1310         pp_fttext,
1311         pp_ftbinary,
1312         pp_chdir,
1313         pp_chown,
1314         pp_chroot,
1315         pp_unlink,
1316         pp_chmod,
1317         pp_utime,
1318         pp_rename,
1319         pp_link,
1320         pp_symlink,
1321         pp_readlink,
1322         pp_mkdir,
1323         pp_rmdir,
1324         pp_open_dir,
1325         pp_readdir,
1326         pp_telldir,
1327         pp_seekdir,
1328         pp_rewinddir,
1329         pp_closedir,
1330         pp_fork,
1331         pp_wait,
1332         pp_waitpid,
1333         pp_system,
1334         pp_exec,
1335         pp_kill,
1336         pp_getppid,
1337         pp_getpgrp,
1338         pp_setpgrp,
1339         pp_getpriority,
1340         pp_setpriority,
1341         pp_time,
1342         pp_tms,
1343         pp_localtime,
1344         pp_gmtime,
1345         pp_alarm,
1346         pp_sleep,
1347         pp_shmget,
1348         pp_shmctl,
1349         pp_shmread,
1350         pp_shmwrite,
1351         pp_msgget,
1352         pp_msgctl,
1353         pp_msgsnd,
1354         pp_msgrcv,
1355         pp_semget,
1356         pp_semctl,
1357         pp_semop,
1358         pp_require,
1359         pp_dofile,
1360         pp_entereval,
1361         pp_leaveeval,
1362         pp_entertry,
1363         pp_leavetry,
1364         pp_ghbyname,
1365         pp_ghbyaddr,
1366         pp_ghostent,
1367         pp_gnbyname,
1368         pp_gnbyaddr,
1369         pp_gnetent,
1370         pp_gpbyname,
1371         pp_gpbynumber,
1372         pp_gprotoent,
1373         pp_gsbyname,
1374         pp_gsbyport,
1375         pp_gservent,
1376         pp_shostent,
1377         pp_snetent,
1378         pp_sprotoent,
1379         pp_sservent,
1380         pp_ehostent,
1381         pp_enetent,
1382         pp_eprotoent,
1383         pp_eservent,
1384         pp_gpwnam,
1385         pp_gpwuid,
1386         pp_gpwent,
1387         pp_spwent,
1388         pp_epwent,
1389         pp_ggrnam,
1390         pp_ggrgid,
1391         pp_ggrent,
1392         pp_sgrent,
1393         pp_egrent,
1394         pp_getlogin,
1395         pp_syscall,
1396         pp_lock,
1397         pp_threadsv,
1398 };
1399
1400 int
1401 fprintf(PerlIO *stream, const char *format, ...)
1402 {
1403     va_list(arglist);
1404     va_start(arglist, format);
1405     return PerlIO_vprintf(stream, format, arglist);
1406 }
1407
1408 #undef PERLVAR
1409 #define PERLVAR(x, y)
1410 #undef PERLVARI
1411 #define PERLVARI(x, y, z) x = z;
1412 #undef PERLVARIC
1413 #define PERLVARIC(x, y, z) x = z;
1414
1415 CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
1416                                              IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP)
1417 {
1418     memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
1419
1420 #include "thrdvar.h"
1421 #include "intrpvar.h"
1422 #include "perlvars.h"
1423
1424     piMem = ipM;
1425     piENV = ipE;
1426     piStdIO = ipStd;
1427     piLIO = ipLIO;
1428     piDir = ipD;
1429     piSock = ipS;
1430     piProc = ipP;
1431 }
1432
1433 void*
1434 CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
1435 {
1436     if(pvtbl != NULL)
1437         return pvtbl->Malloc(nSize);
1438
1439     return NULL;
1440 }
1441
1442 int&
1443 CPerlObj::ErrorNo(void)
1444 {
1445     return errno;
1446 }
1447
1448 void
1449 CPerlObj::Init(void)
1450 {
1451 }
1452
1453 #ifdef WIN32            /* XXX why are these needed? */
1454 bool
1455 do_exec(char *cmd)
1456 {
1457     return PerlProc_Cmd(cmd);
1458 }
1459
1460 int
1461 do_aspawn(void *vreally, void **vmark, void **vsp)
1462 {
1463     return PerlProc_aspawn(vreally, vmark, vsp);
1464 }
1465 #endif  /* WIN32 */
1466
1467 #endif   /* PERL_OBJECT */