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