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