perlapi.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
perlvars.h and thrdvar.h. Any changes made here will be lost!
*/
#include "EXTERN.h"
#include "perl.h"
#include "perlapi.h"
#if defined(PERL_OBJECT) || defined (MULTIPLICITY)
/* accessor functions for Perl variables (provides binary compatibility) */
#if defined(PERL_OBJECT)
#else /* MULTIPLICITY */
{ return &(aTHX->v); }
{ return &(aTHX->v); }
#endif
#include "thrdvar.h"
#include "intrpvar.h"
{ return &(PL_##v); }
{ return &(PL_##v); }
{ return (const t *)&(PL_##v); }
#include "perlvars.h"
#if defined(PERL_OBJECT)
/* C-API layer for PERL_OBJECT */
#if defined(PERL_IMPLICIT_SYS)
#endif
#if defined(USE_ITHREADS)
# if defined(PERL_IMPLICIT_SYS)
# endif
#endif
#if defined(MYMALLOC)
#endif
#if defined(PERL_OBJECT)
#ifndef __BORLANDC__
#endif
#endif
#if defined(PERL_OBJECT)
#else
#endif
SV*
{
}
bool
{
}
void
{
}
SV*
{
}
bool
{
}
SV**
{
}
SV**
{
}
HE*
{
}
SV*
{
}
HV*
{
}
void
{
}
SV*
{
}
bool
{
}
void
{
}
SV**
{
}
void
{
}
{
}
AV*
{
}
SV*
{
}
void
{
}
void
{
}
SV*
{
}
SV**
{
}
void
{
}
void
{
}
{
}
void
{
}
{
}
{
}
{
}
{
}
{
}
#endif
#if defined(USE_THREADS)
{
}
#endif
void
{
}
void
{
}
#if defined(PERL_IMPLICIT_CONTEXT)
void
Perl_croak_nocontext(const char* pat, ...)
{
}
OP*
Perl_die_nocontext(const char* pat, ...)
{
return retval;
}
void
Perl_deb_nocontext(const char* pat, ...)
{
}
char*
Perl_form_nocontext(const char* pat, ...)
{
char* retval;
return retval;
}
void
{
}
SV*
Perl_mess_nocontext(const char* pat, ...)
{
return retval;
}
void
Perl_warn_nocontext(const char* pat, ...)
{
}
void
{
}
SV*
Perl_newSVpvf_nocontext(const char* pat, ...)
{
return retval;
}
void
{
}
void
{
}
void
{
}
void
{
}
#endif
SV*
{
}
void
{
}
void
{
}
SV*
{
}
void
{
}
{
}
char**
{
}
char**
{
}
{
}
void
{
}
void
{
}
void
{
}
{
}
{
}
{
}
char*
{
}
OP*
{
return retval;
}
void
{
}
int
{
}
bool
{
}
#if !defined(WIN32)
#endif
#endif
void
{
}
bool
Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
{
}
bool
Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
{
return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
}
{
}
void
{
}
void
{
}
#if defined(DUMP_FDS)
void
Perl_dump_fds(pTHXo_ char* s)
{
}
#endif
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
char*
{
}
#if defined(USE_THREADS)
#endif
char*
{
char* retval;
return retval;
}
char*
{
}
void
{
}
#if !defined(HAS_GETENV_LEN)
#endif
void
{
}
GP*
{
}
GV*
{
}
GV*
{
}
GV*
{
}
GV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
GV*
{
}
GV*
{
}
GV*
{
}
GV*
{
}
GV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
HV*
{
}
HV*
{
}
HV*
{
}
void
{
}
void
{
}
SV*
{
}
SV*
{
}
bool
{
}
bool
{
}
SV**
{
}
HE*
{
}
void
{
}
{
}
char*
{
}
SV*
{
}
HE*
{
}
SV*
{
}
SV*
{
}
void
{
}
void
{
}
SV**
{
}
HE*
{
}
void
{
}
{
}
{
}
void
{
}
char*
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
{
}
{
}
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
{
}
{
}
{
}
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
bool
{
}
void
{
}
void
{
}
void
{
}
{
}
#if defined(USE_THREADS)
#endif
#if defined(USE_LOCALE_COLLATE)
#endif
void
{
}
#if defined(USE_LOCALE_COLLATE)
#endif
SV*
{
return retval;
}
SV*
{
}
int
{
}
int
{
}
{
}
int
{
}
int
{
}
{
}
void
{
}
int
{
}
{
}
char*
Perl_moreswitches(pTHXo_ char* s)
{
}
Perl_my_atof(pTHXo_ const char *s)
{
}
#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
char*
{
}
#endif
#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
char*
{
}
#endif
void
{
}
void
{
}
{
}
{
}
#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
{
}
#endif
#if !defined(HAS_MEMSET)
void*
{
}
#endif
#if !defined(PERL_OBJECT)
{
}
{
}
#endif
void
{
}
{
}
#if defined(MYSWAP)
short
Perl_my_swap(pTHXo_ short s)
{
}
long
Perl_my_htonl(pTHXo_ long l)
{
}
long
Perl_my_ntohl(pTHXo_ long l)
{
}
#endif
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
void
{
}
void
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
void
{
}
OP*
{
}
OP*
{
}
OP*
{
}
CV*
{
}
CV*
{
}
AV*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
GV*
{
}
OP*
{
}
OP*
{
}
HV*
{
}
HV*
{
}
IO*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
OP*
{
}
SV*
{
}
SV*
{
}
SV*
{
}
OP*
{
}
OP*
{
}
SV*
{
}
SV*
{
}
SV*
{
}
SV*
{
}
SV*
{
}
SV*
{
return retval;
}
SV*
{
}
SV*
{
}
SV*
{
}
OP*
{
}
OP*
Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
{
}
{
}
char*
{
}
void
{
}
SV*
{
}
#if defined(PERL_OBJECT)
void
{
}
void
{
}
void
{
}
int
{
}
int
{
}
#endif
#if defined(USE_THREADS)
struct perl_thread*
{
}
#endif
void
{
}
{
}
{
}
{
}
{
}
SV*
{
}
{
}
SV*
{
}
AV*
{
}
HV*
{
}
CV*
{
}
int
{
}
int
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
{
return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
}
void
{
}
{
}
char*
Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
{
}
SV*
{
}
Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
{
return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
}
{
}
void
{
}
char*
{
}
{
}
#if !defined(HAS_RENAME)
#endif
char*
{
}
char*
{
}
void
{
}
void
{
}
{
}
void
{
}
AV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
HV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
SV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
SV*
{
}
SV**
{
}
{
}
{
}
char*
{
}
{
}
char*
Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
{
}
#if !defined(VMS)
#endif
char*
{
}
SV**
{
}
{
}
bool
{
}
CV*
{
}
IO*
{
}
{
}
SV*
{
}
{
}
char*
{
}
char*
{
}
char*
{
}
{
}
{
}
{
}
{
}
char*
{
}
char*
{
}
char*
{
}
{
}
int
{
}
SV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
{
}
{
}
#if defined(USE_LOCALE_COLLATE)
char*
{
}
#endif
OP*
{
}
void
{
}
void
{
}
bool
{
}
{
}
void
{
}
char*
{
}
char*
{
}
void
{
}
void
{
}
int
{
}
int
{
}
{
}
{
}
void
{
}
SV*
{
}
SV*
{
}
SV*
{
}
char*
{
}
void
{
}
void
{
}
char*
{
}
char*
{
}
char*
{
}
char*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
SV*
{
}
SV*
{
}
SV*
{
}
SV*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
bool
{
}
int
{
}
void
{
}
void
{
}
bool
{
}
void
{
}
void
Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
{
}
void
Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
{
}
{
}
SV*
{
}
{
}
void
{
}
void
Perl_taint_proper(pTHXo_ const char* f, const char* s)
{
}
{
}
{
}
{
}
#if defined(UNLINK_ALL_VERSIONS)
Perl_unlnk(pTHXo_ char* f)
{
}
#endif
#if defined(USE_THREADS)
void
{
}
#endif
void
{
}
U8*
{
}
U8*
{
}
{
}
{
}
U8*
{
}
U8*
{
}
U8*
{
}
U8*
{
}
{
}
{
}
U8*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
{
}
#ifdef USE_PURE_BISON
#endif
#if defined(MYMALLOC)
void
Perl_dump_mstats(pTHXo_ char* s)
{
}
int
{
}
#endif
{
}
{
}
{
}
{
}
#if defined(LEAKTEST)
{
}
{
}
{
}
void
{
}
#endif
#if defined(PERL_GLOBAL_STRUCT)
struct perl_vars *
{
}
#endif
int
{
}
int
{
}
#if defined(USE_THREADS)
SV*
{
}
#endif
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
{
}
void
Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
{
}
void
{
}
void
{
}
void
Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
{
}
void
{
}
#if defined(PERL_FLEXIBLE_EXCEPTIONS)
void*
{
void* retval;
return retval;
}
void*
{
}
#endif
void
{
}
char*
{
}
char*
{
}
char*
{
}
char*
{
}
char*
{
}
char*
{
}
void
{
}
bool
{
}
void
{
}
bool
{
}
void
{
}
void
{
}
void
{
}
void
{
}
SV*
{
}
OP*
{
}
CV*
{
}
void
{
}
#if defined(USE_ITHREADS)
{
}
{
}
ANY*
{
}
void*
{
}
HE*
{
}
{
}
{
}
DIR*
{
}
GP*
{
}
{
}
SV*
{
}
#if defined(HAVE_INTERP_INTERN)
void
{
}
#endif
{
}
void*
{
}
void
{
}
void
{
}
void
{
}
void
{
}
#endif
#if defined(HAVE_INTERP_INTERN)
void
{
}
void
{
}
#endif
#if defined(PERL_OBJECT)
#else
#endif
#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
# if defined(PL_OP_SLAB_ALLOC)
# endif
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
# if defined(IAMSUID)
# endif
#if defined(PERL_FLEXIBLE_EXCEPTIONS)
#endif
# if defined(USE_THREADS)
# endif
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
#if defined(PERL_FLEXIBLE_EXCEPTIONS)
#endif
#endif
#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
# endif
#endif
#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
# if defined(DEBUGGING)
# endif
#endif
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
#if 0
#endif
# if defined(CRIPPLED_CC)
# endif
# if defined(PERL_CR_FILTER)
# endif
#endif
#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
# if defined(LEAKTEST)
# endif
#endif
#if defined(PERL_OBJECT)
#endif
int
{
}
int
Perl_printf_nocontext(const char *format, ...)
{
}
#endif /* PERL_OBJECT */
#endif /* PERL_OBJECT || MULTIPLICITY */