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