This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
added patch, tweaked PERL_OBJECT things
[perl5.git] / globals.c
CommitLineData
ecfc5424
AD
1#include "INTERN.h"
2#include "perl.h"
76e3520e
GS
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
2cd61cdb
IZ
63#undef pp_regcreset
64#define pp_regcreset CPerlObj::Perl_pp_regcreset
76e3520e
GS
65#undef pp_regcomp
66#define pp_regcomp CPerlObj::Perl_pp_regcomp
67#undef pp_match
68#define pp_match CPerlObj::Perl_pp_match
8782bef2
GB
69#undef pp_qr
70#define pp_qr CPerlObj::Perl_pp_qr
76e3520e
GS
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
702OP * (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 */
8d9b2e3c 732 ck_fun, /* regcreset */
76e3520e
GS
733 ck_null, /* regcomp */
734 ck_match, /* match */
8782bef2 735 ck_match, /* qr */
76e3520e
GS
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 */
d1a002d4 907 ck_fun, /* read */
76e3520e
GS
908 ck_fun, /* enterwrite */
909 ck_null, /* leavewrite */
910 ck_listiob, /* prtf */
911 ck_listiob, /* print */
912 ck_fun, /* sysopen */
913 ck_fun, /* sysseek */
d1a002d4 914 ck_fun, /* sysread */
76e3520e
GS
915 ck_fun, /* syswrite */
916 ck_fun, /* send */
d1a002d4 917 ck_fun, /* recv */
76e3520e
GS
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
1053OP * (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,
8d9b2e3c 1083 pp_regcreset,
76e3520e
GS
1084 pp_regcomp,
1085 pp_match,
8782bef2 1086 pp_qr,
76e3520e
GS
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
1404int
1405fprintf(PerlIO *stream, const char *format, ...)
1406{
1407 va_list(arglist);
1408 va_start(arglist, format);
1409 return PerlIO_vprintf(stream, format, arglist);
1410}
1411
3dfd1da1
GS
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
76e3520e
GS
1419CPerlObj::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*));
3dfd1da1
GS
1423
1424#include "thrdvar.h"
1425#include "intrpvar.h"
1426#include "perlvars.h"
1427
76e3520e
GS
1428 piMem = ipM;
1429 piENV = ipE;
1430 piStdIO = ipStd;
1431 piLIO = ipLIO;
1432 piDir = ipD;
1433 piSock = ipS;
1434 piProc = ipP;
1435}
1436
1437void*
1438CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
1439{
1440 if(pvtbl != NULL)
1441 return pvtbl->Malloc(nSize);
1442
1443 return NULL;
1444}
1445
1446int&
1447CPerlObj::ErrorNo(void)
1448{
5a092403 1449 return errno;
76e3520e
GS
1450}
1451
1452void
1453CPerlObj::Init(void)
1454{
76e3520e
GS
1455}
1456
ab39fa9d 1457#ifdef WIN32 /* XXX why are these needed? */
76e3520e
GS
1458bool
1459do_exec(char *cmd)
1460{
c69f6586 1461 return PerlProc_Cmd(cmd);
76e3520e
GS
1462}
1463
1464int
1465do_aspawn(void *vreally, void **vmark, void **vsp)
1466{
c69f6586 1467 return PerlProc_aspawn(vreally, vmark, vsp);
76e3520e 1468}
76e3520e
GS
1469#endif /* WIN32 */
1470
1471#endif /* PERL_OBJECT */