This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig unit changes for #15910.
[metaconfig.git] / U / threads / d_localtime_r.U
1 ?RCS: $Id: d_localtime_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:
9 ?MAKE:d_localtime_r localtime_r_proto: Inlibc Protochk Hasproto i_systypes i_systime i_time usethreads i_pthread
10 ?MAKE:  -pick add $@ %<
11 ?S:d_localtime_r:
12 ?S:     This variable conditionally defines the HAS_LOCALTIME_R symbol,
13 ?S:     which indicates to the C program that the localtime_r()
14 ?S:     routine is available.
15 ?S:.
16 ?S:localtime_r_proto:
17 ?S:     This variable encodes the prototype of localtime_r.
18 ?S:.
19 ?C:HAS_LOCALTIME_R:
20 ?C:     This symbol, if defined, indicates that the localtime_r routine
21 ?C:     is available to localtime re-entrantly.
22 ?C:.
23 ?C:LOCALTIME_R_PROTO:
24 ?C:     This symbol encodes the prototype of localtime_r.
25 ?C:.
26 ?H:#$d_localtime_r HAS_LOCALTIME_R         /**/
27 ?H:#define LOCALTIME_R_PROTO $localtime_r_proto    /**/
28 ?H:.
29 ?T:try hdrs d_localtime_r_proto
30 ?LINT:set d_localtime_r
31 ?LINT:set localtime_r_proto
32 : see if localtime_r exists
33 set localtime_r d_localtime_r
34 eval $inlibc
35 case "$d_localtime_r" in
36 "$define")
37         hdrs="$i_systypes sys/types.h define stdio.h $i_time time.h $i_systime sys/time.h"
38         case "$d_localtime_r_proto:$usethreads" in
39         ":define")      d_localtime_r_proto=define
40                 set d_localtime_r_proto localtime_r $hdrs
41                 eval $hasproto ;;
42         *)      ;;
43         esac
44         case "$d_localtime_r_proto" in
45         define)
46         case "$localtime_r_proto" in
47         ''|0) try='struct tm* localtime_r(const time_t*, struct tm*);'
48         ./protochk "extern $try" $hdrs && localtime_r_proto=S_TS ;;
49         esac
50         case "$localtime_r_proto" in
51         ''|0) try='int localtime_r(const time_t*, struct tm*);'
52         ./protochk "extern $try" $hdrs && localtime_r_proto=I_TS ;;
53         esac
54         case "$localtime_r_proto" in
55         ''|0)   d_localtime_r=undef
56                 localtime_r_proto=0
57                 echo "Disabling localtime_r, cannot determine prototype." >&4 ;;
58         * )     case "$localtime_r_proto" in
59                 REENTRANT_PROTO*) ;;
60                 *) localtime_r_proto="REENTRANT_PROTO_$localtime_r_proto" ;;
61                 esac
62                 echo "Prototype: $try" ;;
63         esac
64         ;;
65         *)      case "$usethreads" in
66                 define) echo "localtime_r has no prototype, not using it." >&4 ;;
67                 esac
68                 d_localtime_r=undef
69                 localtime_r_proto=0
70                 ;;
71         esac
72         ;;
73 *)      localtime_r_proto=0
74         ;;
75 esac
76