This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove spurious LINT: directives
[metaconfig.git] / U / threads / d_getprotobynumber_r.U
index aeaf2c4..d568924 100644 (file)
@@ -1,51 +1,84 @@
-?MAKE:d_getprotobynumber_r getprotobynumber_r_proto: Inlibc Protochk i_systypes i_netdb
-?MAKE:  -pick add $@ %<
+?RCS: $Id: d_getprotobynumber_r.U,v 0RCS:
+?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_getprotobynumber_r getprotobynumber_r_proto: Inlibc Protochk Hasproto i_systypes usethreads i_netdb
+?MAKE: -pick add $@ %<
 ?S:d_getprotobynumber_r:
-?S:     This variable conditionally defines the HAS_GETPROTOBYNUMBER_R symbol,
-?S:     which indicates to the C program that the getprotobynumber_r()
-?S:     routine is available.
+?S:    This variable conditionally defines the HAS_GETPROTOBYNUMBER_R symbol,
+?S:    which indicates to the C program that the getprotobynumber_r()
+?S:    routine is available.
 ?S:.
 ?S:getprotobynumber_r_proto:
-?S:     This variable encodes the prototype of getprotobynumber_r.
+?S:    This variable encodes the prototype of getprotobynumber_r.
+?S:    It is zero if d_getprotobynumber_r is undef, and one of the
+?S:    REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobynumber_r
+?S:    is defined.
 ?S:.
 ?C:HAS_GETPROTOBYNUMBER_R:
-?C:     This symbol, if defined, indicates that the getprotobynumber_r routine
-?C:     is available to getprotobynumber re-entrantly.
+?C:    This symbol, if defined, indicates that the getprotobynumber_r routine
+?C:    is available to getprotobynumber re-entrantly.
 ?C:.
 ?C:GETPROTOBYNUMBER_R_PROTO:
-?C:     This symbol encodes the prototype of getprotobynumber_r.
+?C:    This symbol encodes the prototype of getprotobynumber_r.
+?C:    It is zero if d_getprotobynumber_r is undef, and one of the
+?C:    REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobynumber_r
+?C:    is defined.
 ?C:.
-?H:#$d_getprotobynumber_r HAS_GETPROTOBYNUMBER_R          /**/
-?H:#define GETPROTOBYNUMBER_R_PROTO $getprotobynumber_r_proto     /**/
+?H:#$d_getprotobynumber_r HAS_GETPROTOBYNUMBER_R          /**/
+?H:#define GETPROTOBYNUMBER_R_PROTO $getprotobynumber_r_proto     /**/
 ?H:.
-?T:try hdrs
-?LINT:set d_getprotobynumber_r
-?LINT:set getprotobynumber_r_proto
+?T:try hdrs d_getprotobynumber_r_proto
 : see if getprotobynumber_r exists
 set getprotobynumber_r d_getprotobynumber_r
 eval $inlibc
 case "$d_getprotobynumber_r" in
 "$define")
-       hdrs="$i_systypes sys/types.h $i_netdb netdb.h"
+       hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
+       case "$d_getprotobynumber_r_proto:$usethreads" in
+       ":define")      d_getprotobynumber_r_proto=define
+               set d_getprotobynumber_r_proto getprotobynumber_r $hdrs
+               eval $hasproto ;;
+       *)      ;;
+       esac
+       case "$d_getprotobynumber_r_proto" in
+       define)
        case "$getprotobynumber_r_proto" in
-       '')     try='extern int getprotobynumber_r(int, char*, struct protoent*, size_t, struct protoent**);'
-               ./protochk "$try" $hdrs && getprotobynumber_r_proto=I_IBSWR;
-       ;;
+       ''|0) try='int getprotobynumber_r(int, struct protoent*, char*, size_t, struct protoent**);'
+       ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISBWR ;;
        esac
        case "$getprotobynumber_r_proto" in
-       '')     try='extern struct protoent* getprotobynumber_r(int, struct protoent*, char*, int);'
-               ./protochk "$try" $hdrs && getprotobynumber_r_proto=S_ISBI;
-       ;;
+       ''|0) try='struct protoent* getprotobynumber_r(int, struct protoent*, char*, int);'
+       ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=S_ISBI ;;
        esac
        case "$getprotobynumber_r_proto" in
-       '')     try='extern int getprotobynumber_r(int, struct protoent*, struct protoent_data*);'
-               ./protochk "$try" $hdrs && getprotobynumber_r_proto=I_ISD;
-       ;;
+       ''|0) try='int getprotobynumber_r(int, struct protoent*, struct protoent_data*);'
+       ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISD ;;
        esac
        case "$getprotobynumber_r_proto" in
-       '') d_getprotobynumber_r=undef ; echo "Disabling getprotobynumber_r, cannot find prototype." ;;
-       * ) getprotobynumber_r_proto="REENTRANT_$getprotobynumber_r_proto" ; echo "$try" ;;
+       ''|0)   d_getprotobynumber_r=undef
+               getprotobynumber_r_proto=0
+               echo "Disabling getprotobynumber_r, cannot determine prototype." >&4 ;;
+       * )     case "$getprotobynumber_r_proto" in
+               REENTRANT_PROTO*) ;;
+               *) getprotobynumber_r_proto="REENTRANT_PROTO_$getprotobynumber_r_proto" ;;
+               esac
+               echo "Prototype: $try" ;;
        esac
        ;;
+       *)      case "$usethreads" in
+               define) echo "getprotobynumber_r has no prototype, not using it." >&4 ;;
+               esac
+               d_getprotobynumber_r=undef
+               getprotobynumber_r_proto=0
+               ;;
+       esac
+       ;;
+*)     getprotobynumber_r_proto=0
+       ;;
 esac