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