Commit | Line | Data |
---|---|---|
51371543 GS |
1 | /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! |
2 | This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h, | |
3 | perlvars.h and thrdvar.h. Any changes made here will be lost! | |
4 | */ | |
5 | ||
6 | #include "EXTERN.h" | |
7 | #include "perl.h" | |
8 | #include "perlapi.h" | |
9 | ||
6f4183fe | 10 | #if defined(PERL_OBJECT) || defined (MULTIPLICITY) |
51371543 GS |
11 | |
12 | /* accessor functions for Perl variables (provides binary compatibility) */ | |
13 | START_EXTERN_C | |
14 | ||
15 | #undef PERLVAR | |
16 | #undef PERLVARA | |
17 | #undef PERLVARI | |
18 | #undef PERLVARIC | |
6f4183fe GS |
19 | |
20 | #if defined(PERL_OBJECT) | |
c5be433b | 21 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ |
1d7c1841 | 22 | { return &(aTHXo->interp.v); } |
c5be433b | 23 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ |
1d7c1841 | 24 | { return &(aTHXo->interp.v); } |
6f4183fe GS |
25 | #else /* MULTIPLICITY */ |
26 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \ | |
27 | { return &(aTHX->v); } | |
28 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \ | |
29 | { return &(aTHX->v); } | |
30 | #endif | |
31 | ||
51371543 | 32 | #define PERLVARI(v,t,i) PERLVAR(v,t) |
c5be433b | 33 | #define PERLVARIC(v,t,i) PERLVAR(v, const t) |
51371543 GS |
34 | |
35 | #include "thrdvar.h" | |
36 | #include "intrpvar.h" | |
c5be433b GS |
37 | |
38 | #undef PERLVAR | |
39 | #undef PERLVARA | |
40 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ | |
41 | { return &(PL_##v); } | |
42 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ | |
43 | { return &(PL_##v); } | |
51371543 GS |
44 | #include "perlvars.h" |
45 | ||
46 | #undef PERLVAR | |
47 | #undef PERLVARA | |
48 | #undef PERLVARI | |
49 | #undef PERLVARIC | |
50 | ||
6f4183fe GS |
51 | #if defined(PERL_OBJECT) |
52 | ||
53 | /* C-API layer for PERL_OBJECT */ | |
54 | ||
1d7c1841 GS |
55 | #if defined(PERL_IMPLICIT_SYS) |
56 | #else | |
57 | #endif | |
58 | #if defined(USE_ITHREADS) | |
59 | # if defined(PERL_IMPLICIT_SYS) | |
60 | # endif | |
61 | #endif | |
62 | #if defined(MYMALLOC) | |
63 | #endif | |
64 | #if defined(PERL_OBJECT) | |
12a98ad5 GS |
65 | #ifndef __BORLANDC__ |
66 | #endif | |
1d7c1841 | 67 | #endif |
51371543 | 68 | #if defined(PERL_OBJECT) |
1d7c1841 | 69 | #else |
51371543 GS |
70 | #endif |
71 | ||
72 | #undef Perl_amagic_call | |
73 | SV* | |
c5be433b | 74 | Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir) |
51371543 GS |
75 | { |
76 | return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir); | |
77 | } | |
78 | ||
79 | #undef Perl_Gv_AMupdate | |
80 | bool | |
c5be433b | 81 | Perl_Gv_AMupdate(pTHXo_ HV* stash) |
51371543 GS |
82 | { |
83 | return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash); | |
84 | } | |
85 | ||
01020589 GS |
86 | #undef Perl_avhv_delete_ent |
87 | SV* | |
88 | Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash) | |
89 | { | |
90 | return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash); | |
91 | } | |
92 | ||
51371543 GS |
93 | #undef Perl_avhv_exists_ent |
94 | bool | |
c5be433b | 95 | Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash) |
51371543 GS |
96 | { |
97 | return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash); | |
98 | } | |
99 | ||
100 | #undef Perl_avhv_fetch_ent | |
101 | SV** | |
c5be433b | 102 | Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash) |
51371543 GS |
103 | { |
104 | return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash); | |
105 | } | |
106 | ||
107 | #undef Perl_avhv_iternext | |
108 | HE* | |
c5be433b | 109 | Perl_avhv_iternext(pTHXo_ AV *ar) |
51371543 GS |
110 | { |
111 | return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar); | |
112 | } | |
113 | ||
114 | #undef Perl_avhv_iterval | |
115 | SV* | |
c5be433b | 116 | Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry) |
51371543 GS |
117 | { |
118 | return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry); | |
119 | } | |
120 | ||
121 | #undef Perl_avhv_keys | |
122 | HV* | |
c5be433b | 123 | Perl_avhv_keys(pTHXo_ AV *ar) |
51371543 GS |
124 | { |
125 | return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar); | |
126 | } | |
127 | ||
128 | #undef Perl_av_clear | |
129 | void | |
c5be433b | 130 | Perl_av_clear(pTHXo_ AV* ar) |
51371543 GS |
131 | { |
132 | ((CPerlObj*)pPerl)->Perl_av_clear(ar); | |
133 | } | |
134 | ||
01020589 GS |
135 | #undef Perl_av_delete |
136 | SV* | |
137 | Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags) | |
138 | { | |
139 | return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags); | |
140 | } | |
141 | ||
142 | #undef Perl_av_exists | |
143 | bool | |
144 | Perl_av_exists(pTHXo_ AV* ar, I32 key) | |
145 | { | |
146 | return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key); | |
147 | } | |
148 | ||
51371543 GS |
149 | #undef Perl_av_extend |
150 | void | |
c5be433b | 151 | Perl_av_extend(pTHXo_ AV* ar, I32 key) |
51371543 GS |
152 | { |
153 | ((CPerlObj*)pPerl)->Perl_av_extend(ar, key); | |
154 | } | |
155 | ||
156 | #undef Perl_av_fake | |
157 | AV* | |
c5be433b | 158 | Perl_av_fake(pTHXo_ I32 size, SV** svp) |
51371543 GS |
159 | { |
160 | return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp); | |
161 | } | |
162 | ||
163 | #undef Perl_av_fetch | |
164 | SV** | |
c5be433b | 165 | Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval) |
51371543 GS |
166 | { |
167 | return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval); | |
168 | } | |
169 | ||
170 | #undef Perl_av_fill | |
171 | void | |
c5be433b | 172 | Perl_av_fill(pTHXo_ AV* ar, I32 fill) |
51371543 GS |
173 | { |
174 | ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill); | |
175 | } | |
176 | ||
177 | #undef Perl_av_len | |
178 | I32 | |
c5be433b | 179 | Perl_av_len(pTHXo_ AV* ar) |
51371543 GS |
180 | { |
181 | return ((CPerlObj*)pPerl)->Perl_av_len(ar); | |
182 | } | |
183 | ||
184 | #undef Perl_av_make | |
185 | AV* | |
c5be433b | 186 | Perl_av_make(pTHXo_ I32 size, SV** svp) |
51371543 GS |
187 | { |
188 | return ((CPerlObj*)pPerl)->Perl_av_make(size, svp); | |
189 | } | |
190 | ||
191 | #undef Perl_av_pop | |
192 | SV* | |
c5be433b | 193 | Perl_av_pop(pTHXo_ AV* ar) |
51371543 GS |
194 | { |
195 | return ((CPerlObj*)pPerl)->Perl_av_pop(ar); | |
196 | } | |
197 | ||
198 | #undef Perl_av_push | |
199 | void | |
c5be433b | 200 | Perl_av_push(pTHXo_ AV* ar, SV* val) |
51371543 GS |
201 | { |
202 | ((CPerlObj*)pPerl)->Perl_av_push(ar, val); | |
203 | } | |
204 | ||
205 | #undef Perl_av_reify | |
206 | void | |
c5be433b | 207 | Perl_av_reify(pTHXo_ AV* ar) |
51371543 GS |
208 | { |
209 | ((CPerlObj*)pPerl)->Perl_av_reify(ar); | |
210 | } | |
211 | ||
212 | #undef Perl_av_shift | |
213 | SV* | |
c5be433b | 214 | Perl_av_shift(pTHXo_ AV* ar) |
51371543 GS |
215 | { |
216 | return ((CPerlObj*)pPerl)->Perl_av_shift(ar); | |
217 | } | |
218 | ||
219 | #undef Perl_av_store | |
220 | SV** | |
c5be433b | 221 | Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val) |
51371543 GS |
222 | { |
223 | return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val); | |
224 | } | |
225 | ||
226 | #undef Perl_av_undef | |
227 | void | |
c5be433b | 228 | Perl_av_undef(pTHXo_ AV* ar) |
51371543 GS |
229 | { |
230 | ((CPerlObj*)pPerl)->Perl_av_undef(ar); | |
231 | } | |
232 | ||
233 | #undef Perl_av_unshift | |
234 | void | |
c5be433b | 235 | Perl_av_unshift(pTHXo_ AV* ar, I32 num) |
51371543 GS |
236 | { |
237 | ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num); | |
238 | } | |
239 | ||
51371543 GS |
240 | #undef Perl_block_gimme |
241 | I32 | |
c5be433b | 242 | Perl_block_gimme(pTHXo) |
51371543 GS |
243 | { |
244 | return ((CPerlObj*)pPerl)->Perl_block_gimme(); | |
245 | } | |
246 | ||
1be9d9c6 GS |
247 | #undef Perl_call_list |
248 | void | |
249 | Perl_call_list(pTHXo_ I32 oldscope, AV* av_list) | |
250 | { | |
251 | ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list); | |
252 | } | |
253 | ||
51371543 GS |
254 | #undef Perl_cast_ulong |
255 | U32 | |
c5be433b | 256 | Perl_cast_ulong(pTHXo_ NV f) |
51371543 GS |
257 | { |
258 | return ((CPerlObj*)pPerl)->Perl_cast_ulong(f); | |
259 | } | |
260 | ||
261 | #undef Perl_cast_i32 | |
262 | I32 | |
c5be433b | 263 | Perl_cast_i32(pTHXo_ NV f) |
51371543 GS |
264 | { |
265 | return ((CPerlObj*)pPerl)->Perl_cast_i32(f); | |
266 | } | |
267 | ||
268 | #undef Perl_cast_iv | |
269 | IV | |
c5be433b | 270 | Perl_cast_iv(pTHXo_ NV f) |
51371543 GS |
271 | { |
272 | return ((CPerlObj*)pPerl)->Perl_cast_iv(f); | |
273 | } | |
274 | ||
275 | #undef Perl_cast_uv | |
276 | UV | |
c5be433b | 277 | Perl_cast_uv(pTHXo_ NV f) |
51371543 GS |
278 | { |
279 | return ((CPerlObj*)pPerl)->Perl_cast_uv(f); | |
280 | } | |
281 | #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) | |
282 | ||
283 | #undef Perl_my_chsize | |
284 | I32 | |
c5be433b | 285 | Perl_my_chsize(pTHXo_ int fd, Off_t length) |
51371543 GS |
286 | { |
287 | return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length); | |
288 | } | |
289 | #endif | |
290 | #if defined(USE_THREADS) | |
1be9d9c6 GS |
291 | |
292 | #undef Perl_condpair_magic | |
293 | MAGIC* | |
294 | Perl_condpair_magic(pTHXo_ SV *sv) | |
295 | { | |
296 | return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv); | |
297 | } | |
51371543 GS |
298 | #endif |
299 | ||
c5be433b GS |
300 | #undef Perl_croak |
301 | void | |
5a844595 | 302 | Perl_croak(pTHXo_ const char* pat, ...) |
c5be433b GS |
303 | { |
304 | va_list args; | |
305 | va_start(args, pat); | |
306 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args); | |
307 | va_end(args); | |
308 | } | |
309 | ||
310 | #undef Perl_vcroak | |
311 | void | |
312 | Perl_vcroak(pTHXo_ const char* pat, va_list* args) | |
313 | { | |
314 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, args); | |
315 | } | |
51371543 | 316 | #if defined(PERL_IMPLICIT_CONTEXT) |
c5be433b GS |
317 | |
318 | #undef Perl_croak_nocontext | |
319 | void | |
5a844595 | 320 | Perl_croak_nocontext(const char* pat, ...) |
c5be433b GS |
321 | { |
322 | dTHXo; | |
323 | va_list args; | |
324 | va_start(args, pat); | |
325 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args); | |
326 | va_end(args); | |
327 | } | |
328 | ||
329 | #undef Perl_die_nocontext | |
330 | OP* | |
5a844595 | 331 | Perl_die_nocontext(const char* pat, ...) |
c5be433b GS |
332 | { |
333 | dTHXo; | |
334 | OP* retval; | |
335 | va_list args; | |
336 | va_start(args, pat); | |
337 | retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args); | |
338 | va_end(args); | |
339 | return retval; | |
340 | ||
341 | } | |
342 | ||
343 | #undef Perl_deb_nocontext | |
344 | void | |
5a844595 | 345 | Perl_deb_nocontext(const char* pat, ...) |
c5be433b GS |
346 | { |
347 | dTHXo; | |
348 | va_list args; | |
349 | va_start(args, pat); | |
350 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args); | |
351 | va_end(args); | |
352 | } | |
353 | ||
354 | #undef Perl_form_nocontext | |
355 | char* | |
5a844595 | 356 | Perl_form_nocontext(const char* pat, ...) |
c5be433b GS |
357 | { |
358 | dTHXo; | |
359 | char* retval; | |
360 | va_list args; | |
361 | va_start(args, pat); | |
362 | retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args); | |
363 | va_end(args); | |
364 | return retval; | |
365 | ||
366 | } | |
367 | ||
5a844595 GS |
368 | #undef Perl_mess_nocontext |
369 | SV* | |
370 | Perl_mess_nocontext(const char* pat, ...) | |
371 | { | |
372 | dTHXo; | |
373 | SV* retval; | |
374 | va_list args; | |
375 | va_start(args, pat); | |
376 | retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); | |
377 | va_end(args); | |
378 | return retval; | |
379 | ||
380 | } | |
381 | ||
c5be433b GS |
382 | #undef Perl_warn_nocontext |
383 | void | |
5a844595 | 384 | Perl_warn_nocontext(const char* pat, ...) |
c5be433b GS |
385 | { |
386 | dTHXo; | |
387 | va_list args; | |
388 | va_start(args, pat); | |
389 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); | |
390 | va_end(args); | |
391 | } | |
392 | ||
393 | #undef Perl_warner_nocontext | |
394 | void | |
5a844595 | 395 | Perl_warner_nocontext(U32 err, const char* pat, ...) |
c5be433b GS |
396 | { |
397 | dTHXo; | |
398 | va_list args; | |
399 | va_start(args, pat); | |
400 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); | |
401 | va_end(args); | |
402 | } | |
403 | ||
404 | #undef Perl_newSVpvf_nocontext | |
405 | SV* | |
5a844595 | 406 | Perl_newSVpvf_nocontext(const char* pat, ...) |
c5be433b GS |
407 | { |
408 | dTHXo; | |
409 | SV* retval; | |
410 | va_list args; | |
411 | va_start(args, pat); | |
412 | retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); | |
413 | va_end(args); | |
414 | return retval; | |
415 | ||
416 | } | |
417 | ||
418 | #undef Perl_sv_catpvf_nocontext | |
419 | void | |
5a844595 | 420 | Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
421 | { |
422 | dTHXo; | |
423 | va_list args; | |
424 | va_start(args, pat); | |
425 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); | |
426 | va_end(args); | |
427 | } | |
428 | ||
429 | #undef Perl_sv_setpvf_nocontext | |
430 | void | |
5a844595 | 431 | Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
432 | { |
433 | dTHXo; | |
434 | va_list args; | |
435 | va_start(args, pat); | |
436 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); | |
437 | va_end(args); | |
438 | } | |
439 | ||
440 | #undef Perl_sv_catpvf_mg_nocontext | |
441 | void | |
5a844595 | 442 | Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
443 | { |
444 | dTHXo; | |
445 | va_list args; | |
446 | va_start(args, pat); | |
447 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); | |
448 | va_end(args); | |
449 | } | |
450 | ||
451 | #undef Perl_sv_setpvf_mg_nocontext | |
452 | void | |
5a844595 | 453 | Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
454 | { |
455 | dTHXo; | |
456 | va_list args; | |
457 | va_start(args, pat); | |
458 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); | |
459 | va_end(args); | |
460 | } | |
461 | ||
462 | #undef Perl_fprintf_nocontext | |
51371543 GS |
463 | #endif |
464 | ||
51371543 GS |
465 | #undef Perl_cx_dump |
466 | void | |
c5be433b | 467 | Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs) |
51371543 GS |
468 | { |
469 | ((CPerlObj*)pPerl)->Perl_cx_dump(cs); | |
470 | } | |
471 | ||
472 | #undef Perl_filter_add | |
473 | SV* | |
c5be433b | 474 | Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv) |
51371543 GS |
475 | { |
476 | return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv); | |
477 | } | |
478 | ||
479 | #undef Perl_filter_del | |
480 | void | |
c5be433b | 481 | Perl_filter_del(pTHXo_ filter_t funcp) |
51371543 GS |
482 | { |
483 | ((CPerlObj*)pPerl)->Perl_filter_del(funcp); | |
484 | } | |
485 | ||
486 | #undef Perl_filter_read | |
487 | I32 | |
c5be433b | 488 | Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen) |
51371543 GS |
489 | { |
490 | return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen); | |
491 | } | |
492 | ||
493 | #undef Perl_get_op_descs | |
494 | char** | |
c5be433b | 495 | Perl_get_op_descs(pTHXo) |
51371543 GS |
496 | { |
497 | return ((CPerlObj*)pPerl)->Perl_get_op_descs(); | |
498 | } | |
499 | ||
500 | #undef Perl_get_op_names | |
501 | char** | |
c5be433b | 502 | Perl_get_op_names(pTHXo) |
51371543 GS |
503 | { |
504 | return ((CPerlObj*)pPerl)->Perl_get_op_names(); | |
505 | } | |
506 | ||
51371543 GS |
507 | #undef Perl_get_ppaddr |
508 | PPADDR_t* | |
c5be433b | 509 | Perl_get_ppaddr(pTHXo) |
51371543 GS |
510 | { |
511 | return ((CPerlObj*)pPerl)->Perl_get_ppaddr(); | |
512 | } | |
513 | ||
c5be433b GS |
514 | #undef Perl_deb |
515 | void | |
5a844595 | 516 | Perl_deb(pTHXo_ const char* pat, ...) |
c5be433b GS |
517 | { |
518 | va_list args; | |
519 | va_start(args, pat); | |
520 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args); | |
521 | va_end(args); | |
522 | } | |
523 | ||
524 | #undef Perl_vdeb | |
525 | void | |
526 | Perl_vdeb(pTHXo_ const char* pat, va_list* args) | |
527 | { | |
528 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, args); | |
529 | } | |
530 | ||
51371543 GS |
531 | #undef Perl_debprofdump |
532 | void | |
c5be433b | 533 | Perl_debprofdump(pTHXo) |
51371543 GS |
534 | { |
535 | ((CPerlObj*)pPerl)->Perl_debprofdump(); | |
536 | } | |
537 | ||
538 | #undef Perl_debop | |
539 | I32 | |
c5be433b | 540 | Perl_debop(pTHXo_ OP* o) |
51371543 GS |
541 | { |
542 | return ((CPerlObj*)pPerl)->Perl_debop(o); | |
543 | } | |
544 | ||
545 | #undef Perl_debstack | |
546 | I32 | |
c5be433b | 547 | Perl_debstack(pTHXo) |
51371543 GS |
548 | { |
549 | return ((CPerlObj*)pPerl)->Perl_debstack(); | |
550 | } | |
551 | ||
552 | #undef Perl_debstackptrs | |
553 | I32 | |
c5be433b | 554 | Perl_debstackptrs(pTHXo) |
51371543 GS |
555 | { |
556 | return ((CPerlObj*)pPerl)->Perl_debstackptrs(); | |
557 | } | |
558 | ||
559 | #undef Perl_delimcpy | |
560 | char* | |
c5be433b | 561 | Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen) |
51371543 GS |
562 | { |
563 | return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen); | |
564 | } | |
565 | ||
1be9d9c6 GS |
566 | #undef Perl_die |
567 | OP* | |
568 | Perl_die(pTHXo_ const char* pat, ...) | |
569 | { | |
570 | OP* retval; | |
571 | va_list args; | |
572 | va_start(args, pat); | |
573 | retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args); | |
574 | va_end(args); | |
575 | return retval; | |
576 | ||
577 | } | |
578 | ||
579 | #undef Perl_dounwind | |
580 | void | |
581 | Perl_dounwind(pTHXo_ I32 cxix) | |
582 | { | |
583 | ((CPerlObj*)pPerl)->Perl_dounwind(cxix); | |
584 | } | |
585 | ||
51371543 GS |
586 | #undef Perl_do_binmode |
587 | int | |
c5be433b | 588 | Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag) |
51371543 GS |
589 | { |
590 | return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag); | |
591 | } | |
51371543 | 592 | #if !defined(WIN32) |
51371543 | 593 | #endif |
51371543 | 594 | #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) |
51371543 GS |
595 | #endif |
596 | ||
51371543 GS |
597 | #undef Perl_do_open |
598 | bool | |
c5be433b | 599 | Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp) |
51371543 GS |
600 | { |
601 | return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp); | |
602 | } | |
603 | ||
6170680b IZ |
604 | #undef Perl_do_open9 |
605 | bool | |
606 | Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num) | |
607 | { | |
608 | return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num); | |
609 | } | |
610 | ||
51371543 GS |
611 | #undef Perl_dowantarray |
612 | I32 | |
c5be433b | 613 | Perl_dowantarray(pTHXo) |
51371543 GS |
614 | { |
615 | return ((CPerlObj*)pPerl)->Perl_dowantarray(); | |
616 | } | |
617 | ||
618 | #undef Perl_dump_all | |
619 | void | |
c5be433b | 620 | Perl_dump_all(pTHXo) |
51371543 GS |
621 | { |
622 | ((CPerlObj*)pPerl)->Perl_dump_all(); | |
623 | } | |
624 | ||
625 | #undef Perl_dump_eval | |
626 | void | |
c5be433b | 627 | Perl_dump_eval(pTHXo) |
51371543 GS |
628 | { |
629 | ((CPerlObj*)pPerl)->Perl_dump_eval(); | |
630 | } | |
631 | #if defined(DUMP_FDS) | |
632 | ||
633 | #undef Perl_dump_fds | |
634 | void | |
c5be433b | 635 | Perl_dump_fds(pTHXo_ char* s) |
51371543 GS |
636 | { |
637 | ((CPerlObj*)pPerl)->Perl_dump_fds(s); | |
638 | } | |
639 | #endif | |
640 | ||
641 | #undef Perl_dump_form | |
642 | void | |
c5be433b | 643 | Perl_dump_form(pTHXo_ GV* gv) |
51371543 GS |
644 | { |
645 | ((CPerlObj*)pPerl)->Perl_dump_form(gv); | |
646 | } | |
647 | ||
648 | #undef Perl_gv_dump | |
649 | void | |
c5be433b | 650 | Perl_gv_dump(pTHXo_ GV* gv) |
51371543 GS |
651 | { |
652 | ((CPerlObj*)pPerl)->Perl_gv_dump(gv); | |
653 | } | |
654 | ||
655 | #undef Perl_op_dump | |
656 | void | |
c5be433b | 657 | Perl_op_dump(pTHXo_ OP* arg) |
51371543 GS |
658 | { |
659 | ((CPerlObj*)pPerl)->Perl_op_dump(arg); | |
660 | } | |
661 | ||
662 | #undef Perl_pmop_dump | |
663 | void | |
c5be433b | 664 | Perl_pmop_dump(pTHXo_ PMOP* pm) |
51371543 GS |
665 | { |
666 | ((CPerlObj*)pPerl)->Perl_pmop_dump(pm); | |
667 | } | |
668 | ||
669 | #undef Perl_dump_packsubs | |
670 | void | |
c5be433b | 671 | Perl_dump_packsubs(pTHXo_ HV* stash) |
51371543 GS |
672 | { |
673 | ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash); | |
674 | } | |
675 | ||
676 | #undef Perl_dump_sub | |
677 | void | |
c5be433b | 678 | Perl_dump_sub(pTHXo_ GV* gv) |
51371543 GS |
679 | { |
680 | ((CPerlObj*)pPerl)->Perl_dump_sub(gv); | |
681 | } | |
682 | ||
683 | #undef Perl_fbm_compile | |
684 | void | |
c5be433b | 685 | Perl_fbm_compile(pTHXo_ SV* sv, U32 flags) |
51371543 GS |
686 | { |
687 | ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags); | |
688 | } | |
689 | ||
690 | #undef Perl_fbm_instr | |
691 | char* | |
c5be433b | 692 | Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags) |
51371543 GS |
693 | { |
694 | return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags); | |
695 | } | |
51371543 | 696 | #if defined(USE_THREADS) |
51371543 GS |
697 | #endif |
698 | ||
c5be433b GS |
699 | #undef Perl_form |
700 | char* | |
5a844595 | 701 | Perl_form(pTHXo_ const char* pat, ...) |
c5be433b GS |
702 | { |
703 | char* retval; | |
704 | va_list args; | |
705 | va_start(args, pat); | |
706 | retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args); | |
707 | va_end(args); | |
708 | return retval; | |
709 | ||
710 | } | |
711 | ||
712 | #undef Perl_vform | |
713 | char* | |
714 | Perl_vform(pTHXo_ const char* pat, va_list* args) | |
715 | { | |
716 | return ((CPerlObj*)pPerl)->Perl_vform(pat, args); | |
717 | } | |
718 | ||
51371543 GS |
719 | #undef Perl_free_tmps |
720 | void | |
c5be433b | 721 | Perl_free_tmps(pTHXo) |
51371543 GS |
722 | { |
723 | ((CPerlObj*)pPerl)->Perl_free_tmps(); | |
724 | } | |
51371543 | 725 | #if !defined(HAS_GETENV_LEN) |
51371543 GS |
726 | #endif |
727 | ||
728 | #undef Perl_gp_free | |
729 | void | |
c5be433b | 730 | Perl_gp_free(pTHXo_ GV* gv) |
51371543 GS |
731 | { |
732 | ((CPerlObj*)pPerl)->Perl_gp_free(gv); | |
733 | } | |
734 | ||
735 | #undef Perl_gp_ref | |
736 | GP* | |
c5be433b | 737 | Perl_gp_ref(pTHXo_ GP* gp) |
51371543 GS |
738 | { |
739 | return ((CPerlObj*)pPerl)->Perl_gp_ref(gp); | |
740 | } | |
741 | ||
742 | #undef Perl_gv_AVadd | |
743 | GV* | |
c5be433b | 744 | Perl_gv_AVadd(pTHXo_ GV* gv) |
51371543 GS |
745 | { |
746 | return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv); | |
747 | } | |
748 | ||
749 | #undef Perl_gv_HVadd | |
750 | GV* | |
c5be433b | 751 | Perl_gv_HVadd(pTHXo_ GV* gv) |
51371543 GS |
752 | { |
753 | return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv); | |
754 | } | |
755 | ||
756 | #undef Perl_gv_IOadd | |
757 | GV* | |
c5be433b | 758 | Perl_gv_IOadd(pTHXo_ GV* gv) |
51371543 GS |
759 | { |
760 | return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv); | |
761 | } | |
762 | ||
763 | #undef Perl_gv_autoload4 | |
764 | GV* | |
c5be433b | 765 | Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method) |
51371543 GS |
766 | { |
767 | return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method); | |
768 | } | |
769 | ||
770 | #undef Perl_gv_check | |
771 | void | |
c5be433b | 772 | Perl_gv_check(pTHXo_ HV* stash) |
51371543 GS |
773 | { |
774 | ((CPerlObj*)pPerl)->Perl_gv_check(stash); | |
775 | } | |
776 | ||
777 | #undef Perl_gv_efullname | |
778 | void | |
c5be433b | 779 | Perl_gv_efullname(pTHXo_ SV* sv, GV* gv) |
51371543 GS |
780 | { |
781 | ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv); | |
782 | } | |
783 | ||
784 | #undef Perl_gv_efullname3 | |
785 | void | |
c5be433b | 786 | Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) |
51371543 GS |
787 | { |
788 | ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix); | |
789 | } | |
790 | ||
791 | #undef Perl_gv_fetchfile | |
792 | GV* | |
c5be433b | 793 | Perl_gv_fetchfile(pTHXo_ const char* name) |
51371543 GS |
794 | { |
795 | return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name); | |
796 | } | |
797 | ||
798 | #undef Perl_gv_fetchmeth | |
799 | GV* | |
c5be433b | 800 | Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level) |
51371543 GS |
801 | { |
802 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level); | |
803 | } | |
804 | ||
805 | #undef Perl_gv_fetchmethod | |
806 | GV* | |
c5be433b | 807 | Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name) |
51371543 GS |
808 | { |
809 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name); | |
810 | } | |
811 | ||
812 | #undef Perl_gv_fetchmethod_autoload | |
813 | GV* | |
c5be433b | 814 | Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload) |
51371543 GS |
815 | { |
816 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload); | |
817 | } | |
818 | ||
819 | #undef Perl_gv_fetchpv | |
820 | GV* | |
c5be433b | 821 | Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type) |
51371543 GS |
822 | { |
823 | return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type); | |
824 | } | |
825 | ||
826 | #undef Perl_gv_fullname | |
827 | void | |
c5be433b | 828 | Perl_gv_fullname(pTHXo_ SV* sv, GV* gv) |
51371543 GS |
829 | { |
830 | ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv); | |
831 | } | |
832 | ||
833 | #undef Perl_gv_fullname3 | |
834 | void | |
c5be433b | 835 | Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) |
51371543 GS |
836 | { |
837 | ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix); | |
838 | } | |
839 | ||
840 | #undef Perl_gv_init | |
841 | void | |
c5be433b | 842 | Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi) |
51371543 GS |
843 | { |
844 | ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi); | |
845 | } | |
846 | ||
847 | #undef Perl_gv_stashpv | |
848 | HV* | |
c5be433b | 849 | Perl_gv_stashpv(pTHXo_ const char* name, I32 create) |
51371543 GS |
850 | { |
851 | return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create); | |
852 | } | |
853 | ||
854 | #undef Perl_gv_stashpvn | |
855 | HV* | |
c5be433b | 856 | Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create) |
51371543 GS |
857 | { |
858 | return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create); | |
859 | } | |
860 | ||
861 | #undef Perl_gv_stashsv | |
862 | HV* | |
c5be433b | 863 | Perl_gv_stashsv(pTHXo_ SV* sv, I32 create) |
51371543 GS |
864 | { |
865 | return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create); | |
866 | } | |
867 | ||
868 | #undef Perl_hv_clear | |
869 | void | |
c5be433b | 870 | Perl_hv_clear(pTHXo_ HV* tb) |
51371543 GS |
871 | { |
872 | ((CPerlObj*)pPerl)->Perl_hv_clear(tb); | |
873 | } | |
874 | ||
875 | #undef Perl_hv_delayfree_ent | |
876 | void | |
c5be433b | 877 | Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry) |
51371543 GS |
878 | { |
879 | ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry); | |
880 | } | |
881 | ||
882 | #undef Perl_hv_delete | |
883 | SV* | |
c5be433b | 884 | Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags) |
51371543 GS |
885 | { |
886 | return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags); | |
887 | } | |
888 | ||
889 | #undef Perl_hv_delete_ent | |
890 | SV* | |
c5be433b | 891 | Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash) |
51371543 GS |
892 | { |
893 | return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash); | |
894 | } | |
895 | ||
896 | #undef Perl_hv_exists | |
897 | bool | |
c5be433b | 898 | Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen) |
51371543 GS |
899 | { |
900 | return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen); | |
901 | } | |
902 | ||
903 | #undef Perl_hv_exists_ent | |
904 | bool | |
c5be433b | 905 | Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash) |
51371543 GS |
906 | { |
907 | return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash); | |
908 | } | |
909 | ||
910 | #undef Perl_hv_fetch | |
911 | SV** | |
c5be433b | 912 | Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval) |
51371543 GS |
913 | { |
914 | return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval); | |
915 | } | |
916 | ||
917 | #undef Perl_hv_fetch_ent | |
918 | HE* | |
c5be433b | 919 | Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash) |
51371543 GS |
920 | { |
921 | return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash); | |
922 | } | |
923 | ||
924 | #undef Perl_hv_free_ent | |
925 | void | |
c5be433b | 926 | Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry) |
51371543 GS |
927 | { |
928 | ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry); | |
929 | } | |
930 | ||
931 | #undef Perl_hv_iterinit | |
932 | I32 | |
c5be433b | 933 | Perl_hv_iterinit(pTHXo_ HV* tb) |
51371543 GS |
934 | { |
935 | return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb); | |
936 | } | |
937 | ||
938 | #undef Perl_hv_iterkey | |
939 | char* | |
c5be433b | 940 | Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen) |
51371543 GS |
941 | { |
942 | return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen); | |
943 | } | |
944 | ||
945 | #undef Perl_hv_iterkeysv | |
946 | SV* | |
c5be433b | 947 | Perl_hv_iterkeysv(pTHXo_ HE* entry) |
51371543 GS |
948 | { |
949 | return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry); | |
950 | } | |
951 | ||
952 | #undef Perl_hv_iternext | |
953 | HE* | |
c5be433b | 954 | Perl_hv_iternext(pTHXo_ HV* tb) |
51371543 GS |
955 | { |
956 | return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb); | |
957 | } | |
958 | ||
959 | #undef Perl_hv_iternextsv | |
960 | SV* | |
c5be433b | 961 | Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen) |
51371543 GS |
962 | { |
963 | return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen); | |
964 | } | |
965 | ||
966 | #undef Perl_hv_iterval | |
967 | SV* | |
c5be433b | 968 | Perl_hv_iterval(pTHXo_ HV* tb, HE* entry) |
51371543 GS |
969 | { |
970 | return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry); | |
971 | } | |
972 | ||
973 | #undef Perl_hv_ksplit | |
974 | void | |
c5be433b | 975 | Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax) |
51371543 GS |
976 | { |
977 | ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax); | |
978 | } | |
979 | ||
980 | #undef Perl_hv_magic | |
981 | void | |
c5be433b | 982 | Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how) |
51371543 GS |
983 | { |
984 | ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how); | |
985 | } | |
986 | ||
987 | #undef Perl_hv_store | |
988 | SV** | |
c5be433b | 989 | Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash) |
51371543 GS |
990 | { |
991 | return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash); | |
992 | } | |
993 | ||
994 | #undef Perl_hv_store_ent | |
995 | HE* | |
c5be433b | 996 | Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash) |
51371543 GS |
997 | { |
998 | return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash); | |
999 | } | |
1000 | ||
1001 | #undef Perl_hv_undef | |
1002 | void | |
c5be433b | 1003 | Perl_hv_undef(pTHXo_ HV* tb) |
51371543 GS |
1004 | { |
1005 | ((CPerlObj*)pPerl)->Perl_hv_undef(tb); | |
1006 | } | |
1007 | ||
1008 | #undef Perl_ibcmp | |
1009 | I32 | |
c5be433b | 1010 | Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len) |
51371543 GS |
1011 | { |
1012 | return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len); | |
1013 | } | |
1014 | ||
1015 | #undef Perl_ibcmp_locale | |
1016 | I32 | |
c5be433b | 1017 | Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len) |
51371543 GS |
1018 | { |
1019 | return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len); | |
1020 | } | |
1021 | ||
1be9d9c6 GS |
1022 | #undef Perl_init_stacks |
1023 | void | |
1024 | Perl_init_stacks(pTHXo) | |
1025 | { | |
1026 | ((CPerlObj*)pPerl)->Perl_init_stacks(); | |
1027 | } | |
1028 | ||
954c1994 GS |
1029 | #undef Perl_instr |
1030 | char* | |
1031 | Perl_instr(pTHXo_ const char* big, const char* little) | |
51371543 | 1032 | { |
954c1994 | 1033 | return ((CPerlObj*)pPerl)->Perl_instr(big, little); |
51371543 GS |
1034 | } |
1035 | ||
954c1994 GS |
1036 | #undef Perl_is_uni_alnum |
1037 | bool | |
1038 | Perl_is_uni_alnum(pTHXo_ U32 c) | |
1ee4443e | 1039 | { |
954c1994 | 1040 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c); |
1ee4443e IZ |
1041 | } |
1042 | ||
954c1994 GS |
1043 | #undef Perl_is_uni_alnumc |
1044 | bool | |
1045 | Perl_is_uni_alnumc(pTHXo_ U32 c) | |
51371543 | 1046 | { |
954c1994 | 1047 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c); |
51371543 GS |
1048 | } |
1049 | ||
1050 | #undef Perl_is_uni_idfirst | |
1051 | bool | |
c5be433b | 1052 | Perl_is_uni_idfirst(pTHXo_ U32 c) |
51371543 GS |
1053 | { |
1054 | return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c); | |
1055 | } | |
1056 | ||
1057 | #undef Perl_is_uni_alpha | |
1058 | bool | |
c5be433b | 1059 | Perl_is_uni_alpha(pTHXo_ U32 c) |
51371543 GS |
1060 | { |
1061 | return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c); | |
1062 | } | |
1063 | ||
1064 | #undef Perl_is_uni_ascii | |
1065 | bool | |
c5be433b | 1066 | Perl_is_uni_ascii(pTHXo_ U32 c) |
51371543 GS |
1067 | { |
1068 | return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c); | |
1069 | } | |
1070 | ||
1071 | #undef Perl_is_uni_space | |
1072 | bool | |
c5be433b | 1073 | Perl_is_uni_space(pTHXo_ U32 c) |
51371543 GS |
1074 | { |
1075 | return ((CPerlObj*)pPerl)->Perl_is_uni_space(c); | |
1076 | } | |
1077 | ||
1078 | #undef Perl_is_uni_cntrl | |
1079 | bool | |
c5be433b | 1080 | Perl_is_uni_cntrl(pTHXo_ U32 c) |
51371543 GS |
1081 | { |
1082 | return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c); | |
1083 | } | |
1084 | ||
1085 | #undef Perl_is_uni_graph | |
1086 | bool | |
c5be433b | 1087 | Perl_is_uni_graph(pTHXo_ U32 c) |
51371543 GS |
1088 | { |
1089 | return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c); | |
1090 | } | |
1091 | ||
1092 | #undef Perl_is_uni_digit | |
1093 | bool | |
c5be433b | 1094 | Perl_is_uni_digit(pTHXo_ U32 c) |
51371543 GS |
1095 | { |
1096 | return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c); | |
1097 | } | |
1098 | ||
1099 | #undef Perl_is_uni_upper | |
1100 | bool | |
c5be433b | 1101 | Perl_is_uni_upper(pTHXo_ U32 c) |
51371543 GS |
1102 | { |
1103 | return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c); | |
1104 | } | |
1105 | ||
1106 | #undef Perl_is_uni_lower | |
1107 | bool | |
c5be433b | 1108 | Perl_is_uni_lower(pTHXo_ U32 c) |
51371543 GS |
1109 | { |
1110 | return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c); | |
1111 | } | |
1112 | ||
1113 | #undef Perl_is_uni_print | |
1114 | bool | |
c5be433b | 1115 | Perl_is_uni_print(pTHXo_ U32 c) |
51371543 GS |
1116 | { |
1117 | return ((CPerlObj*)pPerl)->Perl_is_uni_print(c); | |
1118 | } | |
1119 | ||
1120 | #undef Perl_is_uni_punct | |
1121 | bool | |
c5be433b | 1122 | Perl_is_uni_punct(pTHXo_ U32 c) |
51371543 GS |
1123 | { |
1124 | return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c); | |
1125 | } | |
1126 | ||
1127 | #undef Perl_is_uni_xdigit | |
1128 | bool | |
c5be433b | 1129 | Perl_is_uni_xdigit(pTHXo_ U32 c) |
51371543 GS |
1130 | { |
1131 | return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c); | |
1132 | } | |
1133 | ||
1134 | #undef Perl_to_uni_upper | |
1135 | U32 | |
c5be433b | 1136 | Perl_to_uni_upper(pTHXo_ U32 c) |
51371543 GS |
1137 | { |
1138 | return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c); | |
1139 | } | |
1140 | ||
1141 | #undef Perl_to_uni_title | |
1142 | U32 | |
c5be433b | 1143 | Perl_to_uni_title(pTHXo_ U32 c) |
51371543 GS |
1144 | { |
1145 | return ((CPerlObj*)pPerl)->Perl_to_uni_title(c); | |
1146 | } | |
1147 | ||
1148 | #undef Perl_to_uni_lower | |
1149 | U32 | |
c5be433b | 1150 | Perl_to_uni_lower(pTHXo_ U32 c) |
51371543 GS |
1151 | { |
1152 | return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c); | |
1153 | } | |
1154 | ||
1155 | #undef Perl_is_uni_alnum_lc | |
1156 | bool | |
c5be433b | 1157 | Perl_is_uni_alnum_lc(pTHXo_ U32 c) |
51371543 GS |
1158 | { |
1159 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c); | |
1160 | } | |
1161 | ||
1162 | #undef Perl_is_uni_alnumc_lc | |
1163 | bool | |
c5be433b | 1164 | Perl_is_uni_alnumc_lc(pTHXo_ U32 c) |
51371543 GS |
1165 | { |
1166 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c); | |
1167 | } | |
1168 | ||
1169 | #undef Perl_is_uni_idfirst_lc | |
1170 | bool | |
c5be433b | 1171 | Perl_is_uni_idfirst_lc(pTHXo_ U32 c) |
51371543 GS |
1172 | { |
1173 | return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c); | |
1174 | } | |
1175 | ||
1176 | #undef Perl_is_uni_alpha_lc | |
1177 | bool | |
c5be433b | 1178 | Perl_is_uni_alpha_lc(pTHXo_ U32 c) |
51371543 GS |
1179 | { |
1180 | return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c); | |
1181 | } | |
1182 | ||
1183 | #undef Perl_is_uni_ascii_lc | |
1184 | bool | |
c5be433b | 1185 | Perl_is_uni_ascii_lc(pTHXo_ U32 c) |
51371543 GS |
1186 | { |
1187 | return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c); | |
1188 | } | |
1189 | ||
1190 | #undef Perl_is_uni_space_lc | |
1191 | bool | |
c5be433b | 1192 | Perl_is_uni_space_lc(pTHXo_ U32 c) |
51371543 GS |
1193 | { |
1194 | return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c); | |
1195 | } | |
1196 | ||
1197 | #undef Perl_is_uni_cntrl_lc | |
1198 | bool | |
c5be433b | 1199 | Perl_is_uni_cntrl_lc(pTHXo_ U32 c) |
51371543 GS |
1200 | { |
1201 | return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c); | |
1202 | } | |
1203 | ||
1204 | #undef Perl_is_uni_graph_lc | |
1205 | bool | |
c5be433b | 1206 | Perl_is_uni_graph_lc(pTHXo_ U32 c) |
51371543 GS |
1207 | { |
1208 | return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c); | |
1209 | } | |
1210 | ||
1211 | #undef Perl_is_uni_digit_lc | |
1212 | bool | |
c5be433b | 1213 | Perl_is_uni_digit_lc(pTHXo_ U32 c) |
51371543 GS |
1214 | { |
1215 | return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c); | |
1216 | } | |
1217 | ||
1218 | #undef Perl_is_uni_upper_lc | |
1219 | bool | |
c5be433b | 1220 | Perl_is_uni_upper_lc(pTHXo_ U32 c) |
51371543 GS |
1221 | { |
1222 | return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c); | |
1223 | } | |
1224 | ||
1225 | #undef Perl_is_uni_lower_lc | |
1226 | bool | |
c5be433b | 1227 | Perl_is_uni_lower_lc(pTHXo_ U32 c) |
51371543 GS |
1228 | { |
1229 | return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c); | |
1230 | } | |
1231 | ||
1232 | #undef Perl_is_uni_print_lc | |
1233 | bool | |
c5be433b | 1234 | Perl_is_uni_print_lc(pTHXo_ U32 c) |
51371543 GS |
1235 | { |
1236 | return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c); | |
1237 | } | |
1238 | ||
1239 | #undef Perl_is_uni_punct_lc | |
1240 | bool | |
c5be433b | 1241 | Perl_is_uni_punct_lc(pTHXo_ U32 c) |
51371543 GS |
1242 | { |
1243 | return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c); | |
1244 | } | |
1245 | ||
1246 | #undef Perl_is_uni_xdigit_lc | |
1247 | bool | |
c5be433b | 1248 | Perl_is_uni_xdigit_lc(pTHXo_ U32 c) |
51371543 GS |
1249 | { |
1250 | return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c); | |
1251 | } | |
1252 | ||
1253 | #undef Perl_to_uni_upper_lc | |
1254 | U32 | |
c5be433b | 1255 | Perl_to_uni_upper_lc(pTHXo_ U32 c) |
51371543 GS |
1256 | { |
1257 | return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c); | |
1258 | } | |
1259 | ||
1260 | #undef Perl_to_uni_title_lc | |
1261 | U32 | |
c5be433b | 1262 | Perl_to_uni_title_lc(pTHXo_ U32 c) |
51371543 GS |
1263 | { |
1264 | return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c); | |
1265 | } | |
1266 | ||
1267 | #undef Perl_to_uni_lower_lc | |
1268 | U32 | |
c5be433b | 1269 | Perl_to_uni_lower_lc(pTHXo_ U32 c) |
51371543 GS |
1270 | { |
1271 | return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c); | |
1272 | } | |
1273 | ||
1274 | #undef Perl_is_utf8_alnum | |
1275 | bool | |
c5be433b | 1276 | Perl_is_utf8_alnum(pTHXo_ U8 *p) |
51371543 GS |
1277 | { |
1278 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p); | |
1279 | } | |
1280 | ||
1281 | #undef Perl_is_utf8_alnumc | |
1282 | bool | |
c5be433b | 1283 | Perl_is_utf8_alnumc(pTHXo_ U8 *p) |
51371543 GS |
1284 | { |
1285 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p); | |
1286 | } | |
1287 | ||
1288 | #undef Perl_is_utf8_idfirst | |
1289 | bool | |
c5be433b | 1290 | Perl_is_utf8_idfirst(pTHXo_ U8 *p) |
51371543 GS |
1291 | { |
1292 | return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p); | |
1293 | } | |
1294 | ||
1295 | #undef Perl_is_utf8_alpha | |
1296 | bool | |
c5be433b | 1297 | Perl_is_utf8_alpha(pTHXo_ U8 *p) |
51371543 GS |
1298 | { |
1299 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p); | |
1300 | } | |
1301 | ||
1302 | #undef Perl_is_utf8_ascii | |
1303 | bool | |
c5be433b | 1304 | Perl_is_utf8_ascii(pTHXo_ U8 *p) |
51371543 GS |
1305 | { |
1306 | return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p); | |
1307 | } | |
1308 | ||
1309 | #undef Perl_is_utf8_space | |
1310 | bool | |
c5be433b | 1311 | Perl_is_utf8_space(pTHXo_ U8 *p) |
51371543 GS |
1312 | { |
1313 | return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p); | |
1314 | } | |
1315 | ||
1316 | #undef Perl_is_utf8_cntrl | |
1317 | bool | |
c5be433b | 1318 | Perl_is_utf8_cntrl(pTHXo_ U8 *p) |
51371543 GS |
1319 | { |
1320 | return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p); | |
1321 | } | |
1322 | ||
1323 | #undef Perl_is_utf8_digit | |
1324 | bool | |
c5be433b | 1325 | Perl_is_utf8_digit(pTHXo_ U8 *p) |
51371543 GS |
1326 | { |
1327 | return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p); | |
1328 | } | |
1329 | ||
1330 | #undef Perl_is_utf8_graph | |
1331 | bool | |
c5be433b | 1332 | Perl_is_utf8_graph(pTHXo_ U8 *p) |
51371543 GS |
1333 | { |
1334 | return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p); | |
1335 | } | |
1336 | ||
1337 | #undef Perl_is_utf8_upper | |
1338 | bool | |
c5be433b | 1339 | Perl_is_utf8_upper(pTHXo_ U8 *p) |
51371543 GS |
1340 | { |
1341 | return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p); | |
1342 | } | |
1343 | ||
1344 | #undef Perl_is_utf8_lower | |
1345 | bool | |
c5be433b | 1346 | Perl_is_utf8_lower(pTHXo_ U8 *p) |
51371543 GS |
1347 | { |
1348 | return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p); | |
1349 | } | |
1350 | ||
1351 | #undef Perl_is_utf8_print | |
1352 | bool | |
c5be433b | 1353 | Perl_is_utf8_print(pTHXo_ U8 *p) |
51371543 GS |
1354 | { |
1355 | return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p); | |
1356 | } | |
1357 | ||
1358 | #undef Perl_is_utf8_punct | |
1359 | bool | |
c5be433b | 1360 | Perl_is_utf8_punct(pTHXo_ U8 *p) |
51371543 GS |
1361 | { |
1362 | return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p); | |
1363 | } | |
1364 | ||
1365 | #undef Perl_is_utf8_xdigit | |
1366 | bool | |
c5be433b | 1367 | Perl_is_utf8_xdigit(pTHXo_ U8 *p) |
51371543 GS |
1368 | { |
1369 | return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p); | |
1370 | } | |
1371 | ||
1372 | #undef Perl_is_utf8_mark | |
1373 | bool | |
c5be433b | 1374 | Perl_is_utf8_mark(pTHXo_ U8 *p) |
51371543 GS |
1375 | { |
1376 | return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p); | |
1377 | } | |
1378 | ||
1be9d9c6 GS |
1379 | #undef Perl_leave_scope |
1380 | void | |
1381 | Perl_leave_scope(pTHXo_ I32 base) | |
1382 | { | |
1383 | ((CPerlObj*)pPerl)->Perl_leave_scope(base); | |
1384 | } | |
1385 | ||
954c1994 | 1386 | #undef Perl_looks_like_number |
51371543 | 1387 | I32 |
954c1994 | 1388 | Perl_looks_like_number(pTHXo_ SV* sv) |
51371543 | 1389 | { |
954c1994 | 1390 | return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv); |
51371543 | 1391 | } |
954c1994 GS |
1392 | #if defined(USE_THREADS) |
1393 | #endif | |
1394 | #if defined(USE_LOCALE_COLLATE) | |
1395 | #endif | |
51371543 | 1396 | |
954c1994 | 1397 | #undef Perl_markstack_grow |
51371543 | 1398 | void |
954c1994 | 1399 | Perl_markstack_grow(pTHXo) |
51371543 | 1400 | { |
954c1994 | 1401 | ((CPerlObj*)pPerl)->Perl_markstack_grow(); |
51371543 | 1402 | } |
954c1994 GS |
1403 | #if defined(USE_LOCALE_COLLATE) |
1404 | #endif | |
51371543 | 1405 | |
954c1994 GS |
1406 | #undef Perl_mess |
1407 | SV* | |
1408 | Perl_mess(pTHXo_ const char* pat, ...) | |
51371543 | 1409 | { |
954c1994 GS |
1410 | SV* retval; |
1411 | va_list args; | |
1412 | va_start(args, pat); | |
1413 | retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); | |
1414 | va_end(args); | |
1415 | return retval; | |
51371543 | 1416 | |
51371543 GS |
1417 | } |
1418 | ||
954c1994 GS |
1419 | #undef Perl_vmess |
1420 | SV* | |
1421 | Perl_vmess(pTHXo_ const char* pat, va_list* args) | |
51371543 | 1422 | { |
954c1994 | 1423 | return ((CPerlObj*)pPerl)->Perl_vmess(pat, args); |
51371543 GS |
1424 | } |
1425 | ||
954c1994 GS |
1426 | #undef Perl_mg_clear |
1427 | int | |
1428 | Perl_mg_clear(pTHXo_ SV* sv) | |
51371543 | 1429 | { |
954c1994 | 1430 | return ((CPerlObj*)pPerl)->Perl_mg_clear(sv); |
51371543 GS |
1431 | } |
1432 | ||
954c1994 GS |
1433 | #undef Perl_mg_copy |
1434 | int | |
1435 | Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen) | |
51371543 | 1436 | { |
954c1994 | 1437 | return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen); |
51371543 GS |
1438 | } |
1439 | ||
954c1994 GS |
1440 | #undef Perl_mg_find |
1441 | MAGIC* | |
1442 | Perl_mg_find(pTHXo_ SV* sv, int type) | |
51371543 | 1443 | { |
954c1994 | 1444 | return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type); |
51371543 GS |
1445 | } |
1446 | ||
954c1994 | 1447 | #undef Perl_mg_free |
51371543 | 1448 | int |
954c1994 | 1449 | Perl_mg_free(pTHXo_ SV* sv) |
51371543 | 1450 | { |
954c1994 | 1451 | return ((CPerlObj*)pPerl)->Perl_mg_free(sv); |
51371543 GS |
1452 | } |
1453 | ||
954c1994 | 1454 | #undef Perl_mg_get |
51371543 | 1455 | int |
954c1994 | 1456 | Perl_mg_get(pTHXo_ SV* sv) |
51371543 | 1457 | { |
954c1994 | 1458 | return ((CPerlObj*)pPerl)->Perl_mg_get(sv); |
51371543 GS |
1459 | } |
1460 | ||
954c1994 GS |
1461 | #undef Perl_mg_length |
1462 | U32 | |
1463 | Perl_mg_length(pTHXo_ SV* sv) | |
51371543 | 1464 | { |
954c1994 | 1465 | return ((CPerlObj*)pPerl)->Perl_mg_length(sv); |
51371543 GS |
1466 | } |
1467 | ||
954c1994 GS |
1468 | #undef Perl_mg_magical |
1469 | void | |
1470 | Perl_mg_magical(pTHXo_ SV* sv) | |
51371543 | 1471 | { |
954c1994 | 1472 | ((CPerlObj*)pPerl)->Perl_mg_magical(sv); |
51371543 GS |
1473 | } |
1474 | ||
954c1994 | 1475 | #undef Perl_mg_set |
51371543 | 1476 | int |
954c1994 | 1477 | Perl_mg_set(pTHXo_ SV* sv) |
51371543 | 1478 | { |
954c1994 | 1479 | return ((CPerlObj*)pPerl)->Perl_mg_set(sv); |
51371543 GS |
1480 | } |
1481 | ||
954c1994 GS |
1482 | #undef Perl_mg_size |
1483 | I32 | |
1484 | Perl_mg_size(pTHXo_ SV* sv) | |
51371543 | 1485 | { |
954c1994 | 1486 | return ((CPerlObj*)pPerl)->Perl_mg_size(sv); |
51371543 GS |
1487 | } |
1488 | ||
1be9d9c6 GS |
1489 | #undef Perl_moreswitches |
1490 | char* | |
1491 | Perl_moreswitches(pTHXo_ char* s) | |
1492 | { | |
1493 | return ((CPerlObj*)pPerl)->Perl_moreswitches(s); | |
1494 | } | |
1495 | ||
954c1994 GS |
1496 | #undef Perl_my_atof |
1497 | NV | |
1498 | Perl_my_atof(pTHXo_ const char *s) | |
51371543 | 1499 | { |
954c1994 | 1500 | return ((CPerlObj*)pPerl)->Perl_my_atof(s); |
51371543 | 1501 | } |
954c1994 | 1502 | #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY) |
51371543 | 1503 | |
954c1994 GS |
1504 | #undef Perl_my_bcopy |
1505 | char* | |
1506 | Perl_my_bcopy(const char* from, char* to, I32 len) | |
51371543 | 1507 | { |
954c1994 GS |
1508 | dTHXo; |
1509 | return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len); | |
51371543 | 1510 | } |
954c1994 GS |
1511 | #endif |
1512 | #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) | |
51371543 | 1513 | |
954c1994 GS |
1514 | #undef Perl_my_bzero |
1515 | char* | |
1516 | Perl_my_bzero(char* loc, I32 len) | |
51371543 | 1517 | { |
954c1994 GS |
1518 | dTHXo; |
1519 | return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len); | |
51371543 | 1520 | } |
954c1994 | 1521 | #endif |
51371543 | 1522 | |
954c1994 GS |
1523 | #undef Perl_my_exit |
1524 | void | |
1525 | Perl_my_exit(pTHXo_ U32 status) | |
51371543 | 1526 | { |
954c1994 | 1527 | ((CPerlObj*)pPerl)->Perl_my_exit(status); |
51371543 GS |
1528 | } |
1529 | ||
954c1994 GS |
1530 | #undef Perl_my_failure_exit |
1531 | void | |
1532 | Perl_my_failure_exit(pTHXo) | |
51371543 | 1533 | { |
954c1994 | 1534 | ((CPerlObj*)pPerl)->Perl_my_failure_exit(); |
51371543 GS |
1535 | } |
1536 | ||
954c1994 GS |
1537 | #undef Perl_my_fflush_all |
1538 | I32 | |
1539 | Perl_my_fflush_all(pTHXo) | |
51371543 | 1540 | { |
954c1994 | 1541 | return ((CPerlObj*)pPerl)->Perl_my_fflush_all(); |
51371543 GS |
1542 | } |
1543 | ||
954c1994 GS |
1544 | #undef Perl_my_lstat |
1545 | I32 | |
1546 | Perl_my_lstat(pTHXo) | |
51371543 | 1547 | { |
954c1994 | 1548 | return ((CPerlObj*)pPerl)->Perl_my_lstat(); |
51371543 | 1549 | } |
954c1994 | 1550 | #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) |
51371543 | 1551 | |
954c1994 GS |
1552 | #undef Perl_my_memcmp |
1553 | I32 | |
1554 | Perl_my_memcmp(const char* s1, const char* s2, I32 len) | |
51371543 | 1555 | { |
954c1994 GS |
1556 | dTHXo; |
1557 | return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len); | |
51371543 | 1558 | } |
954c1994 GS |
1559 | #endif |
1560 | #if !defined(HAS_MEMSET) | |
51371543 | 1561 | |
954c1994 GS |
1562 | #undef Perl_my_memset |
1563 | void* | |
1564 | Perl_my_memset(char* loc, I32 ch, I32 len) | |
51371543 | 1565 | { |
954c1994 GS |
1566 | dTHXo; |
1567 | return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len); | |
51371543 | 1568 | } |
954c1994 GS |
1569 | #endif |
1570 | #if !defined(PERL_OBJECT) | |
51371543 | 1571 | |
954c1994 GS |
1572 | #undef Perl_my_pclose |
1573 | I32 | |
1574 | Perl_my_pclose(pTHXo_ PerlIO* ptr) | |
51371543 | 1575 | { |
954c1994 | 1576 | return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr); |
51371543 GS |
1577 | } |
1578 | ||
954c1994 GS |
1579 | #undef Perl_my_popen |
1580 | PerlIO* | |
1581 | Perl_my_popen(pTHXo_ char* cmd, char* mode) | |
51371543 | 1582 | { |
954c1994 | 1583 | return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode); |
51371543 | 1584 | } |
954c1994 | 1585 | #endif |
51371543 | 1586 | |
954c1994 GS |
1587 | #undef Perl_my_setenv |
1588 | void | |
1589 | Perl_my_setenv(pTHXo_ char* nam, char* val) | |
51371543 | 1590 | { |
954c1994 | 1591 | ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val); |
51371543 GS |
1592 | } |
1593 | ||
954c1994 GS |
1594 | #undef Perl_my_stat |
1595 | I32 | |
1596 | Perl_my_stat(pTHXo) | |
51371543 | 1597 | { |
954c1994 | 1598 | return ((CPerlObj*)pPerl)->Perl_my_stat(); |
51371543 | 1599 | } |
954c1994 | 1600 | #if defined(MYSWAP) |
51371543 | 1601 | |
954c1994 GS |
1602 | #undef Perl_my_swap |
1603 | short | |
1604 | Perl_my_swap(pTHXo_ short s) | |
51371543 | 1605 | { |
954c1994 | 1606 | return ((CPerlObj*)pPerl)->Perl_my_swap(s); |
51371543 | 1607 | } |
51371543 | 1608 | |
954c1994 GS |
1609 | #undef Perl_my_htonl |
1610 | long | |
1611 | Perl_my_htonl(pTHXo_ long l) | |
51371543 | 1612 | { |
954c1994 | 1613 | return ((CPerlObj*)pPerl)->Perl_my_htonl(l); |
51371543 GS |
1614 | } |
1615 | ||
954c1994 GS |
1616 | #undef Perl_my_ntohl |
1617 | long | |
1618 | Perl_my_ntohl(pTHXo_ long l) | |
51371543 | 1619 | { |
954c1994 | 1620 | return ((CPerlObj*)pPerl)->Perl_my_ntohl(l); |
51371543 | 1621 | } |
954c1994 | 1622 | #endif |
51371543 | 1623 | |
954c1994 GS |
1624 | #undef Perl_newANONLIST |
1625 | OP* | |
1626 | Perl_newANONLIST(pTHXo_ OP* o) | |
51371543 | 1627 | { |
954c1994 | 1628 | return ((CPerlObj*)pPerl)->Perl_newANONLIST(o); |
51371543 GS |
1629 | } |
1630 | ||
954c1994 GS |
1631 | #undef Perl_newANONHASH |
1632 | OP* | |
1633 | Perl_newANONHASH(pTHXo_ OP* o) | |
51371543 | 1634 | { |
954c1994 | 1635 | return ((CPerlObj*)pPerl)->Perl_newANONHASH(o); |
51371543 GS |
1636 | } |
1637 | ||
954c1994 GS |
1638 | #undef Perl_newANONSUB |
1639 | OP* | |
1640 | Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block) | |
51371543 | 1641 | { |
954c1994 | 1642 | return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block); |
51371543 GS |
1643 | } |
1644 | ||
954c1994 GS |
1645 | #undef Perl_newASSIGNOP |
1646 | OP* | |
1647 | Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right) | |
51371543 | 1648 | { |
954c1994 | 1649 | return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right); |
51371543 GS |
1650 | } |
1651 | ||
954c1994 GS |
1652 | #undef Perl_newCONDOP |
1653 | OP* | |
1654 | Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop) | |
51371543 | 1655 | { |
954c1994 | 1656 | return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop); |
51371543 GS |
1657 | } |
1658 | ||
954c1994 GS |
1659 | #undef Perl_newCONSTSUB |
1660 | void | |
1661 | Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv) | |
51371543 | 1662 | { |
954c1994 | 1663 | ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); |
51371543 | 1664 | } |
51371543 | 1665 | |
954c1994 GS |
1666 | #undef Perl_newFORM |
1667 | void | |
1668 | Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block) | |
51371543 | 1669 | { |
954c1994 | 1670 | ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block); |
51371543 | 1671 | } |
51371543 | 1672 | |
954c1994 GS |
1673 | #undef Perl_newFOROP |
1674 | OP* | |
1675 | Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont) | |
51371543 | 1676 | { |
954c1994 | 1677 | return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont); |
51371543 GS |
1678 | } |
1679 | ||
954c1994 GS |
1680 | #undef Perl_newLOGOP |
1681 | OP* | |
1682 | Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right) | |
51371543 | 1683 | { |
954c1994 | 1684 | return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right); |
51371543 GS |
1685 | } |
1686 | ||
954c1994 GS |
1687 | #undef Perl_newLOOPEX |
1688 | OP* | |
1689 | Perl_newLOOPEX(pTHXo_ I32 type, OP* label) | |
51371543 | 1690 | { |
954c1994 | 1691 | return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label); |
51371543 GS |
1692 | } |
1693 | ||
954c1994 GS |
1694 | #undef Perl_newLOOPOP |
1695 | OP* | |
1696 | Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block) | |
51371543 | 1697 | { |
954c1994 | 1698 | return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block); |
51371543 GS |
1699 | } |
1700 | ||
954c1994 GS |
1701 | #undef Perl_newNULLLIST |
1702 | OP* | |
1703 | Perl_newNULLLIST(pTHXo) | |
51371543 | 1704 | { |
954c1994 | 1705 | return ((CPerlObj*)pPerl)->Perl_newNULLLIST(); |
51371543 GS |
1706 | } |
1707 | ||
954c1994 GS |
1708 | #undef Perl_newOP |
1709 | OP* | |
1710 | Perl_newOP(pTHXo_ I32 optype, I32 flags) | |
51371543 | 1711 | { |
954c1994 | 1712 | return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags); |
51371543 GS |
1713 | } |
1714 | ||
954c1994 GS |
1715 | #undef Perl_newPROG |
1716 | void | |
1717 | Perl_newPROG(pTHXo_ OP* o) | |
51371543 | 1718 | { |
954c1994 | 1719 | ((CPerlObj*)pPerl)->Perl_newPROG(o); |
51371543 GS |
1720 | } |
1721 | ||
954c1994 GS |
1722 | #undef Perl_newRANGE |
1723 | OP* | |
1724 | Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right) | |
51371543 | 1725 | { |
954c1994 | 1726 | return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right); |
51371543 GS |
1727 | } |
1728 | ||
954c1994 GS |
1729 | #undef Perl_newSLICEOP |
1730 | OP* | |
1731 | Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop) | |
51371543 | 1732 | { |
954c1994 | 1733 | return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop); |
51371543 GS |
1734 | } |
1735 | ||
954c1994 GS |
1736 | #undef Perl_newSTATEOP |
1737 | OP* | |
1738 | Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o) | |
51371543 | 1739 | { |
954c1994 | 1740 | return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o); |
51371543 GS |
1741 | } |
1742 | ||
954c1994 GS |
1743 | #undef Perl_newSUB |
1744 | CV* | |
1745 | Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block) | |
51371543 | 1746 | { |
954c1994 | 1747 | return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block); |
51371543 GS |
1748 | } |
1749 | ||
954c1994 GS |
1750 | #undef Perl_newXS |
1751 | CV* | |
1752 | Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename) | |
51371543 | 1753 | { |
954c1994 | 1754 | return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename); |
51371543 GS |
1755 | } |
1756 | ||
954c1994 GS |
1757 | #undef Perl_newAV |
1758 | AV* | |
1759 | Perl_newAV(pTHXo) | |
51371543 | 1760 | { |
954c1994 | 1761 | return ((CPerlObj*)pPerl)->Perl_newAV(); |
51371543 GS |
1762 | } |
1763 | ||
954c1994 GS |
1764 | #undef Perl_newAVREF |
1765 | OP* | |
1766 | Perl_newAVREF(pTHXo_ OP* o) | |
51371543 | 1767 | { |
954c1994 | 1768 | return ((CPerlObj*)pPerl)->Perl_newAVREF(o); |
51371543 GS |
1769 | } |
1770 | ||
954c1994 GS |
1771 | #undef Perl_newBINOP |
1772 | OP* | |
1773 | Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) | |
51371543 | 1774 | { |
954c1994 | 1775 | return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last); |
51371543 GS |
1776 | } |
1777 | ||
954c1994 GS |
1778 | #undef Perl_newCVREF |
1779 | OP* | |
1780 | Perl_newCVREF(pTHXo_ I32 flags, OP* o) | |
51371543 | 1781 | { |
954c1994 | 1782 | return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o); |
51371543 GS |
1783 | } |
1784 | ||
954c1994 GS |
1785 | #undef Perl_newGVOP |
1786 | OP* | |
1787 | Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv) | |
51371543 | 1788 | { |
954c1994 | 1789 | return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv); |
51371543 GS |
1790 | } |
1791 | ||
954c1994 GS |
1792 | #undef Perl_newGVgen |
1793 | GV* | |
1794 | Perl_newGVgen(pTHXo_ char* pack) | |
51371543 | 1795 | { |
954c1994 | 1796 | return ((CPerlObj*)pPerl)->Perl_newGVgen(pack); |
51371543 GS |
1797 | } |
1798 | ||
954c1994 GS |
1799 | #undef Perl_newGVREF |
1800 | OP* | |
1801 | Perl_newGVREF(pTHXo_ I32 type, OP* o) | |
51371543 | 1802 | { |
954c1994 | 1803 | return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o); |
51371543 GS |
1804 | } |
1805 | ||
954c1994 GS |
1806 | #undef Perl_newHVREF |
1807 | OP* | |
1808 | Perl_newHVREF(pTHXo_ OP* o) | |
51371543 | 1809 | { |
954c1994 | 1810 | return ((CPerlObj*)pPerl)->Perl_newHVREF(o); |
51371543 GS |
1811 | } |
1812 | ||
954c1994 GS |
1813 | #undef Perl_newHV |
1814 | HV* | |
1815 | Perl_newHV(pTHXo) | |
51371543 | 1816 | { |
954c1994 | 1817 | return ((CPerlObj*)pPerl)->Perl_newHV(); |
51371543 GS |
1818 | } |
1819 | ||
954c1994 GS |
1820 | #undef Perl_newHVhv |
1821 | HV* | |
1822 | Perl_newHVhv(pTHXo_ HV* hv) | |
51371543 | 1823 | { |
954c1994 | 1824 | return ((CPerlObj*)pPerl)->Perl_newHVhv(hv); |
51371543 GS |
1825 | } |
1826 | ||
954c1994 GS |
1827 | #undef Perl_newIO |
1828 | IO* | |
1829 | Perl_newIO(pTHXo) | |
51371543 | 1830 | { |
954c1994 | 1831 | return ((CPerlObj*)pPerl)->Perl_newIO(); |
51371543 GS |
1832 | } |
1833 | ||
954c1994 GS |
1834 | #undef Perl_newLISTOP |
1835 | OP* | |
1836 | Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) | |
51371543 | 1837 | { |
954c1994 | 1838 | return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last); |
51371543 GS |
1839 | } |
1840 | ||
954c1994 GS |
1841 | #undef Perl_newPADOP |
1842 | OP* | |
1843 | Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv) | |
51371543 | 1844 | { |
954c1994 | 1845 | return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv); |
51371543 GS |
1846 | } |
1847 | ||
954c1994 GS |
1848 | #undef Perl_newPMOP |
1849 | OP* | |
1850 | Perl_newPMOP(pTHXo_ I32 type, I32 flags) | |
51371543 | 1851 | { |
954c1994 | 1852 | return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags); |
51371543 GS |
1853 | } |
1854 | ||
954c1994 GS |
1855 | #undef Perl_newPVOP |
1856 | OP* | |
1857 | Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv) | |
51371543 | 1858 | { |
954c1994 | 1859 | return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv); |
51371543 GS |
1860 | } |
1861 | ||
954c1994 GS |
1862 | #undef Perl_newRV |
1863 | SV* | |
1864 | Perl_newRV(pTHXo_ SV* pref) | |
51371543 | 1865 | { |
954c1994 | 1866 | return ((CPerlObj*)pPerl)->Perl_newRV(pref); |
51371543 GS |
1867 | } |
1868 | ||
954c1994 GS |
1869 | #undef Perl_newRV_noinc |
1870 | SV* | |
1871 | Perl_newRV_noinc(pTHXo_ SV *sv) | |
51371543 | 1872 | { |
954c1994 | 1873 | return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv); |
51371543 GS |
1874 | } |
1875 | ||
954c1994 GS |
1876 | #undef Perl_newSV |
1877 | SV* | |
1878 | Perl_newSV(pTHXo_ STRLEN len) | |
51371543 | 1879 | { |
954c1994 | 1880 | return ((CPerlObj*)pPerl)->Perl_newSV(len); |
51371543 GS |
1881 | } |
1882 | ||
954c1994 GS |
1883 | #undef Perl_newSVREF |
1884 | OP* | |
1885 | Perl_newSVREF(pTHXo_ OP* o) | |
51371543 | 1886 | { |
954c1994 | 1887 | return ((CPerlObj*)pPerl)->Perl_newSVREF(o); |
51371543 GS |
1888 | } |
1889 | ||
954c1994 GS |
1890 | #undef Perl_newSVOP |
1891 | OP* | |
1892 | Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv) | |
51371543 | 1893 | { |
954c1994 | 1894 | return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv); |
51371543 GS |
1895 | } |
1896 | ||
954c1994 GS |
1897 | #undef Perl_newSViv |
1898 | SV* | |
1899 | Perl_newSViv(pTHXo_ IV i) | |
51371543 | 1900 | { |
954c1994 | 1901 | return ((CPerlObj*)pPerl)->Perl_newSViv(i); |
51371543 GS |
1902 | } |
1903 | ||
954c1994 GS |
1904 | #undef Perl_newSVnv |
1905 | SV* | |
1906 | Perl_newSVnv(pTHXo_ NV n) | |
51371543 | 1907 | { |
954c1994 | 1908 | return ((CPerlObj*)pPerl)->Perl_newSVnv(n); |
51371543 GS |
1909 | } |
1910 | ||
954c1994 GS |
1911 | #undef Perl_newSVpv |
1912 | SV* | |
1913 | Perl_newSVpv(pTHXo_ const char* s, STRLEN len) | |
51371543 | 1914 | { |
954c1994 | 1915 | return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len); |
51371543 GS |
1916 | } |
1917 | ||
954c1994 GS |
1918 | #undef Perl_newSVpvn |
1919 | SV* | |
1920 | Perl_newSVpvn(pTHXo_ const char* s, STRLEN len) | |
51371543 | 1921 | { |
954c1994 | 1922 | return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len); |
51371543 GS |
1923 | } |
1924 | ||
954c1994 GS |
1925 | #undef Perl_newSVpvf |
1926 | SV* | |
1927 | Perl_newSVpvf(pTHXo_ const char* pat, ...) | |
51371543 | 1928 | { |
954c1994 GS |
1929 | SV* retval; |
1930 | va_list args; | |
1931 | va_start(args, pat); | |
1932 | retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); | |
1933 | va_end(args); | |
1934 | return retval; | |
51371543 | 1935 | |
51371543 GS |
1936 | } |
1937 | ||
954c1994 GS |
1938 | #undef Perl_vnewSVpvf |
1939 | SV* | |
1940 | Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args) | |
51371543 | 1941 | { |
954c1994 | 1942 | return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args); |
51371543 GS |
1943 | } |
1944 | ||
954c1994 GS |
1945 | #undef Perl_newSVrv |
1946 | SV* | |
1947 | Perl_newSVrv(pTHXo_ SV* rv, const char* classname) | |
51371543 | 1948 | { |
954c1994 | 1949 | return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname); |
51371543 GS |
1950 | } |
1951 | ||
954c1994 GS |
1952 | #undef Perl_newSVsv |
1953 | SV* | |
1954 | Perl_newSVsv(pTHXo_ SV* old) | |
51371543 | 1955 | { |
954c1994 | 1956 | return ((CPerlObj*)pPerl)->Perl_newSVsv(old); |
51371543 GS |
1957 | } |
1958 | ||
954c1994 GS |
1959 | #undef Perl_newUNOP |
1960 | OP* | |
1961 | Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first) | |
51371543 | 1962 | { |
954c1994 | 1963 | return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first); |
51371543 GS |
1964 | } |
1965 | ||
954c1994 GS |
1966 | #undef Perl_newWHILEOP |
1967 | OP* | |
1968 | Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont) | |
51371543 | 1969 | { |
954c1994 | 1970 | return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont); |
51371543 GS |
1971 | } |
1972 | ||
1be9d9c6 GS |
1973 | #undef Perl_new_stackinfo |
1974 | PERL_SI* | |
1975 | Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems) | |
1976 | { | |
1977 | return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems); | |
1978 | } | |
1979 | ||
954c1994 GS |
1980 | #undef Perl_ninstr |
1981 | char* | |
1982 | Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) | |
51371543 | 1983 | { |
954c1994 | 1984 | return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend); |
51371543 | 1985 | } |
1be9d9c6 GS |
1986 | |
1987 | #undef Perl_op_free | |
1988 | void | |
1989 | Perl_op_free(pTHXo_ OP* arg) | |
1990 | { | |
1991 | ((CPerlObj*)pPerl)->Perl_op_free(arg); | |
1992 | } | |
1993 | ||
1994 | #undef Perl_pad_sv | |
1995 | SV* | |
1996 | Perl_pad_sv(pTHXo_ PADOFFSET po) | |
1997 | { | |
1998 | return ((CPerlObj*)pPerl)->Perl_pad_sv(po); | |
1999 | } | |
954c1994 | 2000 | #if defined(PERL_OBJECT) |
51371543 | 2001 | |
954c1994 GS |
2002 | #undef Perl_construct |
2003 | void | |
2004 | Perl_construct(pTHXo) | |
51371543 | 2005 | { |
954c1994 | 2006 | ((CPerlObj*)pPerl)->Perl_construct(); |
51371543 GS |
2007 | } |
2008 | ||
954c1994 GS |
2009 | #undef Perl_destruct |
2010 | void | |
2011 | Perl_destruct(pTHXo) | |
51371543 | 2012 | { |
954c1994 | 2013 | ((CPerlObj*)pPerl)->Perl_destruct(); |
51371543 GS |
2014 | } |
2015 | ||
954c1994 GS |
2016 | #undef Perl_free |
2017 | void | |
2018 | Perl_free(pTHXo) | |
51371543 | 2019 | { |
954c1994 | 2020 | ((CPerlObj*)pPerl)->Perl_free(); |
51371543 GS |
2021 | } |
2022 | ||
954c1994 GS |
2023 | #undef Perl_run |
2024 | int | |
2025 | Perl_run(pTHXo) | |
51371543 | 2026 | { |
954c1994 | 2027 | return ((CPerlObj*)pPerl)->Perl_run(); |
51371543 GS |
2028 | } |
2029 | ||
954c1994 GS |
2030 | #undef Perl_parse |
2031 | int | |
2032 | Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env) | |
51371543 | 2033 | { |
954c1994 | 2034 | return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env); |
51371543 | 2035 | } |
954c1994 GS |
2036 | #endif |
2037 | #if defined(USE_THREADS) | |
51371543 | 2038 | |
954c1994 GS |
2039 | #undef Perl_new_struct_thread |
2040 | struct perl_thread* | |
2041 | Perl_new_struct_thread(pTHXo_ struct perl_thread *t) | |
51371543 | 2042 | { |
954c1994 | 2043 | return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t); |
51371543 | 2044 | } |
954c1994 | 2045 | #endif |
51371543 | 2046 | |
954c1994 GS |
2047 | #undef Perl_call_atexit |
2048 | void | |
2049 | Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr) | |
51371543 | 2050 | { |
954c1994 | 2051 | ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr); |
51371543 GS |
2052 | } |
2053 | ||
954c1994 GS |
2054 | #undef Perl_call_argv |
2055 | I32 | |
2056 | Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv) | |
51371543 | 2057 | { |
954c1994 | 2058 | return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv); |
51371543 GS |
2059 | } |
2060 | ||
954c1994 GS |
2061 | #undef Perl_call_method |
2062 | I32 | |
2063 | Perl_call_method(pTHXo_ const char* methname, I32 flags) | |
51371543 | 2064 | { |
954c1994 | 2065 | return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags); |
51371543 GS |
2066 | } |
2067 | ||
954c1994 GS |
2068 | #undef Perl_call_pv |
2069 | I32 | |
2070 | Perl_call_pv(pTHXo_ const char* sub_name, I32 flags) | |
51371543 | 2071 | { |
954c1994 | 2072 | return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags); |
51371543 GS |
2073 | } |
2074 | ||
954c1994 GS |
2075 | #undef Perl_call_sv |
2076 | I32 | |
2077 | Perl_call_sv(pTHXo_ SV* sv, I32 flags) | |
51371543 | 2078 | { |
954c1994 | 2079 | return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags); |
51371543 GS |
2080 | } |
2081 | ||
954c1994 GS |
2082 | #undef Perl_eval_pv |
2083 | SV* | |
2084 | Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error) | |
51371543 | 2085 | { |
954c1994 | 2086 | return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error); |
51371543 GS |
2087 | } |
2088 | ||
954c1994 GS |
2089 | #undef Perl_eval_sv |
2090 | I32 | |
2091 | Perl_eval_sv(pTHXo_ SV* sv, I32 flags) | |
51371543 | 2092 | { |
954c1994 | 2093 | return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags); |
51371543 GS |
2094 | } |
2095 | ||
954c1994 GS |
2096 | #undef Perl_get_sv |
2097 | SV* | |
2098 | Perl_get_sv(pTHXo_ const char* name, I32 create) | |
51371543 | 2099 | { |
954c1994 | 2100 | return ((CPerlObj*)pPerl)->Perl_get_sv(name, create); |
51371543 GS |
2101 | } |
2102 | ||
954c1994 GS |
2103 | #undef Perl_get_av |
2104 | AV* | |
2105 | Perl_get_av(pTHXo_ const char* name, I32 create) | |
51371543 | 2106 | { |
954c1994 | 2107 | return ((CPerlObj*)pPerl)->Perl_get_av(name, create); |
51371543 GS |
2108 | } |
2109 | ||
954c1994 GS |
2110 | #undef Perl_get_hv |
2111 | HV* | |
2112 | Perl_get_hv(pTHXo_ const char* name, I32 create) | |
51371543 | 2113 | { |
954c1994 | 2114 | return ((CPerlObj*)pPerl)->Perl_get_hv(name, create); |
51371543 GS |
2115 | } |
2116 | ||
954c1994 GS |
2117 | #undef Perl_get_cv |
2118 | CV* | |
2119 | Perl_get_cv(pTHXo_ const char* name, I32 create) | |
51371543 | 2120 | { |
954c1994 | 2121 | return ((CPerlObj*)pPerl)->Perl_get_cv(name, create); |
51371543 GS |
2122 | } |
2123 | ||
1be9d9c6 GS |
2124 | #undef Perl_init_i18nl10n |
2125 | int | |
2126 | Perl_init_i18nl10n(pTHXo_ int printwarn) | |
2127 | { | |
2128 | return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn); | |
2129 | } | |
2130 | ||
2131 | #undef Perl_init_i18nl14n | |
2132 | int | |
2133 | Perl_init_i18nl14n(pTHXo_ int printwarn) | |
2134 | { | |
2135 | return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn); | |
2136 | } | |
2137 | ||
954c1994 GS |
2138 | #undef Perl_new_collate |
2139 | void | |
2140 | Perl_new_collate(pTHXo_ const char* newcoll) | |
51371543 | 2141 | { |
954c1994 | 2142 | ((CPerlObj*)pPerl)->Perl_new_collate(newcoll); |
51371543 GS |
2143 | } |
2144 | ||
954c1994 GS |
2145 | #undef Perl_new_ctype |
2146 | void | |
2147 | Perl_new_ctype(pTHXo_ const char* newctype) | |
51371543 | 2148 | { |
954c1994 | 2149 | ((CPerlObj*)pPerl)->Perl_new_ctype(newctype); |
51371543 GS |
2150 | } |
2151 | ||
954c1994 GS |
2152 | #undef Perl_new_numeric |
2153 | void | |
2154 | Perl_new_numeric(pTHXo_ const char* newcoll) | |
51371543 | 2155 | { |
954c1994 | 2156 | ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll); |
51371543 GS |
2157 | } |
2158 | ||
954c1994 GS |
2159 | #undef Perl_set_numeric_local |
2160 | void | |
2161 | Perl_set_numeric_local(pTHXo) | |
51371543 | 2162 | { |
954c1994 | 2163 | ((CPerlObj*)pPerl)->Perl_set_numeric_local(); |
51371543 GS |
2164 | } |
2165 | ||
954c1994 GS |
2166 | #undef Perl_set_numeric_radix |
2167 | void | |
2168 | Perl_set_numeric_radix(pTHXo) | |
51371543 | 2169 | { |
954c1994 | 2170 | ((CPerlObj*)pPerl)->Perl_set_numeric_radix(); |
51371543 GS |
2171 | } |
2172 | ||
954c1994 GS |
2173 | #undef Perl_set_numeric_standard |
2174 | void | |
2175 | Perl_set_numeric_standard(pTHXo) | |
51371543 | 2176 | { |
954c1994 | 2177 | ((CPerlObj*)pPerl)->Perl_set_numeric_standard(); |
51371543 GS |
2178 | } |
2179 | ||
954c1994 GS |
2180 | #undef Perl_require_pv |
2181 | void | |
2182 | Perl_require_pv(pTHXo_ const char* pv) | |
51371543 | 2183 | { |
954c1994 | 2184 | ((CPerlObj*)pPerl)->Perl_require_pv(pv); |
51371543 GS |
2185 | } |
2186 | ||
1be9d9c6 GS |
2187 | #undef Perl_pmflag |
2188 | void | |
2189 | Perl_pmflag(pTHXo_ U16* pmfl, int ch) | |
2190 | { | |
2191 | ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch); | |
2192 | } | |
2193 | ||
954c1994 GS |
2194 | #undef Perl_pop_scope |
2195 | void | |
2196 | Perl_pop_scope(pTHXo) | |
51371543 | 2197 | { |
954c1994 | 2198 | ((CPerlObj*)pPerl)->Perl_pop_scope(); |
51371543 GS |
2199 | } |
2200 | ||
954c1994 GS |
2201 | #undef Perl_push_scope |
2202 | void | |
2203 | Perl_push_scope(pTHXo) | |
51371543 | 2204 | { |
954c1994 | 2205 | ((CPerlObj*)pPerl)->Perl_push_scope(); |
51371543 GS |
2206 | } |
2207 | ||
954c1994 GS |
2208 | #undef Perl_regdump |
2209 | void | |
2210 | Perl_regdump(pTHXo_ regexp* r) | |
51371543 | 2211 | { |
954c1994 | 2212 | ((CPerlObj*)pPerl)->Perl_regdump(r); |
51371543 GS |
2213 | } |
2214 | ||
a86f0dc9 GS |
2215 | #undef Perl_pregexec |
2216 | I32 | |
2217 | Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) | |
2218 | { | |
2219 | return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave); | |
2220 | } | |
2221 | ||
1be9d9c6 GS |
2222 | #undef Perl_pregfree |
2223 | void | |
2224 | Perl_pregfree(pTHXo_ struct regexp* r) | |
2225 | { | |
2226 | ((CPerlObj*)pPerl)->Perl_pregfree(r); | |
2227 | } | |
2228 | ||
2229 | #undef Perl_pregcomp | |
2230 | regexp* | |
2231 | Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm) | |
2232 | { | |
2233 | return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm); | |
2234 | } | |
2235 | ||
2236 | #undef Perl_re_intuit_start | |
2237 | char* | |
2238 | Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data) | |
2239 | { | |
2240 | return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data); | |
2241 | } | |
2242 | ||
2243 | #undef Perl_re_intuit_string | |
2244 | SV* | |
2245 | Perl_re_intuit_string(pTHXo_ regexp* prog) | |
2246 | { | |
2247 | return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog); | |
2248 | } | |
2249 | ||
2250 | #undef Perl_regexec_flags | |
2251 | I32 | |
2252 | Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) | |
2253 | { | |
2254 | return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags); | |
2255 | } | |
2256 | ||
2257 | #undef Perl_regnext | |
2258 | regnode* | |
2259 | Perl_regnext(pTHXo_ regnode* p) | |
2260 | { | |
2261 | return ((CPerlObj*)pPerl)->Perl_regnext(p); | |
2262 | } | |
2263 | ||
2264 | #undef Perl_repeatcpy | |
2265 | void | |
2266 | Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count) | |
2267 | { | |
2268 | ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count); | |
2269 | } | |
2270 | ||
954c1994 GS |
2271 | #undef Perl_rninstr |
2272 | char* | |
2273 | Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) | |
51371543 | 2274 | { |
954c1994 | 2275 | return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend); |
51371543 | 2276 | } |
954c1994 GS |
2277 | #if !defined(HAS_RENAME) |
2278 | #endif | |
51371543 | 2279 | |
954c1994 GS |
2280 | #undef Perl_savepv |
2281 | char* | |
2282 | Perl_savepv(pTHXo_ const char* sv) | |
51371543 | 2283 | { |
954c1994 | 2284 | return ((CPerlObj*)pPerl)->Perl_savepv(sv); |
51371543 GS |
2285 | } |
2286 | ||
954c1994 GS |
2287 | #undef Perl_savepvn |
2288 | char* | |
2289 | Perl_savepvn(pTHXo_ const char* sv, I32 len) | |
51371543 | 2290 | { |
954c1994 | 2291 | return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len); |
51371543 GS |
2292 | } |
2293 | ||
954c1994 GS |
2294 | #undef Perl_savestack_grow |
2295 | void | |
2296 | Perl_savestack_grow(pTHXo) | |
51371543 | 2297 | { |
954c1994 | 2298 | ((CPerlObj*)pPerl)->Perl_savestack_grow(); |
51371543 GS |
2299 | } |
2300 | ||
954c1994 GS |
2301 | #undef Perl_save_aelem |
2302 | void | |
2303 | Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr) | |
51371543 | 2304 | { |
954c1994 | 2305 | ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr); |
51371543 GS |
2306 | } |
2307 | ||
954c1994 GS |
2308 | #undef Perl_save_alloc |
2309 | I32 | |
2310 | Perl_save_alloc(pTHXo_ I32 size, I32 pad) | |
51371543 | 2311 | { |
954c1994 | 2312 | return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad); |
51371543 GS |
2313 | } |
2314 | ||
954c1994 GS |
2315 | #undef Perl_save_aptr |
2316 | void | |
2317 | Perl_save_aptr(pTHXo_ AV** aptr) | |
51371543 | 2318 | { |
954c1994 | 2319 | ((CPerlObj*)pPerl)->Perl_save_aptr(aptr); |
51371543 GS |
2320 | } |
2321 | ||
954c1994 GS |
2322 | #undef Perl_save_ary |
2323 | AV* | |
2324 | Perl_save_ary(pTHXo_ GV* gv) | |
51371543 | 2325 | { |
954c1994 | 2326 | return ((CPerlObj*)pPerl)->Perl_save_ary(gv); |
51371543 GS |
2327 | } |
2328 | ||
954c1994 GS |
2329 | #undef Perl_save_clearsv |
2330 | void | |
2331 | Perl_save_clearsv(pTHXo_ SV** svp) | |
51371543 | 2332 | { |
954c1994 | 2333 | ((CPerlObj*)pPerl)->Perl_save_clearsv(svp); |
51371543 GS |
2334 | } |
2335 | ||
954c1994 GS |
2336 | #undef Perl_save_delete |
2337 | void | |
2338 | Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen) | |
51371543 | 2339 | { |
954c1994 | 2340 | ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen); |
51371543 GS |
2341 | } |
2342 | ||
954c1994 GS |
2343 | #undef Perl_save_destructor |
2344 | void | |
2345 | Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p) | |
51371543 | 2346 | { |
954c1994 | 2347 | ((CPerlObj*)pPerl)->Perl_save_destructor(f, p); |
51371543 GS |
2348 | } |
2349 | ||
954c1994 GS |
2350 | #undef Perl_save_destructor_x |
2351 | void | |
2352 | Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p) | |
51371543 | 2353 | { |
954c1994 | 2354 | ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p); |
51371543 GS |
2355 | } |
2356 | ||
954c1994 GS |
2357 | #undef Perl_save_freesv |
2358 | void | |
2359 | Perl_save_freesv(pTHXo_ SV* sv) | |
51371543 | 2360 | { |
954c1994 | 2361 | ((CPerlObj*)pPerl)->Perl_save_freesv(sv); |
51371543 GS |
2362 | } |
2363 | ||
954c1994 GS |
2364 | #undef Perl_save_freepv |
2365 | void | |
2366 | Perl_save_freepv(pTHXo_ char* pv) | |
51371543 | 2367 | { |
954c1994 | 2368 | ((CPerlObj*)pPerl)->Perl_save_freepv(pv); |
51371543 GS |
2369 | } |
2370 | ||
954c1994 GS |
2371 | #undef Perl_save_generic_svref |
2372 | void | |
2373 | Perl_save_generic_svref(pTHXo_ SV** sptr) | |
51371543 | 2374 | { |
954c1994 | 2375 | ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr); |
51371543 GS |
2376 | } |
2377 | ||
954c1994 GS |
2378 | #undef Perl_save_gp |
2379 | void | |
2380 | Perl_save_gp(pTHXo_ GV* gv, I32 empty) | |
51371543 | 2381 | { |
954c1994 | 2382 | ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty); |
51371543 GS |
2383 | } |
2384 | ||
954c1994 GS |
2385 | #undef Perl_save_hash |
2386 | HV* | |
2387 | Perl_save_hash(pTHXo_ GV* gv) | |
51371543 | 2388 | { |
954c1994 | 2389 | return ((CPerlObj*)pPerl)->Perl_save_hash(gv); |
51371543 GS |
2390 | } |
2391 | ||
954c1994 GS |
2392 | #undef Perl_save_helem |
2393 | void | |
2394 | Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr) | |
51371543 | 2395 | { |
954c1994 | 2396 | ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr); |
51371543 GS |
2397 | } |
2398 | ||
954c1994 GS |
2399 | #undef Perl_save_hints |
2400 | void | |
2401 | Perl_save_hints(pTHXo) | |
51371543 | 2402 | { |
954c1994 | 2403 | ((CPerlObj*)pPerl)->Perl_save_hints(); |
51371543 GS |
2404 | } |
2405 | ||
954c1994 GS |
2406 | #undef Perl_save_hptr |
2407 | void | |
2408 | Perl_save_hptr(pTHXo_ HV** hptr) | |
51371543 | 2409 | { |
954c1994 | 2410 | ((CPerlObj*)pPerl)->Perl_save_hptr(hptr); |
51371543 GS |
2411 | } |
2412 | ||
954c1994 GS |
2413 | #undef Perl_save_I16 |
2414 | void | |
2415 | Perl_save_I16(pTHXo_ I16* intp) | |
51371543 | 2416 | { |
954c1994 | 2417 | ((CPerlObj*)pPerl)->Perl_save_I16(intp); |
51371543 GS |
2418 | } |
2419 | ||
954c1994 GS |
2420 | #undef Perl_save_I32 |
2421 | void | |
2422 | Perl_save_I32(pTHXo_ I32* intp) | |
51371543 | 2423 | { |
954c1994 | 2424 | ((CPerlObj*)pPerl)->Perl_save_I32(intp); |
51371543 GS |
2425 | } |
2426 | ||
954c1994 GS |
2427 | #undef Perl_save_I8 |
2428 | void | |
2429 | Perl_save_I8(pTHXo_ I8* bytep) | |
cd06dffe | 2430 | { |
954c1994 | 2431 | ((CPerlObj*)pPerl)->Perl_save_I8(bytep); |
cd06dffe GS |
2432 | } |
2433 | ||
954c1994 GS |
2434 | #undef Perl_save_int |
2435 | void | |
2436 | Perl_save_int(pTHXo_ int* intp) | |
51371543 | 2437 | { |
954c1994 | 2438 | ((CPerlObj*)pPerl)->Perl_save_int(intp); |
51371543 GS |
2439 | } |
2440 | ||
954c1994 GS |
2441 | #undef Perl_save_item |
2442 | void | |
2443 | Perl_save_item(pTHXo_ SV* item) | |
51371543 | 2444 | { |
954c1994 | 2445 | ((CPerlObj*)pPerl)->Perl_save_item(item); |
51371543 GS |
2446 | } |
2447 | ||
954c1994 GS |
2448 | #undef Perl_save_iv |
2449 | void | |
2450 | Perl_save_iv(pTHXo_ IV* iv) | |
51371543 | 2451 | { |
954c1994 | 2452 | ((CPerlObj*)pPerl)->Perl_save_iv(iv); |
51371543 GS |
2453 | } |
2454 | ||
954c1994 GS |
2455 | #undef Perl_save_list |
2456 | void | |
2457 | Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg) | |
51371543 | 2458 | { |
954c1994 | 2459 | ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg); |
51371543 GS |
2460 | } |
2461 | ||
954c1994 GS |
2462 | #undef Perl_save_long |
2463 | void | |
2464 | Perl_save_long(pTHXo_ long* longp) | |
51371543 | 2465 | { |
954c1994 | 2466 | ((CPerlObj*)pPerl)->Perl_save_long(longp); |
51371543 GS |
2467 | } |
2468 | ||
954c1994 GS |
2469 | #undef Perl_save_nogv |
2470 | void | |
2471 | Perl_save_nogv(pTHXo_ GV* gv) | |
51371543 | 2472 | { |
954c1994 | 2473 | ((CPerlObj*)pPerl)->Perl_save_nogv(gv); |
51371543 GS |
2474 | } |
2475 | ||
954c1994 GS |
2476 | #undef Perl_save_scalar |
2477 | SV* | |
2478 | Perl_save_scalar(pTHXo_ GV* gv) | |
51371543 | 2479 | { |
954c1994 | 2480 | return ((CPerlObj*)pPerl)->Perl_save_scalar(gv); |
51371543 GS |
2481 | } |
2482 | ||
954c1994 GS |
2483 | #undef Perl_save_pptr |
2484 | void | |
2485 | Perl_save_pptr(pTHXo_ char** pptr) | |
51371543 | 2486 | { |
954c1994 | 2487 | ((CPerlObj*)pPerl)->Perl_save_pptr(pptr); |
51371543 GS |
2488 | } |
2489 | ||
954c1994 GS |
2490 | #undef Perl_save_vptr |
2491 | void | |
2492 | Perl_save_vptr(pTHXo_ void* pptr) | |
51371543 | 2493 | { |
954c1994 | 2494 | ((CPerlObj*)pPerl)->Perl_save_vptr(pptr); |
51371543 GS |
2495 | } |
2496 | ||
954c1994 GS |
2497 | #undef Perl_save_re_context |
2498 | void | |
2499 | Perl_save_re_context(pTHXo) | |
51371543 | 2500 | { |
954c1994 | 2501 | ((CPerlObj*)pPerl)->Perl_save_re_context(); |
51371543 GS |
2502 | } |
2503 | ||
954c1994 GS |
2504 | #undef Perl_save_sptr |
2505 | void | |
2506 | Perl_save_sptr(pTHXo_ SV** sptr) | |
51371543 | 2507 | { |
954c1994 | 2508 | ((CPerlObj*)pPerl)->Perl_save_sptr(sptr); |
51371543 GS |
2509 | } |
2510 | ||
954c1994 GS |
2511 | #undef Perl_save_svref |
2512 | SV* | |
2513 | Perl_save_svref(pTHXo_ SV** sptr) | |
51371543 | 2514 | { |
954c1994 | 2515 | return ((CPerlObj*)pPerl)->Perl_save_svref(sptr); |
51371543 GS |
2516 | } |
2517 | ||
954c1994 GS |
2518 | #undef Perl_save_threadsv |
2519 | SV** | |
2520 | Perl_save_threadsv(pTHXo_ PADOFFSET i) | |
51371543 | 2521 | { |
954c1994 | 2522 | return ((CPerlObj*)pPerl)->Perl_save_threadsv(i); |
51371543 | 2523 | } |
1be9d9c6 GS |
2524 | |
2525 | #undef Perl_scan_bin | |
2526 | NV | |
2527 | Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen) | |
2528 | { | |
2529 | return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen); | |
2530 | } | |
2531 | ||
2532 | #undef Perl_scan_hex | |
2533 | NV | |
2534 | Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen) | |
2535 | { | |
2536 | return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen); | |
2537 | } | |
2538 | ||
2539 | #undef Perl_scan_num | |
2540 | char* | |
2541 | Perl_scan_num(pTHXo_ char* s) | |
2542 | { | |
2543 | return ((CPerlObj*)pPerl)->Perl_scan_num(s); | |
2544 | } | |
2545 | ||
2546 | #undef Perl_scan_oct | |
2547 | NV | |
2548 | Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen) | |
2549 | { | |
2550 | return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen); | |
2551 | } | |
2552 | ||
2553 | #undef Perl_screaminstr | |
2554 | char* | |
2555 | Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last) | |
2556 | { | |
2557 | return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last); | |
2558 | } | |
954c1994 GS |
2559 | #if !defined(VMS) |
2560 | #endif | |
51371543 | 2561 | |
1be9d9c6 GS |
2562 | #undef Perl_sharepvn |
2563 | char* | |
2564 | Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash) | |
2565 | { | |
2566 | return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash); | |
2567 | } | |
2568 | ||
954c1994 GS |
2569 | #undef Perl_stack_grow |
2570 | SV** | |
2571 | Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n) | |
51371543 | 2572 | { |
954c1994 | 2573 | return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n); |
51371543 GS |
2574 | } |
2575 | ||
954c1994 GS |
2576 | #undef Perl_start_subparse |
2577 | I32 | |
2578 | Perl_start_subparse(pTHXo_ I32 is_format, U32 flags) | |
51371543 | 2579 | { |
954c1994 | 2580 | return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags); |
51371543 GS |
2581 | } |
2582 | ||
954c1994 GS |
2583 | #undef Perl_sv_2bool |
2584 | bool | |
2585 | Perl_sv_2bool(pTHXo_ SV* sv) | |
51371543 | 2586 | { |
954c1994 | 2587 | return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv); |
51371543 GS |
2588 | } |
2589 | ||
954c1994 GS |
2590 | #undef Perl_sv_2cv |
2591 | CV* | |
2592 | Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref) | |
51371543 | 2593 | { |
954c1994 | 2594 | return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref); |
51371543 GS |
2595 | } |
2596 | ||
954c1994 GS |
2597 | #undef Perl_sv_2io |
2598 | IO* | |
2599 | Perl_sv_2io(pTHXo_ SV* sv) | |
51371543 | 2600 | { |
954c1994 | 2601 | return ((CPerlObj*)pPerl)->Perl_sv_2io(sv); |
51371543 GS |
2602 | } |
2603 | ||
954c1994 GS |
2604 | #undef Perl_sv_2iv |
2605 | IV | |
2606 | Perl_sv_2iv(pTHXo_ SV* sv) | |
f5d5a27c | 2607 | { |
954c1994 | 2608 | return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv); |
f5d5a27c CS |
2609 | } |
2610 | ||
954c1994 GS |
2611 | #undef Perl_sv_2mortal |
2612 | SV* | |
2613 | Perl_sv_2mortal(pTHXo_ SV* sv) | |
51371543 | 2614 | { |
954c1994 | 2615 | return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv); |
51371543 GS |
2616 | } |
2617 | ||
954c1994 GS |
2618 | #undef Perl_sv_2nv |
2619 | NV | |
2620 | Perl_sv_2nv(pTHXo_ SV* sv) | |
51371543 | 2621 | { |
954c1994 | 2622 | return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv); |
51371543 GS |
2623 | } |
2624 | ||
954c1994 GS |
2625 | #undef Perl_sv_2pv |
2626 | char* | |
2627 | Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2628 | { |
954c1994 | 2629 | return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp); |
51371543 GS |
2630 | } |
2631 | ||
954c1994 GS |
2632 | #undef Perl_sv_2pvutf8 |
2633 | char* | |
2634 | Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2635 | { |
954c1994 | 2636 | return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp); |
51371543 GS |
2637 | } |
2638 | ||
954c1994 GS |
2639 | #undef Perl_sv_2pvbyte |
2640 | char* | |
2641 | Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2642 | { |
954c1994 | 2643 | return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp); |
51371543 GS |
2644 | } |
2645 | ||
954c1994 GS |
2646 | #undef Perl_sv_2uv |
2647 | UV | |
2648 | Perl_sv_2uv(pTHXo_ SV* sv) | |
51371543 | 2649 | { |
954c1994 | 2650 | return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv); |
51371543 GS |
2651 | } |
2652 | ||
954c1994 GS |
2653 | #undef Perl_sv_iv |
2654 | IV | |
2655 | Perl_sv_iv(pTHXo_ SV* sv) | |
51371543 | 2656 | { |
954c1994 | 2657 | return ((CPerlObj*)pPerl)->Perl_sv_iv(sv); |
51371543 GS |
2658 | } |
2659 | ||
954c1994 GS |
2660 | #undef Perl_sv_uv |
2661 | UV | |
2662 | Perl_sv_uv(pTHXo_ SV* sv) | |
51371543 | 2663 | { |
954c1994 | 2664 | return ((CPerlObj*)pPerl)->Perl_sv_uv(sv); |
51371543 GS |
2665 | } |
2666 | ||
954c1994 GS |
2667 | #undef Perl_sv_nv |
2668 | NV | |
2669 | Perl_sv_nv(pTHXo_ SV* sv) | |
51371543 | 2670 | { |
954c1994 | 2671 | return ((CPerlObj*)pPerl)->Perl_sv_nv(sv); |
51371543 GS |
2672 | } |
2673 | ||
954c1994 GS |
2674 | #undef Perl_sv_pvn |
2675 | char* | |
2676 | Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2677 | { |
954c1994 | 2678 | return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len); |
51371543 GS |
2679 | } |
2680 | ||
954c1994 GS |
2681 | #undef Perl_sv_pvutf8n |
2682 | char* | |
2683 | Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2684 | { |
954c1994 | 2685 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len); |
51371543 GS |
2686 | } |
2687 | ||
954c1994 GS |
2688 | #undef Perl_sv_pvbyten |
2689 | char* | |
2690 | Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2691 | { |
954c1994 | 2692 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len); |
51371543 GS |
2693 | } |
2694 | ||
954c1994 GS |
2695 | #undef Perl_sv_true |
2696 | I32 | |
2697 | Perl_sv_true(pTHXo_ SV *sv) | |
51371543 | 2698 | { |
954c1994 | 2699 | return ((CPerlObj*)pPerl)->Perl_sv_true(sv); |
51371543 GS |
2700 | } |
2701 | ||
954c1994 GS |
2702 | #undef Perl_sv_backoff |
2703 | int | |
2704 | Perl_sv_backoff(pTHXo_ SV* sv) | |
51371543 | 2705 | { |
954c1994 | 2706 | return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv); |
51371543 GS |
2707 | } |
2708 | ||
954c1994 GS |
2709 | #undef Perl_sv_bless |
2710 | SV* | |
2711 | Perl_sv_bless(pTHXo_ SV* sv, HV* stash) | |
51371543 | 2712 | { |
954c1994 | 2713 | return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash); |
51371543 GS |
2714 | } |
2715 | ||
954c1994 GS |
2716 | #undef Perl_sv_catpvf |
2717 | void | |
2718 | Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...) | |
51371543 | 2719 | { |
954c1994 GS |
2720 | va_list args; |
2721 | va_start(args, pat); | |
2722 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); | |
2723 | va_end(args); | |
51371543 GS |
2724 | } |
2725 | ||
954c1994 GS |
2726 | #undef Perl_sv_vcatpvf |
2727 | void | |
2728 | Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 2729 | { |
954c1994 | 2730 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args); |
51371543 GS |
2731 | } |
2732 | ||
954c1994 GS |
2733 | #undef Perl_sv_catpv |
2734 | void | |
2735 | Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr) | |
51371543 | 2736 | { |
954c1994 | 2737 | ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr); |
51371543 GS |
2738 | } |
2739 | ||
954c1994 GS |
2740 | #undef Perl_sv_catpvn |
2741 | void | |
2742 | Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) | |
51371543 | 2743 | { |
954c1994 | 2744 | ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len); |
51371543 GS |
2745 | } |
2746 | ||
954c1994 GS |
2747 | #undef Perl_sv_catsv |
2748 | void | |
2749 | Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv) | |
51371543 | 2750 | { |
954c1994 | 2751 | ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv); |
51371543 GS |
2752 | } |
2753 | ||
954c1994 GS |
2754 | #undef Perl_sv_chop |
2755 | void | |
2756 | Perl_sv_chop(pTHXo_ SV* sv, char* ptr) | |
51371543 | 2757 | { |
954c1994 | 2758 | ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr); |
51371543 GS |
2759 | } |
2760 | ||
954c1994 GS |
2761 | #undef Perl_sv_clear |
2762 | void | |
2763 | Perl_sv_clear(pTHXo_ SV* sv) | |
51371543 | 2764 | { |
954c1994 | 2765 | ((CPerlObj*)pPerl)->Perl_sv_clear(sv); |
51371543 GS |
2766 | } |
2767 | ||
954c1994 GS |
2768 | #undef Perl_sv_cmp |
2769 | I32 | |
2770 | Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 2771 | { |
954c1994 | 2772 | return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2); |
51371543 GS |
2773 | } |
2774 | ||
954c1994 GS |
2775 | #undef Perl_sv_cmp_locale |
2776 | I32 | |
2777 | Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 2778 | { |
954c1994 | 2779 | return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2); |
51371543 | 2780 | } |
954c1994 | 2781 | #if defined(USE_LOCALE_COLLATE) |
51371543 | 2782 | |
954c1994 GS |
2783 | #undef Perl_sv_collxfrm |
2784 | char* | |
2785 | Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp) | |
51371543 | 2786 | { |
954c1994 | 2787 | return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp); |
51371543 | 2788 | } |
954c1994 | 2789 | #endif |
51371543 | 2790 | |
1be9d9c6 GS |
2791 | #undef Perl_sv_compile_2op |
2792 | OP* | |
2793 | Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp) | |
2794 | { | |
2795 | return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp); | |
2796 | } | |
2797 | ||
954c1994 GS |
2798 | #undef Perl_sv_dec |
2799 | void | |
2800 | Perl_sv_dec(pTHXo_ SV* sv) | |
51371543 | 2801 | { |
954c1994 | 2802 | ((CPerlObj*)pPerl)->Perl_sv_dec(sv); |
51371543 GS |
2803 | } |
2804 | ||
954c1994 GS |
2805 | #undef Perl_sv_dump |
2806 | void | |
2807 | Perl_sv_dump(pTHXo_ SV* sv) | |
51371543 | 2808 | { |
954c1994 | 2809 | ((CPerlObj*)pPerl)->Perl_sv_dump(sv); |
51371543 GS |
2810 | } |
2811 | ||
954c1994 GS |
2812 | #undef Perl_sv_derived_from |
2813 | bool | |
2814 | Perl_sv_derived_from(pTHXo_ SV* sv, const char* name) | |
51371543 | 2815 | { |
954c1994 | 2816 | return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name); |
51371543 GS |
2817 | } |
2818 | ||
954c1994 GS |
2819 | #undef Perl_sv_eq |
2820 | I32 | |
2821 | Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 2822 | { |
954c1994 | 2823 | return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2); |
51371543 GS |
2824 | } |
2825 | ||
954c1994 GS |
2826 | #undef Perl_sv_free |
2827 | void | |
2828 | Perl_sv_free(pTHXo_ SV* sv) | |
51371543 | 2829 | { |
954c1994 | 2830 | ((CPerlObj*)pPerl)->Perl_sv_free(sv); |
51371543 GS |
2831 | } |
2832 | ||
1be9d9c6 GS |
2833 | #undef Perl_sv_gets |
2834 | char* | |
2835 | Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append) | |
2836 | { | |
2837 | return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append); | |
2838 | } | |
2839 | ||
954c1994 GS |
2840 | #undef Perl_sv_grow |
2841 | char* | |
2842 | Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen) | |
51371543 | 2843 | { |
954c1994 | 2844 | return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen); |
51371543 GS |
2845 | } |
2846 | ||
954c1994 GS |
2847 | #undef Perl_sv_inc |
2848 | void | |
2849 | Perl_sv_inc(pTHXo_ SV* sv) | |
51371543 | 2850 | { |
954c1994 | 2851 | ((CPerlObj*)pPerl)->Perl_sv_inc(sv); |
51371543 GS |
2852 | } |
2853 | ||
954c1994 GS |
2854 | #undef Perl_sv_insert |
2855 | void | |
2856 | Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen) | |
51371543 | 2857 | { |
954c1994 | 2858 | ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen); |
51371543 GS |
2859 | } |
2860 | ||
954c1994 GS |
2861 | #undef Perl_sv_isa |
2862 | int | |
2863 | Perl_sv_isa(pTHXo_ SV* sv, const char* name) | |
51371543 | 2864 | { |
954c1994 | 2865 | return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name); |
51371543 GS |
2866 | } |
2867 | ||
954c1994 GS |
2868 | #undef Perl_sv_isobject |
2869 | int | |
2870 | Perl_sv_isobject(pTHXo_ SV* sv) | |
51371543 | 2871 | { |
954c1994 | 2872 | return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv); |
51371543 GS |
2873 | } |
2874 | ||
954c1994 GS |
2875 | #undef Perl_sv_len |
2876 | STRLEN | |
2877 | Perl_sv_len(pTHXo_ SV* sv) | |
51371543 | 2878 | { |
954c1994 | 2879 | return ((CPerlObj*)pPerl)->Perl_sv_len(sv); |
51371543 GS |
2880 | } |
2881 | ||
954c1994 GS |
2882 | #undef Perl_sv_len_utf8 |
2883 | STRLEN | |
2884 | Perl_sv_len_utf8(pTHXo_ SV* sv) | |
51371543 | 2885 | { |
954c1994 | 2886 | return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv); |
51371543 GS |
2887 | } |
2888 | ||
954c1994 GS |
2889 | #undef Perl_sv_magic |
2890 | void | |
2891 | Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen) | |
51371543 | 2892 | { |
954c1994 | 2893 | ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen); |
51371543 GS |
2894 | } |
2895 | ||
954c1994 GS |
2896 | #undef Perl_sv_mortalcopy |
2897 | SV* | |
2898 | Perl_sv_mortalcopy(pTHXo_ SV* oldsv) | |
51371543 | 2899 | { |
954c1994 | 2900 | return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv); |
51371543 GS |
2901 | } |
2902 | ||
954c1994 GS |
2903 | #undef Perl_sv_newmortal |
2904 | SV* | |
2905 | Perl_sv_newmortal(pTHXo) | |
51371543 | 2906 | { |
954c1994 | 2907 | return ((CPerlObj*)pPerl)->Perl_sv_newmortal(); |
51371543 GS |
2908 | } |
2909 | ||
954c1994 GS |
2910 | #undef Perl_sv_newref |
2911 | SV* | |
2912 | Perl_sv_newref(pTHXo_ SV* sv) | |
51371543 | 2913 | { |
954c1994 | 2914 | return ((CPerlObj*)pPerl)->Perl_sv_newref(sv); |
51371543 GS |
2915 | } |
2916 | ||
954c1994 GS |
2917 | #undef Perl_sv_peek |
2918 | char* | |
2919 | Perl_sv_peek(pTHXo_ SV* sv) | |
51371543 | 2920 | { |
954c1994 | 2921 | return ((CPerlObj*)pPerl)->Perl_sv_peek(sv); |
51371543 GS |
2922 | } |
2923 | ||
954c1994 GS |
2924 | #undef Perl_sv_pos_u2b |
2925 | void | |
2926 | Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp) | |
51371543 | 2927 | { |
954c1994 | 2928 | ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp); |
51371543 GS |
2929 | } |
2930 | ||
954c1994 GS |
2931 | #undef Perl_sv_pos_b2u |
2932 | void | |
2933 | Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp) | |
51371543 | 2934 | { |
954c1994 | 2935 | ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp); |
51371543 GS |
2936 | } |
2937 | ||
954c1994 GS |
2938 | #undef Perl_sv_pvn_force |
2939 | char* | |
2940 | Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2941 | { |
954c1994 | 2942 | return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp); |
51371543 GS |
2943 | } |
2944 | ||
954c1994 GS |
2945 | #undef Perl_sv_pvutf8n_force |
2946 | char* | |
2947 | Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2948 | { |
954c1994 | 2949 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp); |
51371543 GS |
2950 | } |
2951 | ||
954c1994 GS |
2952 | #undef Perl_sv_pvbyten_force |
2953 | char* | |
2954 | Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2955 | { |
954c1994 | 2956 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp); |
51371543 GS |
2957 | } |
2958 | ||
954c1994 GS |
2959 | #undef Perl_sv_reftype |
2960 | char* | |
2961 | Perl_sv_reftype(pTHXo_ SV* sv, int ob) | |
51371543 | 2962 | { |
954c1994 | 2963 | return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob); |
51371543 GS |
2964 | } |
2965 | ||
954c1994 GS |
2966 | #undef Perl_sv_replace |
2967 | void | |
2968 | Perl_sv_replace(pTHXo_ SV* sv, SV* nsv) | |
51371543 | 2969 | { |
954c1994 | 2970 | ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv); |
51371543 GS |
2971 | } |
2972 | ||
954c1994 GS |
2973 | #undef Perl_sv_report_used |
2974 | void | |
2975 | Perl_sv_report_used(pTHXo) | |
51371543 | 2976 | { |
954c1994 | 2977 | ((CPerlObj*)pPerl)->Perl_sv_report_used(); |
51371543 GS |
2978 | } |
2979 | ||
954c1994 GS |
2980 | #undef Perl_sv_reset |
2981 | void | |
2982 | Perl_sv_reset(pTHXo_ char* s, HV* stash) | |
51371543 | 2983 | { |
954c1994 | 2984 | ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash); |
51371543 GS |
2985 | } |
2986 | ||
954c1994 GS |
2987 | #undef Perl_sv_setpvf |
2988 | void | |
2989 | Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...) | |
51371543 | 2990 | { |
954c1994 GS |
2991 | va_list args; |
2992 | va_start(args, pat); | |
2993 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); | |
2994 | va_end(args); | |
51371543 GS |
2995 | } |
2996 | ||
954c1994 GS |
2997 | #undef Perl_sv_vsetpvf |
2998 | void | |
2999 | Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3000 | { |
954c1994 | 3001 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args); |
51371543 GS |
3002 | } |
3003 | ||
954c1994 GS |
3004 | #undef Perl_sv_setiv |
3005 | void | |
3006 | Perl_sv_setiv(pTHXo_ SV* sv, IV num) | |
51371543 | 3007 | { |
954c1994 | 3008 | ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num); |
51371543 GS |
3009 | } |
3010 | ||
954c1994 GS |
3011 | #undef Perl_sv_setpviv |
3012 | void | |
3013 | Perl_sv_setpviv(pTHXo_ SV* sv, IV num) | |
51371543 | 3014 | { |
954c1994 | 3015 | ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num); |
51371543 GS |
3016 | } |
3017 | ||
954c1994 GS |
3018 | #undef Perl_sv_setuv |
3019 | void | |
3020 | Perl_sv_setuv(pTHXo_ SV* sv, UV num) | |
51371543 | 3021 | { |
954c1994 | 3022 | ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num); |
51371543 GS |
3023 | } |
3024 | ||
954c1994 GS |
3025 | #undef Perl_sv_setnv |
3026 | void | |
3027 | Perl_sv_setnv(pTHXo_ SV* sv, NV num) | |
51371543 | 3028 | { |
954c1994 | 3029 | ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num); |
51371543 GS |
3030 | } |
3031 | ||
954c1994 GS |
3032 | #undef Perl_sv_setref_iv |
3033 | SV* | |
3034 | Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv) | |
51371543 | 3035 | { |
954c1994 | 3036 | return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv); |
51371543 GS |
3037 | } |
3038 | ||
954c1994 GS |
3039 | #undef Perl_sv_setref_nv |
3040 | SV* | |
3041 | Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv) | |
51371543 | 3042 | { |
954c1994 | 3043 | return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv); |
51371543 GS |
3044 | } |
3045 | ||
954c1994 GS |
3046 | #undef Perl_sv_setref_pv |
3047 | SV* | |
3048 | Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv) | |
51371543 | 3049 | { |
954c1994 | 3050 | return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv); |
51371543 GS |
3051 | } |
3052 | ||
954c1994 GS |
3053 | #undef Perl_sv_setref_pvn |
3054 | SV* | |
3055 | Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n) | |
51371543 | 3056 | { |
954c1994 | 3057 | return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n); |
51371543 GS |
3058 | } |
3059 | ||
954c1994 GS |
3060 | #undef Perl_sv_setpv |
3061 | void | |
3062 | Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr) | |
51371543 | 3063 | { |
954c1994 | 3064 | ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr); |
51371543 GS |
3065 | } |
3066 | ||
954c1994 GS |
3067 | #undef Perl_sv_setpvn |
3068 | void | |
3069 | Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) | |
51371543 | 3070 | { |
954c1994 | 3071 | ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len); |
51371543 GS |
3072 | } |
3073 | ||
954c1994 GS |
3074 | #undef Perl_sv_setsv |
3075 | void | |
3076 | Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv) | |
51371543 | 3077 | { |
954c1994 | 3078 | ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv); |
51371543 GS |
3079 | } |
3080 | ||
954c1994 GS |
3081 | #undef Perl_sv_taint |
3082 | void | |
3083 | Perl_sv_taint(pTHXo_ SV* sv) | |
51371543 | 3084 | { |
954c1994 | 3085 | ((CPerlObj*)pPerl)->Perl_sv_taint(sv); |
51371543 GS |
3086 | } |
3087 | ||
954c1994 GS |
3088 | #undef Perl_sv_tainted |
3089 | bool | |
3090 | Perl_sv_tainted(pTHXo_ SV* sv) | |
51371543 | 3091 | { |
954c1994 | 3092 | return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv); |
51371543 GS |
3093 | } |
3094 | ||
954c1994 GS |
3095 | #undef Perl_sv_unmagic |
3096 | int | |
3097 | Perl_sv_unmagic(pTHXo_ SV* sv, int type) | |
51371543 | 3098 | { |
954c1994 | 3099 | return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type); |
51371543 GS |
3100 | } |
3101 | ||
954c1994 GS |
3102 | #undef Perl_sv_unref |
3103 | void | |
3104 | Perl_sv_unref(pTHXo_ SV* sv) | |
51371543 | 3105 | { |
954c1994 | 3106 | ((CPerlObj*)pPerl)->Perl_sv_unref(sv); |
51371543 GS |
3107 | } |
3108 | ||
954c1994 GS |
3109 | #undef Perl_sv_untaint |
3110 | void | |
3111 | Perl_sv_untaint(pTHXo_ SV* sv) | |
51371543 | 3112 | { |
954c1994 | 3113 | ((CPerlObj*)pPerl)->Perl_sv_untaint(sv); |
51371543 GS |
3114 | } |
3115 | ||
954c1994 GS |
3116 | #undef Perl_sv_upgrade |
3117 | bool | |
3118 | Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt) | |
51371543 | 3119 | { |
954c1994 | 3120 | return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt); |
51371543 GS |
3121 | } |
3122 | ||
954c1994 GS |
3123 | #undef Perl_sv_usepvn |
3124 | void | |
3125 | Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len) | |
51371543 | 3126 | { |
954c1994 | 3127 | ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len); |
51371543 GS |
3128 | } |
3129 | ||
954c1994 GS |
3130 | #undef Perl_sv_vcatpvfn |
3131 | void | |
3132 | Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) | |
51371543 | 3133 | { |
954c1994 | 3134 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); |
51371543 GS |
3135 | } |
3136 | ||
954c1994 GS |
3137 | #undef Perl_sv_vsetpvfn |
3138 | void | |
3139 | Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) | |
51371543 | 3140 | { |
954c1994 | 3141 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); |
51371543 GS |
3142 | } |
3143 | ||
1be9d9c6 GS |
3144 | #undef Perl_swash_init |
3145 | SV* | |
3146 | Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none) | |
3147 | { | |
3148 | return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none); | |
3149 | } | |
3150 | ||
3151 | #undef Perl_swash_fetch | |
3152 | UV | |
3153 | Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr) | |
3154 | { | |
3155 | return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr); | |
3156 | } | |
3157 | ||
954c1994 GS |
3158 | #undef Perl_taint_env |
3159 | void | |
3160 | Perl_taint_env(pTHXo) | |
51371543 | 3161 | { |
954c1994 | 3162 | ((CPerlObj*)pPerl)->Perl_taint_env(); |
51371543 GS |
3163 | } |
3164 | ||
954c1994 GS |
3165 | #undef Perl_taint_proper |
3166 | void | |
3167 | Perl_taint_proper(pTHXo_ const char* f, const char* s) | |
51371543 | 3168 | { |
954c1994 | 3169 | ((CPerlObj*)pPerl)->Perl_taint_proper(f, s); |
51371543 GS |
3170 | } |
3171 | ||
954c1994 GS |
3172 | #undef Perl_to_utf8_lower |
3173 | UV | |
3174 | Perl_to_utf8_lower(pTHXo_ U8 *p) | |
51371543 | 3175 | { |
954c1994 | 3176 | return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p); |
51371543 GS |
3177 | } |
3178 | ||
954c1994 GS |
3179 | #undef Perl_to_utf8_upper |
3180 | UV | |
3181 | Perl_to_utf8_upper(pTHXo_ U8 *p) | |
51371543 | 3182 | { |
954c1994 | 3183 | return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p); |
51371543 GS |
3184 | } |
3185 | ||
954c1994 GS |
3186 | #undef Perl_to_utf8_title |
3187 | UV | |
3188 | Perl_to_utf8_title(pTHXo_ U8 *p) | |
51371543 | 3189 | { |
954c1994 | 3190 | return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p); |
51371543 | 3191 | } |
954c1994 | 3192 | #if defined(UNLINK_ALL_VERSIONS) |
51371543 | 3193 | |
954c1994 GS |
3194 | #undef Perl_unlnk |
3195 | I32 | |
3196 | Perl_unlnk(pTHXo_ char* f) | |
51371543 | 3197 | { |
954c1994 | 3198 | return ((CPerlObj*)pPerl)->Perl_unlnk(f); |
51371543 | 3199 | } |
954c1994 GS |
3200 | #endif |
3201 | #if defined(USE_THREADS) | |
1be9d9c6 GS |
3202 | |
3203 | #undef Perl_unlock_condpair | |
3204 | void | |
3205 | Perl_unlock_condpair(pTHXo_ void* svv) | |
3206 | { | |
3207 | ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv); | |
3208 | } | |
954c1994 | 3209 | #endif |
51371543 | 3210 | |
1be9d9c6 GS |
3211 | #undef Perl_unsharepvn |
3212 | void | |
3213 | Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash) | |
3214 | { | |
3215 | ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash); | |
3216 | } | |
3217 | ||
954c1994 GS |
3218 | #undef Perl_utf16_to_utf8 |
3219 | U8* | |
3220 | Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen) | |
51371543 | 3221 | { |
954c1994 | 3222 | return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen); |
51371543 GS |
3223 | } |
3224 | ||
954c1994 GS |
3225 | #undef Perl_utf16_to_utf8_reversed |
3226 | U8* | |
3227 | Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen) | |
51371543 | 3228 | { |
954c1994 | 3229 | return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen); |
51371543 GS |
3230 | } |
3231 | ||
954c1994 GS |
3232 | #undef Perl_utf8_distance |
3233 | I32 | |
3234 | Perl_utf8_distance(pTHXo_ U8 *a, U8 *b) | |
51371543 | 3235 | { |
954c1994 | 3236 | return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b); |
51371543 GS |
3237 | } |
3238 | ||
954c1994 GS |
3239 | #undef Perl_utf8_hop |
3240 | U8* | |
3241 | Perl_utf8_hop(pTHXo_ U8 *s, I32 off) | |
51371543 | 3242 | { |
954c1994 | 3243 | return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off); |
51371543 GS |
3244 | } |
3245 | ||
954c1994 GS |
3246 | #undef Perl_utf8_to_uv |
3247 | UV | |
3248 | Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen) | |
51371543 | 3249 | { |
954c1994 | 3250 | return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen); |
51371543 GS |
3251 | } |
3252 | ||
954c1994 GS |
3253 | #undef Perl_uv_to_utf8 |
3254 | U8* | |
3255 | Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv) | |
51371543 | 3256 | { |
954c1994 | 3257 | return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv); |
51371543 GS |
3258 | } |
3259 | ||
954c1994 GS |
3260 | #undef Perl_warn |
3261 | void | |
3262 | Perl_warn(pTHXo_ const char* pat, ...) | |
51371543 | 3263 | { |
954c1994 GS |
3264 | va_list args; |
3265 | va_start(args, pat); | |
3266 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); | |
3267 | va_end(args); | |
51371543 GS |
3268 | } |
3269 | ||
954c1994 GS |
3270 | #undef Perl_vwarn |
3271 | void | |
3272 | Perl_vwarn(pTHXo_ const char* pat, va_list* args) | |
7399586d | 3273 | { |
954c1994 | 3274 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, args); |
7399586d HS |
3275 | } |
3276 | ||
954c1994 GS |
3277 | #undef Perl_warner |
3278 | void | |
3279 | Perl_warner(pTHXo_ U32 err, const char* pat, ...) | |
51371543 | 3280 | { |
954c1994 GS |
3281 | va_list args; |
3282 | va_start(args, pat); | |
3283 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); | |
3284 | va_end(args); | |
51371543 GS |
3285 | } |
3286 | ||
954c1994 GS |
3287 | #undef Perl_vwarner |
3288 | void | |
3289 | Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args) | |
51371543 | 3290 | { |
954c1994 | 3291 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args); |
51371543 | 3292 | } |
954c1994 GS |
3293 | #if defined(USE_PURE_BISON) |
3294 | #else | |
3295 | #endif | |
3296 | #if defined(MYMALLOC) | |
51371543 | 3297 | |
954c1994 GS |
3298 | #undef Perl_dump_mstats |
3299 | void | |
3300 | Perl_dump_mstats(pTHXo_ char* s) | |
51371543 | 3301 | { |
954c1994 | 3302 | ((CPerlObj*)pPerl)->Perl_dump_mstats(s); |
51371543 | 3303 | } |
954c1994 | 3304 | #endif |
51371543 | 3305 | |
954c1994 GS |
3306 | #undef Perl_safesysmalloc |
3307 | Malloc_t | |
3308 | Perl_safesysmalloc(MEM_SIZE nbytes) | |
51371543 | 3309 | { |
954c1994 GS |
3310 | dTHXo; |
3311 | return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes); | |
51371543 GS |
3312 | } |
3313 | ||
954c1994 GS |
3314 | #undef Perl_safesyscalloc |
3315 | Malloc_t | |
3316 | Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) | |
51371543 | 3317 | { |
954c1994 GS |
3318 | dTHXo; |
3319 | return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size); | |
51371543 GS |
3320 | } |
3321 | ||
954c1994 GS |
3322 | #undef Perl_safesysrealloc |
3323 | Malloc_t | |
3324 | Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) | |
51371543 | 3325 | { |
954c1994 GS |
3326 | dTHXo; |
3327 | return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes); | |
51371543 GS |
3328 | } |
3329 | ||
954c1994 GS |
3330 | #undef Perl_safesysfree |
3331 | Free_t | |
3332 | Perl_safesysfree(Malloc_t where) | |
51371543 | 3333 | { |
954c1994 GS |
3334 | dTHXo; |
3335 | ((CPerlObj*)pPerl)->Perl_safesysfree(where); | |
51371543 | 3336 | } |
954c1994 | 3337 | #if defined(LEAKTEST) |
51371543 | 3338 | |
954c1994 GS |
3339 | #undef Perl_safexmalloc |
3340 | Malloc_t | |
3341 | Perl_safexmalloc(I32 x, MEM_SIZE size) | |
51371543 | 3342 | { |
954c1994 GS |
3343 | dTHXo; |
3344 | return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size); | |
51371543 GS |
3345 | } |
3346 | ||
954c1994 GS |
3347 | #undef Perl_safexcalloc |
3348 | Malloc_t | |
3349 | Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size) | |
51371543 | 3350 | { |
954c1994 GS |
3351 | dTHXo; |
3352 | return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size); | |
51371543 GS |
3353 | } |
3354 | ||
954c1994 GS |
3355 | #undef Perl_safexrealloc |
3356 | Malloc_t | |
3357 | Perl_safexrealloc(Malloc_t where, MEM_SIZE size) | |
51371543 | 3358 | { |
954c1994 GS |
3359 | dTHXo; |
3360 | return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size); | |
51371543 GS |
3361 | } |
3362 | ||
954c1994 GS |
3363 | #undef Perl_safexfree |
3364 | void | |
3365 | Perl_safexfree(Malloc_t where) | |
51371543 | 3366 | { |
954c1994 GS |
3367 | dTHXo; |
3368 | ((CPerlObj*)pPerl)->Perl_safexfree(where); | |
51371543 | 3369 | } |
954c1994 GS |
3370 | #endif |
3371 | #if defined(PERL_GLOBAL_STRUCT) | |
51371543 | 3372 | |
954c1994 GS |
3373 | #undef Perl_GetVars |
3374 | struct perl_vars * | |
3375 | Perl_GetVars(pTHXo) | |
51371543 | 3376 | { |
954c1994 | 3377 | return ((CPerlObj*)pPerl)->Perl_GetVars(); |
51371543 | 3378 | } |
954c1994 | 3379 | #endif |
51371543 | 3380 | |
954c1994 GS |
3381 | #undef Perl_runops_standard |
3382 | int | |
3383 | Perl_runops_standard(pTHXo) | |
51371543 | 3384 | { |
954c1994 | 3385 | return ((CPerlObj*)pPerl)->Perl_runops_standard(); |
51371543 GS |
3386 | } |
3387 | ||
954c1994 GS |
3388 | #undef Perl_runops_debug |
3389 | int | |
3390 | Perl_runops_debug(pTHXo) | |
51371543 | 3391 | { |
954c1994 | 3392 | return ((CPerlObj*)pPerl)->Perl_runops_debug(); |
51371543 GS |
3393 | } |
3394 | ||
954c1994 GS |
3395 | #undef Perl_sv_catpvf_mg |
3396 | void | |
3397 | Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...) | |
51371543 | 3398 | { |
954c1994 GS |
3399 | va_list args; |
3400 | va_start(args, pat); | |
3401 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); | |
3402 | va_end(args); | |
51371543 GS |
3403 | } |
3404 | ||
954c1994 GS |
3405 | #undef Perl_sv_vcatpvf_mg |
3406 | void | |
3407 | Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3408 | { |
954c1994 | 3409 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args); |
51371543 GS |
3410 | } |
3411 | ||
954c1994 GS |
3412 | #undef Perl_sv_catpv_mg |
3413 | void | |
3414 | Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr) | |
51371543 | 3415 | { |
954c1994 | 3416 | ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr); |
51371543 GS |
3417 | } |
3418 | ||
954c1994 GS |
3419 | #undef Perl_sv_catpvn_mg |
3420 | void | |
3421 | Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) | |
51371543 | 3422 | { |
954c1994 | 3423 | ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len); |
51371543 GS |
3424 | } |
3425 | ||
954c1994 GS |
3426 | #undef Perl_sv_catsv_mg |
3427 | void | |
3428 | Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr) | |
51371543 | 3429 | { |
954c1994 | 3430 | ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr); |
51371543 GS |
3431 | } |
3432 | ||
954c1994 GS |
3433 | #undef Perl_sv_setpvf_mg |
3434 | void | |
3435 | Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...) | |
51371543 | 3436 | { |
954c1994 GS |
3437 | va_list args; |
3438 | va_start(args, pat); | |
3439 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); | |
3440 | va_end(args); | |
51371543 GS |
3441 | } |
3442 | ||
954c1994 GS |
3443 | #undef Perl_sv_vsetpvf_mg |
3444 | void | |
3445 | Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3446 | { |
954c1994 | 3447 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args); |
51371543 GS |
3448 | } |
3449 | ||
954c1994 GS |
3450 | #undef Perl_sv_setiv_mg |
3451 | void | |
3452 | Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i) | |
51371543 | 3453 | { |
954c1994 | 3454 | ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i); |
51371543 GS |
3455 | } |
3456 | ||
954c1994 GS |
3457 | #undef Perl_sv_setpviv_mg |
3458 | void | |
3459 | Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv) | |
51371543 | 3460 | { |
954c1994 | 3461 | ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv); |
51371543 GS |
3462 | } |
3463 | ||
954c1994 GS |
3464 | #undef Perl_sv_setuv_mg |
3465 | void | |
3466 | Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u) | |
51371543 | 3467 | { |
954c1994 | 3468 | ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u); |
51371543 GS |
3469 | } |
3470 | ||
954c1994 GS |
3471 | #undef Perl_sv_setnv_mg |
3472 | void | |
3473 | Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num) | |
51371543 | 3474 | { |
954c1994 | 3475 | ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num); |
51371543 GS |
3476 | } |
3477 | ||
954c1994 GS |
3478 | #undef Perl_sv_setpv_mg |
3479 | void | |
3480 | Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr) | |
51371543 | 3481 | { |
954c1994 | 3482 | ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr); |
51371543 GS |
3483 | } |
3484 | ||
954c1994 GS |
3485 | #undef Perl_sv_setpvn_mg |
3486 | void | |
3487 | Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) | |
51371543 | 3488 | { |
954c1994 | 3489 | ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len); |
51371543 GS |
3490 | } |
3491 | ||
954c1994 GS |
3492 | #undef Perl_sv_setsv_mg |
3493 | void | |
3494 | Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr) | |
51371543 | 3495 | { |
954c1994 | 3496 | ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr); |
51371543 GS |
3497 | } |
3498 | ||
954c1994 GS |
3499 | #undef Perl_sv_usepvn_mg |
3500 | void | |
3501 | Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len) | |
51371543 | 3502 | { |
954c1994 | 3503 | ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len); |
51371543 GS |
3504 | } |
3505 | ||
954c1994 GS |
3506 | #undef Perl_get_vtbl |
3507 | MGVTBL* | |
3508 | Perl_get_vtbl(pTHXo_ int vtbl_id) | |
51371543 | 3509 | { |
954c1994 | 3510 | return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id); |
51371543 GS |
3511 | } |
3512 | ||
954c1994 GS |
3513 | #undef Perl_dump_indent |
3514 | void | |
3515 | Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...) | |
51371543 | 3516 | { |
954c1994 GS |
3517 | va_list args; |
3518 | va_start(args, pat); | |
3519 | ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args); | |
3520 | va_end(args); | |
51371543 GS |
3521 | } |
3522 | ||
954c1994 GS |
3523 | #undef Perl_dump_vindent |
3524 | void | |
3525 | Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args) | |
51371543 | 3526 | { |
954c1994 | 3527 | ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args); |
51371543 GS |
3528 | } |
3529 | ||
954c1994 GS |
3530 | #undef Perl_do_gv_dump |
3531 | void | |
3532 | Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) | |
51371543 | 3533 | { |
954c1994 | 3534 | ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv); |
51371543 GS |
3535 | } |
3536 | ||
954c1994 GS |
3537 | #undef Perl_do_gvgv_dump |
3538 | void | |
3539 | Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) | |
51371543 | 3540 | { |
954c1994 | 3541 | ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv); |
51371543 GS |
3542 | } |
3543 | ||
954c1994 GS |
3544 | #undef Perl_do_hv_dump |
3545 | void | |
3546 | Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv) | |
51371543 | 3547 | { |
954c1994 | 3548 | ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv); |
51371543 GS |
3549 | } |
3550 | ||
954c1994 GS |
3551 | #undef Perl_do_magic_dump |
3552 | void | |
3553 | Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) | |
51371543 | 3554 | { |
954c1994 | 3555 | ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim); |
51371543 GS |
3556 | } |
3557 | ||
954c1994 GS |
3558 | #undef Perl_do_op_dump |
3559 | void | |
3560 | Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o) | |
51371543 | 3561 | { |
954c1994 | 3562 | ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o); |
51371543 GS |
3563 | } |
3564 | ||
954c1994 GS |
3565 | #undef Perl_do_pmop_dump |
3566 | void | |
3567 | Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm) | |
51371543 | 3568 | { |
954c1994 | 3569 | ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm); |
51371543 GS |
3570 | } |
3571 | ||
954c1994 GS |
3572 | #undef Perl_do_sv_dump |
3573 | void | |
3574 | Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) | |
51371543 | 3575 | { |
954c1994 | 3576 | ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim); |
51371543 GS |
3577 | } |
3578 | ||
954c1994 GS |
3579 | #undef Perl_magic_dump |
3580 | void | |
3581 | Perl_magic_dump(pTHXo_ MAGIC *mg) | |
51371543 | 3582 | { |
954c1994 | 3583 | ((CPerlObj*)pPerl)->Perl_magic_dump(mg); |
51371543 GS |
3584 | } |
3585 | ||
954c1994 GS |
3586 | #undef Perl_default_protect |
3587 | void* | |
3588 | Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...) | |
51371543 | 3589 | { |
954c1994 GS |
3590 | void* retval; |
3591 | va_list args; | |
3592 | va_start(args, body); | |
3593 | retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args); | |
3594 | va_end(args); | |
3595 | return retval; | |
3596 | ||
51371543 GS |
3597 | } |
3598 | ||
954c1994 GS |
3599 | #undef Perl_vdefault_protect |
3600 | void* | |
3601 | Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args) | |
51371543 | 3602 | { |
954c1994 | 3603 | return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args); |
51371543 GS |
3604 | } |
3605 | ||
954c1994 GS |
3606 | #undef Perl_reginitcolors |
3607 | void | |
3608 | Perl_reginitcolors(pTHXo) | |
51371543 | 3609 | { |
954c1994 | 3610 | ((CPerlObj*)pPerl)->Perl_reginitcolors(); |
51371543 GS |
3611 | } |
3612 | ||
954c1994 GS |
3613 | #undef Perl_sv_2pv_nolen |
3614 | char* | |
3615 | Perl_sv_2pv_nolen(pTHXo_ SV* sv) | |
51371543 | 3616 | { |
954c1994 | 3617 | return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv); |
51371543 GS |
3618 | } |
3619 | ||
954c1994 GS |
3620 | #undef Perl_sv_2pvutf8_nolen |
3621 | char* | |
3622 | Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv) | |
51371543 | 3623 | { |
954c1994 | 3624 | return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv); |
51371543 GS |
3625 | } |
3626 | ||
954c1994 GS |
3627 | #undef Perl_sv_2pvbyte_nolen |
3628 | char* | |
3629 | Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv) | |
51371543 | 3630 | { |
954c1994 | 3631 | return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv); |
51371543 GS |
3632 | } |
3633 | ||
954c1994 GS |
3634 | #undef Perl_sv_pv |
3635 | char* | |
3636 | Perl_sv_pv(pTHXo_ SV *sv) | |
51371543 | 3637 | { |
954c1994 | 3638 | return ((CPerlObj*)pPerl)->Perl_sv_pv(sv); |
51371543 GS |
3639 | } |
3640 | ||
954c1994 GS |
3641 | #undef Perl_sv_pvutf8 |
3642 | char* | |
3643 | Perl_sv_pvutf8(pTHXo_ SV *sv) | |
51371543 | 3644 | { |
954c1994 | 3645 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv); |
51371543 GS |
3646 | } |
3647 | ||
954c1994 GS |
3648 | #undef Perl_sv_pvbyte |
3649 | char* | |
3650 | Perl_sv_pvbyte(pTHXo_ SV *sv) | |
51371543 | 3651 | { |
954c1994 | 3652 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv); |
51371543 GS |
3653 | } |
3654 | ||
954c1994 GS |
3655 | #undef Perl_sv_force_normal |
3656 | void | |
3657 | Perl_sv_force_normal(pTHXo_ SV *sv) | |
51371543 | 3658 | { |
954c1994 | 3659 | ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv); |
51371543 GS |
3660 | } |
3661 | ||
954c1994 GS |
3662 | #undef Perl_tmps_grow |
3663 | void | |
3664 | Perl_tmps_grow(pTHXo_ I32 n) | |
51371543 | 3665 | { |
954c1994 | 3666 | ((CPerlObj*)pPerl)->Perl_tmps_grow(n); |
51371543 GS |
3667 | } |
3668 | ||
954c1994 GS |
3669 | #undef Perl_sv_rvweaken |
3670 | SV* | |
3671 | Perl_sv_rvweaken(pTHXo_ SV *sv) | |
51371543 | 3672 | { |
954c1994 | 3673 | return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv); |
51371543 GS |
3674 | } |
3675 | ||
954c1994 GS |
3676 | #undef Perl_newANONATTRSUB |
3677 | OP* | |
3678 | Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block) | |
51371543 | 3679 | { |
954c1994 | 3680 | return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block); |
51371543 GS |
3681 | } |
3682 | ||
954c1994 GS |
3683 | #undef Perl_newATTRSUB |
3684 | CV* | |
3685 | Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) | |
51371543 | 3686 | { |
954c1994 | 3687 | return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block); |
51371543 GS |
3688 | } |
3689 | ||
954c1994 GS |
3690 | #undef Perl_newMYSUB |
3691 | void | |
3692 | Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) | |
51371543 | 3693 | { |
954c1994 | 3694 | ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block); |
51371543 | 3695 | } |
954c1994 | 3696 | #if defined(USE_ITHREADS) |
51371543 | 3697 | |
954c1994 GS |
3698 | #undef Perl_cx_dup |
3699 | PERL_CONTEXT* | |
3700 | Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max) | |
51371543 | 3701 | { |
954c1994 | 3702 | return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max); |
51371543 GS |
3703 | } |
3704 | ||
954c1994 GS |
3705 | #undef Perl_si_dup |
3706 | PERL_SI* | |
3707 | Perl_si_dup(pTHXo_ PERL_SI* si) | |
51371543 | 3708 | { |
954c1994 | 3709 | return ((CPerlObj*)pPerl)->Perl_si_dup(si); |
51371543 GS |
3710 | } |
3711 | ||
954c1994 GS |
3712 | #undef Perl_ss_dup |
3713 | ANY* | |
3714 | Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl) | |
51371543 | 3715 | { |
954c1994 | 3716 | return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl); |
51371543 GS |
3717 | } |
3718 | ||
954c1994 GS |
3719 | #undef Perl_any_dup |
3720 | void* | |
3721 | Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl) | |
51371543 | 3722 | { |
954c1994 | 3723 | return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl); |
51371543 GS |
3724 | } |
3725 | ||
954c1994 GS |
3726 | #undef Perl_he_dup |
3727 | HE* | |
3728 | Perl_he_dup(pTHXo_ HE* e, bool shared) | |
51371543 | 3729 | { |
954c1994 | 3730 | return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared); |
51371543 GS |
3731 | } |
3732 | ||
954c1994 GS |
3733 | #undef Perl_re_dup |
3734 | REGEXP* | |
3735 | Perl_re_dup(pTHXo_ REGEXP* r) | |
51371543 | 3736 | { |
954c1994 | 3737 | return ((CPerlObj*)pPerl)->Perl_re_dup(r); |
51371543 GS |
3738 | } |
3739 | ||
954c1994 GS |
3740 | #undef Perl_fp_dup |
3741 | PerlIO* | |
3742 | Perl_fp_dup(pTHXo_ PerlIO* fp, char type) | |
51371543 | 3743 | { |
954c1994 | 3744 | return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type); |
51371543 GS |
3745 | } |
3746 | ||
954c1994 GS |
3747 | #undef Perl_dirp_dup |
3748 | DIR* | |
3749 | Perl_dirp_dup(pTHXo_ DIR* dp) | |
51371543 | 3750 | { |
954c1994 | 3751 | return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp); |
51371543 GS |
3752 | } |
3753 | ||
954c1994 GS |
3754 | #undef Perl_gp_dup |
3755 | GP* | |
3756 | Perl_gp_dup(pTHXo_ GP* gp) | |
51371543 | 3757 | { |
954c1994 | 3758 | return ((CPerlObj*)pPerl)->Perl_gp_dup(gp); |
51371543 GS |
3759 | } |
3760 | ||
954c1994 GS |
3761 | #undef Perl_mg_dup |
3762 | MAGIC* | |
3763 | Perl_mg_dup(pTHXo_ MAGIC* mg) | |
51371543 | 3764 | { |
954c1994 | 3765 | return ((CPerlObj*)pPerl)->Perl_mg_dup(mg); |
51371543 GS |
3766 | } |
3767 | ||
954c1994 GS |
3768 | #undef Perl_sv_dup |
3769 | SV* | |
3770 | Perl_sv_dup(pTHXo_ SV* sstr) | |
51371543 | 3771 | { |
954c1994 | 3772 | return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr); |
51371543 | 3773 | } |
954c1994 | 3774 | #if defined(HAVE_INTERP_INTERN) |
51371543 | 3775 | |
954c1994 GS |
3776 | #undef Perl_sys_intern_dup |
3777 | void | |
3778 | Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst) | |
51371543 | 3779 | { |
954c1994 | 3780 | ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst); |
51371543 | 3781 | } |
954c1994 | 3782 | #endif |
51371543 | 3783 | |
954c1994 GS |
3784 | #undef Perl_ptr_table_new |
3785 | PTR_TBL_t* | |
3786 | Perl_ptr_table_new(pTHXo) | |
51371543 | 3787 | { |
954c1994 | 3788 | return ((CPerlObj*)pPerl)->Perl_ptr_table_new(); |
51371543 GS |
3789 | } |
3790 | ||
954c1994 GS |
3791 | #undef Perl_ptr_table_fetch |
3792 | void* | |
3793 | Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv) | |
51371543 | 3794 | { |
954c1994 | 3795 | return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv); |
51371543 GS |
3796 | } |
3797 | ||
954c1994 GS |
3798 | #undef Perl_ptr_table_store |
3799 | void | |
3800 | Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv) | |
51371543 | 3801 | { |
954c1994 | 3802 | ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv); |
51371543 GS |
3803 | } |
3804 | ||
954c1994 GS |
3805 | #undef Perl_ptr_table_split |
3806 | void | |
3807 | Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) | |
51371543 | 3808 | { |
954c1994 | 3809 | ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl); |
51371543 | 3810 | } |
954c1994 GS |
3811 | #endif |
3812 | #if defined(PERL_OBJECT) | |
3813 | #else | |
3814 | #endif | |
3815 | #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) | |
3816 | #endif | |
3817 | #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) | |
3818 | #endif | |
3819 | #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) | |
3820 | #endif | |
3821 | #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) | |
3822 | #endif | |
3823 | #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) | |
3824 | #endif | |
3825 | #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) | |
3826 | # if defined(PL_OP_SLAB_ALLOC) | |
3827 | # endif | |
3828 | #endif | |
3829 | #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) | |
3830 | # if defined(IAMSUID) | |
3831 | # endif | |
3832 | # if defined(USE_THREADS) | |
3833 | # endif | |
3834 | #endif | |
3835 | #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) | |
3836 | #endif | |
3837 | #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) | |
3838 | #endif | |
3839 | #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) | |
3840 | #endif | |
3841 | #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) | |
3842 | # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) | |
3843 | # endif | |
3844 | #endif | |
3845 | #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) | |
3846 | #endif | |
3847 | #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) | |
3848 | #endif | |
3849 | #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) | |
3850 | #endif | |
3851 | #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) | |
3852 | #endif | |
3853 | #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) | |
3854 | # if defined(PURIFY) | |
3855 | # else | |
3856 | # endif | |
3857 | # if defined(DEBUGGING) | |
3858 | # endif | |
3859 | #endif | |
3860 | #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) | |
3861 | # if defined(CRIPPLED_CC) | |
3862 | # endif | |
3863 | # if defined(PERL_CR_FILTER) | |
3864 | # endif | |
3865 | #endif | |
3866 | #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) | |
3867 | #endif | |
3868 | #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) | |
3869 | # if defined(LEAKTEST) | |
3870 | # endif | |
3871 | #endif | |
3872 | #if defined(PERL_OBJECT) | |
3873 | #endif | |
51371543 | 3874 | |
c5be433b GS |
3875 | #undef Perl_fprintf_nocontext |
3876 | int | |
3877 | Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) | |
3878 | { | |
3879 | dTHXo; | |
3880 | va_list(arglist); | |
3881 | va_start(arglist, format); | |
1d7c1841 | 3882 | return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist); |
c5be433b GS |
3883 | } |
3884 | ||
51371543 GS |
3885 | END_EXTERN_C |
3886 | ||
3887 | #endif /* PERL_OBJECT */ | |
6f4183fe | 3888 | #endif /* PERL_OBJECT || MULTIPLICITY */ |