This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Subject: optimize matching -g still enables -DDEBUGING
[metaconfig.git] / U / threads / d_getlogin_r.U
CommitLineData
0ed44c70 1?RCS: $Id: d_getlogin_r.U,v 0RCS:
55e6b58d 2?RCS: Copyright (c) 2002,2003 Jarkko Hietaniemi
0ed44c70
JH
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:
cce04e58
MB
9?MAKE:d_getlogin_r getlogin_r_proto: Inlibc Protochk Hasproto i_systypes \
10 usethreads i_unistd extern_C
eed88ce0 11?MAKE: -pick add $@ %<
959f3c4c 12?S:d_getlogin_r:
eed88ce0
JH
13?S: This variable conditionally defines the HAS_GETLOGIN_R symbol,
14?S: which indicates to the C program that the getlogin_r()
15?S: routine is available.
46953654
JH
16?S:.
17?S:getlogin_r_proto:
eed88ce0 18?S: This variable encodes the prototype of getlogin_r.
05fdd8fd
JH
19?S: It is zero if d_getlogin_r is undef, and one of the
20?S: REENTRANT_PROTO_T_ABC macros of reentr.h if d_getlogin_r
21?S: is defined.
959f3c4c
JH
22?S:.
23?C:HAS_GETLOGIN_R:
eed88ce0
JH
24?C: This symbol, if defined, indicates that the getlogin_r routine
25?C: is available to getlogin re-entrantly.
46953654
JH
26?C:.
27?C:GETLOGIN_R_PROTO:
eed88ce0 28?C: This symbol encodes the prototype of getlogin_r.
05fdd8fd
JH
29?C: It is zero if d_getlogin_r is undef, and one of the
30?C: REENTRANT_PROTO_T_ABC macros of reentr.h if d_getlogin_r
31?C: is defined.
959f3c4c 32?C:.
eed88ce0
JH
33?H:#$d_getlogin_r HAS_GETLOGIN_R /**/
34?H:#define GETLOGIN_R_PROTO $getlogin_r_proto /**/
959f3c4c 35?H:.
f42a43f5 36?T:try hdrs d_getlogin_r_proto
959f3c4c
JH
37: see if getlogin_r exists
38set getlogin_r d_getlogin_r
39eval $inlibc
46953654
JH
40case "$d_getlogin_r" in
41"$define")
f2dee704 42 hdrs="$i_systypes sys/types.h define stdio.h $i_unistd unistd.h"
9bb0d1dd
JH
43 case "$d_getlogin_r_proto:$usethreads" in
44 ":define") d_getlogin_r_proto=define
f42a43f5
JH
45 set d_getlogin_r_proto getlogin_r $hdrs
46 eval $hasproto ;;
47 *) ;;
48 esac
49 case "$d_getlogin_r_proto" in
50 define)
46953654 51 case "$getlogin_r_proto" in
5002a627 52 ''|0) try='int getlogin_r(char*, size_t);'
cce04e58 53 ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=I_BW ;;
46953654
JH
54 esac
55 case "$getlogin_r_proto" in
5002a627 56 ''|0) try='int getlogin_r(char*, int);'
cce04e58 57 ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=I_BI ;;
f2dee704
JH
58 esac
59 case "$getlogin_r_proto" in
5002a627 60 ''|0) try='char* getlogin_r(char*, size_t);'
cce04e58 61 ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=B_BW ;;
f2dee704
JH
62 esac
63 case "$getlogin_r_proto" in
5002a627 64 ''|0) try='char* getlogin_r(char*, int);'
cce04e58 65 ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=B_BI ;;
46953654
JH
66 esac
67 case "$getlogin_r_proto" in
81d83c43 68 ''|0) d_getlogin_r=undef
5002a627 69 getlogin_r_proto=0
f42a43f5 70 echo "Disabling getlogin_r, cannot determine prototype." >&4 ;;
f2dee704
JH
71 * ) case "$getlogin_r_proto" in
72 REENTRANT_PROTO*) ;;
73 *) getlogin_r_proto="REENTRANT_PROTO_$getlogin_r_proto" ;;
74 esac
75 echo "Prototype: $try" ;;
46953654
JH
76 esac
77 ;;
9bb0d1dd
JH
78 *) case "$usethreads" in
79 define) echo "getlogin_r has no prototype, not using it." >&4 ;;
80 esac
81d83c43
JH
81 d_getlogin_r=undef
82 getlogin_r_proto=0
9bb0d1dd 83 ;;
f42a43f5
JH
84 esac
85 ;;
5002a627
JH
86*) getlogin_r_proto=0
87 ;;
46953654 88esac
959f3c4c 89