This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig unit changes for #16523.
[metaconfig.git] / U / threads / d_getnetent_r.U
CommitLineData
0ed44c70
JH
1?RCS: $Id: d_getnetent_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:
6f722ae2 9?MAKE:d_getnetent_r getnetent_r_proto: Inlibc Protochk Hasproto i_systypes i_systime i_netdb usethreads i_pthread
eed88ce0 10?MAKE: -pick add $@ %<
46953654 11?S:d_getnetent_r:
eed88ce0
JH
12?S: This variable conditionally defines the HAS_GETNETENT_R symbol,
13?S: which indicates to the C program that the getnetent_r()
14?S: routine is available.
46953654
JH
15?S:.
16?S:getnetent_r_proto:
eed88ce0 17?S: This variable encodes the prototype of getnetent_r.
46953654
JH
18?S:.
19?C:HAS_GETNETENT_R:
eed88ce0
JH
20?C: This symbol, if defined, indicates that the getnetent_r routine
21?C: is available to getnetent re-entrantly.
46953654
JH
22?C:.
23?C:GETNETENT_R_PROTO:
eed88ce0 24?C: This symbol encodes the prototype of getnetent_r.
46953654 25?C:.
eed88ce0
JH
26?H:#$d_getnetent_r HAS_GETNETENT_R /**/
27?H:#define GETNETENT_R_PROTO $getnetent_r_proto /**/
46953654 28?H:.
f42a43f5 29?T:try hdrs d_getnetent_r_proto
46953654
JH
30?LINT:set d_getnetent_r
31?LINT:set getnetent_r_proto
32: see if getnetent_r exists
33set getnetent_r d_getnetent_r
34eval $inlibc
35case "$d_getnetent_r" in
36"$define")
f2dee704 37 hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
9bb0d1dd
JH
38 case "$d_getnetent_r_proto:$usethreads" in
39 ":define") d_getnetent_r_proto=define
f42a43f5
JH
40 set d_getnetent_r_proto getnetent_r $hdrs
41 eval $hasproto ;;
42 *) ;;
43 esac
44 case "$d_getnetent_r_proto" in
45 define)
46953654 46 case "$getnetent_r_proto" in
5002a627 47 ''|0) try='int getnetent_r(struct netent*, char*, size_t, struct netent**, int*);'
f2dee704 48 ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBWRE ;;
46953654
JH
49 esac
50 case "$getnetent_r_proto" in
5002a627 51 ''|0) try='int getnetent_r(struct netent*, char*, int, int*);'
f2dee704 52 ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBIE ;;
46953654
JH
53 esac
54 case "$getnetent_r_proto" in
5002a627 55 ''|0) try='struct netent* getnetent_r(struct netent*, char*, int, int*);'
f2dee704 56 ./protochk "extern $try" $hdrs && getnetent_r_proto=S_SBIE ;;
46953654
JH
57 esac
58 case "$getnetent_r_proto" in
5002a627 59 ''|0) try='struct netent* getnetent_r(struct netent*, char*, int);'
f2dee704
JH
60 ./protochk "extern $try" $hdrs && getnetent_r_proto=S_SBI ;;
61 esac
62 case "$getnetent_r_proto" in
5002a627 63 ''|0) try='int getnetent_r(struct netent*, char*, int);'
f2dee704
JH
64 ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBI ;;
65 esac
66 case "$getnetent_r_proto" in
5002a627 67 ''|0) try='int getnetent_r(struct netent*, struct netent_data*);'
f2dee704 68 ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SD ;;
46953654
JH
69 esac
70 case "$getnetent_r_proto" in
81d83c43 71 ''|0) d_getnetent_r=undef
5002a627 72 getnetent_r_proto=0
f42a43f5 73 echo "Disabling getnetent_r, cannot determine prototype." >&4 ;;
f2dee704
JH
74 * ) case "$getnetent_r_proto" in
75 REENTRANT_PROTO*) ;;
76 *) getnetent_r_proto="REENTRANT_PROTO_$getnetent_r_proto" ;;
77 esac
78 echo "Prototype: $try" ;;
46953654
JH
79 esac
80 ;;
9bb0d1dd
JH
81 *) case "$usethreads" in
82 define) echo "getnetent_r has no prototype, not using it." >&4 ;;
83 esac
81d83c43
JH
84 d_getnetent_r=undef
85 getnetent_r_proto=0
9bb0d1dd 86 ;;
f42a43f5
JH
87 esac
88 ;;
5002a627
JH
89*) getnetent_r_proto=0
90 ;;
46953654
JH
91esac
92