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