This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig: one round again for the _r.
[metaconfig.git] / U / threads / d_getprotobynumber_r.U
CommitLineData
0ed44c70
JH
1?RCS: $Id: d_getprotobynumber_r.U,v 0RCS:
2?RCS: Copyright (c) 2002 Jarkko Hietaniemi
3?RCS:
4?RCS: You may distribute under the terms of either the GNU General Public
5?RCS: License or the Artistic License, as specified in the README file.
6?RCS:
7?RCS: Generated by the reentr.pl from the Perl 5.8 distribution.
8?RCS:
f2dee704 9?MAKE:d_getprotobynumber_r getprotobynumber_r_proto: Inlibc Protochk i_systypes i_netdb
eed88ce0 10?MAKE: -pick add $@ %<
46953654 11?S:d_getprotobynumber_r:
eed88ce0
JH
12?S: This variable conditionally defines the HAS_GETPROTOBYNUMBER_R symbol,
13?S: which indicates to the C program that the getprotobynumber_r()
14?S: routine is available.
46953654
JH
15?S:.
16?S:getprotobynumber_r_proto:
eed88ce0 17?S: This variable encodes the prototype of getprotobynumber_r.
46953654
JH
18?S:.
19?C:HAS_GETPROTOBYNUMBER_R:
eed88ce0
JH
20?C: This symbol, if defined, indicates that the getprotobynumber_r routine
21?C: is available to getprotobynumber re-entrantly.
46953654
JH
22?C:.
23?C:GETPROTOBYNUMBER_R_PROTO:
eed88ce0 24?C: This symbol encodes the prototype of getprotobynumber_r.
46953654 25?C:.
eed88ce0
JH
26?H:#$d_getprotobynumber_r HAS_GETPROTOBYNUMBER_R /**/
27?H:#define GETPROTOBYNUMBER_R_PROTO $getprotobynumber_r_proto /**/
46953654
JH
28?H:.
29?T:try hdrs
30?LINT:set d_getprotobynumber_r
31?LINT:set getprotobynumber_r_proto
32: see if getprotobynumber_r exists
33set getprotobynumber_r d_getprotobynumber_r
34eval $inlibc
35case "$d_getprotobynumber_r" in
36"$define")
f2dee704 37 hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
46953654 38 case "$getprotobynumber_r_proto" in
f2dee704
JH
39 '') try='int getprotobynumber_r(int, struct protoent*, char*, size_t, struct protoent**);'
40 ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISBWR ;;
46953654
JH
41 esac
42 case "$getprotobynumber_r_proto" in
f2dee704
JH
43 '') try='struct protoent* getprotobynumber_r(int, struct protoent*, char*, int);'
44 ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=S_ISBI ;;
46953654
JH
45 esac
46 case "$getprotobynumber_r_proto" in
f2dee704
JH
47 '') try='int getprotobynumber_r(int, struct protoent*, struct protoent_data*);'
48 ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISD ;;
46953654
JH
49 esac
50 case "$getprotobynumber_r_proto" in
f2dee704
JH
51 '') d_getprotobynumber_r=undef
52 echo "Disabling getprotobynumber_r, cannot determine prototype." ;;
53 * ) case "$getprotobynumber_r_proto" in
54 REENTRANT_PROTO*) ;;
55 *) getprotobynumber_r_proto="REENTRANT_PROTO_$getprotobynumber_r_proto" ;;
56 esac
57 echo "Prototype: $try" ;;
46953654
JH
58 esac
59 ;;
60esac
61