diff options
| -rw-r--r-- | reentr.c | 491 | ||||
| -rw-r--r-- | reentr.h | 1240 | ||||
| -rw-r--r-- | regen/reentr.pl | 391 |
3 files changed, 1155 insertions, 967 deletions
@@ -25,7 +25,7 @@ * various library calls, such as getpwent_r. The wrapping is done so * that other files like pp_sys.c calling those library functions need not * care about the differences between various platforms' idiosyncrasies - * regarding these reentrant interfaces. + * regarding these reentrant interfaces. */ #include "EXTERN.h" @@ -47,99 +47,117 @@ Perl_reentrant_size(pTHX) { /* Set the sizes of the reentrant buffers */ #ifdef USE_REENTRANT_API -#define REENTRANTSMALLSIZE 256 /* Make something up. */ -#define REENTRANTUSUALSIZE 4096 /* Make something up. */ -#ifdef HAS_ASCTIME_R +# define REENTRANTSMALLSIZE 256 /* Make something up. */ +# define REENTRANTUSUALSIZE 4096 /* Make something up. */ + +# ifdef HAS_ASCTIME_R PL_reentrant_buffer->_asctime_size = REENTRANTSMALLSIZE; -#endif /* HAS_ASCTIME_R */ -#ifdef HAS_CRYPT_R -#endif /* HAS_CRYPT_R */ -#ifdef HAS_CTIME_R +# endif /* HAS_ASCTIME_R */ + +# ifdef HAS_CRYPT_R +# endif /* HAS_CRYPT_R */ + +# ifdef HAS_CTIME_R PL_reentrant_buffer->_ctime_size = REENTRANTSMALLSIZE; -#endif /* HAS_CTIME_R */ -#ifdef HAS_GETGRNAM_R -# if defined(HAS_SYSCONF) && defined(_SC_GETGR_R_SIZE_MAX) && !defined(__GLIBC__) +# endif /* HAS_CTIME_R */ + +# ifdef HAS_GETGRNAM_R +# if defined(HAS_SYSCONF) && defined(_SC_GETGR_R_SIZE_MAX) && !defined(__GLIBC__) PL_reentrant_buffer->_grent_size = sysconf(_SC_GETGR_R_SIZE_MAX); if (PL_reentrant_buffer->_grent_size == (size_t) -1) PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE; -# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) +# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) PL_reentrant_buffer->_grent_size = SIABUFSIZ; -# elif defined(__sgi) +# elif defined(__sgi) PL_reentrant_buffer->_grent_size = BUFSIZ; -# else +# else PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE; -# endif -#endif /* HAS_GETGRNAM_R */ -#ifdef HAS_GETHOSTBYNAME_R -#if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif +# endif /* HAS_GETGRNAM_R */ + +# ifdef HAS_GETHOSTBYNAME_R +# if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) PL_reentrant_buffer->_hostent_size = REENTRANTUSUALSIZE; -#endif -#endif /* HAS_GETHOSTBYNAME_R */ -#ifdef HAS_GETLOGIN_R +# endif +# endif /* HAS_GETHOSTBYNAME_R */ + +# ifdef HAS_GETLOGIN_R PL_reentrant_buffer->_getlogin_size = REENTRANTSMALLSIZE; -#endif /* HAS_GETLOGIN_R */ -#ifdef HAS_GETNETBYNAME_R -#if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif /* HAS_GETLOGIN_R */ + +# ifdef HAS_GETNETBYNAME_R +# if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) PL_reentrant_buffer->_netent_size = REENTRANTUSUALSIZE; -#endif -#endif /* HAS_GETNETBYNAME_R */ -#ifdef HAS_GETPROTOBYNAME_R -#if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif +# endif /* HAS_GETNETBYNAME_R */ + +# ifdef HAS_GETPROTOBYNAME_R +# if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) PL_reentrant_buffer->_protoent_size = REENTRANTUSUALSIZE; -#endif -#endif /* HAS_GETPROTOBYNAME_R */ -#ifdef HAS_GETPWNAM_R -# if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) +# endif +# endif /* HAS_GETPROTOBYNAME_R */ + +# ifdef HAS_GETPWNAM_R +# if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) PL_reentrant_buffer->_pwent_size = sysconf(_SC_GETPW_R_SIZE_MAX); if (PL_reentrant_buffer->_pwent_size == (size_t) -1) PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE; -# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) +# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) PL_reentrant_buffer->_pwent_size = SIABUFSIZ; -# elif defined(__sgi) +# elif defined(__sgi) PL_reentrant_buffer->_pwent_size = BUFSIZ; -# else +# else PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE; -# endif -#endif /* HAS_GETPWNAM_R */ -#ifdef HAS_GETSERVBYNAME_R -#if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) +# endif +# endif /* HAS_GETPWNAM_R */ + +# ifdef HAS_GETSERVBYNAME_R +# if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) PL_reentrant_buffer->_servent_size = REENTRANTUSUALSIZE; -#endif -#endif /* HAS_GETSERVBYNAME_R */ -#ifdef HAS_GETSPNAM_R -# if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) +# endif +# endif /* HAS_GETSERVBYNAME_R */ + +# ifdef HAS_GETSPNAM_R +# if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__) PL_reentrant_buffer->_spent_size = sysconf(_SC_GETPW_R_SIZE_MAX); if (PL_reentrant_buffer->_spent_size == (size_t) -1) PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE; -# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) +# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) PL_reentrant_buffer->_spent_size = SIABUFSIZ; -# elif defined(__sgi) +# elif defined(__sgi) PL_reentrant_buffer->_spent_size = BUFSIZ; -# else +# else PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE; -# endif -#endif /* HAS_GETSPNAM_R */ -#ifdef HAS_READDIR_R +# endif +# endif /* HAS_GETSPNAM_R */ + +# ifdef HAS_READDIR_R /* This is the size Solaris recommends. * (though we go static, should use pathconf() instead) */ PL_reentrant_buffer->_readdir_size = sizeof(struct dirent) + MAXPATHLEN + 1; -#endif /* HAS_READDIR_R */ -#ifdef HAS_READDIR64_R +# endif /* HAS_READDIR_R */ + +# ifdef HAS_READDIR64_R /* This is the size Solaris recommends. * (though we go static, should use pathconf() instead) */ PL_reentrant_buffer->_readdir64_size = sizeof(struct dirent64) + MAXPATHLEN + 1; -#endif /* HAS_READDIR64_R */ -#ifdef HAS_SETLOCALE_R +# endif /* HAS_READDIR64_R */ + +# ifdef HAS_SETLOCALE_R PL_reentrant_buffer->_setlocale_size = REENTRANTSMALLSIZE; -#endif /* HAS_SETLOCALE_R */ -#ifdef HAS_STRERROR_R +# endif /* HAS_SETLOCALE_R */ + +# ifdef HAS_STRERROR_R PL_reentrant_buffer->_strerror_size = REENTRANTSMALLSIZE; -#endif /* HAS_STRERROR_R */ -#ifdef HAS_TTYNAME_R +# endif /* HAS_STRERROR_R */ + +# ifdef HAS_TTYNAME_R PL_reentrant_buffer->_ttyname_size = REENTRANTSMALLSIZE; -#endif /* HAS_TTYNAME_R */ +# endif /* HAS_TTYNAME_R */ + #endif /* USE_REENTRANT_API */ + } void @@ -149,77 +167,96 @@ Perl_reentrant_init(pTHX) { /* Initialize the whole thing */ #ifdef USE_REENTRANT_API + Newx(PL_reentrant_buffer, 1, REENTR); Perl_reentrant_size(aTHX); -#ifdef HAS_ASCTIME_R + +# ifdef HAS_ASCTIME_R Newx(PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size, char); -#endif /* HAS_ASCTIME_R */ -#ifdef HAS_CRYPT_R -#if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD +# endif /* HAS_ASCTIME_R */ + +# ifdef HAS_CRYPT_R +# if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD PL_reentrant_buffer->_crypt_struct_buffer = 0; -#endif -#endif /* HAS_CRYPT_R */ -#ifdef HAS_CTIME_R +# endif +# endif /* HAS_CRYPT_R */ + +# ifdef HAS_CTIME_R Newx(PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size, char); -#endif /* HAS_CTIME_R */ -#ifdef HAS_GETGRNAM_R +# endif /* HAS_CTIME_R */ + +# ifdef HAS_GETGRNAM_R # ifdef USE_GRENT_FPTR PL_reentrant_buffer->_grent_fptr = NULL; # endif Newx(PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, char); -#endif /* HAS_GETGRNAM_R */ -#ifdef HAS_GETHOSTBYNAME_R -#if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif /* HAS_GETGRNAM_R */ + +# ifdef HAS_GETHOSTBYNAME_R +# if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Newx(PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, char); -#endif -#endif /* HAS_GETHOSTBYNAME_R */ -#ifdef HAS_GETLOGIN_R +# endif +# endif /* HAS_GETHOSTBYNAME_R */ + +# ifdef HAS_GETLOGIN_R Newx(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size, char); -#endif /* HAS_GETLOGIN_R */ -#ifdef HAS_GETNETBYNAME_R -#if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif /* HAS_GETLOGIN_R */ + +# ifdef HAS_GETNETBYNAME_R +# if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Newx(PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, char); -#endif -#endif /* HAS_GETNETBYNAME_R */ -#ifdef HAS_GETPROTOBYNAME_R -#if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif +# endif /* HAS_GETNETBYNAME_R */ + +# ifdef HAS_GETPROTOBYNAME_R +# if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Newx(PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, char); -#endif -#endif /* HAS_GETPROTOBYNAME_R */ -#ifdef HAS_GETPWNAM_R +# endif +# endif /* HAS_GETPROTOBYNAME_R */ + +# ifdef HAS_GETPWNAM_R # ifdef USE_PWENT_FPTR PL_reentrant_buffer->_pwent_fptr = NULL; # endif Newx(PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, char); -#endif /* HAS_GETPWNAM_R */ -#ifdef HAS_GETSERVBYNAME_R -#if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) +# endif /* HAS_GETPWNAM_R */ + +# ifdef HAS_GETSERVBYNAME_R +# if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) Newx(PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, char); -#endif -#endif /* HAS_GETSERVBYNAME_R */ -#ifdef HAS_GETSPNAM_R +# endif +# endif /* HAS_GETSERVBYNAME_R */ + +# ifdef HAS_GETSPNAM_R # ifdef USE_SPENT_FPTR PL_reentrant_buffer->_spent_fptr = NULL; # endif Newx(PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, char); -#endif /* HAS_GETSPNAM_R */ -#ifdef HAS_READDIR_R +# endif /* HAS_GETSPNAM_R */ + +# ifdef HAS_READDIR_R PL_reentrant_buffer->_readdir_struct = (struct dirent*)safemalloc(PL_reentrant_buffer->_readdir_size); -#endif /* HAS_READDIR_R */ -#ifdef HAS_READDIR64_R +# endif /* HAS_READDIR_R */ + +# ifdef HAS_READDIR64_R PL_reentrant_buffer->_readdir64_struct = (struct dirent64*)safemalloc(PL_reentrant_buffer->_readdir64_size); -#endif /* HAS_READDIR64_R */ -#ifdef HAS_SETLOCALE_R +# endif /* HAS_READDIR64_R */ + +# ifdef HAS_SETLOCALE_R Newx(PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size, char); -#endif /* HAS_SETLOCALE_R */ -#ifdef HAS_STRERROR_R +# endif /* HAS_SETLOCALE_R */ + +# ifdef HAS_STRERROR_R Newx(PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size, char); -#endif /* HAS_STRERROR_R */ -#ifdef HAS_TTYNAME_R +# endif /* HAS_STRERROR_R */ + +# ifdef HAS_TTYNAME_R Newx(PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size, char); -#endif /* HAS_TTYNAME_R */ +# endif /* HAS_TTYNAME_R */ + #endif /* USE_REENTRANT_API */ + } void @@ -229,66 +266,84 @@ Perl_reentrant_free(pTHX) { /* Tear down */ #ifdef USE_REENTRANT_API -#ifdef HAS_ASCTIME_R + +# ifdef HAS_ASCTIME_R Safefree(PL_reentrant_buffer->_asctime_buffer); -#endif /* HAS_ASCTIME_R */ -#ifdef HAS_CRYPT_R -#if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD +# endif /* HAS_ASCTIME_R */ + +# ifdef HAS_CRYPT_R +# if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD Safefree(PL_reentrant_buffer->_crypt_struct_buffer); -#endif -#endif /* HAS_CRYPT_R */ -#ifdef HAS_CTIME_R +# endif +# endif /* HAS_CRYPT_R */ + +# ifdef HAS_CTIME_R Safefree(PL_reentrant_buffer->_ctime_buffer); -#endif /* HAS_CTIME_R */ -#ifdef HAS_GETGRNAM_R +# endif /* HAS_CTIME_R */ + +# ifdef HAS_GETGRNAM_R Safefree(PL_reentrant_buffer->_grent_buffer); -#endif /* HAS_GETGRNAM_R */ -#ifdef HAS_GETHOSTBYNAME_R -#if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif /* HAS_GETGRNAM_R */ + +# ifdef HAS_GETHOSTBYNAME_R +# if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Safefree(PL_reentrant_buffer->_hostent_buffer); -#endif -#endif /* HAS_GETHOSTBYNAME_R */ -#ifdef HAS_GETLOGIN_R +# endif +# endif /* HAS_GETHOSTBYNAME_R */ + +# ifdef HAS_GETLOGIN_R Safefree(PL_reentrant_buffer->_getlogin_buffer); -#endif /* HAS_GETLOGIN_R */ -#ifdef HAS_GETNETBYNAME_R -#if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif /* HAS_GETLOGIN_R */ + +# ifdef HAS_GETNETBYNAME_R +# if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Safefree(PL_reentrant_buffer->_netent_buffer); -#endif -#endif /* HAS_GETNETBYNAME_R */ -#ifdef HAS_GETPROTOBYNAME_R -#if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) +# endif +# endif /* HAS_GETNETBYNAME_R */ + +# ifdef HAS_GETPROTOBYNAME_R +# if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD) Safefree(PL_reentrant_buffer->_protoent_buffer); -#endif -#endif /* HAS_GETPROTOBYNAME_R */ -#ifdef HAS_GETPWNAM_R +# endif +# endif /* HAS_GETPROTOBYNAME_R */ + +# ifdef HAS_GETPWNAM_R Safefree(PL_reentrant_buffer->_pwent_buffer); -#endif /* HAS_GETPWNAM_R */ -#ifdef HAS_GETSERVBYNAME_R -#if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) +# endif /* HAS_GETPWNAM_R */ + +# ifdef HAS_GETSERVBYNAME_R +# if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD) Safefree(PL_reentrant_buffer->_servent_buffer); -#endif -#endif /* HAS_GETSERVBYNAME_R */ -#ifdef HAS_GETSPNAM_R +# endif +# endif /* HAS_GETSERVBYNAME_R */ + +# ifdef HAS_GETSPNAM_R Safefree(PL_reentrant_buffer->_spent_buffer); -#endif /* HAS_GETSPNAM_R */ -#ifdef HAS_READDIR_R +# endif /* HAS_GETSPNAM_R */ + +# ifdef HAS_READDIR_R Safefree(PL_reentrant_buffer->_readdir_struct); -#endif /* HAS_READDIR_R */ -#ifdef HAS_READDIR64_R +# endif /* HAS_READDIR_R */ + +# ifdef HAS_READDIR64_R Safefree(PL_reentrant_buffer->_readdir64_struct); -#endif /* HAS_READDIR64_R */ -#ifdef HAS_SETLOCALE_R +# endif /* HAS_READDIR64_R */ + +# ifdef HAS_SETLOCALE_R Safefree(PL_reentrant_buffer->_setlocale_buffer); -#endif /* HAS_SETLOCALE_R */ -#ifdef HAS_STRERROR_R +# endif /* HAS_SETLOCALE_R */ + +# ifdef HAS_STRERROR_R Safefree(PL_reentrant_buffer->_strerror_buffer); -#endif /* HAS_STRERROR_R */ -#ifdef HAS_TTYNAME_R +# endif /* HAS_STRERROR_R */ + +# ifdef HAS_TTYNAME_R Safefree(PL_reentrant_buffer->_ttyname_buffer); -#endif /* HAS_TTYNAME_R */ +# endif /* HAS_TTYNAME_R */ + Safefree(PL_reentrant_buffer); + #endif /* USE_REENTRANT_API */ } @@ -309,14 +364,20 @@ Perl_reentrant_retry(const char *f, ...) void *retptr = NULL; va_list ap; + #ifdef USE_REENTRANT_API + dTHX; + /* Easier to special case this here than in embed.pl. (Look at what it generates for proto.h) */ PERL_ARGS_ASSERT_REENTRANT_RETRY; + #endif + va_start(ap, f); { + #ifdef USE_REENTRANT_API # if defined(USE_HOSTENT_BUFFER) || defined(USE_GRENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PWENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SERVENT_BUFFER) void *p0; @@ -332,19 +393,22 @@ Perl_reentrant_retry(const char *f, ...) # endif switch (PL_op->op_type) { -#ifdef USE_HOSTENT_BUFFER + +# ifdef USE_HOSTENT_BUFFER + case OP_GHBYADDR: case OP_GHBYNAME: case OP_GHOSTENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_hostent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_hostent_buffer, - &PL_reentrant_buffer->_hostent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_hostent_buffer, + &PL_reentrant_buffer->_hostent_size, char); + switch (PL_op->op_type) { case OP_GHBYADDR: p0 = va_arg(ap, void *); asize = va_arg(ap, size_t); @@ -358,59 +422,66 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_GRENT_BUFFER + +# endif +# ifdef USE_GRENT_BUFFER + case OP_GGRNAM: case OP_GGRGID: case OP_GGRENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_grent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { Gid_t gid; - RenewDouble(PL_reentrant_buffer->_grent_buffer, - &PL_reentrant_buffer->_grent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_grent_buffer, + &PL_reentrant_buffer->_grent_size, char); + switch (PL_op->op_type) { case OP_GGRNAM: p0 = va_arg(ap, void *); retptr = getgrnam((char *)p0); break; - case OP_GGRGID: -#if Gid_t_size < INTSIZE - gid = (Gid_t)va_arg(ap, int); -#else + case OP_GGRGID: + +# if Gid_t_size < INTSIZE + gid = (Gid_t)va_arg(ap, int); +# else gid = va_arg(ap, Gid_t); -#endif +# endif retptr = getgrgid(gid); break; case OP_GGRENT: retptr = getgrent(); break; default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_NETENT_BUFFER + +# endif +# ifdef USE_NETENT_BUFFER + case OP_GNBYADDR: case OP_GNBYNAME: case OP_GNETENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_netent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { Netdb_net_t net; - RenewDouble(PL_reentrant_buffer->_netent_buffer, - &PL_reentrant_buffer->_netent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_netent_buffer, + &PL_reentrant_buffer->_netent_size, char); + switch (PL_op->op_type) { case OP_GNBYADDR: net = va_arg(ap, Netdb_net_t); anint = va_arg(ap, int); @@ -423,60 +494,69 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } - } + } + } } break; -#endif -#ifdef USE_PWENT_BUFFER + +# endif +# ifdef USE_PWENT_BUFFER + case OP_GPWNAM: case OP_GPWUID: case OP_GPWENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_pwent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif + +# endif { Uid_t uid; - RenewDouble(PL_reentrant_buffer->_pwent_buffer, - &PL_reentrant_buffer->_pwent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_pwent_buffer, + &PL_reentrant_buffer->_pwent_size, char); + switch (PL_op->op_type) { case OP_GPWNAM: p0 = va_arg(ap, void *); retptr = getpwnam((char *)p0); break; case OP_GPWUID: -#if Uid_t_size < INTSIZE + +# if Uid_t_size < INTSIZE uid = (Uid_t)va_arg(ap, int); -#else +# else uid = va_arg(ap, Uid_t); -#endif +# endif retptr = getpwuid(uid); break; -#if defined(HAS_GETPWENT) || defined(HAS_GETPWENT_R) + +# if defined(HAS_GETPWENT) || defined(HAS_GETPWENT_R) case OP_GPWENT: retptr = getpwent(); break; -#endif +# endif default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_PROTOENT_BUFFER + +# endif +# ifdef USE_PROTOENT_BUFFER + case OP_GPBYNAME: case OP_GPBYNUMBER: case OP_GPROTOENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_protoent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_protoent_buffer, - &PL_reentrant_buffer->_protoent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_protoent_buffer, + &PL_reentrant_buffer->_protoent_size, char); + switch (PL_op->op_type) { case OP_GPBYNAME: p0 = va_arg(ap, void *); retptr = getprotobyname((char *)p0); break; @@ -488,24 +568,27 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_SERVENT_BUFFER + +# endif +# ifdef USE_SERVENT_BUFFER + case OP_GSBYNAME: case OP_GSBYPORT: case OP_GSERVENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_servent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_servent_buffer, - &PL_reentrant_buffer->_servent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_servent_buffer, + &PL_reentrant_buffer->_servent_size, char); + switch (PL_op->op_type) { case OP_GSBYNAME: p0 = va_arg(ap, void *); p1 = va_arg(ap, void *); @@ -519,18 +602,24 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif + +# endif + default: /* Not known how to retry, so just fail. */ break; } + #else + PERL_UNUSED_ARG(f); + #endif + } va_end(ap); return retptr; @@ -23,15 +23,15 @@ */ #ifndef PERL_REENTR_API -# if defined(PERL_CORE) || defined(PERL_EXT) || defined(PERL_REENTRANT) -# define PERL_REENTR_API 1 -# else -# define PERL_REENTR_API 0 -# endif +# if defined(PERL_CORE) || defined(PERL_EXT) || defined(PERL_REENTRANT) +# define PERL_REENTR_API 1 +# else +# define PERL_REENTR_API 0 +# endif #endif #ifdef USE_REENTRANT_API - + /* Deprecations: some platforms have the said reentrant interfaces * but they are declared obsolete and are not to be used. Often this * means that the platform has threadsafed the interfaces (hopefully). @@ -39,602 +39,606 @@ * If you know of more deprecations on some platforms, please add your own * (by editing reentr.pl, mind!) */ -#ifdef __hpux -# undef HAS_CRYPT_R -# undef HAS_ENDGRENT_R -# undef HAS_ENDPWENT_R -# undef HAS_GETGRENT_R -# undef HAS_GETPWENT_R -# undef HAS_SETLOCALE_R -# undef HAS_STRERROR_R -# define NETDB_R_OBSOLETE -#endif +# ifdef __hpux +# undef HAS_CRYPT_R +# undef HAS_ENDGRENT_R +# undef HAS_ENDPWENT_R +# undef HAS_GETGRENT_R +# undef HAS_GETPWENT_R +# undef HAS_SETLOCALE_R +# undef HAS_STRERROR_R +# define NETDB_R_OBSOLETE +# endif -#if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */ -# undef HAS_CRYPT_R -# undef HAS_STRERROR_R -# define NETDB_R_OBSOLETE -#endif +# if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */ +# undef HAS_CRYPT_R +# undef HAS_STRERROR_R +# define NETDB_R_OBSOLETE +# endif -#if defined(__GLIBC__) && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 24)) -# undef HAS_READDIR_R -# undef HAS_READDIR64_R -#endif +# if defined(__GLIBC__) && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 24)) +# undef HAS_READDIR_R +# undef HAS_READDIR64_R +# endif /* * As of OpenBSD 3.7, reentrant functions are now working, they just are * incompatible with everyone else. To make OpenBSD happy, we have to * memzero out certain structures before calling the functions. */ -#if defined(__OpenBSD__) +# if defined(__OpenBSD__) # define REENTR_MEMZERO(a,b) memzero(a,b) -#else +# else # define REENTR_MEMZERO(a,b) 0 -#endif - -#ifdef NETDB_R_OBSOLETE -# undef HAS_ENDHOSTENT_R -# undef HAS_ENDNETENT_R -# undef HAS_ENDPROTOENT_R -# undef HAS_ENDSERVENT_R -# undef HAS_GETHOSTBYADDR_R -# undef HAS_GETHOSTBYNAME_R -# undef HAS_GETHOSTENT_R -# undef HAS_GETNETBYADDR_R -# undef HAS_GETNETBYNAME_R -# undef HAS_GETNETENT_R -# undef HAS_GETPROTOBYNAME_R -# undef HAS_GETPROTOBYNUMBER_R -# undef HAS_GETPROTOENT_R -# undef HAS_GETSERVBYNAME_R -# undef HAS_GETSERVBYPORT_R -# undef HAS_GETSERVENT_R -# undef HAS_SETHOSTENT_R -# undef HAS_SETNETENT_R -# undef HAS_SETPROTOENT_R -# undef HAS_SETSERVENT_R -#endif +# endif -#ifdef I_PWD -# include <pwd.h> -#endif -#ifdef I_GRP -# include <grp.h> -#endif -#ifdef I_NETDB -# include <netdb.h> -#endif -#ifdef I_CRYPT -# ifdef I_CRYPT -# include <crypt.h> -# endif -#endif -#ifdef HAS_GETSPNAM_R -# ifdef I_SHADOW -# include <shadow.h> -# endif -#endif +# ifdef NETDB_R_OBSOLETE +# undef HAS_ENDHOSTENT_R +# undef HAS_ENDNETENT_R +# undef HAS_ENDPROTOENT_R +# undef HAS_ENDSERVENT_R +# undef HAS_GETHOSTBYADDR_R +# undef HAS_GETHOSTBYNAME_R +# undef HAS_GETHOSTENT_R +# undef HAS_GETNETBYADDR_R +# undef HAS_GETNETBYNAME_R +# undef HAS_GETNETENT_R +# undef HAS_GETPROTOBYNAME_R +# undef HAS_GETPROTOBYNUMBER_R +# undef HAS_GETPROTOENT_R +# undef HAS_GETSERVBYNAME_R +# undef HAS_GETSERVBYPORT_R +# undef HAS_GETSERVENT_R +# undef HAS_SETHOSTENT_R +# undef HAS_SETNETENT_R +# undef HAS_SETPROTOENT_R +# undef HAS_SETSERVENT_R +# endif + +# ifdef I_PWD +# include <pwd.h> +# endif +# ifdef I_GRP +# include <grp.h> +# endif +# ifdef I_NETDB +# include <netdb.h> +# endif +# ifdef I_CRYPT +# ifdef I_CRYPT +# include <crypt.h> +# endif +# endif +# ifdef HAS_GETSPNAM_R +# ifdef I_SHADOW +# include <shadow.h> +# endif +# endif -#define REENTRANT_PROTO_B_B 1 -#define REENTRANT_PROTO_B_BI 2 -#define REENTRANT_PROTO_B_BW 3 -#define REENTRANT_PROTO_B_CCD 4 -#define REENTRANT_PROTO_B_CCS 5 -#define REENTRANT_PROTO_B_IBI 6 -#define REENTRANT_PROTO_B_IBW 7 -#define REENTRANT_PROTO_B_SB 8 -#define REENTRANT_PROTO_B_SBI 9 -#define REENTRANT_PROTO_I_BI 10 -#define REENTRANT_PROTO_I_BW 11 -#define REENTRANT_PROTO_I_CCSBWR 12 -#define REENTRANT_PROTO_I_CCSD 13 -#define REENTRANT_PROTO_I_CII 14 -#define REENTRANT_PROTO_I_CIISD 15 -#define REENTRANT_PROTO_I_CSBI 16 -#define REENTRANT_PROTO_I_CSBIR 17 -#define REENTRANT_PROTO_I_CSBWR 18 -#define REENTRANT_PROTO_I_CSBWRE 19 -#define REENTRANT_PROTO_I_CSD 20 -#define REENTRANT_PROTO_I_CWISBWRE 21 -#define REENTRANT_PROTO_I_CWISD 22 -#define REENTRANT_PROTO_I_D 23 -#define REENTRANT_PROTO_I_H 24 -#define REENTRANT_PROTO_I_IBI 25 -#define REENTRANT_PROTO_I_IBW 26 -#define REENTRANT_PROTO_I_ICBI 27 -#define REENTRANT_PROTO_I_ICSBWR 28 -#define REENTRANT_PROTO_I_ICSD 29 -#define REENTRANT_PROTO_I_ID 30 -#define REENTRANT_PROTO_I_IISD 31 -#define REENTRANT_PROTO_I_ISBWR 32 -#define REENTRANT_PROTO_I_ISD 33 -#define REENTRANT_PROTO_I_LISBI 34 -#define REENTRANT_PROTO_I_LISD 35 -#define REENTRANT_PROTO_I_SB 36 -#define REENTRANT_PROTO_I_SBI 37 -#define REENTRANT_PROTO_I_SBIE 38 -#define REENTRANT_PROTO_I_SBIH 39 -#define REENTRANT_PROTO_I_SBIR 40 -#define REENTRANT_PROTO_I_SBWR 41 -#define REENTRANT_PROTO_I_SBWRE 42 -#define REENTRANT_PROTO_I_SD 43 -#define REENTRANT_PROTO_I_TISD 44 -#define REENTRANT_PROTO_I_TS 45 -#define REENTRANT_PROTO_I_TSBI 46 -#define REENTRANT_PROTO_I_TSBIR 47 -#define REENTRANT_PROTO_I_TSBWR 48 -#define REENTRANT_PROTO_I_TSR 49 -#define REENTRANT_PROTO_I_TsISBWRE 50 -#define REENTRANT_PROTO_I_UISBWRE 51 -#define REENTRANT_PROTO_I_uISBWRE 52 -#define REENTRANT_PROTO_S_CBI 53 -#define REENTRANT_PROTO_S_CCSBI 54 -#define REENTRANT_PROTO_S_CIISBIE 55 -#define REENTRANT_PROTO_S_CSBI 56 -#define REENTRANT_PROTO_S_CSBIE 57 -#define REENTRANT_PROTO_S_CWISBIE 58 -#define REENTRANT_PROTO_S_CWISBWIE 59 -#define REENTRANT_PROTO_S_ICSBI 60 -#define REENTRANT_PROTO_S_ISBI 61 -#define REENTRANT_PROTO_S_LISBI 62 -#define REENTRANT_PROTO_S_SBI 63 -#define REENTRANT_PROTO_S_SBIE 64 -#define REENTRANT_PROTO_S_SBW 65 -#define REENTRANT_PROTO_S_TISBI 66 -#define REENTRANT_PROTO_S_TSBI 67 -#define REENTRANT_PROTO_S_TSBIE 68 -#define REENTRANT_PROTO_S_TWISBIE 69 -#define REENTRANT_PROTO_V_D 70 -#define REENTRANT_PROTO_V_H 71 -#define REENTRANT_PROTO_V_ID 72 +# define REENTRANT_PROTO_B_B 1 +# define REENTRANT_PROTO_B_BI 2 +# define REENTRANT_PROTO_B_BW 3 +# define REENTRANT_PROTO_B_CCD 4 +# define REENTRANT_PROTO_B_CCS 5 +# define REENTRANT_PROTO_B_IBI 6 +# define REENTRANT_PROTO_B_IBW 7 +# define REENTRANT_PROTO_B_SB 8 +# define REENTRANT_PROTO_B_SBI 9 +# define REENTRANT_PROTO_I_BI 10 +# define REENTRANT_PROTO_I_BW 11 +# define REENTRANT_PROTO_I_CCSBWR 12 +# define REENTRANT_PROTO_I_CCSD 13 +# define REENTRANT_PROTO_I_CII 14 +# define REENTRANT_PROTO_I_CIISD 15 +# define REENTRANT_PROTO_I_CSBI 16 +# define REENTRANT_PROTO_I_CSBIR 17 +# define REENTRANT_PROTO_I_CSBWR 18 +# define REENTRANT_PROTO_I_CSBWRE 19 +# define REENTRANT_PROTO_I_CSD 20 +# define REENTRANT_PROTO_I_CWISBWRE 21 +# define REENTRANT_PROTO_I_CWISD 22 +# define REENTRANT_PROTO_I_D 23 +# define REENTRANT_PROTO_I_H 24 +# define REENTRANT_PROTO_I_IBI 25 +# define REENTRANT_PROTO_I_IBW 26 +# define REENTRANT_PROTO_I_ICBI 27 +# define REENTRANT_PROTO_I_ICSBWR 28 +# define REENTRANT_PROTO_I_ICSD 29 +# define REENTRANT_PROTO_I_ID 30 +# define REENTRANT_PROTO_I_IISD 31 +# define REENTRANT_PROTO_I_ISBWR 32 +# define REENTRANT_PROTO_I_ISD 33 +# define REENTRANT_PROTO_I_LISBI 34 +# define REENTRANT_PROTO_I_LISD 35 +# define REENTRANT_PROTO_I_SB 36 +# define REENTRANT_PROTO_I_SBI 37 +# define REENTRANT_PROTO_I_SBIE 38 +# define REENTRANT_PROTO_I_SBIH 39 +# define REENTRANT_PROTO_I_SBIR 40 +# define REENTRANT_PROTO_I_SBWR 41 +# define REENTRANT_PROTO_I_SBWRE 42 +# define REENTRANT_PROTO_I_SD 43 +# define REENTRANT_PROTO_I_TISD 44 +# define REENTRANT_PROTO_I_TS 45 +# define REENTRANT_PROTO_I_TSBI 46 +# define REENTRANT_PROTO_I_TSBIR 47 +# define REENTRANT_PROTO_I_TSBWR 48 +# define REENTRANT_PROTO_I_TSR 49 +# define REENTRANT_PROTO_I_TsISBWRE 50 +# define REENTRANT_PROTO_I_UISBWRE 51 +# define REENTRANT_PROTO_I_uISBWRE 52 +# define REENTRANT_PROTO_S_CBI 53 +# define REENTRANT_PROTO_S_CCSBI 54 +# define REENTRANT_PROTO_S_CIISBIE 55 +# define REENTRANT_PROTO_S_CSBI 56 +# define REENTRANT_PROTO_S_CSBIE 57 +# define REENTRANT_PROTO_S_CWISBIE 58 +# define REENTRANT_PROTO_S_CWISBWIE 59 +# define REENTRANT_PROTO_S_ICSBI 60 +# define REENTRANT_PROTO_S_ISBI 61 +# define REENTRANT_PROTO_S_LISBI 62 +# define REENTRANT_PROTO_S_SBI 63 +# define REENTRANT_PROTO_S_SBIE 64 +# define REENTRANT_PROTO_S_SBW 65 +# define REENTRANT_PROTO_S_TISBI 66 +# define REENTRANT_PROTO_S_TSBI 67 +# define REENTRANT_PROTO_S_TSBIE 68 +# define REENTRANT_PROTO_S_TWISBIE 69 +# define REENTRANT_PROTO_V_D 70 +# define REENTRANT_PROTO_V_H 71 +# define REENTRANT_PROTO_V_ID 72 /* Defines for indicating which special features are supported. */ /* The getgrent getgrgid getgrnam using buffer? */ -#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH) -# define GETGRENT_R_HAS_BUFFER -#else -# undef GETGRENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI || GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI) -# define GETGRGID_R_HAS_BUFFER -#else -# undef GETGRGID_R_HAS_BUFFER -#endif -#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI) -# define GETGRNAM_R_HAS_BUFFER -#else -# undef GETGRNAM_R_HAS_BUFFER -#endif +# if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH) +# define GETGRENT_R_HAS_BUFFER +# else +# undef GETGRENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI || GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI) +# define GETGRGID_R_HAS_BUFFER +# else +# undef GETGRGID_R_HAS_BUFFER +# endif +# if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI) +# define GETGRNAM_R_HAS_BUFFER +# else +# undef GETGRNAM_R_HAS_BUFFER +# endif /* Any of the getgrent getgrgid getgrnam using buffer? */ -#if (defined(GETGRENT_R_HAS_BUFFER) || defined(GETGRGID_R_HAS_BUFFER) || defined(GETGRNAM_R_HAS_BUFFER)) -# define USE_GRENT_BUFFER -#else -# undef USE_GRENT_BUFFER -#endif +# if (defined(GETGRENT_R_HAS_BUFFER) || defined(GETGRGID_R_HAS_BUFFER) || defined(GETGRNAM_R_HAS_BUFFER)) +# define USE_GRENT_BUFFER +# else +# undef USE_GRENT_BUFFER +# endif /* The getgrent getgrgid getgrnam using ptr? */ -#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR) -# define GETGRENT_R_HAS_PTR -#else -# undef GETGRENT_R_HAS_PTR -#endif -#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR) -# define GETGRGID_R_HAS_PTR -#else -# undef GETGRGID_R_HAS_PTR -#endif -#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR) -# define GETGRNAM_R_HAS_PTR -#else -# undef GETGRNAM_R_HAS_PTR -#endif +# if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR) +# define GETGRENT_R_HAS_PTR +# else +# undef GETGRENT_R_HAS_PTR +# endif +# if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR) +# define GETGRGID_R_HAS_PTR +# else +# undef GETGRGID_R_HAS_PTR +# endif +# if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR) +# define GETGRNAM_R_HAS_PTR +# else +# undef GETGRNAM_R_HAS_PTR +# endif /* Any of the getgrent getgrgid getgrnam using ptr? */ -#if (defined(GETGRENT_R_HAS_PTR) || defined(GETGRGID_R_HAS_PTR) || defined(GETGRNAM_R_HAS_PTR)) -# define USE_GRENT_PTR -#else -# undef USE_GRENT_PTR -#endif +# if (defined(GETGRENT_R_HAS_PTR) || defined(GETGRGID_R_HAS_PTR) || defined(GETGRNAM_R_HAS_PTR)) +# define USE_GRENT_PTR +# else +# undef USE_GRENT_PTR +# endif /* The getpwent getpwnam getpwuid using ptr? */ -#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR) -# define GETPWENT_R_HAS_PTR -#else -# undef GETPWENT_R_HAS_PTR -#endif -#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR) -# define GETPWNAM_R_HAS_PTR -#else -# undef GETPWNAM_R_HAS_PTR -#endif -#if defined(HAS_GETPWUID_R) && (GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR) -# define GETPWUID_R_HAS_PTR -#else -# undef GETPWUID_R_HAS_PTR -#endif +# if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR) +# define GETPWENT_R_HAS_PTR +# else +# undef GETPWENT_R_HAS_PTR +# endif +# if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR) +# define GETPWNAM_R_HAS_PTR +# else +# undef GETPWNAM_R_HAS_PTR +# endif +# if defined(HAS_GETPWUID_R) && (GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR) +# define GETPWUID_R_HAS_PTR +# else +# undef GETPWUID_R_HAS_PTR +# endif /* Any of the getpwent getpwnam getpwuid using ptr? */ -#if (defined(GETPWENT_R_HAS_PTR) || defined(GETPWNAM_R_HAS_PTR) || defined(GETPWUID_R_HAS_PTR)) -# define USE_PWENT_PTR -#else -# undef USE_PWENT_PTR -#endif +# if (defined(GETPWENT_R_HAS_PTR) || defined(GETPWNAM_R_HAS_PTR) || defined(GETPWUID_R_HAS_PTR)) +# define USE_PWENT_PTR +# else +# undef USE_PWENT_PTR +# endif /* The getspent getspnam using ptr? */ -#if defined(HAS_GETSPNAM_R) && (GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR) -# define GETSPNAM_R_HAS_PTR -#else -# undef GETSPNAM_R_HAS_PTR -#endif +# if defined(HAS_GETSPNAM_R) && (GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR) +# define GETSPNAM_R_HAS_PTR +# else +# undef GETSPNAM_R_HAS_PTR +# endif /* Any of the getspent getspnam using ptr? */ -#if (defined(GETSPENT_R_HAS_PTR) || defined(GETSPNAM_R_HAS_PTR)) -# define USE_SPENT_PTR -#else -# undef USE_SPENT_PTR -#endif +# if (defined(GETSPENT_R_HAS_PTR) || defined(GETSPNAM_R_HAS_PTR)) +# define USE_SPENT_PTR +# else +# undef USE_SPENT_PTR +# endif /* The getgrent getgrgid getgrnam setgrent endgrent using fptr? */ -#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH) -# define GETGRENT_R_HAS_FPTR -#else -# undef GETGRENT_R_HAS_FPTR -#endif -#if defined(HAS_SETGRENT_R) && (SETGRENT_R_PROTO == REENTRANT_PROTO_I_H || SETGRENT_R_PROTO == REENTRANT_PROTO_V_H) -# define SETGRENT_R_HAS_FPTR -#else -# undef SETGRENT_R_HAS_FPTR -#endif -#if defined(HAS_ENDGRENT_R) && (ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H || ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H) -# define ENDGRENT_R_HAS_FPTR -#else -# undef ENDGRENT_R_HAS_FPTR -#endif +# if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH) +# define GETGRENT_R_HAS_FPTR +# else +# undef GETGRENT_R_HAS_FPTR +# endif +# if defined(HAS_SETGRENT_R) && (SETGRENT_R_PROTO == REENTRANT_PROTO_I_H || SETGRENT_R_PROTO == REENTRANT_PROTO_V_H) +# define SETGRENT_R_HAS_FPTR +# else +# undef SETGRENT_R_HAS_FPTR +# endif +# if defined(HAS_ENDGRENT_R) && (ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H || ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H) +# define ENDGRENT_R_HAS_FPTR +# else +# undef ENDGRENT_R_HAS_FPTR +# endif /* Any of the getgrent getgrgid getgrnam setgrent endgrent using fptr? */ -#if (defined(GETGRENT_R_HAS_FPTR) || defined(GETGRGID_R_HAS_FPTR) || defined(GETGRNAM_R_HAS_FPTR) || defined(SETGRENT_R_HAS_FPTR) || defined(ENDGRENT_R_HAS_FPTR)) -# define USE_GRENT_FPTR -#else -# undef USE_GRENT_FPTR -#endif +# if (defined(GETGRENT_R_HAS_FPTR) || defined(GETGRGID_R_HAS_FPTR) || defined(GETGRNAM_R_HAS_FPTR) || defined(SETGRENT_R_HAS_FPTR) || defined(ENDGRENT_R_HAS_FPTR)) +# define USE_GRENT_FPTR +# else +# undef USE_GRENT_FPTR +# endif /* The getpwent getpwnam getpwuid setpwent endpwent using fptr? */ -#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH) -# define GETPWENT_R_HAS_FPTR -#else -# undef GETPWENT_R_HAS_FPTR -#endif -#if defined(HAS_SETPWENT_R) && (SETPWENT_R_PROTO == REENTRANT_PROTO_I_H || SETPWENT_R_PROTO == REENTRANT_PROTO_V_H) -# define SETPWENT_R_HAS_FPTR -#else -# undef SETPWENT_R_HAS_FPTR -#endif -#if defined(HAS_ENDPWENT_R) && (ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H || ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H) -# define ENDPWENT_R_HAS_FPTR -#else -# undef ENDPWENT_R_HAS_FPTR -#endif +# if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH) +# define GETPWENT_R_HAS_FPTR +# else +# undef GETPWENT_R_HAS_FPTR +# endif +# if defined(HAS_SETPWENT_R) && (SETPWENT_R_PROTO == REENTRANT_PROTO_I_H || SETPWENT_R_PROTO == REENTRANT_PROTO_V_H) +# define SETPWENT_R_HAS_FPTR +# else +# undef SETPWENT_R_HAS_FPTR +# endif +# if defined(HAS_ENDPWENT_R) && (ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H || ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H) +# define ENDPWENT_R_HAS_FPTR +# else +# undef ENDPWENT_R_HAS_FPTR +# endif /* Any of the getpwent getpwnam getpwuid setpwent endpwent using fptr? */ -#if (defined(GETPWENT_R_HAS_FPTR) || defined(GETPWNAM_R_HAS_FPTR) || defined(GETPWUID_R_HAS_FPTR) || defined(SETPWENT_R_HAS_FPTR) || defined(ENDPWENT_R_HAS_FPTR)) -# define USE_PWENT_FPTR -#else -# undef USE_PWENT_FPTR -#endif +# if (defined(GETPWENT_R_HAS_FPTR) || defined(GETPWNAM_R_HAS_FPTR) || defined(GETPWUID_R_HAS_FPTR) || defined(SETPWENT_R_HAS_FPTR) || defined(ENDPWENT_R_HAS_FPTR)) +# define USE_PWENT_FPTR +# else +# undef USE_PWENT_FPTR +# endif /* The getpwent getpwgid getpwnam using buffer? */ -#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH) -# define GETPWENT_R_HAS_BUFFER -#else -# undef GETPWENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI) -# define GETPWNAM_R_HAS_BUFFER -#else -# undef GETPWNAM_R_HAS_BUFFER -#endif +# if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH) +# define GETPWENT_R_HAS_BUFFER +# else +# undef GETPWENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI) +# define GETPWNAM_R_HAS_BUFFER +# else +# undef GETPWNAM_R_HAS_BUFFER +# endif /* Any of the getpwent getpwgid getpwnam using buffer? */ -#if (defined(GETPWENT_R_HAS_BUFFER) || defined(GETPWGID_R_HAS_BUFFER) || defined(GETPWNAM_R_HAS_BUFFER)) -# define USE_PWENT_BUFFER -#else -# undef USE_PWENT_BUFFER -#endif +# if (defined(GETPWENT_R_HAS_BUFFER) || defined(GETPWGID_R_HAS_BUFFER) || defined(GETPWNAM_R_HAS_BUFFER)) +# define USE_PWENT_BUFFER +# else +# undef USE_PWENT_BUFFER +# endif /* The gethostent gethostbyaddr gethostbyname using ptr? */ -#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE) -# define GETHOSTENT_R_HAS_PTR -#else -# undef GETHOSTENT_R_HAS_PTR -#endif -#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) -# define GETHOSTBYADDR_R_HAS_PTR -#else -# undef GETHOSTBYADDR_R_HAS_PTR -#endif -#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) -# define GETHOSTBYNAME_R_HAS_PTR -#else -# undef GETHOSTBYNAME_R_HAS_PTR -#endif +# if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE) +# define GETHOSTENT_R_HAS_PTR +# else +# undef GETHOSTENT_R_HAS_PTR +# endif +# if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) +# define GETHOSTBYADDR_R_HAS_PTR +# else +# undef GETHOSTBYADDR_R_HAS_PTR +# endif +# if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) +# define GETHOSTBYNAME_R_HAS_PTR +# else +# undef GETHOSTBYNAME_R_HAS_PTR +# endif /* Any of the gethostent gethostbyaddr gethostbyname using ptr? */ -#if (defined(GETHOSTENT_R_HAS_PTR) || defined(GETHOSTBYADDR_R_HAS_PTR) || defined(GETHOSTBYNAME_R_HAS_PTR)) -# define USE_HOSTENT_PTR -#else -# undef USE_HOSTENT_PTR -#endif +# if (defined(GETHOSTENT_R_HAS_PTR) || defined(GETHOSTBYADDR_R_HAS_PTR) || defined(GETHOSTBYNAME_R_HAS_PTR)) +# define USE_HOSTENT_PTR +# else +# undef USE_HOSTENT_PTR +# endif /* The getnetent getnetbyaddr getnetbyname using ptr? */ -#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE) -# define GETNETENT_R_HAS_PTR -#else -# undef GETNETENT_R_HAS_PTR -#endif -#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) -# define GETNETBYADDR_R_HAS_PTR -#else -# undef GETNETBYADDR_R_HAS_PTR -#endif -#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) -# define GETNETBYNAME_R_HAS_PTR -#else -# undef GETNETBYNAME_R_HAS_PTR -#endif +# if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE) +# define GETNETENT_R_HAS_PTR +# else +# undef GETNETENT_R_HAS_PTR +# endif +# if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) +# define GETNETBYADDR_R_HAS_PTR +# else +# undef GETNETBYADDR_R_HAS_PTR +# endif +# if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) +# define GETNETBYNAME_R_HAS_PTR +# else +# undef GETNETBYNAME_R_HAS_PTR +# endif /* Any of the getnetent getnetbyaddr getnetbyname using ptr? */ -#if (defined(GETNETENT_R_HAS_PTR) || defined(GETNETBYADDR_R_HAS_PTR) || defined(GETNETBYNAME_R_HAS_PTR)) -# define USE_NETENT_PTR -#else -# undef USE_NETENT_PTR -#endif +# if (defined(GETNETENT_R_HAS_PTR) || defined(GETNETBYADDR_R_HAS_PTR) || defined(GETNETBYNAME_R_HAS_PTR)) +# define USE_NETENT_PTR +# else +# undef USE_NETENT_PTR +# endif /* The getprotoent getprotobyname getprotobynumber using ptr? */ -#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR) -# define GETPROTOENT_R_HAS_PTR -#else -# undef GETPROTOENT_R_HAS_PTR -#endif -#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR) -# define GETPROTOBYNAME_R_HAS_PTR -#else -# undef GETPROTOBYNAME_R_HAS_PTR -#endif -#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR) -# define GETPROTOBYNUMBER_R_HAS_PTR -#else -# undef GETPROTOBYNUMBER_R_HAS_PTR -#endif +# if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR) +# define GETPROTOENT_R_HAS_PTR +# else +# undef GETPROTOENT_R_HAS_PTR +# endif +# if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR) +# define GETPROTOBYNAME_R_HAS_PTR +# else +# undef GETPROTOBYNAME_R_HAS_PTR +# endif +# if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR) +# define GETPROTOBYNUMBER_R_HAS_PTR +# else +# undef GETPROTOBYNUMBER_R_HAS_PTR +# endif /* Any of the getprotoent getprotobyname getprotobynumber using ptr? */ -#if (defined(GETPROTOENT_R_HAS_PTR) || defined(GETPROTOBYNAME_R_HAS_PTR) || defined(GETPROTOBYNUMBER_R_HAS_PTR)) -# define USE_PROTOENT_PTR -#else -# undef USE_PROTOENT_PTR -#endif +# if (defined(GETPROTOENT_R_HAS_PTR) || defined(GETPROTOBYNAME_R_HAS_PTR) || defined(GETPROTOBYNUMBER_R_HAS_PTR)) +# define USE_PROTOENT_PTR +# else +# undef USE_PROTOENT_PTR +# endif /* The getservent getservbyname getservbyport using ptr? */ -#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR) -# define GETSERVENT_R_HAS_PTR -#else -# undef GETSERVENT_R_HAS_PTR -#endif -#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR) -# define GETSERVBYNAME_R_HAS_PTR -#else -# undef GETSERVBYNAME_R_HAS_PTR -#endif -#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR) -# define GETSERVBYPORT_R_HAS_PTR -#else -# undef GETSERVBYPORT_R_HAS_PTR -#endif +# if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR) +# define GETSERVENT_R_HAS_PTR +# else +# undef GETSERVENT_R_HAS_PTR +# endif +# if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR) +# define GETSERVBYNAME_R_HAS_PTR +# else +# undef GETSERVBYNAME_R_HAS_PTR +# endif +# if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR) +# define GETSERVBYPORT_R_HAS_PTR +# else +# undef GETSERVBYPORT_R_HAS_PTR +# endif /* Any of the getservent getservbyname getservbyport using ptr? */ -#if (defined(GETSERVENT_R_HAS_PTR) || defined(GETSERVBYNAME_R_HAS_PTR) || defined(GETSERVBYPORT_R_HAS_PTR)) -# define USE_SERVENT_PTR -#else -# undef USE_SERVENT_PTR -#endif +# if (defined(GETSERVENT_R_HAS_PTR) || defined(GETSERVBYNAME_R_HAS_PTR) || defined(GETSERVBYPORT_R_HAS_PTR)) +# define USE_SERVENT_PTR +# else +# undef USE_SERVENT_PTR +# endif /* The gethostent gethostbyaddr gethostbyname using buffer? */ -#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI) -# define GETHOSTENT_R_HAS_BUFFER -#else -# undef GETHOSTENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) -# define GETHOSTBYADDR_R_HAS_BUFFER -#else -# undef GETHOSTBYADDR_R_HAS_BUFFER -#endif -#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE) -# define GETHOSTBYNAME_R_HAS_BUFFER -#else -# undef GETHOSTBYNAME_R_HAS_BUFFER -#endif +# if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI) +# define GETHOSTENT_R_HAS_BUFFER +# else +# undef GETHOSTENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) +# define GETHOSTBYADDR_R_HAS_BUFFER +# else +# undef GETHOSTBYADDR_R_HAS_BUFFER +# endif +# if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE) +# define GETHOSTBYNAME_R_HAS_BUFFER +# else +# undef GETHOSTBYNAME_R_HAS_BUFFER +# endif /* Any of the gethostent gethostbyaddr gethostbyname using buffer? */ -#if (defined(GETHOSTENT_R_HAS_BUFFER) || defined(GETHOSTBYADDR_R_HAS_BUFFER) || defined(GETHOSTBYNAME_R_HAS_BUFFER)) -# define USE_HOSTENT_BUFFER -#else -# undef USE_HOSTENT_BUFFER -#endif +# if (defined(GETHOSTENT_R_HAS_BUFFER) || defined(GETHOSTBYADDR_R_HAS_BUFFER) || defined(GETHOSTBYNAME_R_HAS_BUFFER)) +# define USE_HOSTENT_BUFFER +# else +# undef USE_HOSTENT_BUFFER +# endif /* The getnetent getnetbyaddr getnetbyname using buffer? */ -#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI) -# define GETNETENT_R_HAS_BUFFER -#else -# undef GETNETENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) -# define GETNETBYADDR_R_HAS_BUFFER -#else -# undef GETNETBYADDR_R_HAS_BUFFER -#endif -#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI) -# define GETNETBYNAME_R_HAS_BUFFER -#else -# undef GETNETBYNAME_R_HAS_BUFFER -#endif +# if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI) +# define GETNETENT_R_HAS_BUFFER +# else +# undef GETNETENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) +# define GETNETBYADDR_R_HAS_BUFFER +# else +# undef GETNETBYADDR_R_HAS_BUFFER +# endif +# if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI) +# define GETNETBYNAME_R_HAS_BUFFER +# else +# undef GETNETBYNAME_R_HAS_BUFFER +# endif /* Any of the getnetent getnetbyaddr getnetbyname using buffer? */ -#if (defined(GETNETENT_R_HAS_BUFFER) || defined(GETNETBYADDR_R_HAS_BUFFER) || defined(GETNETBYNAME_R_HAS_BUFFER)) -# define USE_NETENT_BUFFER -#else -# undef USE_NETENT_BUFFER -#endif +# if (defined(GETNETENT_R_HAS_BUFFER) || defined(GETNETBYADDR_R_HAS_BUFFER) || defined(GETNETBYNAME_R_HAS_BUFFER)) +# define USE_NETENT_BUFFER +# else +# undef USE_NETENT_BUFFER +# endif /* The getprotoent getprotobyname getprotobynumber using buffer? */ -#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI) -# define GETPROTOENT_R_HAS_BUFFER -#else -# undef GETPROTOENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI) -# define GETPROTOBYNAME_R_HAS_BUFFER -#else -# undef GETPROTOBYNAME_R_HAS_BUFFER -#endif -#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR || GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI) -# define GETPROTOBYNUMBER_R_HAS_BUFFER -#else -# undef GETPROTOBYNUMBER_R_HAS_BUFFER -#endif +# if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI) +# define GETPROTOENT_R_HAS_BUFFER +# else +# undef GETPROTOENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI) +# define GETPROTOBYNAME_R_HAS_BUFFER +# else +# undef GETPROTOBYNAME_R_HAS_BUFFER +# endif +# if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR || GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI) +# define GETPROTOBYNUMBER_R_HAS_BUFFER +# else +# undef GETPROTOBYNUMBER_R_HAS_BUFFER +# endif /* Any of the getprotoent getprotobyname getprotobynumber using buffer? */ -#if (defined(GETPROTOENT_R_HAS_BUFFER) || defined(GETPROTOBYNAME_R_HAS_BUFFER) || defined(GETPROTOBYNUMBER_R_HAS_BUFFER)) -# define USE_PROTOENT_BUFFER -#else -# undef USE_PROTOENT_BUFFER -#endif +# if (defined(GETPROTOENT_R_HAS_BUFFER) || defined(GETPROTOBYNAME_R_HAS_BUFFER) || defined(GETPROTOBYNUMBER_R_HAS_BUFFER)) +# define USE_PROTOENT_BUFFER +# else +# undef USE_PROTOENT_BUFFER +# endif /* The getservent getservbyname getservbyport using buffer? */ -#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI) -# define GETSERVENT_R_HAS_BUFFER -#else -# undef GETSERVENT_R_HAS_BUFFER -#endif -#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR || GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI) -# define GETSERVBYNAME_R_HAS_BUFFER -#else -# undef GETSERVBYNAME_R_HAS_BUFFER -#endif -#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR || GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI) -# define GETSERVBYPORT_R_HAS_BUFFER -#else -# undef GETSERVBYPORT_R_HAS_BUFFER -#endif +# if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI) +# define GETSERVENT_R_HAS_BUFFER +# else +# undef GETSERVENT_R_HAS_BUFFER +# endif +# if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR || GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI) +# define GETSERVBYNAME_R_HAS_BUFFER +# else +# undef GETSERVBYNAME_R_HAS_BUFFER +# endif +# if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR || GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI) +# define GETSERVBYPORT_R_HAS_BUFFER +# else +# undef GETSERVBYPORT_R_HAS_BUFFER +# endif /* Any of the getservent getservbyname getservbyport using buffer? */ -#if (defined(GETSERVENT_R_HAS_BUFFER) || defined(GETSERVBYNAME_R_HAS_BUFFER) || defined(GETSERVBYPORT_R_HAS_BUFFER)) -# define USE_SERVENT_BUFFER -#else -# undef USE_SERVENT_BUFFER -#endif +# if (defined(GETSERVENT_R_HAS_BUFFER) || defined(GETSERVBYNAME_R_HAS_BUFFER) || defined(GETSERVBYPORT_R_HAS_BUFFER)) +# define USE_SERVENT_BUFFER +# else +# undef USE_SERVENT_BUFFER +# endif /* The gethostent gethostbyaddr gethostbyname using errno? */ -#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE) -# define GETHOSTENT_R_HAS_ERRNO -#else -# undef GETHOSTENT_R_HAS_ERRNO -#endif -#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) -# define GETHOSTBYADDR_R_HAS_ERRNO -#else -# undef GETHOSTBYADDR_R_HAS_ERRNO -#endif -#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE) -# define GETHOSTBYNAME_R_HAS_ERRNO -#else -# undef GETHOSTBYNAME_R_HAS_ERRNO -#endif +# if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE) +# define GETHOSTENT_R_HAS_ERRNO +# else +# undef GETHOSTENT_R_HAS_ERRNO +# endif +# if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE) +# define GETHOSTBYADDR_R_HAS_ERRNO +# else +# undef GETHOSTBYADDR_R_HAS_ERRNO +# endif +# if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE) +# define GETHOSTBYNAME_R_HAS_ERRNO +# else +# undef GETHOSTBYNAME_R_HAS_ERRNO +# endif /* Any of the gethostent gethostbyaddr gethostbyname using errno? */ -#if (defined(GETHOSTENT_R_HAS_ERRNO) || defined(GETHOSTBYADDR_R_HAS_ERRNO) || defined(GETHOSTBYNAME_R_HAS_ERRNO)) -# define USE_HOSTENT_ERRNO -#else -# undef USE_HOSTENT_ERRNO -#endif +# if (defined(GETHOSTENT_R_HAS_ERRNO) || defined(GETHOSTBYADDR_R_HAS_ERRNO) || defined(GETHOSTBYNAME_R_HAS_ERRNO)) +# define USE_HOSTENT_ERRNO +# else +# undef USE_HOSTENT_ERRNO +# endif /* The getnetent getnetbyaddr getnetbyname using errno? */ -#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE) -# define GETNETENT_R_HAS_ERRNO -#else -# undef GETNETENT_R_HAS_ERRNO -#endif -#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) -# define GETNETBYADDR_R_HAS_ERRNO -#else -# undef GETNETBYADDR_R_HAS_ERRNO -#endif -#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) -# define GETNETBYNAME_R_HAS_ERRNO -#else -# undef GETNETBYNAME_R_HAS_ERRNO -#endif +# if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE) +# define GETNETENT_R_HAS_ERRNO +# else +# undef GETNETENT_R_HAS_ERRNO +# endif +# if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE) +# define GETNETBYADDR_R_HAS_ERRNO +# else +# undef GETNETBYADDR_R_HAS_ERRNO +# endif +# if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE) +# define GETNETBYNAME_R_HAS_ERRNO +# else +# undef GETNETBYNAME_R_HAS_ERRNO +# endif /* Any of the getnetent getnetbyaddr getnetbyname using errno? */ -#if (defined(GETNETENT_R_HAS_ERRNO) || defined(GETNETBYADDR_R_HAS_ERRNO) || defined(GETNETBYNAME_R_HAS_ERRNO)) -# define USE_NETENT_ERRNO -#else -# undef USE_NETENT_ERRNO -#endif +# if (defined(GETNETENT_R_HAS_ERRNO) || defined(GETNETBYADDR_R_HAS_ERRNO) || defined(GETNETBYNAME_R_HAS_ERRNO)) +# define USE_NETENT_ERRNO +# else +# undef USE_NETENT_ERRNO +# endif typedef struct { -#ifdef HAS_ASCTIME_R + +# ifdef HAS_ASCTIME_R char* _asctime_buffer; size_t _asctime_size; -#endif /* HAS_ASCTIME_R */ -#ifdef HAS_CRYPT_R -#if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD +# endif /* HAS_ASCTIME_R */ + +# ifdef HAS_CRYPT_R +# if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD CRYPTD* _crypt_data; -#else +# else struct crypt_data *_crypt_struct_buffer; -#endif -#endif /* HAS_CRYPT_R */ -#ifdef HAS_CTIME_R +# endif +# endif /* HAS_CRYPT_R */ + +# ifdef HAS_CTIME_R char* _ctime_buffer; size_t _ctime_size; -#endif /* HAS_CTIME_R */ -#ifdef HAS_GETGRNAM_R +# endif /* HAS_CTIME_R */ + +# ifdef HAS_GETGRNAM_R struct group _grent_struct; char* _grent_buffer; size_t _grent_size; @@ -644,8 +648,9 @@ typedef struct { # ifdef USE_GRENT_FPTR FILE* _grent_fptr; # endif -#endif /* HAS_GETGRNAM_R */ -#ifdef HAS_GETHOSTBYNAME_R +# endif /* HAS_GETGRNAM_R */ + +# ifdef HAS_GETHOSTBYNAME_R struct hostent _hostent_struct; # if GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD struct hostent_data _hostent_data; @@ -658,13 +663,15 @@ typedef struct { # endif # ifdef USE_HOSTENT_ERRNO int _hostent_errno; -# endif -#endif /* HAS_GETHOSTBYNAME_R */ -#ifdef HAS_GETLOGIN_R +# endif +# endif /* HAS_GETHOSTBYNAME_R */ + +# ifdef HAS_GETLOGIN_R char* _getlogin_buffer; size_t _getlogin_size; -#endif /* HAS_GETLOGIN_R */ -#ifdef HAS_GETNETBYNAME_R +# endif /* HAS_GETLOGIN_R */ + +# ifdef HAS_GETNETBYNAME_R struct netent _netent_struct; # if GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD struct netent_data _netent_data; @@ -677,9 +684,10 @@ typedef struct { # endif # ifdef USE_NETENT_ERRNO int _netent_errno; -# endif -#endif /* HAS_GETNETBYNAME_R */ -#ifdef HAS_GETPROTOBYNAME_R +# endif +# endif /* HAS_GETNETBYNAME_R */ + +# ifdef HAS_GETPROTOBYNAME_R struct protoent _protoent_struct; # if GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD struct protoent_data _protoent_data; @@ -692,9 +700,10 @@ typedef struct { # endif # ifdef USE_PROTOENT_ERRNO int _protoent_errno; -# endif -#endif /* HAS_GETPROTOBYNAME_R */ -#ifdef HAS_GETPWNAM_R +# endif +# endif /* HAS_GETPROTOBYNAME_R */ + +# ifdef HAS_GETPWNAM_R struct passwd _pwent_struct; char* _pwent_buffer; size_t _pwent_size; @@ -704,8 +713,9 @@ typedef struct { # ifdef USE_PWENT_FPTR FILE* _pwent_fptr; # endif -#endif /* HAS_GETPWNAM_R */ -#ifdef HAS_GETSERVBYNAME_R +# endif /* HAS_GETPWNAM_R */ + +# ifdef HAS_GETSERVBYNAME_R struct servent _servent_struct; # if GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD struct servent_data _servent_data; @@ -718,9 +728,10 @@ typedef struct { # endif # ifdef USE_SERVENT_ERRNO int _servent_errno; -# endif -#endif /* HAS_GETSERVBYNAME_R */ -#ifdef HAS_GETSPNAM_R +# endif +# endif /* HAS_GETSERVBYNAME_R */ + +# ifdef HAS_GETSPNAM_R struct spwd _spent_struct; char* _spent_buffer; size_t _spent_size; @@ -730,40 +741,46 @@ typedef struct { # ifdef USE_SPENT_FPTR FILE* _spent_fptr; # endif -#endif /* HAS_GETSPNAM_R */ -#ifdef HAS_READDIR_R +# endif /* HAS_GETSPNAM_R */ + +# ifdef HAS_READDIR_R struct dirent* _readdir_struct; size_t _readdir_size; # if READDIR_R_PROTO == REENTRANT_PROTO_I_TSR struct dirent* _readdir_ptr; # endif -#endif /* HAS_READDIR_R */ -#ifdef HAS_READDIR64_R +# endif /* HAS_READDIR_R */ + +# ifdef HAS_READDIR64_R struct dirent64* _readdir64_struct; size_t _readdir64_size; # if READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR struct dirent64* _readdir64_ptr; # endif -#endif /* HAS_READDIR64_R */ -#ifdef HAS_SETLOCALE_R +# endif /* HAS_READDIR64_R */ + +# ifdef HAS_SETLOCALE_R char* _setlocale_buffer; size_t _setlocale_size; -#endif /* HAS_SETLOCALE_R */ -#ifdef HAS_STRERROR_R +# endif /* HAS_SETLOCALE_R */ + +# ifdef HAS_STRERROR_R char* _strerror_buffer; size_t _strerror_size; -#endif /* HAS_STRERROR_R */ -#ifdef HAS_TTYNAME_R +# endif /* HAS_STRERROR_R */ + +# ifdef HAS_TTYNAME_R char* _ttyname_buffer; size_t _ttyname_size; -#endif /* HAS_TTYNAME_R */ +# endif /* HAS_TTYNAME_R */ + int dummy; /* cannot have empty structs */ } REENTR; /* The wrappers. */ -#ifdef HAS_ASCTIME_R +# ifdef HAS_ASCTIME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef asctime # if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SB @@ -779,9 +796,10 @@ typedef struct { # define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0) # endif # endif -#endif /* HAS_ASCTIME_R */ +# endif /* HAS_ASCTIME_R */ + -#ifdef HAS_CRYPT_R +# ifdef HAS_CRYPT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef crypt # if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCS @@ -791,18 +809,20 @@ typedef struct { # define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->_crypt_data) # endif # endif -#endif /* HAS_CRYPT_R */ +# endif /* HAS_CRYPT_R */ + -#ifdef HAS_CTERMID_R +# ifdef HAS_CTERMID_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef ctermid # if !defined(ctermid) && CTERMID_R_PROTO == REENTRANT_PROTO_B_B # define ctermid(a) ctermid_r(a) # endif # endif -#endif /* HAS_CTERMID_R */ +# endif /* HAS_CTERMID_R */ -#ifdef HAS_CTIME_R + +# ifdef HAS_CTIME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef ctime # if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SB @@ -818,9 +838,10 @@ typedef struct { # define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0) # endif # endif -#endif /* HAS_CTIME_R */ +# endif /* HAS_CTIME_R */ + -#ifdef HAS_ENDGRENT_R +# ifdef HAS_ENDGRENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endgrent # if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H @@ -830,9 +851,10 @@ typedef struct { # define endgrent() endgrent_r(&PL_reentrant_buffer->_grent_fptr) # endif # endif -#endif /* HAS_ENDGRENT_R */ +# endif /* HAS_ENDGRENT_R */ -#ifdef HAS_ENDHOSTENT_R + +# ifdef HAS_ENDHOSTENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endhostent # if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_I_D @@ -842,9 +864,10 @@ typedef struct { # define endhostent() endhostent_r(&PL_reentrant_buffer->_hostent_data) # endif # endif -#endif /* HAS_ENDHOSTENT_R */ +# endif /* HAS_ENDHOSTENT_R */ + -#ifdef HAS_ENDNETENT_R +# ifdef HAS_ENDNETENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endnetent # if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_I_D @@ -854,9 +877,10 @@ typedef struct { # define endnetent() endnetent_r(&PL_reentrant_buffer->_netent_data) # endif # endif -#endif /* HAS_ENDNETENT_R */ +# endif /* HAS_ENDNETENT_R */ -#ifdef HAS_ENDPROTOENT_R + +# ifdef HAS_ENDPROTOENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endprotoent # if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_I_D @@ -866,9 +890,10 @@ typedef struct { # define endprotoent() endprotoent_r(&PL_reentrant_buffer->_protoent_data) # endif # endif -#endif /* HAS_ENDPROTOENT_R */ +# endif /* HAS_ENDPROTOENT_R */ + -#ifdef HAS_ENDPWENT_R +# ifdef HAS_ENDPWENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endpwent # if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H @@ -878,9 +903,10 @@ typedef struct { # define endpwent() endpwent_r(&PL_reentrant_buffer->_pwent_fptr) # endif # endif -#endif /* HAS_ENDPWENT_R */ +# endif /* HAS_ENDPWENT_R */ + -#ifdef HAS_ENDSERVENT_R +# ifdef HAS_ENDSERVENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef endservent # if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_I_D @@ -890,9 +916,10 @@ typedef struct { # define endservent() endservent_r(&PL_reentrant_buffer->_servent_data) # endif # endif -#endif /* HAS_ENDSERVENT_R */ +# endif /* HAS_ENDSERVENT_R */ -#ifdef HAS_GETGRENT_R + +# ifdef HAS_GETGRENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrent # if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR @@ -914,9 +941,10 @@ typedef struct { # define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_fptr)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0)) # endif # endif -#endif /* HAS_GETGRENT_R */ +# endif /* HAS_GETGRENT_R */ + -#ifdef HAS_GETGRGID_R +# ifdef HAS_GETGRGID_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrgid # if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR @@ -932,9 +960,10 @@ typedef struct { # define getgrgid(a) (getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0)) # endif # endif -#endif /* HAS_GETGRGID_R */ +# endif /* HAS_GETGRGID_R */ + -#ifdef HAS_GETGRNAM_R +# ifdef HAS_GETGRNAM_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getgrnam # if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR @@ -953,9 +982,10 @@ typedef struct { # define getgrnam(a) (getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0)) # endif # endif -#endif /* HAS_GETGRNAM_R */ +# endif /* HAS_GETGRNAM_R */ -#ifdef HAS_GETHOSTBYADDR_R + +# ifdef HAS_GETHOSTBYADDR_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostbyaddr # if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE @@ -992,9 +1022,10 @@ typedef struct { # define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0)) # endif # endif -#endif /* HAS_GETHOSTBYADDR_R */ +# endif /* HAS_GETHOSTBYADDR_R */ + -#ifdef HAS_GETHOSTBYNAME_R +# ifdef HAS_GETHOSTBYNAME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostbyname # if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE @@ -1007,9 +1038,10 @@ typedef struct { # define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0)) # endif # endif -#endif /* HAS_GETHOSTBYNAME_R */ +# endif /* HAS_GETHOSTBYNAME_R */ + -#ifdef HAS_GETHOSTENT_R +# ifdef HAS_GETHOSTENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef gethostent # if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE @@ -1031,9 +1063,10 @@ typedef struct { # define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0)) # endif # endif -#endif /* HAS_GETHOSTENT_R */ +# endif /* HAS_GETHOSTENT_R */ -#ifdef HAS_GETLOGIN_R + +# ifdef HAS_GETLOGIN_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getlogin # if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BW @@ -1049,9 +1082,10 @@ typedef struct { # define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size) # endif # endif -#endif /* HAS_GETLOGIN_R */ +# endif /* HAS_GETLOGIN_R */ + -#ifdef HAS_GETNETBYADDR_R +# ifdef HAS_GETNETBYADDR_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetbyaddr # if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE @@ -1079,9 +1113,10 @@ typedef struct { # define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0)) # endif # endif -#endif /* HAS_GETNETBYADDR_R */ +# endif /* HAS_GETNETBYADDR_R */ -#ifdef HAS_GETNETBYNAME_R + +# ifdef HAS_GETNETBYNAME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetbyname # if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE @@ -1097,9 +1132,10 @@ typedef struct { # define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0)) # endif # endif -#endif /* HAS_GETNETBYNAME_R */ +# endif /* HAS_GETNETBYNAME_R */ + -#ifdef HAS_GETNETENT_R +# ifdef HAS_GETNETENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getnetent # if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE @@ -1121,9 +1157,10 @@ typedef struct { # define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0)) # endif # endif -#endif /* HAS_GETNETENT_R */ +# endif /* HAS_GETNETENT_R */ -#ifdef HAS_GETPROTOBYNAME_R + +# ifdef HAS_GETPROTOBYNAME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotobyname # if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR @@ -1136,9 +1173,10 @@ typedef struct { # define getprotobyname(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0)) # endif # endif -#endif /* HAS_GETPROTOBYNAME_R */ +# endif /* HAS_GETPROTOBYNAME_R */ + -#ifdef HAS_GETPROTOBYNUMBER_R +# ifdef HAS_GETPROTOBYNUMBER_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotobynumber # if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR @@ -1151,9 +1189,10 @@ typedef struct { # define getprotobynumber(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0)) # endif # endif -#endif /* HAS_GETPROTOBYNUMBER_R */ +# endif /* HAS_GETPROTOBYNUMBER_R */ + -#ifdef HAS_GETPROTOENT_R +# ifdef HAS_GETPROTOENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getprotoent # if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR @@ -1169,9 +1208,10 @@ typedef struct { # define getprotoent() (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0)) # endif # endif -#endif /* HAS_GETPROTOENT_R */ +# endif /* HAS_GETPROTOENT_R */ -#ifdef HAS_GETPWENT_R + +# ifdef HAS_GETPWENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwent # if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR @@ -1193,9 +1233,10 @@ typedef struct { # define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_fptr)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0)) # endif # endif -#endif /* HAS_GETPWENT_R */ +# endif /* HAS_GETPWENT_R */ + -#ifdef HAS_GETPWNAM_R +# ifdef HAS_GETPWNAM_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwnam # if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR @@ -1211,9 +1252,10 @@ typedef struct { # define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0)) # endif # endif -#endif /* HAS_GETPWNAM_R */ +# endif /* HAS_GETPWNAM_R */ -#ifdef HAS_GETPWUID_R + +# ifdef HAS_GETPWUID_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getpwuid # if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR @@ -1229,9 +1271,10 @@ typedef struct { # define getpwuid(a) (getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0)) # endif # endif -#endif /* HAS_GETPWUID_R */ +# endif /* HAS_GETPWUID_R */ + -#ifdef HAS_GETSERVBYNAME_R +# ifdef HAS_GETSERVBYNAME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservbyname # if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR @@ -1244,9 +1287,10 @@ typedef struct { # define getservbyname(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0)) # endif # endif -#endif /* HAS_GETSERVBYNAME_R */ +# endif /* HAS_GETSERVBYNAME_R */ -#ifdef HAS_GETSERVBYPORT_R + +# ifdef HAS_GETSERVBYPORT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservbyport # if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR @@ -1259,9 +1303,10 @@ typedef struct { # define getservbyport(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0)) # endif # endif -#endif /* HAS_GETSERVBYPORT_R */ +# endif /* HAS_GETSERVBYPORT_R */ + -#ifdef HAS_GETSERVENT_R +# ifdef HAS_GETSERVENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getservent # if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR @@ -1277,9 +1322,10 @@ typedef struct { # define getservent() (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0)) # endif # endif -#endif /* HAS_GETSERVENT_R */ +# endif /* HAS_GETSERVENT_R */ + -#ifdef HAS_GETSPNAM_R +# ifdef HAS_GETSPNAM_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef getspnam # if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR @@ -1289,9 +1335,10 @@ typedef struct { # define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size) ? &PL_reentrant_buffer->_spent_struct : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0)) # endif # endif -#endif /* HAS_GETSPNAM_R */ +# endif /* HAS_GETSPNAM_R */ -#ifdef HAS_READDIR_R + +# ifdef HAS_READDIR_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef readdir # if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TSR @@ -1301,9 +1348,10 @@ typedef struct { # define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct) == 0 ? PL_reentrant_buffer->_readdir_struct : 0) # endif # endif -#endif /* HAS_READDIR_R */ +# endif /* HAS_READDIR_R */ + -#ifdef HAS_READDIR64_R +# ifdef HAS_READDIR64_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef readdir64 # if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR @@ -1313,9 +1361,10 @@ typedef struct { # define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct) == 0 ? PL_reentrant_buffer->_readdir64_struct : 0) # endif # endif -#endif /* HAS_READDIR64_R */ +# endif /* HAS_READDIR64_R */ -#ifdef HAS_SETGRENT_R + +# ifdef HAS_SETGRENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setgrent # if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_I_H @@ -1325,9 +1374,10 @@ typedef struct { # define setgrent() setgrent_r(&PL_reentrant_buffer->_grent_fptr) # endif # endif -#endif /* HAS_SETGRENT_R */ +# endif /* HAS_SETGRENT_R */ + -#ifdef HAS_SETHOSTENT_R +# ifdef HAS_SETHOSTENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef sethostent # if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_I_ID @@ -1337,18 +1387,20 @@ typedef struct { # define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->_hostent_data) # endif # endif -#endif /* HAS_SETHOSTENT_R */ +# endif /* HAS_SETHOSTENT_R */ -#ifdef HAS_SETLOCALE_R + +# ifdef HAS_SETLOCALE_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setlocale # if !defined(setlocale) && SETLOCALE_R_PROTO == REENTRANT_PROTO_I_ICBI # define setlocale(a, b) (setlocale_r(a, b, PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size) == 0 ? PL_reentrant_buffer->_setlocale_buffer : 0) # endif # endif -#endif /* HAS_SETLOCALE_R */ +# endif /* HAS_SETLOCALE_R */ + -#ifdef HAS_SETNETENT_R +# ifdef HAS_SETNETENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setnetent # if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_I_ID @@ -1358,9 +1410,10 @@ typedef struct { # define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->_netent_data) # endif # endif -#endif /* HAS_SETNETENT_R */ +# endif /* HAS_SETNETENT_R */ + -#ifdef HAS_SETPROTOENT_R +# ifdef HAS_SETPROTOENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setprotoent # if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_I_ID @@ -1370,9 +1423,10 @@ typedef struct { # define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) # endif # endif -#endif /* HAS_SETPROTOENT_R */ +# endif /* HAS_SETPROTOENT_R */ -#ifdef HAS_SETPWENT_R + +# ifdef HAS_SETPWENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setpwent # if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_I_H @@ -1382,9 +1436,10 @@ typedef struct { # define setpwent() setpwent_r(&PL_reentrant_buffer->_pwent_fptr) # endif # endif -#endif /* HAS_SETPWENT_R */ +# endif /* HAS_SETPWENT_R */ + -#ifdef HAS_SETSERVENT_R +# ifdef HAS_SETSERVENT_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef setservent # if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_I_ID @@ -1394,9 +1449,10 @@ typedef struct { # define setservent(a) setservent_r(a, &PL_reentrant_buffer->_servent_data) # endif # endif -#endif /* HAS_SETSERVENT_R */ +# endif /* HAS_SETSERVENT_R */ + -#ifdef HAS_STRERROR_R +# ifdef HAS_STRERROR_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef strerror # if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBW @@ -1409,18 +1465,20 @@ typedef struct { # define strerror(a) strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) # endif # endif -#endif /* HAS_STRERROR_R */ +# endif /* HAS_STRERROR_R */ -#ifdef HAS_TMPNAM_R + +# ifdef HAS_TMPNAM_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef tmpnam # if !defined(tmpnam) && TMPNAM_R_PROTO == REENTRANT_PROTO_B_B # define tmpnam(a) tmpnam_r(a) # endif # endif -#endif /* HAS_TMPNAM_R */ +# endif /* HAS_TMPNAM_R */ + -#ifdef HAS_TTYNAME_R +# ifdef HAS_TTYNAME_R # if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) # undef ttyname # if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBW @@ -1433,12 +1491,12 @@ typedef struct { # define ttyname(a) ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) # endif # endif -#endif /* HAS_TTYNAME_R */ +# endif /* HAS_TTYNAME_R */ #endif /* USE_REENTRANT_API */ - + #endif /* ex: set ro: */ diff --git a/regen/reentr.pl b/regen/reentr.pl index e50768d17e..d3ed8cad4b 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# +# # Regenerate (overwriting only if changed): # # reentr.h @@ -29,7 +29,7 @@ getopts('Uv', \%opts); my %map = ( V => "void", A => "char*", # as an input argument - B => "char*", # as an output argument + B => "char*", # as an output argument C => "const char*", # as a read-only input argument I => "int", L => "long", @@ -73,15 +73,15 @@ print $h <<EOF; */ #ifndef PERL_REENTR_API -# if defined(PERL_CORE) || defined(PERL_EXT) || defined(PERL_REENTRANT) -# define PERL_REENTR_API 1 -# else -# define PERL_REENTR_API 0 -# endif +# if defined(PERL_CORE) || defined(PERL_EXT) || defined(PERL_REENTRANT) +# define PERL_REENTR_API 1 +# else +# define PERL_REENTR_API 0 +# endif #endif #ifdef USE_REENTRANT_API - + /* Deprecations: some platforms have the said reentrant interfaces * but they are declared obsolete and are not to be used. Often this * means that the platform has threadsafed the interfaces (hopefully). @@ -89,81 +89,81 @@ print $h <<EOF; * If you know of more deprecations on some platforms, please add your own * (by editing reentr.pl, mind!) */ -#ifdef __hpux -# undef HAS_CRYPT_R -# undef HAS_ENDGRENT_R -# undef HAS_ENDPWENT_R -# undef HAS_GETGRENT_R -# undef HAS_GETPWENT_R -# undef HAS_SETLOCALE_R -# undef HAS_STRERROR_R -# define NETDB_R_OBSOLETE -#endif +# ifdef __hpux +# undef HAS_CRYPT_R +# undef HAS_ENDGRENT_R +# undef HAS_ENDPWENT_R +# undef HAS_GETGRENT_R +# undef HAS_GETPWENT_R +# undef HAS_SETLOCALE_R +# undef HAS_STRERROR_R +# define NETDB_R_OBSOLETE +# endif -#if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */ -# undef HAS_CRYPT_R -# undef HAS_STRERROR_R -# define NETDB_R_OBSOLETE -#endif +# if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */ +# undef HAS_CRYPT_R +# undef HAS_STRERROR_R +# define NETDB_R_OBSOLETE +# endif -#if defined(__GLIBC__) && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 24)) -# undef HAS_READDIR_R -# undef HAS_READDIR64_R -#endif +# if defined(__GLIBC__) && (__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 24)) +# undef HAS_READDIR_R +# undef HAS_READDIR64_R +# endif /* * As of OpenBSD 3.7, reentrant functions are now working, they just are * incompatible with everyone else. To make OpenBSD happy, we have to * memzero out certain structures before calling the functions. */ -#if defined(__OpenBSD__) +# if defined(__OpenBSD__) # define REENTR_MEMZERO(a,b) memzero(a,b) -#else +# else # define REENTR_MEMZERO(a,b) 0 -#endif - -#ifdef NETDB_R_OBSOLETE -# undef HAS_ENDHOSTENT_R -# undef HAS_ENDNETENT_R -# undef HAS_ENDPROTOENT_R -# undef HAS_ENDSERVENT_R -# undef HAS_GETHOSTBYADDR_R -# undef HAS_GETHOSTBYNAME_R -# undef HAS_GETHOSTENT_R -# undef HAS_GETNETBYADDR_R -# undef HAS_GETNETBYNAME_R -# undef HAS_GETNETENT_R -# undef HAS_GETPROTOBYNAME_R -# undef HAS_GETPROTOBYNUMBER_R -# undef HAS_GETPROTOENT_R -# undef HAS_GETSERVBYNAME_R -# undef HAS_GETSERVBYPORT_R -# undef HAS_GETSERVENT_R -# undef HAS_SETHOSTENT_R -# undef HAS_SETNETENT_R -# undef HAS_SETPROTOENT_R -# undef HAS_SETSERVENT_R -#endif +# endif -#ifdef I_PWD -# include <pwd.h> -#endif -#ifdef I_GRP -# include <grp.h> -#endif -#ifdef I_NETDB -# include <netdb.h> -#endif -#ifdef I_CRYPT -# ifdef I_CRYPT -# include <crypt.h> -# endif -#endif -#ifdef HAS_GETSPNAM_R -# ifdef I_SHADOW -# include <shadow.h> -# endif -#endif +# ifdef NETDB_R_OBSOLETE +# undef HAS_ENDHOSTENT_R +# undef HAS_ENDNETENT_R +# undef HAS_ENDPROTOENT_R +# undef HAS_ENDSERVENT_R +# undef HAS_GETHOSTBYADDR_R +# undef HAS_GETHOSTBYNAME_R +# undef HAS_GETHOSTENT_R +# undef HAS_GETNETBYADDR_R +# undef HAS_GETNETBYNAME_R +# undef HAS_GETNETENT_R +# undef HAS_GETPROTOBYNAME_R +# undef HAS_GETPROTOBYNUMBER_R +# undef HAS_GETPROTOENT_R +# undef HAS_GETSERVBYNAME_R +# undef HAS_GETSERVBYPORT_R +# undef HAS_GETSERVENT_R +# undef HAS_SETHOSTENT_R +# undef HAS_SETNETENT_R +# undef HAS_SETPROTOENT_R +# undef HAS_SETSERVENT_R +# endif + +# ifdef I_PWD +# include <pwd.h> +# endif +# ifdef I_GRP +# include <grp.h> +# endif +# ifdef I_NETDB +# include <netdb.h> +# endif +# ifdef I_CRYPT +# ifdef I_CRYPT +# include <crypt.h> +# endif +# endif +# ifdef HAS_GETSPNAM_R +# ifdef I_SHADOW +# include <shadow.h> +# endif +# endif EOF @@ -204,7 +204,7 @@ while (<DATA>) { # Read in the protoypes. # If given the -U option open up the metaconfig unit for this function. if ($opts{U} && open(U, ">", "d_${func}_r.U")) { - binmode U; + binmode U; } if ($opts{U}) { @@ -305,7 +305,7 @@ EOF print U <<"EOF"; case "\$${func}_r_proto" in ''|0) d_${func}_r=undef - ${func}_r_proto=0 + ${func}_r_proto=0 echo "Disabling ${func}_r, cannot determine prototype." >&4 ;; * ) case "\$${func}_r_proto" in REENTRANT_PROTO*) ;; @@ -327,7 +327,7 @@ EOF esac EOF - close(U); + close(U); } } @@ -337,7 +337,7 @@ close DATA; # Write out all the known prototype signatures. my $i = 1; for my $p (sort keys %seenp) { - print $h "#define REENTRANT_PROTO_${p} ${i}\n"; + print $h "# define REENTRANT_PROTO_${p} ${i}\n"; $i++; } } @@ -390,13 +390,13 @@ EOF $GENFUNC =~ s/^GET//; } if (@h) { - push @define, "#if defined(HAS_${FUNC}_R) && (" . join(" || ", map { "${FUNC}_R_PROTO == REENTRANT_PROTO_$_" } @h) . ")\n"; + push @define, "# if defined(HAS_${FUNC}_R) && (" . join(" || ", map { "${FUNC}_R_PROTO == REENTRANT_PROTO_$_" } @h) . ")\n"; push @define, <<EOF; -# define $HAS -#else -# undef $HAS -#endif +# define $HAS +# else +# undef $HAS +# endif EOF } } @@ -406,12 +406,12 @@ EOF /* Any of the @F using \L$n? */ EOF - push @define, "#if (" . join(" || ", map { "defined($_)" } @H) . ")\n"; + push @define, "# if (" . join(" || ", map { "defined($_)" } @H) . ")\n"; push @define, <<EOF; -# define USE_${GENFUNC}_$n -#else -# undef USE_${GENFUNC}_$n -#endif +# define USE_${GENFUNC}_$n +# else +# undef USE_${GENFUNC}_$n +# endif EOF } @@ -467,8 +467,8 @@ define('ERRNO', 'E', for my $func (@seenf) { my $FUNC = uc $func; - my $ifdef = "#ifdef HAS_${FUNC}_R\n"; - my $endif = "#endif /* HAS_${FUNC}_R */\n"; + my $ifdef = "# ifdef HAS_${FUNC}_R\n"; + my $endif = "# endif /* HAS_${FUNC}_R */\n\n"; if (exists $seena{$func}) { my @p = @{$seena{$func}}; if ($func =~ /^(asctime|ctime|getlogin|setlocale|strerror|ttyname)$/) { @@ -486,21 +486,21 @@ EOF elsif ($func =~ /^(crypt)$/) { pushssif $ifdef; push @struct, <<EOF; -#if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD +# if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD $seend{$func} _${func}_data; -#else +# else $seent{$func} *_${func}_struct_buffer; -#endif +# endif EOF - push @init, <<EOF; -#if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD + push @init, <<EOF; +# if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD PL_reentrant_buffer->_${func}_struct_buffer = 0; -#endif +# endif EOF - push @free, <<EOF; -#if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD + push @free, <<EOF; +# if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD Safefree(PL_reentrant_buffer->_${func}_struct_buffer); -#endif +# endif EOF pushssif $endif; } @@ -536,17 +536,17 @@ EOF '_SC_GETGR_R_SIZE_MAX' : '_SC_GETPW_R_SIZE_MAX'; my $sz = "_${genfunc}_size"; push @size, <<EOF; -# if defined(HAS_SYSCONF) && defined($sc) && !defined(__GLIBC__) +# if defined(HAS_SYSCONF) && defined($sc) && !defined(__GLIBC__) PL_reentrant_buffer->$sz = sysconf($sc); if (PL_reentrant_buffer->$sz == (size_t) -1) PL_reentrant_buffer->$sz = REENTRANTUSUALSIZE; -# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) +# elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ) PL_reentrant_buffer->$sz = SIABUFSIZ; -# elif defined(__sgi) +# elif defined(__sgi) PL_reentrant_buffer->$sz = BUFSIZ; -# else +# else PL_reentrant_buffer->$sz = REENTRANTUSUALSIZE; -# endif +# endif EOF pushinitfree $genfunc; pushssif $endif; @@ -572,25 +572,25 @@ EOF $seent{$func}* _${genfunc}_ptr; # endif EOF - push @struct, <<EOF; + push @struct, <<EOF; # ifdef USE_${GENFUNC}_ERRNO int _${genfunc}_errno; -# endif +# endif EOF push @size, <<EOF; -#if !($D) +# if !($D) PL_reentrant_buffer->_${genfunc}_size = REENTRANTUSUALSIZE; -#endif +# endif EOF push @init, <<EOF; -#if !($D) +# if !($D) Newx(PL_reentrant_buffer->_${genfunc}_buffer, PL_reentrant_buffer->_${genfunc}_size, char); -#endif +# endif EOF push @free, <<EOF; -#if !($D) +# if !($D) Safefree(PL_reentrant_buffer->_${genfunc}_buffer); -#endif +# endif EOF pushssif $endif; } @@ -609,7 +609,7 @@ EOF * (though we go static, should use pathconf() instead) */ PL_reentrant_buffer->_${func}_size = sizeof($seent{$func}) + MAXPATHLEN + 1; EOF - push @init, <<EOF; + push @init, <<EOF; PL_reentrant_buffer->_${func}_struct = ($seent{$func}*)safemalloc(PL_reentrant_buffer->_${func}_size); EOF push @free, <<EOF; @@ -731,6 +731,7 @@ print $h <<EOF; @define typedef struct { + @struct int dummy; /* cannot have empty structs */ } REENTR; @@ -738,9 +739,8 @@ typedef struct { /* The wrappers. */ @wrap - #endif /* USE_REENTRANT_API */ - + #endif EOF @@ -764,7 +764,7 @@ my $c = open_print_header('reentr.c', <<'EOQ'); * various library calls, such as getpwent_r. The wrapping is done so * that other files like pp_sys.c calling those library functions need not * care about the differences between various platforms' idiosyncrasies - * regarding these reentrant interfaces. + * regarding these reentrant interfaces. */ EOQ @@ -788,10 +788,12 @@ Perl_reentrant_size(pTHX) { /* Set the sizes of the reentrant buffers */ #ifdef USE_REENTRANT_API -#define REENTRANTSMALLSIZE 256 /* Make something up. */ -#define REENTRANTUSUALSIZE 4096 /* Make something up. */ +# define REENTRANTSMALLSIZE 256 /* Make something up. */ +# define REENTRANTUSUALSIZE 4096 /* Make something up. */ + @size #endif /* USE_REENTRANT_API */ + } void @@ -801,10 +803,13 @@ Perl_reentrant_init(pTHX) { /* Initialize the whole thing */ #ifdef USE_REENTRANT_API + Newx(PL_reentrant_buffer, 1, REENTR); Perl_reentrant_size(aTHX); + @init #endif /* USE_REENTRANT_API */ + } void @@ -814,8 +819,10 @@ Perl_reentrant_free(pTHX) { /* Tear down */ #ifdef USE_REENTRANT_API + @free Safefree(PL_reentrant_buffer); + #endif /* USE_REENTRANT_API */ } @@ -836,14 +843,20 @@ Perl_reentrant_retry(const char *f, ...) void *retptr = NULL; va_list ap; + #ifdef USE_REENTRANT_API + dTHX; + /* Easier to special case this here than in embed.pl. (Look at what it generates for proto.h) */ PERL_ARGS_ASSERT_REENTRANT_RETRY; + #endif + va_start(ap, f); { + #ifdef USE_REENTRANT_API # if defined(USE_HOSTENT_BUFFER) || defined(USE_GRENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PWENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SERVENT_BUFFER) void *p0; @@ -859,19 +872,22 @@ Perl_reentrant_retry(const char *f, ...) # endif switch (PL_op->op_type) { -#ifdef USE_HOSTENT_BUFFER + +# ifdef USE_HOSTENT_BUFFER + case OP_GHBYADDR: case OP_GHBYNAME: case OP_GHOSTENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_hostent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_hostent_buffer, - &PL_reentrant_buffer->_hostent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_hostent_buffer, + &PL_reentrant_buffer->_hostent_size, char); + switch (PL_op->op_type) { case OP_GHBYADDR: p0 = va_arg(ap, void *); asize = va_arg(ap, size_t); @@ -885,59 +901,66 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_GRENT_BUFFER + +# endif +# ifdef USE_GRENT_BUFFER + case OP_GGRNAM: case OP_GGRGID: case OP_GGRENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_grent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { Gid_t gid; - RenewDouble(PL_reentrant_buffer->_grent_buffer, - &PL_reentrant_buffer->_grent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_grent_buffer, + &PL_reentrant_buffer->_grent_size, char); + switch (PL_op->op_type) { case OP_GGRNAM: p0 = va_arg(ap, void *); retptr = getgrnam((char *)p0); break; - case OP_GGRGID: -#if Gid_t_size < INTSIZE - gid = (Gid_t)va_arg(ap, int); -#else + case OP_GGRGID: + +# if Gid_t_size < INTSIZE + gid = (Gid_t)va_arg(ap, int); +# else gid = va_arg(ap, Gid_t); -#endif +# endif retptr = getgrgid(gid); break; case OP_GGRENT: retptr = getgrent(); break; default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_NETENT_BUFFER + +# endif +# ifdef USE_NETENT_BUFFER + case OP_GNBYADDR: case OP_GNBYNAME: case OP_GNETENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_netent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { Netdb_net_t net; - RenewDouble(PL_reentrant_buffer->_netent_buffer, - &PL_reentrant_buffer->_netent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_netent_buffer, + &PL_reentrant_buffer->_netent_size, char); + switch (PL_op->op_type) { case OP_GNBYADDR: net = va_arg(ap, Netdb_net_t); anint = va_arg(ap, int); @@ -950,60 +973,69 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } - } + } + } } break; -#endif -#ifdef USE_PWENT_BUFFER + +# endif +# ifdef USE_PWENT_BUFFER + case OP_GPWNAM: case OP_GPWUID: case OP_GPWENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_pwent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif + +# endif { Uid_t uid; - RenewDouble(PL_reentrant_buffer->_pwent_buffer, - &PL_reentrant_buffer->_pwent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_pwent_buffer, + &PL_reentrant_buffer->_pwent_size, char); + switch (PL_op->op_type) { case OP_GPWNAM: p0 = va_arg(ap, void *); retptr = getpwnam((char *)p0); break; case OP_GPWUID: -#if Uid_t_size < INTSIZE + +# if Uid_t_size < INTSIZE uid = (Uid_t)va_arg(ap, int); -#else +# else uid = va_arg(ap, Uid_t); -#endif +# endif retptr = getpwuid(uid); break; -#if defined(HAS_GETPWENT) || defined(HAS_GETPWENT_R) + +# if defined(HAS_GETPWENT) || defined(HAS_GETPWENT_R) case OP_GPWENT: retptr = getpwent(); break; -#endif +# endif default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_PROTOENT_BUFFER + +# endif +# ifdef USE_PROTOENT_BUFFER + case OP_GPBYNAME: case OP_GPBYNUMBER: case OP_GPROTOENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_protoent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_protoent_buffer, - &PL_reentrant_buffer->_protoent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_protoent_buffer, + &PL_reentrant_buffer->_protoent_size, char); + switch (PL_op->op_type) { case OP_GPBYNAME: p0 = va_arg(ap, void *); retptr = getprotobyname((char *)p0); break; @@ -1015,24 +1047,27 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif -#ifdef USE_SERVENT_BUFFER + +# endif +# ifdef USE_SERVENT_BUFFER + case OP_GSBYNAME: case OP_GSBYPORT: case OP_GSERVENT: { -#ifdef PERL_REENTRANT_MAXSIZE + +# ifdef PERL_REENTRANT_MAXSIZE if (PL_reentrant_buffer->_servent_size <= PERL_REENTRANT_MAXSIZE / 2) -#endif +# endif { - RenewDouble(PL_reentrant_buffer->_servent_buffer, - &PL_reentrant_buffer->_servent_size, char); - switch (PL_op->op_type) { + RenewDouble(PL_reentrant_buffer->_servent_buffer, + &PL_reentrant_buffer->_servent_size, char); + switch (PL_op->op_type) { case OP_GSBYNAME: p0 = va_arg(ap, void *); p1 = va_arg(ap, void *); @@ -1046,18 +1081,24 @@ Perl_reentrant_retry(const char *f, ...) default: SETERRNO(ERANGE, LIB_INVARG); break; - } + } } } break; -#endif + +# endif + default: /* Not known how to retry, so just fail. */ break; } + #else + PERL_UNUSED_ARG(f); + #endif + } va_end(ap); return retptr; |