X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=XSUB.h;h=2d1b8edad7c27c9883f8c2b1f0695de3271a815e;hb=884421df72ae457696a47f102b65bb9c9142c6f8;hp=a5f8e591ad12fd939a57976c0bc6cb7c52f6b946;hpb=349b520e234d80b6e0b5e71ce38de85721a7d943;p=p5sagit%2Fp5-mst-13.2.git diff --git a/XSUB.h b/XSUB.h index a5f8e59..2d1b8ed 100644 --- a/XSUB.h +++ b/XSUB.h @@ -1,9 +1,20 @@ +/* XSUB.h + * + * Copyright (c) 1997-2002, Larry Wall + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + */ + #ifndef _INC_PERL_XSUB_H #define _INC_PERL_XSUB_H 1 /* first, some documentation for xsubpp-generated items */ /* +=head1 Variables created by C and C internal functions + =for apidoc Amn|char*|CLASS Variable which is setup by C to indicate the class name for a C++ XS constructor. This is always a C. See C. @@ -61,9 +72,9 @@ handled automatically by C. #define ST(off) PL_stack_base[ax + (off)] #if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING) -# define XS(name) __declspec(dllexport) void name(pTHXo_ CV* cv) +# define XS(name) __declspec(dllexport) void name(pTHX_ CV* cv) #else -# define XS(name) void name(pTHXo_ CV* cv) +# define XS(name) void name(pTHX_ CV* cv) #endif #define dAX I32 ax = MARK - PL_stack_base + 1 @@ -90,14 +101,16 @@ handled automatically by C. # define XSINTERFACE_CVT(ret,name) ret (*name)() #endif #define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION) -#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,cv))(f)) +#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f)) #define XSINTERFACE_FUNC_SET(cv,f) \ - CvXSUBANY(cv).any_dptr = (void (*) (pTHXo_ void*))(f) + CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f) /* Simple macros to put new mortal values onto the stack. */ /* Typically used to return values from XS functions. */ /* +=head1 Stack Manipulation Macros + =for apidoc Am|void|XST_mIV|int pos|IV iv Place an integer into the specified position C on the stack. The value is stored in a new mortal SV. @@ -130,7 +143,7 @@ handled by C. Return an integer from an XSUB immediately. Uses C. =for apidoc Am|void|XSRETURN_NV|NV nv -Return an double from an XSUB immediately. Uses C. +Return a double from an XSUB immediately. Uses C. =for apidoc Am|void|XSRETURN_PV|char* str Return a copy of a string from an XSUB immediately. Uses C. @@ -147,6 +160,8 @@ Return C<&PL_sv_undef> from an XSUB immediately. Uses C. =for apidoc Ams||XSRETURN_EMPTY Return an empty list from an XSUB immediately. +=head1 Variables created by C and C internal functions + =for apidoc AmU||newXSproto Used by C to hook up XSUBs as Perl subs. Adds Perl prototypes to the subs. @@ -247,7 +262,6 @@ C. See L. #endif #include "perlapi.h" -#include "objXSUB.h" #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_GET_CONTEXT) && !defined(PERL_CORE) # undef aTHX @@ -256,8 +270,17 @@ C. See L. # define aTHX_ aTHX, #endif -#if (defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)) && !defined(PERL_CORE) +#if defined(PERL_IMPLICIT_SYS) && !defined(PERL_CORE) # ifndef NO_XSLOCKS +# if defined (NETWARE) && defined (USE_STDIO) +# define times PerlProc_times +# define setuid PerlProc_setuid +# define setgid PerlProc_setgid +# define getpid PerlProc_getpid +# define pause PerlProc_pause +# define exit PerlProc_exit +# define _exit PerlProc__exit +# else # undef closedir # undef opendir # undef stdin @@ -273,6 +296,37 @@ C. See L. # undef ungetc # undef fileno +/* Following symbols were giving redefinition errors while building extensions - sgp 17th Oct 2000 */ +#ifdef NETWARE +# undef readdir +# undef fstat +# undef stat +# undef longjmp +# undef endhostent +# undef endnetent +# undef endprotoent +# undef endservent +# undef gethostbyaddr +# undef gethostbyname +# undef gethostent +# undef getnetbyaddr +# undef getnetbyname +# undef getnetent +# undef getprotobyname +# undef getprotobynumber +# undef getprotoent +# undef getservbyname +# undef getservbyport +# undef getservent +# undef inet_ntoa +# undef sethostent +# undef setnetent +# undef setprotoent +# undef setservent +#endif /* NETWARE */ + +# undef socketpair + # define mkdir PerlDir_mkdir # define chdir PerlDir_chdir # define rmdir PerlDir_rmdir @@ -285,9 +339,9 @@ C. See L. # define putenv PerlEnv_putenv # define getenv PerlEnv_getenv # define uname PerlEnv_uname -# define stdin PerlIO_stdin() -# define stdout PerlIO_stdout() -# define stderr PerlIO_stderr() +# define stdin PerlSIO_stdin() +# define stdout PerlSIO_stdout() +# define stderr PerlSIO_stderr() # define fopen PerlIO_open # define fclose PerlIO_close # define feof PerlIO_eof @@ -303,9 +357,9 @@ C. See L. # define freopen PerlIO_reopen # define fread(b,s,c,f) PerlIO_read((f),(b),(s*c)) # define fwrite(b,s,c,f) PerlIO_write((f),(b),(s*c)) -# define setbuf PerlIO_setbuf -# define setvbuf PerlIO_setvbuf -# define setlinebuf PerlIO_setlinebuf +# define setbuf PerlSIO_setbuf +# define setvbuf PerlSIO_setvbuf +# define setlinebuf PerlSIO_setlinebuf # define stdoutf PerlIO_stdoutf # define vfprintf PerlIO_vprintf # define ftell PerlIO_tell @@ -367,6 +421,7 @@ C. See L. # define longjmp PerlProc_longjmp # define signal PerlProc_signal # define getpid PerlProc_getpid +# define gettimeofday PerlProc_gettimeofday # define htonl PerlSock_htonl # define htons PerlSock_htons # define ntohl PerlSock_ntohl @@ -410,7 +465,22 @@ C. See L. # define shutdown PerlSock_shutdown # define socket PerlSock_socket # define socketpair PerlSock_socketpair +# endif /* NETWARE && USE_STDIO */ + +# ifdef USE_SOCKETS_AS_HANDLES +# undef fd_set +# undef FD_SET +# undef FD_CLR +# undef FD_ISSET +# undef FD_ZERO +# define fd_set Perl_fd_set +# define FD_SET(n,p) PERL_FD_SET(n,p) +# define FD_CLR(n,p) PERL_FD_CLR(n,p) +# define FD_ISSET(n,p) PERL_FD_ISSET(n,p) +# define FD_ZERO(p) PERL_FD_ZERO(p) +# endif /* USE_SOCKETS_AS_HANDLES */ + # endif /* NO_XSLOCKS */ -#endif /* PERL_CAPI */ +#endif /* PERL_IMPLICIT_SYS && !PERL_CORE */ #endif /* _INC_PERL_XSUB_H */ /* include guard */