This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reentr.[ch]: White-space only
authorKarl Williamson <khw@cpan.org>
Wed, 11 Mar 2020 17:33:39 +0000 (11:33 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Mar 2020 20:46:34 +0000 (14:46 -0600)
I changed the preprocessor directive indentation to make it easier to
grasp the nesting levels, and added blank lines for readability.

Some of the changes are for future commits that will remove some
nesting.

reentr.c
reentr.h
regen/reentr.pl

index 8e00a62..9b562e5 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -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;
index 6d085aa..9e65001 100644 (file)
--- a/reentr.h
+++ b/reentr.h
  */
 
 #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).
  * 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: */
index e50768d..d3ed8ca 100644 (file)
@@ -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;