+#ifndef _INC_PERL_XSUB_H
+#define _INC_PERL_XSUB_H 1
+
#define ST(off) PL_stack_base[ax + (off)]
-#ifdef CAN_PROTOTYPE
-# ifdef PERL_OBJECT
-# define XS(name) void name(CV* cv, CPerlObj* pPerl)
-# else
-# define XS(name) void name(CV* cv)
-# endif
+#if defined(CYGWIN) && defined(USE_DYNAMIC_LOADING)
+# define XS(name) __declspec(dllexport) void name(pTHXo_ CV* cv)
#else
-# define XS(name) void name(cv) CV* cv;
+# define XS(name) void name(pTHXo_ CV* cv)
#endif
#define dXSARGS \
I32 ax = mark - PL_stack_base + 1; \
I32 items = sp - mark
+#define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
+ ? PAD_SV(PL_op->op_targ) : sv_newmortal())
+
+/* Should be used before final PUSHi etc. if not in PPCODE section. */
+#define XSprePUSH (sp = PL_stack_base + ax - 1)
+
#define XSANY CvXSUBANY(cv)
#define dXSI32 I32 ix = XSANY.any_i32
# define XSINTERFACE_CVT(ret,name) ret (*name)()
#endif
#define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION)
-#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f))
+#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,cv))(f))
#define XSINTERFACE_FUNC_SET(cv,f) \
- CvXSUBANY(cv).any_dptr = (void (*) _((void*)))(f)
+ CvXSUBANY(cv).any_dptr = (void (*) (pTHXo_ void*))(f)
#define XSRETURN(off) \
STMT_START { \
tmpsv = ST(1); \
else { \
/* XXX GV_ADDWARN */ \
- tmpsv = perl_get_sv(form("%s::%s", module, \
- vn = "XS_VERSION"), FALSE); \
+ tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
+ vn = "XS_VERSION"), FALSE); \
if (!tmpsv || !SvOK(tmpsv)) \
- tmpsv = perl_get_sv(form("%s::%s", module, \
- vn = "VERSION"), FALSE); \
+ tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
+ vn = "VERSION"), FALSE); \
} \
if (tmpsv && (!SvOK(tmpsv) || strNE(XS_VERSION, SvPV(tmpsv, n_a)))) \
- croak("%s object version %s does not match %s%s%s%s %_", \
+ Perl_croak(aTHX_ "%s object version %s does not match %s%s%s%s %_", \
module, XS_VERSION, \
vn ? "$" : "", vn ? module : "", vn ? "::" : "", \
vn ? vn : "bootstrap parameter", tmpsv); \
# define XS_VERSION_BOOTCHECK
#endif
-#ifdef PERL_CAPI
-# define VTBL_sv get_vtbl(want_vtbl_sv)
-# define VTBL_env get_vtbl(want_vtbl_env)
-# define VTBL_envelem get_vtbl(want_vtbl_envelem)
-# define VTBL_sig get_vtbl(want_vtbl_sig)
-# define VTBL_sigelem get_vtbl(want_vtbl_sigelem)
-# define VTBL_pack get_vtbl(want_vtbl_pack)
-# define VTBL_packelem get_vtbl(want_vtbl_packelem)
-# define VTBL_dbline get_vtbl(want_vtbl_dbline)
-# define VTBL_isa get_vtbl(want_vtbl_isa)
-# define VTBL_isaelem get_vtbl(want_vtbl_isaelem)
-# define VTBL_arylen get_vtbl(want_vtbl_arylen)
-# define VTBL_glob get_vtbl(want_vtbl_glob)
-# define VTBL_mglob get_vtbl(want_vtbl_mglob)
-# define VTBL_nkeys get_vtbl(want_vtbl_nkeys)
-# define VTBL_taint get_vtbl(want_vtbl_taint)
-# define VTBL_substr get_vtbl(want_vtbl_substr)
-# define VTBL_vec get_vtbl(want_vtbl_vec)
-# define VTBL_pos get_vtbl(want_vtbl_pos)
-# define VTBL_bm get_vtbl(want_vtbl_bm)
-# define VTBL_fm get_vtbl(want_vtbl_fm)
-# define VTBL_uvar get_vtbl(want_vtbl_uvar)
-# define VTBL_defelem get_vtbl(want_vtbl_defelem)
-# define VTBL_regexp get_vtbl(want_vtbl_regexp)
-# define VTBL_regdata get_vtbl(want_vtbl_regdata)
-# define VTBL_regdatum get_vtbl(want_vtbl_regdatum)
-# ifdef USE_LOCALE_COLLATE
-# define VTBL_collxfrm get_vtbl(want_vtbl_collxfrm)
-# endif
-# define VTBL_amagic get_vtbl(want_vtbl_amagic)
-# define VTBL_amagicelem get_vtbl(want_vtbl_amagicelem)
-#else
+#if 1 /* for compatibility */
# define VTBL_sv &PL_vtbl_sv
# define VTBL_env &PL_vtbl_env
# define VTBL_envelem &PL_vtbl_envelem
# define VTBL_amagicelem &PL_vtbl_amagicelem
#endif
-#ifdef PERL_OBJECT
+#if defined(PERL_OBJECT) || defined(PERL_CAPI)
+# include "perlapi.h"
# include "objXSUB.h"
+#endif /* PERL_OBJECT || PERL_CAPI */
-# undef PERL_OBJECT_THIS
-# define PERL_OBJECT_THIS pPerl
-# undef PERL_OBJECT_THIS_
-# define PERL_OBJECT_THIS_ pPerl,
-
-# undef SAVEDESTRUCTOR
-# define SAVEDESTRUCTOR(f,p) \
- pPerl->Perl_save_destructor((FUNC_NAME_TO_PTR(f)),(p))
-
-# ifdef WIN32
-# ifndef WIN32IO_IS_STDIO
-# undef errno
-# define errno ErrorNo()
-# endif
-# undef ErrorNo
-# define ErrorNo pPerl->ErrorNo
-# undef NtCrypt
-# define NtCrypt pPerl->NtCrypt
-# undef NtGetLib
-# define NtGetLib pPerl->NtGetLib
-# undef NtGetArchLib
-# define NtGetArchLib pPerl->NtGetArchLib
-# undef NtGetSiteLib
-# define NtGetSiteLib pPerl->NtGetSiteLib
-# undef NtGetBin
-# define NtGetBin pPerl->NtGetBin
-# undef NtGetDebugScriptStr
-# define NtGetDebugScriptStr pPerl->NtGetDebugScriptStr
-# endif /* WIN32 */
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_GET_CONTEXT) && !defined(PERL_CORE)
+# undef aTHX
+# undef aTHX_
+# define aTHX PERL_GET_THX
+# define aTHX_ aTHX,
+#endif
+#if (defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)) && !defined(PERL_CORE)
# ifndef NO_XSLOCKS
# undef closedir
# undef opendir
# define fstat PerlLIO_fstat
# define ioctl PerlLIO_ioctl
# define isatty PerlLIO_isatty
+# define link PerlLIO_link
# define lseek PerlLIO_lseek
# define lstat PerlLIO_lstat
# define mktemp PerlLIO_mktemp
# define read PerlLIO_read
# define rename PerlLIO_rename
# define setmode PerlLIO_setmode
-# define stat PerlLIO_stat
+# define stat(buf,sb) PerlLIO_stat(buf,sb)
# define tmpnam PerlLIO_tmpnam
# define umask PerlLIO_umask
# define unlink PerlLIO_unlink
# define setjmp PerlProc_setjmp
# define longjmp PerlProc_longjmp
# define signal PerlProc_signal
+# define getpid PerlProc_getpid
# define htonl PerlSock_htonl
# define htons PerlSock_htons
# define ntohl PerlSock_ntohl
# define shutdown PerlSock_shutdown
# define socket PerlSock_socket
# define socketpair PerlSock_socketpair
-
-# ifdef WIN32
-# include "XSlock.h"
-# endif /* WIN32 */
# endif /* NO_XSLOCKS */
-#else
-# ifdef PERL_CAPI
-# include "perlCAPI.h"
-# endif
-#endif /* PERL_OBJECT */
+#endif /* PERL_CAPI */
+
+#endif /* _INC_PERL_XSUB_H */ /* include guard */
https://perl5.git.perl.org / perl5.git / blobdiff