Subject: optimize matching -g still enables -DDEBUGING

[metaconfig.git] / U / threads / d_gethostbyaddr_r.U

diff --git a/U/threads/d_gethostbyaddr_r.U b/U/threads/d_gethostbyaddr_r.U
index 5e25dae..a8e675c 100644 (file)
--- a/U/threads/d_gethostbyaddr_r.U
+++ b/U/threads/d_gethostbyaddr_r.U
@@ -1,12 +1,13 @@
 ?RCS: $Id: d_gethostbyaddr_r.U,v 0RCS:
-?RCS: Copyright (c) 2002 Jarkko Hietaniemi
+?RCS: Copyright (c) 2002,2003 Jarkko Hietaniemi
 ?RCS:
 ?RCS: You may distribute under the terms of either the GNU General Public
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
 ?RCS: Generated by the reentr.pl from the Perl 5.8 distribution.
 ?RCS:
-?MAKE:d_gethostbyaddr_r gethostbyaddr_r_proto: Inlibc Protochk Hasproto i_systypes i_netdb usethreads
+?MAKE:d_gethostbyaddr_r gethostbyaddr_r_proto: Inlibc Protochk Hasproto \
+       i_systypes usethreads i_netdb extern_C
 ?MAKE: -pick add $@ %<
 ?S:d_gethostbyaddr_r:
 ?S:    This variable conditionally defines the HAS_GETHOSTBYADDR_R symbol,
@@ -15,6 +16,9 @@
 ?S:.
 ?S:gethostbyaddr_r_proto:
 ?S:    This variable encodes the prototype of gethostbyaddr_r.
+?S:    It is zero if d_gethostbyaddr_r is undef, and one of the
+?S:    REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
+?S:    is defined.
 ?S:.
 ?C:HAS_GETHOSTBYADDR_R:
 ?C:    This symbol, if defined, indicates that the gethostbyaddr_r routine
@@ -22,13 +26,14 @@
 ?C:.
 ?C:GETHOSTBYADDR_R_PROTO:
 ?C:    This symbol encodes the prototype of gethostbyaddr_r.
+?C:    It is zero if d_gethostbyaddr_r is undef, and one of the
+?C:    REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
+?C:    is defined.
 ?C:.
 ?H:#$d_gethostbyaddr_r HAS_GETHOSTBYADDR_R        /**/
 ?H:#define GETHOSTBYADDR_R_PROTO $gethostbyaddr_r_proto           /**/
 ?H:.
 ?T:try hdrs d_gethostbyaddr_r_proto
-?LINT:set d_gethostbyaddr_r
-?LINT:set gethostbyaddr_r_proto
 : see if gethostbyaddr_r exists
 set gethostbyaddr_r d_gethostbyaddr_r
 eval $inlibc
@@ -45,46 +50,50 @@ case "$d_gethostbyaddr_r" in
        define)
        case "$gethostbyaddr_r_proto" in
        ''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CWISBWRE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISBWRE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CWISBWIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBWIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CWISBIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const void*, size_t, int, struct hostent*, char*, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_TWISBIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TWISBIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const char*, int, int, struct hostent*, char*, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CIISBIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CIISBIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const char*, struct hostent*, char*, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CSBIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CSBIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='struct hostent* gethostbyaddr_r(const void*, struct hostent*, char*, int, int*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_TSBIE ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TSBIE ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, struct hostent_data*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CWISD ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISD ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='int gethostbyaddr_r(const char*, int, int, struct hostent*, struct hostent_data*);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CIISD ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CIISD ;;
        esac
        case "$gethostbyaddr_r_proto" in
        ''|0) try='int gethostbyaddr_r(const char*, int, int);'
-       ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CII ;;
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CII ;;
        esac
        case "$gethostbyaddr_r_proto" in
-       '')     d_gethostbyaddr_r=undef
+       ''|0) try='int gethostbyaddr_r(const void*, socklen_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
+       ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_TsISBWRE ;;
+       esac
+       case "$gethostbyaddr_r_proto" in
+       ''|0)   d_gethostbyaddr_r=undef
                gethostbyaddr_r_proto=0
                echo "Disabling gethostbyaddr_r, cannot determine prototype." >&4 ;;
        * )     case "$gethostbyaddr_r_proto" in
@@ -97,6 +106,8 @@ case "$d_gethostbyaddr_r" in
        *)      case "$usethreads" in
                define) echo "gethostbyaddr_r has no prototype, not using it." >&4 ;;
                esac
+               d_gethostbyaddr_r=undef
+               gethostbyaddr_r_proto=0
                ;;
        esac
        ;;