This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
regcomp.h, sv.c, utf8.c: Comment nits
[perl5.git] / reentr.h
CommitLineData
37442d52
RGS		 1/* -*- buffer-read-only: t -*-
2 *
10bc17b6
JH		 3 * reentr.h
4 *
922adc66 5 * Copyright (C) 2002, 2003, 2005, 2006, 2007 by Larry Wall and others
10bc17b6
JH		 6 *
7 * You may distribute under the terms of either the GNU General Public
8 * License or the Artistic License, as specified in the README file.
9 *
78102347
NC		 10 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
11 * This file is built by regen/reentr.pl from data in regen/reentr.pl.
12 * Any changes made here will be lost!
10bc17b6
JH		 13 */
14
15#ifndef REENTR_H
37442d52 16#define REENTR_H
10bc17b6 17
a3dd3f83
MB		 18/* If compiling for a threaded perl, we will macro-wrap the system/library
19 * interfaces (e.g. getpwent()) which have threaded versions
20 * (e.g. getpwent_r()), which will handle things correctly for
21 * the Perl interpreter, but otherwise (for XS) the wrapping does
22 * not take place. See L<perlxs/Thread-aware system interfaces>.
23 */
24
25#ifndef PERL_REENTR_API
26# if defined(PERL_CORE) || defined(PERL_EXT)
27# define PERL_REENTR_API 1
28# else
29# define PERL_REENTR_API 0
30# endif
31#endif
32
10bc17b6
JH		 33#ifdef USE_REENTRANT_API
34
35/* Deprecations: some platforms have the said reentrant interfaces
36 * but they are declared obsolete and are not to be used. Often this
37 * means that the platform has threadsafed the interfaces (hopefully).
38 * All this is OS version dependent, so we are of course fooling ourselves.
a3dd3f83
MB		 39 * If you know of more deprecations on some platforms, please add your own
40 * (by editing reentr.pl, mind!) */
10bc17b6
JH		 41
42#ifdef __hpux
43# undef HAS_CRYPT_R
44# undef HAS_DRAND48_R
efa45b01
JH		 45# undef HAS_ENDGRENT_R
46# undef HAS_ENDPWENT_R
10bc17b6
JH		 47# undef HAS_GETGRENT_R
48# undef HAS_GETPWENT_R
49# undef HAS_SETLOCALE_R
50# undef HAS_SRAND48_R
51# undef HAS_STRERROR_R
52# define NETDB_R_OBSOLETE
53#endif
54
55#if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */
56# undef HAS_CRYPT_R
57# undef HAS_STRERROR_R
58# define NETDB_R_OBSOLETE
59#endif
60
d4b8ffd7
RGS		 61/*
62 * As of OpenBSD 3.7, reentrant functions are now working, they just are
63 * incompatible with everyone else. To make OpenBSD happy, we have to
64 * memzero out certain structures before calling the functions.
65 */
66#if defined(__OpenBSD__)
3fb2f3ac 67# define REENTR_MEMZERO(a,b) memzero(a,b)
d4b8ffd7 68#else
3fb2f3ac 69# define REENTR_MEMZERO(a,b) 0
d4b8ffd7
RGS		 70#endif
71
10bc17b6
JH		 72#ifdef NETDB_R_OBSOLETE
73# undef HAS_ENDHOSTENT_R
74# undef HAS_ENDNETENT_R
75# undef HAS_ENDPROTOENT_R
76# undef HAS_ENDSERVENT_R
77# undef HAS_GETHOSTBYADDR_R
78# undef HAS_GETHOSTBYNAME_R
79# undef HAS_GETHOSTENT_R
80# undef HAS_GETNETBYADDR_R
81# undef HAS_GETNETBYNAME_R
82# undef HAS_GETNETENT_R
83# undef HAS_GETPROTOBYNAME_R
84# undef HAS_GETPROTOBYNUMBER_R
85# undef HAS_GETPROTOENT_R
86# undef HAS_GETSERVBYNAME_R
87# undef HAS_GETSERVBYPORT_R
88# undef HAS_GETSERVENT_R
89# undef HAS_SETHOSTENT_R
90# undef HAS_SETNETENT_R
91# undef HAS_SETPROTOENT_R
92# undef HAS_SETSERVENT_R
93#endif
94
95#ifdef I_PWD
96# include <pwd.h>
97#endif
98#ifdef I_GRP
99# include <grp.h>
100#endif
101#ifdef I_NETDB
102# include <netdb.h>
103#endif
104#ifdef I_STDLIB
105# include <stdlib.h> /* drand48_data */
106#endif
107#ifdef I_CRYPT
108# ifdef I_CRYPT
109# include <crypt.h>
110# endif
111#endif
112#ifdef HAS_GETSPNAM_R
113# ifdef I_SHADOW
114# include <shadow.h>
115# endif
116#endif
117
118#define REENTRANT_PROTO_B_B 1
119#define REENTRANT_PROTO_B_BI 2
120#define REENTRANT_PROTO_B_BW 3
b430fd04
JH		 121#define REENTRANT_PROTO_B_CCD 4
122#define REENTRANT_PROTO_B_CCS 5
123#define REENTRANT_PROTO_B_IBI 6
124#define REENTRANT_PROTO_B_IBW 7
125#define REENTRANT_PROTO_B_SB 8
126#define REENTRANT_PROTO_B_SBI 9
127#define REENTRANT_PROTO_I_BI 10
128#define REENTRANT_PROTO_I_BW 11
129#define REENTRANT_PROTO_I_CCSBWR 12
130#define REENTRANT_PROTO_I_CCSD 13
131#define REENTRANT_PROTO_I_CII 14
132#define REENTRANT_PROTO_I_CIISD 15
133#define REENTRANT_PROTO_I_CSBI 16
134#define REENTRANT_PROTO_I_CSBIR 17
135#define REENTRANT_PROTO_I_CSBWR 18
136#define REENTRANT_PROTO_I_CSBWRE 19
137#define REENTRANT_PROTO_I_CSD 20
138#define REENTRANT_PROTO_I_CWISBWRE 21
139#define REENTRANT_PROTO_I_CWISD 22
31ee0cb7
JH		 140#define REENTRANT_PROTO_I_D 23
141#define REENTRANT_PROTO_I_H 24
142#define REENTRANT_PROTO_I_IBI 25
143#define REENTRANT_PROTO_I_IBW 26
144#define REENTRANT_PROTO_I_ICBI 27
145#define REENTRANT_PROTO_I_ICSBWR 28
146#define REENTRANT_PROTO_I_ICSD 29
147#define REENTRANT_PROTO_I_ID 30
148#define REENTRANT_PROTO_I_IISD 31
149#define REENTRANT_PROTO_I_ISBWR 32
150#define REENTRANT_PROTO_I_ISD 33
151#define REENTRANT_PROTO_I_LISBI 34
152#define REENTRANT_PROTO_I_LISD 35
153#define REENTRANT_PROTO_I_LS 36
b430fd04
JH		 154#define REENTRANT_PROTO_I_SB 37
155#define REENTRANT_PROTO_I_SBI 38
156#define REENTRANT_PROTO_I_SBIE 39
157#define REENTRANT_PROTO_I_SBIH 40
158#define REENTRANT_PROTO_I_SBIR 41
159#define REENTRANT_PROTO_I_SBWR 42
160#define REENTRANT_PROTO_I_SBWRE 43
161#define REENTRANT_PROTO_I_SD 44
162#define REENTRANT_PROTO_I_ST 45
a845a0d4
JH		 163#define REENTRANT_PROTO_I_St 46
164#define REENTRANT_PROTO_I_TISD 47
165#define REENTRANT_PROTO_I_TS 48
166#define REENTRANT_PROTO_I_TSBI 49
167#define REENTRANT_PROTO_I_TSBIR 50
168#define REENTRANT_PROTO_I_TSBWR 51
169#define REENTRANT_PROTO_I_TSR 52
170#define REENTRANT_PROTO_I_TsISBWRE 53
171#define REENTRANT_PROTO_I_UISBWRE 54
172#define REENTRANT_PROTO_I_iS 55
173#define REENTRANT_PROTO_I_lS 56
174#define REENTRANT_PROTO_I_uISBWRE 57
175#define REENTRANT_PROTO_S_CBI 58
176#define REENTRANT_PROTO_S_CCSBI 59
177#define REENTRANT_PROTO_S_CIISBIE 60
178#define REENTRANT_PROTO_S_CSBI 61
179#define REENTRANT_PROTO_S_CSBIE 62
180#define REENTRANT_PROTO_S_CWISBIE 63
181#define REENTRANT_PROTO_S_CWISBWIE 64
182#define REENTRANT_PROTO_S_ICSBI 65
183#define REENTRANT_PROTO_S_ISBI 66
184#define REENTRANT_PROTO_S_LISBI 67
185#define REENTRANT_PROTO_S_SBI 68
186#define REENTRANT_PROTO_S_SBIE 69
187#define REENTRANT_PROTO_S_SBW 70
188#define REENTRANT_PROTO_S_TISBI 71
948ea7a9
MS		 189#define REENTRANT_PROTO_S_TSBI 72
190#define REENTRANT_PROTO_S_TSBIE 73
191#define REENTRANT_PROTO_S_TWISBIE 74
192#define REENTRANT_PROTO_V_D 75
193#define REENTRANT_PROTO_V_H 76
194#define REENTRANT_PROTO_V_ID 77
10bc17b6
JH		 195
196/* Defines for indicating which special features are supported. */
197
edd309b7
JH		 198/* The getgrent getgrgid getgrnam using buffer? */
199
200#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
201# define GETGRENT_R_HAS_BUFFER
202#else
203# undef GETGRENT_R_HAS_BUFFER
204#endif
205#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI || GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI)
206# define GETGRGID_R_HAS_BUFFER
207#else
208# undef GETGRGID_R_HAS_BUFFER
209#endif
210#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI)
211# define GETGRNAM_R_HAS_BUFFER
212#else
213# undef GETGRNAM_R_HAS_BUFFER
214#endif
215
216/* Any of the getgrent getgrgid getgrnam using buffer? */
217
218#if (defined(GETGRENT_R_HAS_BUFFER) || defined(GETGRGID_R_HAS_BUFFER) || defined(GETGRNAM_R_HAS_BUFFER))
f7937171 219# define USE_GRENT_BUFFER
edd309b7 220#else
f7937171 221# undef USE_GRENT_BUFFER
edd309b7
JH		 222#endif
223
10bc17b6
JH		 224/* The getgrent getgrgid getgrnam using ptr? */
225
09310450 226#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
10bc17b6
JH		 227# define GETGRENT_R_HAS_PTR
228#else
229# undef GETGRENT_R_HAS_PTR
230#endif
09310450 231#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
10bc17b6
JH		 232# define GETGRGID_R_HAS_PTR
233#else
234# undef GETGRGID_R_HAS_PTR
235#endif
09310450 236#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
10bc17b6
JH		 237# define GETGRNAM_R_HAS_PTR
238#else
239# undef GETGRNAM_R_HAS_PTR
240#endif
241
242/* Any of the getgrent getgrgid getgrnam using ptr? */
243
244#if (defined(GETGRENT_R_HAS_PTR) || defined(GETGRGID_R_HAS_PTR) || defined(GETGRNAM_R_HAS_PTR))
f7937171 245# define USE_GRENT_PTR
10bc17b6 246#else
f7937171 247# undef USE_GRENT_PTR
10bc17b6
JH		 248#endif
249
250/* The getpwent getpwnam getpwuid using ptr? */
251
09310450 252#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
10bc17b6
JH		 253# define GETPWENT_R_HAS_PTR
254#else
255# undef GETPWENT_R_HAS_PTR
256#endif
09310450 257#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
10bc17b6
JH		 258# define GETPWNAM_R_HAS_PTR
259#else
260# undef GETPWNAM_R_HAS_PTR
261#endif
09310450 262#if defined(HAS_GETPWUID_R) && (GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
10bc17b6
JH		 263# define GETPWUID_R_HAS_PTR
264#else
265# undef GETPWUID_R_HAS_PTR
266#endif
267
268/* Any of the getpwent getpwnam getpwuid using ptr? */
269
270#if (defined(GETPWENT_R_HAS_PTR) || defined(GETPWNAM_R_HAS_PTR) || defined(GETPWUID_R_HAS_PTR))
f7937171 271# define USE_PWENT_PTR
10bc17b6 272#else
f7937171 273# undef USE_PWENT_PTR
10bc17b6
JH		 274#endif
275
276/* The getspent getspnam using ptr? */
277
09310450 278#if defined(HAS_GETSPNAM_R) && (GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR)
10bc17b6
JH		 279# define GETSPNAM_R_HAS_PTR
280#else
281# undef GETSPNAM_R_HAS_PTR
282#endif
283
284/* Any of the getspent getspnam using ptr? */
285
286#if (defined(GETSPENT_R_HAS_PTR) || defined(GETSPNAM_R_HAS_PTR))
f7937171 287# define USE_SPENT_PTR
10bc17b6 288#else
f7937171 289# undef USE_SPENT_PTR
10bc17b6
JH		 290#endif
291
f7937171 292/* The getgrent getgrgid getgrnam setgrent endgrent using fptr? */
10bc17b6 293
09310450 294#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
10bc17b6
JH		 295# define GETGRENT_R_HAS_FPTR
296#else
297# undef GETGRENT_R_HAS_FPTR
298#endif
f7937171
JH		 299#if defined(HAS_SETGRENT_R) && (SETGRENT_R_PROTO == REENTRANT_PROTO_I_H || SETGRENT_R_PROTO == REENTRANT_PROTO_V_H)
300# define SETGRENT_R_HAS_FPTR
301#else
302# undef SETGRENT_R_HAS_FPTR
303#endif
304#if defined(HAS_ENDGRENT_R) && (ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H || ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H)
305# define ENDGRENT_R_HAS_FPTR
306#else
307# undef ENDGRENT_R_HAS_FPTR
308#endif
10bc17b6 309
f7937171 310/* Any of the getgrent getgrgid getgrnam setgrent endgrent using fptr? */
10bc17b6 311
f7937171
JH		 312#if (defined(GETGRENT_R_HAS_FPTR) || defined(GETGRGID_R_HAS_FPTR) || defined(GETGRNAM_R_HAS_FPTR) || defined(SETGRENT_R_HAS_FPTR) || defined(ENDGRENT_R_HAS_FPTR))
313# define USE_GRENT_FPTR
10bc17b6 314#else
f7937171 315# undef USE_GRENT_FPTR
10bc17b6
JH		 316#endif
317
f7937171 318/* The getpwent getpwnam getpwuid setpwent endpwent using fptr? */
10bc17b6 319
09310450 320#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
10bc17b6
JH		 321# define GETPWENT_R_HAS_FPTR
322#else
323# undef GETPWENT_R_HAS_FPTR
324#endif
f7937171
JH		 325#if defined(HAS_SETPWENT_R) && (SETPWENT_R_PROTO == REENTRANT_PROTO_I_H || SETPWENT_R_PROTO == REENTRANT_PROTO_V_H)
326# define SETPWENT_R_HAS_FPTR
327#else
328# undef SETPWENT_R_HAS_FPTR
329#endif
330#if defined(HAS_ENDPWENT_R) && (ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H || ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H)
331# define ENDPWENT_R_HAS_FPTR
332#else
333# undef ENDPWENT_R_HAS_FPTR
334#endif
10bc17b6 335
f7937171 336/* Any of the getpwent getpwnam getpwuid setpwent endpwent using fptr? */
10bc17b6 337
f7937171
JH		 338#if (defined(GETPWENT_R_HAS_FPTR) || defined(GETPWNAM_R_HAS_FPTR) || defined(GETPWUID_R_HAS_FPTR) || defined(SETPWENT_R_HAS_FPTR) || defined(ENDPWENT_R_HAS_FPTR))
339# define USE_PWENT_FPTR
10bc17b6 340#else
f7937171 341# undef USE_PWENT_FPTR
10bc17b6
JH		 342#endif
343
edd309b7
JH		 344/* The getpwent getpwgid getpwnam using buffer? */
345
346#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
347# define GETPWENT_R_HAS_BUFFER
348#else
349# undef GETPWENT_R_HAS_BUFFER
350#endif
351#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI)
352# define GETPWNAM_R_HAS_BUFFER
353#else
354# undef GETPWNAM_R_HAS_BUFFER
355#endif
356
357/* Any of the getpwent getpwgid getpwnam using buffer? */
358
359#if (defined(GETPWENT_R_HAS_BUFFER) || defined(GETPWGID_R_HAS_BUFFER) || defined(GETPWNAM_R_HAS_BUFFER))
f7937171 360# define USE_PWENT_BUFFER
edd309b7 361#else
f7937171 362# undef USE_PWENT_BUFFER
edd309b7
JH		 363#endif
364
10bc17b6
JH		 365/* The gethostent gethostbyaddr gethostbyname using ptr? */
366
09310450 367#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
10bc17b6
JH		 368# define GETHOSTENT_R_HAS_PTR
369#else
370# undef GETHOSTENT_R_HAS_PTR
371#endif
a845a0d4 372#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
10bc17b6
JH		 373# define GETHOSTBYADDR_R_HAS_PTR
374#else
375# undef GETHOSTBYADDR_R_HAS_PTR
376#endif
09310450 377#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
10bc17b6
JH		 378# define GETHOSTBYNAME_R_HAS_PTR
379#else
380# undef GETHOSTBYNAME_R_HAS_PTR
381#endif
382
383/* Any of the gethostent gethostbyaddr gethostbyname using ptr? */
384
385#if (defined(GETHOSTENT_R_HAS_PTR) || defined(GETHOSTBYADDR_R_HAS_PTR) || defined(GETHOSTBYNAME_R_HAS_PTR))
f7937171 386# define USE_HOSTENT_PTR
10bc17b6 387#else
f7937171 388# undef USE_HOSTENT_PTR
10bc17b6
JH		 389#endif
390
391/* The getnetent getnetbyaddr getnetbyname using ptr? */
392
09310450 393#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
10bc17b6
JH		 394# define GETNETENT_R_HAS_PTR
395#else
396# undef GETNETENT_R_HAS_PTR
397#endif
a845a0d4 398#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
10bc17b6
JH		 399# define GETNETBYADDR_R_HAS_PTR
400#else
401# undef GETNETBYADDR_R_HAS_PTR
402#endif
09310450 403#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
10bc17b6
JH		 404# define GETNETBYNAME_R_HAS_PTR
405#else
406# undef GETNETBYNAME_R_HAS_PTR
407#endif
408
409/* Any of the getnetent getnetbyaddr getnetbyname using ptr? */
410
411#if (defined(GETNETENT_R_HAS_PTR) || defined(GETNETBYADDR_R_HAS_PTR) || defined(GETNETBYNAME_R_HAS_PTR))
f7937171 412# define USE_NETENT_PTR
10bc17b6 413#else
f7937171 414# undef USE_NETENT_PTR
10bc17b6
JH		 415#endif
416
417/* The getprotoent getprotobyname getprotobynumber using ptr? */
418
09310450 419#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
10bc17b6
JH		 420# define GETPROTOENT_R_HAS_PTR
421#else
422# undef GETPROTOENT_R_HAS_PTR
423#endif
09310450 424#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR)
10bc17b6
JH		 425# define GETPROTOBYNAME_R_HAS_PTR
426#else
427# undef GETPROTOBYNAME_R_HAS_PTR
428#endif
09310450 429#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR)
10bc17b6
JH		 430# define GETPROTOBYNUMBER_R_HAS_PTR
431#else
432# undef GETPROTOBYNUMBER_R_HAS_PTR
433#endif
434
435/* Any of the getprotoent getprotobyname getprotobynumber using ptr? */
436
437#if (defined(GETPROTOENT_R_HAS_PTR) || defined(GETPROTOBYNAME_R_HAS_PTR) || defined(GETPROTOBYNUMBER_R_HAS_PTR))
f7937171 438# define USE_PROTOENT_PTR
10bc17b6 439#else
f7937171 440# undef USE_PROTOENT_PTR
10bc17b6
JH		 441#endif
442
443/* The getservent getservbyname getservbyport using ptr? */
444
09310450 445#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
10bc17b6
JH		 446# define GETSERVENT_R_HAS_PTR
447#else
448# undef GETSERVENT_R_HAS_PTR
449#endif
09310450 450#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR)
10bc17b6
JH		 451# define GETSERVBYNAME_R_HAS_PTR
452#else
453# undef GETSERVBYNAME_R_HAS_PTR
454#endif
09310450 455#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR)
10bc17b6
JH		 456# define GETSERVBYPORT_R_HAS_PTR
457#else
458# undef GETSERVBYPORT_R_HAS_PTR
459#endif
460
461/* Any of the getservent getservbyname getservbyport using ptr? */
462
463#if (defined(GETSERVENT_R_HAS_PTR) || defined(GETSERVBYNAME_R_HAS_PTR) || defined(GETSERVBYPORT_R_HAS_PTR))
f7937171 464# define USE_SERVENT_PTR
10bc17b6 465#else
f7937171 466# undef USE_SERVENT_PTR
10bc17b6
JH		 467#endif
468
edd309b7
JH		 469/* The gethostent gethostbyaddr gethostbyname using buffer? */
470
471#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI)
472# define GETHOSTENT_R_HAS_BUFFER
473#else
474# undef GETHOSTENT_R_HAS_BUFFER
475#endif
a845a0d4 476#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
edd309b7
JH		 477# define GETHOSTBYADDR_R_HAS_BUFFER
478#else
479# undef GETHOSTBYADDR_R_HAS_BUFFER
480#endif
481#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
482# define GETHOSTBYNAME_R_HAS_BUFFER
483#else
484# undef GETHOSTBYNAME_R_HAS_BUFFER
485#endif
486
487/* Any of the gethostent gethostbyaddr gethostbyname using buffer? */
488
489#if (defined(GETHOSTENT_R_HAS_BUFFER) || defined(GETHOSTBYADDR_R_HAS_BUFFER) || defined(GETHOSTBYNAME_R_HAS_BUFFER))
f7937171 490# define USE_HOSTENT_BUFFER
edd309b7 491#else
f7937171 492# undef USE_HOSTENT_BUFFER
edd309b7
JH		 493#endif
494
495/* The getnetent getnetbyaddr getnetbyname using buffer? */
496
497#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI)
498# define GETNETENT_R_HAS_BUFFER
499#else
500# undef GETNETENT_R_HAS_BUFFER
501#endif
a845a0d4 502#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
edd309b7
JH		 503# define GETNETBYADDR_R_HAS_BUFFER
504#else
505# undef GETNETBYADDR_R_HAS_BUFFER
506#endif
507#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
508# define GETNETBYNAME_R_HAS_BUFFER
509#else
510# undef GETNETBYNAME_R_HAS_BUFFER
511#endif
512
513/* Any of the getnetent getnetbyaddr getnetbyname using buffer? */
514
515#if (defined(GETNETENT_R_HAS_BUFFER) || defined(GETNETBYADDR_R_HAS_BUFFER) || defined(GETNETBYNAME_R_HAS_BUFFER))
f7937171 516# define USE_NETENT_BUFFER
edd309b7 517#else
f7937171 518# undef USE_NETENT_BUFFER
edd309b7
JH		 519#endif
520
521/* The getprotoent getprotobyname getprotobynumber using buffer? */
522
523#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI)
524# define GETPROTOENT_R_HAS_BUFFER
525#else
526# undef GETPROTOENT_R_HAS_BUFFER
527#endif
528#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
529# define GETPROTOBYNAME_R_HAS_BUFFER
530#else
531# undef GETPROTOBYNAME_R_HAS_BUFFER
532#endif
533#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR || GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI)
534# define GETPROTOBYNUMBER_R_HAS_BUFFER
535#else
536# undef GETPROTOBYNUMBER_R_HAS_BUFFER
537#endif
538
539/* Any of the getprotoent getprotobyname getprotobynumber using buffer? */
540
541#if (defined(GETPROTOENT_R_HAS_BUFFER) || defined(GETPROTOBYNAME_R_HAS_BUFFER) || defined(GETPROTOBYNUMBER_R_HAS_BUFFER))
f7937171 542# define USE_PROTOENT_BUFFER
edd309b7 543#else
f7937171 544# undef USE_PROTOENT_BUFFER
edd309b7
JH		 545#endif
546
547/* The getservent getservbyname getservbyport using buffer? */
548
549#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI)
550# define GETSERVENT_R_HAS_BUFFER
551#else
552# undef GETSERVENT_R_HAS_BUFFER
553#endif
554#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR || GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI)
555# define GETSERVBYNAME_R_HAS_BUFFER
556#else
557# undef GETSERVBYNAME_R_HAS_BUFFER
558#endif
559#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR || GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI)
560# define GETSERVBYPORT_R_HAS_BUFFER
561#else
562# undef GETSERVBYPORT_R_HAS_BUFFER
563#endif
564
565/* Any of the getservent getservbyname getservbyport using buffer? */
566
567#if (defined(GETSERVENT_R_HAS_BUFFER) || defined(GETSERVBYNAME_R_HAS_BUFFER) || defined(GETSERVBYPORT_R_HAS_BUFFER))
f7937171 568# define USE_SERVENT_BUFFER
edd309b7 569#else
f7937171 570# undef USE_SERVENT_BUFFER
edd309b7
JH		 571#endif
572
10bc17b6
JH		 573/* The gethostent gethostbyaddr gethostbyname using errno? */
574
09310450 575#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
10bc17b6
JH		 576# define GETHOSTENT_R_HAS_ERRNO
577#else
578# undef GETHOSTENT_R_HAS_ERRNO
579#endif
a845a0d4 580#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
10bc17b6
JH		 581# define GETHOSTBYADDR_R_HAS_ERRNO
582#else
583# undef GETHOSTBYADDR_R_HAS_ERRNO
584#endif
09310450 585#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
10bc17b6
JH		 586# define GETHOSTBYNAME_R_HAS_ERRNO
587#else
588# undef GETHOSTBYNAME_R_HAS_ERRNO
589#endif
590
591/* Any of the gethostent gethostbyaddr gethostbyname using errno? */
592
593#if (defined(GETHOSTENT_R_HAS_ERRNO) || defined(GETHOSTBYADDR_R_HAS_ERRNO) || defined(GETHOSTBYNAME_R_HAS_ERRNO))
f7937171 594# define USE_HOSTENT_ERRNO
10bc17b6 595#else
f7937171 596# undef USE_HOSTENT_ERRNO
10bc17b6
JH		 597#endif
598
599/* The getnetent getnetbyaddr getnetbyname using errno? */
600
09310450 601#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
10bc17b6
JH		 602# define GETNETENT_R_HAS_ERRNO
603#else
604# undef GETNETENT_R_HAS_ERRNO
605#endif
a845a0d4 606#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
10bc17b6
JH		 607# define GETNETBYADDR_R_HAS_ERRNO
608#else
609# undef GETNETBYADDR_R_HAS_ERRNO
610#endif
09310450 611#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
10bc17b6
JH		 612# define GETNETBYNAME_R_HAS_ERRNO
613#else
614# undef GETNETBYNAME_R_HAS_ERRNO
615#endif
616
617/* Any of the getnetent getnetbyaddr getnetbyname using errno? */
618
619#if (defined(GETNETENT_R_HAS_ERRNO) || defined(GETNETBYADDR_R_HAS_ERRNO) || defined(GETNETBYNAME_R_HAS_ERRNO))
f7937171 620# define USE_NETENT_ERRNO
10bc17b6 621#else
f7937171 622# undef USE_NETENT_ERRNO
10bc17b6
JH		 623#endif
624
625
626typedef struct {
627#ifdef HAS_ASCTIME_R
628 char* _asctime_buffer;
629 size_t _asctime_size;
630#endif /* HAS_ASCTIME_R */
631#ifdef HAS_CRYPT_R
b430fd04
JH		 632#if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
633 CRYPTD* _crypt_data;
634#else
05404ffe 635 struct crypt_data *_crypt_struct_buffer;
b430fd04 636#endif
10bc17b6
JH		 637#endif /* HAS_CRYPT_R */
638#ifdef HAS_CTIME_R
639 char* _ctime_buffer;
640 size_t _ctime_size;
641#endif /* HAS_CTIME_R */
642#ifdef HAS_DRAND48_R
643 struct drand48_data _drand48_struct;
644 double _drand48_double;
645#endif /* HAS_DRAND48_R */
646#ifdef HAS_GETGRNAM_R
f7937171
JH		 647 struct group _grent_struct;
648 char* _grent_buffer;
649 size_t _grent_size;
650# ifdef USE_GRENT_PTR
651 struct group* _grent_ptr;
10bc17b6 652# endif
f7937171
JH		 653# ifdef USE_GRENT_FPTR
654 FILE* _grent_fptr;
10bc17b6
JH		 655# endif
656#endif /* HAS_GETGRNAM_R */
657#ifdef HAS_GETHOSTBYNAME_R
f7937171 658 struct hostent _hostent_struct;
10bc17b6 659# if GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
f7937171 660 struct hostent_data _hostent_data;
10bc17b6 661# else
f7937171
JH		 662 char* _hostent_buffer;
663 size_t _hostent_size;
10bc17b6 664# endif
f7937171
JH		 665# ifdef USE_HOSTENT_PTR
666 struct hostent* _hostent_ptr;
10bc17b6 667# endif
f7937171
JH		 668# ifdef USE_HOSTENT_ERRNO
669 int _hostent_errno;
10bc17b6
JH		 670# endif
671#endif /* HAS_GETHOSTBYNAME_R */
672#ifdef HAS_GETLOGIN_R
673 char* _getlogin_buffer;
674 size_t _getlogin_size;
675#endif /* HAS_GETLOGIN_R */
676#ifdef HAS_GETNETBYNAME_R
f7937171 677 struct netent _netent_struct;
10bc17b6 678# if GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
f7937171 679 struct netent_data _netent_data;
10bc17b6 680# else
f7937171
JH		 681 char* _netent_buffer;
682 size_t _netent_size;
10bc17b6 683# endif
f7937171
JH		 684# ifdef USE_NETENT_PTR
685 struct netent* _netent_ptr;
10bc17b6 686# endif
f7937171
JH		 687# ifdef USE_NETENT_ERRNO
688 int _netent_errno;
10bc17b6
JH		 689# endif
690#endif /* HAS_GETNETBYNAME_R */
691#ifdef HAS_GETPROTOBYNAME_R
f7937171 692 struct protoent _protoent_struct;
10bc17b6 693# if GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
f7937171 694 struct protoent_data _protoent_data;
10bc17b6 695# else
f7937171
JH		 696 char* _protoent_buffer;
697 size_t _protoent_size;
10bc17b6 698# endif
f7937171
JH		 699# ifdef USE_PROTOENT_PTR
700 struct protoent* _protoent_ptr;
10bc17b6 701# endif
f7937171
JH		 702# ifdef USE_PROTOENT_ERRNO
703 int _protoent_errno;
10bc17b6
JH		 704# endif
705#endif /* HAS_GETPROTOBYNAME_R */
706#ifdef HAS_GETPWNAM_R
f7937171
JH		 707 struct passwd _pwent_struct;
708 char* _pwent_buffer;
709 size_t _pwent_size;
710# ifdef USE_PWENT_PTR
711 struct passwd* _pwent_ptr;
10bc17b6 712# endif
f7937171
JH		 713# ifdef USE_PWENT_FPTR
714 FILE* _pwent_fptr;
10bc17b6
JH		 715# endif
716#endif /* HAS_GETPWNAM_R */
717#ifdef HAS_GETSERVBYNAME_R
f7937171 718 struct servent _servent_struct;
10bc17b6 719# if GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
f7937171 720 struct servent_data _servent_data;
10bc17b6 721# else
f7937171
JH		 722 char* _servent_buffer;
723 size_t _servent_size;
10bc17b6 724# endif
f7937171
JH		 725# ifdef USE_SERVENT_PTR
726 struct servent* _servent_ptr;
10bc17b6 727# endif
f7937171
JH		 728# ifdef USE_SERVENT_ERRNO
729 int _servent_errno;
10bc17b6
JH		 730# endif
731#endif /* HAS_GETSERVBYNAME_R */
732#ifdef HAS_GETSPNAM_R
f7937171
JH		 733 struct spwd _spent_struct;
734 char* _spent_buffer;
735 size_t _spent_size;
736# ifdef USE_SPENT_PTR
737 struct spwd* _spent_ptr;
738# endif
739# ifdef USE_SPENT_FPTR
740 FILE* _spent_fptr;
10bc17b6
JH		 741# endif
742#endif /* HAS_GETSPNAM_R */
10bc17b6
JH		 743#ifdef HAS_RANDOM_R
744 struct random_data _random_struct;
b3b3b51f 745# if RANDOM_R_PROTO == REENTRANT_PROTO_I_iS
a845a0d4
JH		 746 int _random_retval;
747# endif
b3b3b51f 748# if RANDOM_R_PROTO == REENTRANT_PROTO_I_lS
a845a0d4
JH		 749 long _random_retval;
750# endif
b3b3b51f 751# if RANDOM_R_PROTO == REENTRANT_PROTO_I_St
a845a0d4
JH		 752 int32_t _random_retval;
753# endif
10bc17b6
JH		 754#endif /* HAS_RANDOM_R */
755#ifdef HAS_READDIR_R
756 struct dirent* _readdir_struct;
757 size_t _readdir_size;
758# if READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
759 struct dirent* _readdir_ptr;
760# endif
761#endif /* HAS_READDIR_R */
762#ifdef HAS_READDIR64_R
763 struct dirent64* _readdir64_struct;
764 size_t _readdir64_size;
765# if READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
766 struct dirent64* _readdir64_ptr;
767# endif
768#endif /* HAS_READDIR64_R */
769#ifdef HAS_SETLOCALE_R
770 char* _setlocale_buffer;
771 size_t _setlocale_size;
772#endif /* HAS_SETLOCALE_R */
5cb13b8d
JD		 773#ifdef HAS_SRANDOM_R
774 struct random_data _srandom_struct;
775#endif /* HAS_SRANDOM_R */
10bc17b6
JH		 776#ifdef HAS_STRERROR_R
777 char* _strerror_buffer;
778 size_t _strerror_size;
779#endif /* HAS_STRERROR_R */
780#ifdef HAS_TTYNAME_R
781 char* _ttyname_buffer;
782 size_t _ttyname_size;
783#endif /* HAS_TTYNAME_R */
784
aa418cf1 785 int dummy; /* cannot have empty structs */
10bc17b6
JH		 786} REENTR;
787
788/* The wrappers. */
789
790#ifdef HAS_ASCTIME_R
d896b068 791# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 792# undef asctime
793# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SB
794# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer)
d4222de0 795# endif
10bc17b6
JH		 796# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SBI
797# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size)
d4222de0 798# endif
10bc17b6 799# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SB
b3b3b51f 800# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
d4222de0 801# endif
10bc17b6 802# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SBI
b3b3b51f 803# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
d4222de0
RGS		 804# endif
805# endif
10bc17b6
JH		 806#endif /* HAS_ASCTIME_R */
807
808#ifdef HAS_CRYPT_R
d896b068 809# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 810# undef crypt
811# if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCS
05404ffe 812# define crypt(a, b) crypt_r(a, b, PL_reentrant_buffer->_crypt_struct_buffer)
d4222de0 813# endif
b430fd04
JH		 814# if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
815# define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->_crypt_data)
d4222de0
RGS		 816# endif
817# endif
10bc17b6
JH		 818#endif /* HAS_CRYPT_R */
819
820#ifdef HAS_CTERMID_R
d896b068 821# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 822# undef ctermid
823# if !defined(ctermid) && CTERMID_R_PROTO == REENTRANT_PROTO_B_B
824# define ctermid(a) ctermid_r(a)
d4222de0
RGS		 825# endif
826# endif
10bc17b6
JH		 827#endif /* HAS_CTERMID_R */
828
829#ifdef HAS_CTIME_R
d896b068 830# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 831# undef ctime
832# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SB
833# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer)
d4222de0 834# endif
10bc17b6
JH		 835# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SBI
836# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size)
d4222de0 837# endif
10bc17b6 838# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SB
b3b3b51f 839# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
d4222de0 840# endif
10bc17b6 841# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SBI
b3b3b51f 842# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
d4222de0
RGS		 843# endif
844# endif
10bc17b6
JH		 845#endif /* HAS_CTIME_R */
846
847#ifdef HAS_DRAND48_R
d896b068 848# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 849# undef drand48
850# if !defined(drand48) && DRAND48_R_PROTO == REENTRANT_PROTO_I_ST
b3b3b51f 851# define drand48() (drand48_r(&PL_reentrant_buffer->_drand48_struct, &PL_reentrant_buffer->_drand48_double) == 0 ? PL_reentrant_buffer->_drand48_double : 0)
d4222de0
RGS		 852# endif
853# endif
10bc17b6
JH		 854#endif /* HAS_DRAND48_R */
855
856#ifdef HAS_ENDGRENT_R
d896b068 857# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 858# undef endgrent
859# if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H
b3b3b51f 860# define endgrent() (endgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
d4222de0 861# endif
10bc17b6 862# if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H
f7937171 863# define endgrent() endgrent_r(&PL_reentrant_buffer->_grent_fptr)
d4222de0
RGS		 864# endif
865# endif
10bc17b6
JH		 866#endif /* HAS_ENDGRENT_R */
867
868#ifdef HAS_ENDHOSTENT_R
d896b068 869# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6 870# undef endhostent
31ee0cb7 871# if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_I_D
b3b3b51f 872# define endhostent() (endhostent_r(&PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
d4222de0 873# endif
31ee0cb7 874# if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_V_D
f7937171 875# define endhostent() endhostent_r(&PL_reentrant_buffer->_hostent_data)
d4222de0
RGS		 876# endif
877# endif
10bc17b6
JH		 878#endif /* HAS_ENDHOSTENT_R */
879
880#ifdef HAS_ENDNETENT_R
d896b068 881# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6 882# undef endnetent
31ee0cb7 883# if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_I_D
b3b3b51f 884# define endnetent() (endnetent_r(&PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
d4222de0 885# endif
31ee0cb7 886# if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_V_D
f7937171 887# define endnetent() endnetent_r(&PL_reentrant_buffer->_netent_data)
d4222de0
RGS		 888# endif
889# endif
10bc17b6
JH		 890#endif /* HAS_ENDNETENT_R */
891
892#ifdef HAS_ENDPROTOENT_R
d896b068 893# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6 894# undef endprotoent
31ee0cb7 895# if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_I_D
b3b3b51f 896# define endprotoent() (endprotoent_r(&PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
d4222de0 897# endif
31ee0cb7 898# if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_V_D
f7937171 899# define endprotoent() endprotoent_r(&PL_reentrant_buffer->_protoent_data)
d4222de0
RGS		 900# endif
901# endif
10bc17b6
JH		 902#endif /* HAS_ENDPROTOENT_R */
903
904#ifdef HAS_ENDPWENT_R
d896b068 905# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 906# undef endpwent
907# if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H
b3b3b51f 908# define endpwent() (endpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
d4222de0 909# endif
10bc17b6 910# if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H
f7937171 911# define endpwent() endpwent_r(&PL_reentrant_buffer->_pwent_fptr)
d4222de0
RGS		 912# endif
913# endif
10bc17b6
JH		 914#endif /* HAS_ENDPWENT_R */
915
916#ifdef HAS_ENDSERVENT_R
d896b068 917# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6 918# undef endservent
31ee0cb7 919# if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_I_D
b3b3b51f 920# define endservent() (endservent_r(&PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
d4222de0 921# endif
31ee0cb7 922# if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_V_D
f7937171 923# define endservent() endservent_r(&PL_reentrant_buffer->_servent_data)
d4222de0
RGS		 924# endif
925# endif
10bc17b6
JH		 926#endif /* HAS_ENDSERVENT_R */
927
928#ifdef HAS_GETGRENT_R
d896b068 929# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 930# undef getgrent
931# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR
b8dcbfa5 932# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0 933# endif
10bc17b6 934# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR
b8dcbfa5 935# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0 936# endif
10bc17b6 937# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW
f6f0b69b 938# define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0 939# endif
10bc17b6 940# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 941# define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0 942# endif
10bc17b6 943# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 944# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0 945# endif
10bc17b6 946# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH
b8dcbfa5 947# define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_fptr)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
d4222de0
RGS		 948# endif
949# endif
10bc17b6
JH		 950#endif /* HAS_GETGRENT_R */
951
952#ifdef HAS_GETGRGID_R
d896b068 953# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 954# undef getgrgid
955# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR
b8dcbfa5 956# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
d4222de0 957# endif
10bc17b6 958# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR
b8dcbfa5 959# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
d4222de0 960# endif
10bc17b6 961# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI
b8dcbfa5 962# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
d4222de0 963# endif
10bc17b6 964# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI
f6f0b69b 965# define getgrgid(a) (getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
d4222de0
RGS		 966# endif
967# endif
10bc17b6
JH		 968#endif /* HAS_GETGRGID_R */
969
970#ifdef HAS_GETGRNAM_R
d896b068 971# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 972# undef getgrnam
973# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
b8dcbfa5 974# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
d4222de0 975# endif
10bc17b6 976# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
b8dcbfa5 977# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
d4222de0 978# endif
10bc17b6 979# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI
f6f0b69b 980# define getgrnam(a) (getgrnam_r(a, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? PL_reentrant_buffer->_grent_buffer : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
d4222de0 981# endif
10bc17b6 982# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
b8dcbfa5 983# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
d4222de0 984# endif
10bc17b6 985# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
f6f0b69b 986# define getgrnam(a) (getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
d4222de0
RGS		 987# endif
988# endif
10bc17b6
JH		 989#endif /* HAS_GETGRNAM_R */
990
991#ifdef HAS_GETHOSTBYADDR_R
d896b068 992# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 993# undef gethostbyaddr
994# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE
b8dcbfa5 995# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 996# endif
10bc17b6 997# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE
f6f0b69b 998# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 999# endif
10bc17b6 1000# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE
f6f0b69b 1001# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1002# endif
10bc17b6 1003# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE
f6f0b69b 1004# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1005# endif
10bc17b6 1006# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE
f6f0b69b 1007# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1008# endif
10bc17b6 1009# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE
f6f0b69b 1010# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1011# endif
10bc17b6 1012# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE
f6f0b69b 1013# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1014# endif
10bc17b6 1015# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISD
b8dcbfa5 1016# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1017# endif
10bc17b6 1018# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CIISD
b8dcbfa5 1019# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1020# endif
10bc17b6 1021# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CII
b8dcbfa5 1022# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c)) == 0 ? 1 : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0 1023# endif
a845a0d4 1024# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE
b8dcbfa5 1025# define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
d4222de0
RGS		 1026# endif
1027# endif
10bc17b6
JH		 1028#endif /* HAS_GETHOSTBYADDR_R */
1029
1030#ifdef HAS_GETHOSTBYNAME_R
d896b068 1031# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1032# undef gethostbyname
1033# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
b8dcbfa5 1034# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
d4222de0 1035# endif
10bc17b6 1036# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE
f6f0b69b 1037# define gethostbyname(a) (gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
d4222de0 1038# endif
10bc17b6 1039# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
b8dcbfa5 1040# define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
d4222de0
RGS		 1041# endif
1042# endif
10bc17b6
JH		 1043#endif /* HAS_GETHOSTBYNAME_R */
1044
1045#ifdef HAS_GETHOSTENT_R
d896b068 1046# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1047# undef gethostent
1048# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
b8dcbfa5 1049# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0 1050# endif
10bc17b6 1051# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE
b8dcbfa5 1052# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0 1053# endif
10bc17b6 1054# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE
f6f0b69b 1055# define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0 1056# endif
10bc17b6 1057# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 1058# define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0 1059# endif
10bc17b6 1060# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 1061# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0 1062# endif
10bc17b6 1063# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SD
b8dcbfa5 1064# define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
d4222de0
RGS		 1065# endif
1066# endif
10bc17b6
JH		 1067#endif /* HAS_GETHOSTENT_R */
1068
1069#ifdef HAS_GETLOGIN_R
d896b068 1070# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1071# undef getlogin
1072# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BW
b8dcbfa5 1073# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0))
d4222de0 1074# endif
10bc17b6 1075# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BI
b8dcbfa5 1076# define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0))
d4222de0 1077# endif
10bc17b6
JH		 1078# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BW
1079# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
d4222de0 1080# endif
10bc17b6
JH		 1081# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BI
1082# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
d4222de0
RGS		 1083# endif
1084# endif
10bc17b6
JH		 1085#endif /* HAS_GETLOGIN_R */
1086
1087#ifdef HAS_GETNETBYADDR_R
d896b068 1088# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1089# undef getnetbyaddr
1090# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE
b8dcbfa5 1091# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1092# endif
10bc17b6 1093# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI
b8dcbfa5 1094# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1095# endif
10bc17b6 1096# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI
f6f0b69b 1097# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1098# endif
10bc17b6 1099# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI
f6f0b69b 1100# define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1101# endif
10bc17b6 1102# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_TISD
b8dcbfa5 1103# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1104# endif
10bc17b6 1105# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISD
b8dcbfa5 1106# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1107# endif
10bc17b6 1108# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_IISD
b8dcbfa5 1109# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0 1110# endif
a845a0d4 1111# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE
b8dcbfa5 1112# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
d4222de0
RGS		 1113# endif
1114# endif
10bc17b6
JH		 1115#endif /* HAS_GETNETBYADDR_R */
1116
1117#ifdef HAS_GETNETBYNAME_R
d896b068 1118# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1119# undef getnetbyname
1120# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
b8dcbfa5 1121# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
d4222de0 1122# endif
10bc17b6 1123# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI
b8dcbfa5 1124# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
d4222de0 1125# endif
10bc17b6 1126# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
f6f0b69b 1127# define getnetbyname(a) (getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
d4222de0 1128# endif
10bc17b6 1129# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
b8dcbfa5 1130# define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
d4222de0
RGS		 1131# endif
1132# endif
10bc17b6
JH		 1133#endif /* HAS_GETNETBYNAME_R */
1134
1135#ifdef HAS_GETNETENT_R
d896b068 1136# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1137# undef getnetent
1138# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
b8dcbfa5 1139# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0 1140# endif
10bc17b6 1141# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE
b8dcbfa5 1142# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0 1143# endif
10bc17b6 1144# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE
f6f0b69b 1145# define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0 1146# endif
10bc17b6 1147# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 1148# define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0 1149# endif
10bc17b6 1150# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 1151# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0 1152# endif
10bc17b6 1153# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SD
b8dcbfa5 1154# define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
d4222de0
RGS		 1155# endif
1156# endif
10bc17b6
JH		 1157#endif /* HAS_GETNETENT_R */
1158
1159#ifdef HAS_GETPROTOBYNAME_R
d896b068 1160# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1161# undef getprotobyname
1162# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR
b8dcbfa5 1163# define getprotobyname(a) ((PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
d4222de0 1164# endif
10bc17b6 1165# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
f6f0b69b 1166# define getprotobyname(a) (getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
d4222de0 1167# endif
10bc17b6 1168# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
3fb2f3ac 1169# define getprotobyname(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
d4222de0
RGS		 1170# endif
1171# endif
10bc17b6
JH		 1172#endif /* HAS_GETPROTOBYNAME_R */
1173
1174#ifdef HAS_GETPROTOBYNUMBER_R
d896b068 1175# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1176# undef getprotobynumber
1177# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR
b8dcbfa5 1178# define getprotobynumber(a) ((PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
d4222de0 1179# endif
10bc17b6 1180# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI
f6f0b69b 1181# define getprotobynumber(a) (getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
d4222de0 1182# endif
10bc17b6 1183# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISD
3fb2f3ac 1184# define getprotobynumber(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
d4222de0
RGS		 1185# endif
1186# endif
10bc17b6
JH		 1187#endif /* HAS_GETPROTOBYNUMBER_R */
1188
1189#ifdef HAS_GETPROTOENT_R
d896b068 1190# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1191# undef getprotoent
1192# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR
b8dcbfa5 1193# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
d4222de0 1194# endif
10bc17b6 1195# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 1196# define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
d4222de0 1197# endif
10bc17b6 1198# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 1199# define getprotoent() (getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
d4222de0 1200# endif
10bc17b6 1201# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SD
3fb2f3ac 1202# define getprotoent() (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
d4222de0
RGS		 1203# endif
1204# endif
10bc17b6
JH		 1205#endif /* HAS_GETPROTOENT_R */
1206
1207#ifdef HAS_GETPWENT_R
d896b068 1208# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1209# undef getpwent
1210# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR
b8dcbfa5 1211# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0 1212# endif
10bc17b6 1213# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR
b8dcbfa5 1214# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0 1215# endif
10bc17b6 1216# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW
f6f0b69b 1217# define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0 1218# endif
10bc17b6 1219# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 1220# define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0 1221# endif
10bc17b6 1222# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 1223# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0 1224# endif
10bc17b6 1225# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH
b8dcbfa5 1226# define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_fptr)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
d4222de0
RGS		 1227# endif
1228# endif
10bc17b6
JH		 1229#endif /* HAS_GETPWENT_R */
1230
1231#ifdef HAS_GETPWNAM_R
d896b068 1232# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1233# undef getpwnam
1234# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
b8dcbfa5 1235# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
d4222de0 1236# endif
10bc17b6 1237# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
b8dcbfa5 1238# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
d4222de0 1239# endif
10bc17b6 1240# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
f6f0b69b 1241# define getpwnam(a) (getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
d4222de0 1242# endif
10bc17b6 1243# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
b8dcbfa5 1244# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
d4222de0
RGS		 1245# endif
1246# endif
10bc17b6
JH		 1247#endif /* HAS_GETPWNAM_R */
1248
1249#ifdef HAS_GETPWUID_R
d896b068 1250# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1251# undef getpwuid
1252# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR
b8dcbfa5 1253# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
d4222de0 1254# endif
10bc17b6 1255# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR
b8dcbfa5 1256# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
d4222de0 1257# endif
10bc17b6 1258# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBI
b8dcbfa5 1259# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
d4222de0 1260# endif
10bc17b6 1261# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_S_TSBI
f6f0b69b 1262# define getpwuid(a) (getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
d4222de0
RGS		 1263# endif
1264# endif
10bc17b6
JH		 1265#endif /* HAS_GETPWUID_R */
1266
1267#ifdef HAS_GETSERVBYNAME_R
d896b068 1268# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1269# undef getservbyname
1270# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR
b8dcbfa5 1271# define getservbyname(a, b) ((PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
d4222de0 1272# endif
10bc17b6 1273# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI
f6f0b69b 1274# define getservbyname(a, b) (getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
d4222de0 1275# endif
10bc17b6 1276# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
3fb2f3ac 1277# define getservbyname(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
d4222de0
RGS		 1278# endif
1279# endif
10bc17b6
JH		 1280#endif /* HAS_GETSERVBYNAME_R */
1281
1282#ifdef HAS_GETSERVBYPORT_R
d896b068 1283# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1284# undef getservbyport
1285# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR
b8dcbfa5 1286# define getservbyport(a, b) ((PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
d4222de0 1287# endif
10bc17b6 1288# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI
f6f0b69b 1289# define getservbyport(a, b) (getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
d4222de0 1290# endif
10bc17b6 1291# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSD
3fb2f3ac 1292# define getservbyport(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
d4222de0
RGS		 1293# endif
1294# endif
10bc17b6
JH		 1295#endif /* HAS_GETSERVBYPORT_R */
1296
1297#ifdef HAS_GETSERVENT_R
d896b068 1298# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1299# undef getservent
1300# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR
b8dcbfa5 1301# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
d4222de0 1302# endif
10bc17b6 1303# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI
b8dcbfa5 1304# define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
d4222de0 1305# endif
10bc17b6 1306# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI
f6f0b69b 1307# define getservent() (getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
d4222de0 1308# endif
10bc17b6 1309# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SD
3fb2f3ac 1310# define getservent() (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
d4222de0
RGS		 1311# endif
1312# endif
10bc17b6
JH		 1313#endif /* HAS_GETSERVENT_R */
1314
1315#ifdef HAS_GETSPNAM_R
d896b068 1316# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1317# undef getspnam
1318# if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
b8dcbfa5 1319# define getspnam(a) ((PL_reentrant_retint = getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, &PL_reentrant_buffer->_spent_ptr)) == 0 ? PL_reentrant_buffer->_spent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
d4222de0 1320# endif
10bc17b6 1321# if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
f6f0b69b 1322# define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size) ? &PL_reentrant_buffer->_spent_struct : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
d4222de0
RGS		 1323# endif
1324# endif
10bc17b6
JH		 1325#endif /* HAS_GETSPNAM_R */
1326
10bc17b6 1327#ifdef HAS_RANDOM_R
d896b068 1328# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6 1329# undef random
a845a0d4
JH		 1330# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_iS
1331# define random() (random_r(&PL_reentrant_buffer->_random_retval, &PL_reentrant_buffer->_random_struct) == 0 ? PL_reentrant_buffer->_random_retval : 0)
d4222de0 1332# endif
a845a0d4
JH		 1333# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_lS
1334# define random() (random_r(&PL_reentrant_buffer->_random_retval, &PL_reentrant_buffer->_random_struct) == 0 ? PL_reentrant_buffer->_random_retval : 0)
d4222de0 1335# endif
a845a0d4
JH		 1336# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_St
1337# define random() (random_r(&PL_reentrant_buffer->_random_struct, &PL_reentrant_buffer->_random_retval) == 0 ? PL_reentrant_buffer->_random_retval : 0)
d4222de0
RGS		 1338# endif
1339# endif
10bc17b6
JH		 1340#endif /* HAS_RANDOM_R */
1341
1342#ifdef HAS_READDIR_R
d896b068 1343# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1344# undef readdir
1345# if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
b3b3b51f 1346# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct, &PL_reentrant_buffer->_readdir_ptr) == 0 ? PL_reentrant_buffer->_readdir_ptr : 0)
d4222de0 1347# endif
10bc17b6 1348# if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TS
b3b3b51f 1349# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct) == 0 ? PL_reentrant_buffer->_readdir_struct : 0)
d4222de0
RGS		 1350# endif
1351# endif
10bc17b6
JH		 1352#endif /* HAS_READDIR_R */
1353
1354#ifdef HAS_READDIR64_R
d896b068 1355# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1356# undef readdir64
1357# if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
b3b3b51f 1358# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct, &PL_reentrant_buffer->_readdir64_ptr) == 0 ? PL_reentrant_buffer->_readdir64_ptr : 0)
d4222de0 1359# endif
10bc17b6 1360# if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TS
b3b3b51f 1361# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct) == 0 ? PL_reentrant_buffer->_readdir64_struct : 0)
d4222de0
RGS		 1362# endif
1363# endif
10bc17b6
JH		 1364#endif /* HAS_READDIR64_R */
1365
1366#ifdef HAS_SETGRENT_R
d896b068 1367# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1368# undef setgrent
1369# if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_I_H
b3b3b51f 1370# define setgrent() (setgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
d4222de0 1371# endif
10bc17b6 1372# if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_V_H
f7937171 1373# define setgrent() setgrent_r(&PL_reentrant_buffer->_grent_fptr)
d4222de0
RGS		 1374# endif
1375# endif
10bc17b6
JH		 1376#endif /* HAS_SETGRENT_R */
1377
1378#ifdef HAS_SETHOSTENT_R
d896b068 1379# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1380# undef sethostent
1381# if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_I_ID
b3b3b51f 1382# define sethostent(a) (sethostent_r(a, &PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
d4222de0 1383# endif
10bc17b6 1384# if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_V_ID
f7937171 1385# define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->_hostent_data)
d4222de0
RGS		 1386# endif
1387# endif
10bc17b6
JH		 1388#endif /* HAS_SETHOSTENT_R */
1389
1390#ifdef HAS_SETLOCALE_R
d896b068 1391# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1392# undef setlocale
1393# if !defined(setlocale) && SETLOCALE_R_PROTO == REENTRANT_PROTO_I_ICBI
b3b3b51f 1394# define setlocale(a, b) (setlocale_r(a, b, PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size) == 0 ? PL_reentrant_buffer->_setlocale_buffer : 0)
d4222de0
RGS		 1395# endif
1396# endif
10bc17b6
JH		 1397#endif /* HAS_SETLOCALE_R */
1398
1399#ifdef HAS_SETNETENT_R
d896b068 1400# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1401# undef setnetent
1402# if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_I_ID
b3b3b51f 1403# define setnetent(a) (setnetent_r(a, &PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
d4222de0 1404# endif
10bc17b6 1405# if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_V_ID
f7937171 1406# define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->_netent_data)
d4222de0
RGS		 1407# endif
1408# endif
10bc17b6
JH		 1409#endif /* HAS_SETNETENT_R */
1410
1411#ifdef HAS_SETPROTOENT_R
d896b068 1412# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1413# undef setprotoent
1414# if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_I_ID
b3b3b51f 1415# define setprotoent(a) (setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
d4222de0 1416# endif
10bc17b6 1417# if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_V_ID
f7937171 1418# define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->_protoent_data)
d4222de0
RGS		 1419# endif
1420# endif
10bc17b6
JH		 1421#endif /* HAS_SETPROTOENT_R */
1422
1423#ifdef HAS_SETPWENT_R
d896b068 1424# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1425# undef setpwent
1426# if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_I_H
b3b3b51f 1427# define setpwent() (setpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
d4222de0 1428# endif
10bc17b6 1429# if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_V_H
f7937171 1430# define setpwent() setpwent_r(&PL_reentrant_buffer->_pwent_fptr)
d4222de0
RGS		 1431# endif
1432# endif
10bc17b6
JH		 1433#endif /* HAS_SETPWENT_R */
1434
1435#ifdef HAS_SETSERVENT_R
d896b068 1436# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1437# undef setservent
1438# if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_I_ID
b3b3b51f 1439# define setservent(a) (setservent_r(a, &PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
d4222de0 1440# endif
10bc17b6 1441# if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_V_ID
f7937171 1442# define setservent(a) setservent_r(a, &PL_reentrant_buffer->_servent_data)
d4222de0
RGS		 1443# endif
1444# endif
10bc17b6
JH		 1445#endif /* HAS_SETSERVENT_R */
1446
1447#ifdef HAS_SRAND48_R
d896b068 1448# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1449# undef srand48
1450# if !defined(srand48) && SRAND48_R_PROTO == REENTRANT_PROTO_I_LS
b3b3b51f 1451# define srand48(a) (srand48_r(a, &PL_reentrant_buffer->_drand48_struct) == 0 ? &PL_reentrant_buffer->_drand48_struct : 0)
d4222de0
RGS		 1452# endif
1453# endif
10bc17b6
JH		 1454#endif /* HAS_SRAND48_R */
1455
1456#ifdef HAS_SRANDOM_R
d896b068 1457# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1458# undef srandom
1459# if !defined(srandom) && SRANDOM_R_PROTO == REENTRANT_PROTO_I_TS
b3b3b51f 1460# define srandom(a) (srandom_r(a, &PL_reentrant_buffer->_srandom_struct) == 0 ? &PL_reentrant_buffer->_srandom_struct : 0)
d4222de0
RGS		 1461# endif
1462# endif
10bc17b6
JH		 1463#endif /* HAS_SRANDOM_R */
1464
1465#ifdef HAS_STRERROR_R
d896b068 1466# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1467# undef strerror
1468# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBW
b3b3b51f 1469# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
d4222de0 1470# endif
10bc17b6 1471# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBI
b3b3b51f 1472# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
d4222de0 1473# endif
10bc17b6
JH		 1474# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_B_IBW
1475# define strerror(a) strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size)
d4222de0
RGS		 1476# endif
1477# endif
10bc17b6
JH		 1478#endif /* HAS_STRERROR_R */
1479
1480#ifdef HAS_TMPNAM_R
d896b068 1481# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1482# undef tmpnam
1483# if !defined(tmpnam) && TMPNAM_R_PROTO == REENTRANT_PROTO_B_B
1484# define tmpnam(a) tmpnam_r(a)
d4222de0
RGS		 1485# endif
1486# endif
10bc17b6
JH		 1487#endif /* HAS_TMPNAM_R */
1488
1489#ifdef HAS_TTYNAME_R
d896b068 1490# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
10bc17b6
JH		 1491# undef ttyname
1492# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBW
b3b3b51f 1493# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
d4222de0 1494# endif
10bc17b6 1495# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBI
b3b3b51f 1496# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
d4222de0 1497# endif
10bc17b6
JH		 1498# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_B_IBI
1499# define ttyname(a) ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size)
d4222de0
RGS		 1500# endif
1501# endif
10bc17b6
JH		 1502#endif /* HAS_TTYNAME_R */
1503
1504
0891a229 1505
10bc17b6
JH		 1506#endif /* USE_REENTRANT_API */
1507
1508#endif
1509
37442d52 1510/* ex: set ro: */
Unnamed repository; edit this file 'description' to name the repository.