Commit | Line | Data |
---|---|---|
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 | ||
702 | OP * (CPERLscope(*check)[]) _((OP *op)) = { | |
703 | ck_null, /* null */ | |
704 | ck_null, /* stub */ | |
705 | ck_fun, /* scalar */ | |
706 | ck_null, /* pushmark */ | |
707 | ck_null, /* wantarray */ | |
708 | ck_svconst, /* const */ | |
709 | ck_null, /* gvsv */ | |
710 | ck_null, /* gv */ | |
711 | ck_null, /* gelem */ | |
712 | ck_null, /* padsv */ | |
713 | ck_null, /* padav */ | |
714 | ck_null, /* padhv */ | |
715 | ck_null, /* padany */ | |
716 | ck_null, /* pushre */ | |
717 | ck_rvconst, /* rv2gv */ | |
718 | ck_rvconst, /* rv2sv */ | |
719 | ck_null, /* av2arylen */ | |
720 | ck_rvconst, /* rv2cv */ | |
721 | ck_anoncode, /* anoncode */ | |
722 | ck_null, /* prototype */ | |
723 | ck_spair, /* refgen */ | |
724 | ck_null, /* srefgen */ | |
725 | ck_fun, /* ref */ | |
726 | ck_fun, /* bless */ | |
727 | ck_null, /* backtick */ | |
728 | ck_glob, /* glob */ | |
729 | ck_null, /* readline */ | |
730 | ck_null, /* rcatline */ | |
731 | ck_fun, /* regcmaybe */ | |
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 | ||
1053 | OP * (CPERLscope(*ppaddr)[])(ARGSproto) = { | |
1054 | pp_null, | |
1055 | pp_stub, | |
1056 | pp_scalar, | |
1057 | pp_pushmark, | |
1058 | pp_wantarray, | |
1059 | pp_const, | |
1060 | pp_gvsv, | |
1061 | pp_gv, | |
1062 | pp_gelem, | |
1063 | pp_padsv, | |
1064 | pp_padav, | |
1065 | pp_padhv, | |
1066 | pp_padany, | |
1067 | pp_pushre, | |
1068 | pp_rv2gv, | |
1069 | pp_rv2sv, | |
1070 | pp_av2arylen, | |
1071 | pp_rv2cv, | |
1072 | pp_anoncode, | |
1073 | pp_prototype, | |
1074 | pp_refgen, | |
1075 | pp_srefgen, | |
1076 | pp_ref, | |
1077 | pp_bless, | |
1078 | pp_backtick, | |
1079 | pp_glob, | |
1080 | pp_readline, | |
1081 | pp_rcatline, | |
1082 | pp_regcmaybe, | |
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 | ||
1404 | int | |
1405 | fprintf(PerlIO *stream, const char *format, ...) | |
1406 | { | |
1407 | va_list(arglist); | |
1408 | va_start(arglist, format); | |
1409 | return PerlIO_vprintf(stream, format, arglist); | |
1410 | } | |
1411 | ||
3dfd1da1 GS |
1412 | #undef PERLVAR |
1413 | #define PERLVAR(x, y) | |
1414 | #undef PERLVARI | |
4c2891ed | 1415 | #define PERLVARI(x, y, z) PL_##x = z; |
3dfd1da1 | 1416 | #undef PERLVARIC |
4c2891ed | 1417 | #define PERLVARIC(x, y, z) PL_##x = z; |
3dfd1da1 | 1418 | |
76e3520e GS |
1419 | CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, |
1420 | IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP) | |
1421 | { | |
1422 | memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*)); | |
3dfd1da1 GS |
1423 | |
1424 | #include "thrdvar.h" | |
1425 | #include "intrpvar.h" | |
1426 | #include "perlvars.h" | |
1427 | ||
4c2891ed GS |
1428 | PL_piMem = ipM; |
1429 | PL_piENV = ipE; | |
1430 | PL_piStdIO = ipStd; | |
1431 | PL_piLIO = ipLIO; | |
1432 | PL_piDir = ipD; | |
1433 | PL_piSock = ipS; | |
1434 | PL_piProc = ipP; | |
76e3520e GS |
1435 | } |
1436 | ||
1437 | void* | |
1438 | CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl) | |
1439 | { | |
1440 | if(pvtbl != NULL) | |
1441 | return pvtbl->Malloc(nSize); | |
1442 | ||
1443 | return NULL; | |
1444 | } | |
1445 | ||
1446 | int& | |
1447 | CPerlObj::ErrorNo(void) | |
1448 | { | |
5a092403 | 1449 | return errno; |
76e3520e GS |
1450 | } |
1451 | ||
1452 | void | |
1453 | CPerlObj::Init(void) | |
1454 | { | |
76e3520e GS |
1455 | } |
1456 | ||
ab39fa9d | 1457 | #ifdef WIN32 /* XXX why are these needed? */ |
76e3520e GS |
1458 | bool |
1459 | do_exec(char *cmd) | |
1460 | { | |
c69f6586 | 1461 | return PerlProc_Cmd(cmd); |
76e3520e GS |
1462 | } |
1463 | ||
1464 | int | |
1465 | do_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 */ |