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