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_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
checkAUTHORS.pl update for me
[perl5.git] / reentr.h
... / ...
CommitLineData
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_TS 72
189#define REENTRANT_PROTO_S_TSBI 73
190#define REENTRANT_PROTO_S_TSBIE 74
191#define REENTRANT_PROTO_S_TWISBIE 75
192#define REENTRANT_PROTO_V_D 76
193#define REENTRANT_PROTO_V_H 77
194#define REENTRANT_PROTO_V_ID 78
195
196/* Defines for indicating which special features are supported. */
197
198/* The getgrent getgrgid getgrnam using buffer? */
199
200#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
201# define GETGRENT_R_HAS_BUFFER
202#else
203# undef GETGRENT_R_HAS_BUFFER
204#endif
205#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI || GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI)
206# define GETGRGID_R_HAS_BUFFER
207#else
208# undef GETGRGID_R_HAS_BUFFER
209#endif
210#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI)
211# define GETGRNAM_R_HAS_BUFFER
212#else
213# undef GETGRNAM_R_HAS_BUFFER
214#endif
215
216/* Any of the getgrent getgrgid getgrnam using buffer? */
217
218#if (defined(GETGRENT_R_HAS_BUFFER) || defined(GETGRGID_R_HAS_BUFFER) || defined(GETGRNAM_R_HAS_BUFFER))
219# define USE_GRENT_BUFFER
220#else
221# undef USE_GRENT_BUFFER
222#endif
223
224/* The getgrent getgrgid getgrnam using ptr? */
225
226#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
227# define GETGRENT_R_HAS_PTR
228#else
229# undef GETGRENT_R_HAS_PTR
230#endif
231#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
232# define GETGRGID_R_HAS_PTR
233#else
234# undef GETGRGID_R_HAS_PTR
235#endif
236#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
237# define GETGRNAM_R_HAS_PTR
238#else
239# undef GETGRNAM_R_HAS_PTR
240#endif
241
242/* Any of the getgrent getgrgid getgrnam using ptr? */
243
244#if (defined(GETGRENT_R_HAS_PTR) || defined(GETGRGID_R_HAS_PTR) || defined(GETGRNAM_R_HAS_PTR))
245# define USE_GRENT_PTR
246#else
247# undef USE_GRENT_PTR
248#endif
249
250/* The getpwent getpwnam getpwuid using ptr? */
251
252#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
253# define GETPWENT_R_HAS_PTR
254#else
255# undef GETPWENT_R_HAS_PTR
256#endif
257#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
258# define GETPWNAM_R_HAS_PTR
259#else
260# undef GETPWNAM_R_HAS_PTR
261#endif
262#if defined(HAS_GETPWUID_R) && (GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
263# define GETPWUID_R_HAS_PTR
264#else
265# undef GETPWUID_R_HAS_PTR
266#endif
267
268/* Any of the getpwent getpwnam getpwuid using ptr? */
269
270#if (defined(GETPWENT_R_HAS_PTR) || defined(GETPWNAM_R_HAS_PTR) || defined(GETPWUID_R_HAS_PTR))
271# define USE_PWENT_PTR
272#else
273# undef USE_PWENT_PTR
274#endif
275
276/* The getspent getspnam using ptr? */
277
278#if defined(HAS_GETSPNAM_R) && (GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR)
279# define GETSPNAM_R_HAS_PTR
280#else
281# undef GETSPNAM_R_HAS_PTR
282#endif
283
284/* Any of the getspent getspnam using ptr? */
285
286#if (defined(GETSPENT_R_HAS_PTR) || defined(GETSPNAM_R_HAS_PTR))
287# define USE_SPENT_PTR
288#else
289# undef USE_SPENT_PTR
290#endif
291
292/* The getgrent getgrgid getgrnam setgrent endgrent using fptr? */
293
294#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
295# define GETGRENT_R_HAS_FPTR
296#else
297# undef GETGRENT_R_HAS_FPTR
298#endif
299#if defined(HAS_SETGRENT_R) && (SETGRENT_R_PROTO == REENTRANT_PROTO_I_H || SETGRENT_R_PROTO == REENTRANT_PROTO_V_H)
300# define SETGRENT_R_HAS_FPTR
301#else
302# undef SETGRENT_R_HAS_FPTR
303#endif
304#if defined(HAS_ENDGRENT_R) && (ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H || ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H)
305# define ENDGRENT_R_HAS_FPTR
306#else
307# undef ENDGRENT_R_HAS_FPTR
308#endif
309
310/* Any of the getgrent getgrgid getgrnam setgrent endgrent using fptr? */
311
312#if (defined(GETGRENT_R_HAS_FPTR) || defined(GETGRGID_R_HAS_FPTR) || defined(GETGRNAM_R_HAS_FPTR) || defined(SETGRENT_R_HAS_FPTR) || defined(ENDGRENT_R_HAS_FPTR))
313# define USE_GRENT_FPTR
314#else
315# undef USE_GRENT_FPTR
316#endif
317
318/* The getpwent getpwnam getpwuid setpwent endpwent using fptr? */
319
320#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
321# define GETPWENT_R_HAS_FPTR
322#else
323# undef GETPWENT_R_HAS_FPTR
324#endif
325#if defined(HAS_SETPWENT_R) && (SETPWENT_R_PROTO == REENTRANT_PROTO_I_H || SETPWENT_R_PROTO == REENTRANT_PROTO_V_H)
326# define SETPWENT_R_HAS_FPTR
327#else
328# undef SETPWENT_R_HAS_FPTR
329#endif
330#if defined(HAS_ENDPWENT_R) && (ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H || ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H)
331# define ENDPWENT_R_HAS_FPTR
332#else
333# undef ENDPWENT_R_HAS_FPTR
334#endif
335
336/* Any of the getpwent getpwnam getpwuid setpwent endpwent using fptr? */
337
338#if (defined(GETPWENT_R_HAS_FPTR) || defined(GETPWNAM_R_HAS_FPTR) || defined(GETPWUID_R_HAS_FPTR) || defined(SETPWENT_R_HAS_FPTR) || defined(ENDPWENT_R_HAS_FPTR))
339# define USE_PWENT_FPTR
340#else
341# undef USE_PWENT_FPTR
342#endif
343
344/* The getpwent getpwgid getpwnam using buffer? */
345
346#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
347# define GETPWENT_R_HAS_BUFFER
348#else
349# undef GETPWENT_R_HAS_BUFFER
350#endif
351#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI)
352# define GETPWNAM_R_HAS_BUFFER
353#else
354# undef GETPWNAM_R_HAS_BUFFER
355#endif
356
357/* Any of the getpwent getpwgid getpwnam using buffer? */
358
359#if (defined(GETPWENT_R_HAS_BUFFER) || defined(GETPWGID_R_HAS_BUFFER) || defined(GETPWNAM_R_HAS_BUFFER))
360# define USE_PWENT_BUFFER
361#else
362# undef USE_PWENT_BUFFER
363#endif
364
365/* The gethostent gethostbyaddr gethostbyname using ptr? */
366
367#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
368# define GETHOSTENT_R_HAS_PTR
369#else
370# undef GETHOSTENT_R_HAS_PTR
371#endif
372#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
373# define GETHOSTBYADDR_R_HAS_PTR
374#else
375# undef GETHOSTBYADDR_R_HAS_PTR
376#endif
377#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
378# define GETHOSTBYNAME_R_HAS_PTR
379#else
380# undef GETHOSTBYNAME_R_HAS_PTR
381#endif
382
383/* Any of the gethostent gethostbyaddr gethostbyname using ptr? */
384
385#if (defined(GETHOSTENT_R_HAS_PTR) || defined(GETHOSTBYADDR_R_HAS_PTR) || defined(GETHOSTBYNAME_R_HAS_PTR))
386# define USE_HOSTENT_PTR
387#else
388# undef USE_HOSTENT_PTR
389#endif
390
391/* The getnetent getnetbyaddr getnetbyname using ptr? */
392
393#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
394# define GETNETENT_R_HAS_PTR
395#else
396# undef GETNETENT_R_HAS_PTR
397#endif
398#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
399# define GETNETBYADDR_R_HAS_PTR
400#else
401# undef GETNETBYADDR_R_HAS_PTR
402#endif
403#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
404# define GETNETBYNAME_R_HAS_PTR
405#else
406# undef GETNETBYNAME_R_HAS_PTR
407#endif
408
409/* Any of the getnetent getnetbyaddr getnetbyname using ptr? */
410
411#if (defined(GETNETENT_R_HAS_PTR) || defined(GETNETBYADDR_R_HAS_PTR) || defined(GETNETBYNAME_R_HAS_PTR))
412# define USE_NETENT_PTR
413#else
414# undef USE_NETENT_PTR
415#endif
416
417/* The getprotoent getprotobyname getprotobynumber using ptr? */
418
419#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
420# define GETPROTOENT_R_HAS_PTR
421#else
422# undef GETPROTOENT_R_HAS_PTR
423#endif
424#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR)
425# define GETPROTOBYNAME_R_HAS_PTR
426#else
427# undef GETPROTOBYNAME_R_HAS_PTR
428#endif
429#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR)
430# define GETPROTOBYNUMBER_R_HAS_PTR
431#else
432# undef GETPROTOBYNUMBER_R_HAS_PTR
433#endif
434
435/* Any of the getprotoent getprotobyname getprotobynumber using ptr? */
436
437#if (defined(GETPROTOENT_R_HAS_PTR) || defined(GETPROTOBYNAME_R_HAS_PTR) || defined(GETPROTOBYNUMBER_R_HAS_PTR))
438# define USE_PROTOENT_PTR
439#else
440# undef USE_PROTOENT_PTR
441#endif
442
443/* The getservent getservbyname getservbyport using ptr? */
444
445#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
446# define GETSERVENT_R_HAS_PTR
447#else
448# undef GETSERVENT_R_HAS_PTR
449#endif
450#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR)
451# define GETSERVBYNAME_R_HAS_PTR
452#else
453# undef GETSERVBYNAME_R_HAS_PTR
454#endif
455#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR)
456# define GETSERVBYPORT_R_HAS_PTR
457#else
458# undef GETSERVBYPORT_R_HAS_PTR
459#endif
460
461/* Any of the getservent getservbyname getservbyport using ptr? */
462
463#if (defined(GETSERVENT_R_HAS_PTR) || defined(GETSERVBYNAME_R_HAS_PTR) || defined(GETSERVBYPORT_R_HAS_PTR))
464# define USE_SERVENT_PTR
465#else
466# undef USE_SERVENT_PTR
467#endif
468
469/* The gethostent gethostbyaddr gethostbyname using buffer? */
470
471#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI)
472# define GETHOSTENT_R_HAS_BUFFER
473#else
474# undef GETHOSTENT_R_HAS_BUFFER
475#endif
476#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
477# define GETHOSTBYADDR_R_HAS_BUFFER
478#else
479# undef GETHOSTBYADDR_R_HAS_BUFFER
480#endif
481#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
482# define GETHOSTBYNAME_R_HAS_BUFFER
483#else
484# undef GETHOSTBYNAME_R_HAS_BUFFER
485#endif
486
487/* Any of the gethostent gethostbyaddr gethostbyname using buffer? */
488
489#if (defined(GETHOSTENT_R_HAS_BUFFER) || defined(GETHOSTBYADDR_R_HAS_BUFFER) || defined(GETHOSTBYNAME_R_HAS_BUFFER))
490# define USE_HOSTENT_BUFFER
491#else
492# undef USE_HOSTENT_BUFFER
493#endif
494
495/* The getnetent getnetbyaddr getnetbyname using buffer? */
496
497#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI)
498# define GETNETENT_R_HAS_BUFFER
499#else
500# undef GETNETENT_R_HAS_BUFFER
501#endif
502#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
503# define GETNETBYADDR_R_HAS_BUFFER
504#else
505# undef GETNETBYADDR_R_HAS_BUFFER
506#endif
507#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
508# define GETNETBYNAME_R_HAS_BUFFER
509#else
510# undef GETNETBYNAME_R_HAS_BUFFER
511#endif
512
513/* Any of the getnetent getnetbyaddr getnetbyname using buffer? */
514
515#if (defined(GETNETENT_R_HAS_BUFFER) || defined(GETNETBYADDR_R_HAS_BUFFER) || defined(GETNETBYNAME_R_HAS_BUFFER))
516# define USE_NETENT_BUFFER
517#else
518# undef USE_NETENT_BUFFER
519#endif
520
521/* The getprotoent getprotobyname getprotobynumber using buffer? */
522
523#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI)
524# define GETPROTOENT_R_HAS_BUFFER
525#else
526# undef GETPROTOENT_R_HAS_BUFFER
527#endif
528#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
529# define GETPROTOBYNAME_R_HAS_BUFFER
530#else
531# undef GETPROTOBYNAME_R_HAS_BUFFER
532#endif
533#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR || GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI)
534# define GETPROTOBYNUMBER_R_HAS_BUFFER
535#else
536# undef GETPROTOBYNUMBER_R_HAS_BUFFER
537#endif
538
539/* Any of the getprotoent getprotobyname getprotobynumber using buffer? */
540
541#if (defined(GETPROTOENT_R_HAS_BUFFER) || defined(GETPROTOBYNAME_R_HAS_BUFFER) || defined(GETPROTOBYNUMBER_R_HAS_BUFFER))
542# define USE_PROTOENT_BUFFER
543#else
544# undef USE_PROTOENT_BUFFER
545#endif
546
547/* The getservent getservbyname getservbyport using buffer? */
548
549#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI)
550# define GETSERVENT_R_HAS_BUFFER
551#else
552# undef GETSERVENT_R_HAS_BUFFER
553#endif
554#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR || GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI)
555# define GETSERVBYNAME_R_HAS_BUFFER
556#else
557# undef GETSERVBYNAME_R_HAS_BUFFER
558#endif
559#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR || GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI)
560# define GETSERVBYPORT_R_HAS_BUFFER
561#else
562# undef GETSERVBYPORT_R_HAS_BUFFER
563#endif
564
565/* Any of the getservent getservbyname getservbyport using buffer? */
566
567#if (defined(GETSERVENT_R_HAS_BUFFER) || defined(GETSERVBYNAME_R_HAS_BUFFER) || defined(GETSERVBYPORT_R_HAS_BUFFER))
568# define USE_SERVENT_BUFFER
569#else
570# undef USE_SERVENT_BUFFER
571#endif
572
573/* The gethostent gethostbyaddr gethostbyname using errno? */
574
575#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
576# define GETHOSTENT_R_HAS_ERRNO
577#else
578# undef GETHOSTENT_R_HAS_ERRNO
579#endif
580#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
581# define GETHOSTBYADDR_R_HAS_ERRNO
582#else
583# undef GETHOSTBYADDR_R_HAS_ERRNO
584#endif
585#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
586# define GETHOSTBYNAME_R_HAS_ERRNO
587#else
588# undef GETHOSTBYNAME_R_HAS_ERRNO
589#endif
590
591/* Any of the gethostent gethostbyaddr gethostbyname using errno? */
592
593#if (defined(GETHOSTENT_R_HAS_ERRNO) || defined(GETHOSTBYADDR_R_HAS_ERRNO) || defined(GETHOSTBYNAME_R_HAS_ERRNO))
594# define USE_HOSTENT_ERRNO
595#else
596# undef USE_HOSTENT_ERRNO
597#endif
598
599/* The getnetent getnetbyaddr getnetbyname using errno? */
600
601#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
602# define GETNETENT_R_HAS_ERRNO
603#else
604# undef GETNETENT_R_HAS_ERRNO
605#endif
606#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
607# define GETNETBYADDR_R_HAS_ERRNO
608#else
609# undef GETNETBYADDR_R_HAS_ERRNO
610#endif
611#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
612# define GETNETBYNAME_R_HAS_ERRNO
613#else
614# undef GETNETBYNAME_R_HAS_ERRNO
615#endif
616
617/* Any of the getnetent getnetbyaddr getnetbyname using errno? */
618
619#if (defined(GETNETENT_R_HAS_ERRNO) || defined(GETNETBYADDR_R_HAS_ERRNO) || defined(GETNETBYNAME_R_HAS_ERRNO))
620# define USE_NETENT_ERRNO
621#else
622# undef USE_NETENT_ERRNO
623#endif
624
625
626typedef struct {
627#ifdef HAS_ASCTIME_R
628 char* _asctime_buffer;
629 size_t _asctime_size;
630#endif /* HAS_ASCTIME_R */
631#ifdef HAS_CRYPT_R
632#if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
633 CRYPTD* _crypt_data;
634#else
635 struct crypt_data *_crypt_struct_buffer;
636#endif
637#endif /* HAS_CRYPT_R */
638#ifdef HAS_CTIME_R
639 char* _ctime_buffer;
640 size_t _ctime_size;
641#endif /* HAS_CTIME_R */
642#ifdef HAS_DRAND48_R
643 struct drand48_data _drand48_struct;
644 double _drand48_double;
645#endif /* HAS_DRAND48_R */
646#ifdef HAS_GETGRNAM_R
647 struct group _grent_struct;
648 char* _grent_buffer;
649 size_t _grent_size;
650# ifdef USE_GRENT_PTR
651 struct group* _grent_ptr;
652# endif
653# ifdef USE_GRENT_FPTR
654 FILE* _grent_fptr;
655# endif
656#endif /* HAS_GETGRNAM_R */
657#ifdef HAS_GETHOSTBYNAME_R
658 struct hostent _hostent_struct;
659# if GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
660 struct hostent_data _hostent_data;
661# else
662 char* _hostent_buffer;
663 size_t _hostent_size;
664# endif
665# ifdef USE_HOSTENT_PTR
666 struct hostent* _hostent_ptr;
667# endif
668# ifdef USE_HOSTENT_ERRNO
669 int _hostent_errno;
670# endif
671#endif /* HAS_GETHOSTBYNAME_R */
672#ifdef HAS_GETLOGIN_R
673 char* _getlogin_buffer;
674 size_t _getlogin_size;
675#endif /* HAS_GETLOGIN_R */
676#ifdef HAS_GETNETBYNAME_R
677 struct netent _netent_struct;
678# if GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
679 struct netent_data _netent_data;
680# else
681 char* _netent_buffer;
682 size_t _netent_size;
683# endif
684# ifdef USE_NETENT_PTR
685 struct netent* _netent_ptr;
686# endif
687# ifdef USE_NETENT_ERRNO
688 int _netent_errno;
689# endif
690#endif /* HAS_GETNETBYNAME_R */
691#ifdef HAS_GETPROTOBYNAME_R
692 struct protoent _protoent_struct;
693# if GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
694 struct protoent_data _protoent_data;
695# else
696 char* _protoent_buffer;
697 size_t _protoent_size;
698# endif
699# ifdef USE_PROTOENT_PTR
700 struct protoent* _protoent_ptr;
701# endif
702# ifdef USE_PROTOENT_ERRNO
703 int _protoent_errno;
704# endif
705#endif /* HAS_GETPROTOBYNAME_R */
706#ifdef HAS_GETPWNAM_R
707 struct passwd _pwent_struct;
708 char* _pwent_buffer;
709 size_t _pwent_size;
710# ifdef USE_PWENT_PTR
711 struct passwd* _pwent_ptr;
712# endif
713# ifdef USE_PWENT_FPTR
714 FILE* _pwent_fptr;
715# endif
716#endif /* HAS_GETPWNAM_R */
717#ifdef HAS_GETSERVBYNAME_R
718 struct servent _servent_struct;
719# if GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
720 struct servent_data _servent_data;
721# else
722 char* _servent_buffer;
723 size_t _servent_size;
724# endif
725# ifdef USE_SERVENT_PTR
726 struct servent* _servent_ptr;
727# endif
728# ifdef USE_SERVENT_ERRNO
729 int _servent_errno;
730# endif
731#endif /* HAS_GETSERVBYNAME_R */
732#ifdef HAS_GETSPNAM_R
733 struct spwd _spent_struct;
734 char* _spent_buffer;
735 size_t _spent_size;
736# ifdef USE_SPENT_PTR
737 struct spwd* _spent_ptr;
738# endif
739# ifdef USE_SPENT_FPTR
740 FILE* _spent_fptr;
741# endif
742#endif /* HAS_GETSPNAM_R */
743#ifdef HAS_GMTIME_R
744 struct tm _gmtime_struct;
745#endif /* HAS_GMTIME_R */
746#ifdef HAS_LOCALTIME_R
747 struct tm _localtime_struct;
748#endif /* HAS_LOCALTIME_R */
749#ifdef HAS_RANDOM_R
750 struct random_data _random_struct;
751# if RANDOM_R_PROTO == REENTRANT_PROTO_I_iS
752 int _random_retval;
753# endif
754# if RANDOM_R_PROTO == REENTRANT_PROTO_I_lS
755 long _random_retval;
756# endif
757# if RANDOM_R_PROTO == REENTRANT_PROTO_I_St
758 int32_t _random_retval;
759# endif
760#endif /* HAS_RANDOM_R */
761#ifdef HAS_READDIR_R
762 struct dirent* _readdir_struct;
763 size_t _readdir_size;
764# if READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
765 struct dirent* _readdir_ptr;
766# endif
767#endif /* HAS_READDIR_R */
768#ifdef HAS_READDIR64_R
769 struct dirent64* _readdir64_struct;
770 size_t _readdir64_size;
771# if READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
772 struct dirent64* _readdir64_ptr;
773# endif
774#endif /* HAS_READDIR64_R */
775#ifdef HAS_SETLOCALE_R
776 char* _setlocale_buffer;
777 size_t _setlocale_size;
778#endif /* HAS_SETLOCALE_R */
779#ifdef HAS_SRANDOM_R
780 struct random_data _srandom_struct;
781#endif /* HAS_SRANDOM_R */
782#ifdef HAS_STRERROR_R
783 char* _strerror_buffer;
784 size_t _strerror_size;
785#endif /* HAS_STRERROR_R */
786#ifdef HAS_TTYNAME_R
787 char* _ttyname_buffer;
788 size_t _ttyname_size;
789#endif /* HAS_TTYNAME_R */
790
791 int dummy; /* cannot have empty structs */
792} REENTR;
793
794/* The wrappers. */
795
796#ifdef HAS_ASCTIME_R
797# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
798# undef asctime
799# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SB
800# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer)
801# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
802# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SBI
803# define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size)
804# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
805# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SB
806# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
807# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
808# if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SBI
809# define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
810# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
811# endif /* HAS_ASCTIME */
812#endif /* HAS_ASCTIME_R */
813
814#ifdef HAS_CRYPT_R
815# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
816# undef crypt
817# if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCS
818# define crypt(a, b) crypt_r(a, b, PL_reentrant_buffer->_crypt_struct_buffer)
819# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
820# if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
821# define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->_crypt_data)
822# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
823# endif /* HAS_CRYPT */
824#endif /* HAS_CRYPT_R */
825
826#ifdef HAS_CTERMID_R
827# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
828# undef ctermid
829# if !defined(ctermid) && CTERMID_R_PROTO == REENTRANT_PROTO_B_B
830# define ctermid(a) ctermid_r(a)
831# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
832# endif /* HAS_CTERMID */
833#endif /* HAS_CTERMID_R */
834
835#ifdef HAS_CTIME_R
836# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
837# undef ctime
838# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SB
839# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer)
840# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
841# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SBI
842# define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size)
843# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
844# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SB
845# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
846# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
847# if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SBI
848# define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
849# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
850# endif /* HAS_CTIME */
851#endif /* HAS_CTIME_R */
852
853#ifdef HAS_DRAND48_R
854# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
855# undef drand48
856# if !defined(drand48) && DRAND48_R_PROTO == REENTRANT_PROTO_I_ST
857# define drand48() (drand48_r(&PL_reentrant_buffer->_drand48_struct, &PL_reentrant_buffer->_drand48_double) == 0 ? PL_reentrant_buffer->_drand48_double : 0)
858# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
859# endif /* HAS_DRAND48 */
860#endif /* HAS_DRAND48_R */
861
862#ifdef HAS_ENDGRENT_R
863# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
864# undef endgrent
865# if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H
866# define endgrent() (endgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
867# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
868# if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H
869# define endgrent() endgrent_r(&PL_reentrant_buffer->_grent_fptr)
870# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
871# endif /* HAS_ENDGRENT */
872#endif /* HAS_ENDGRENT_R */
873
874#ifdef HAS_ENDHOSTENT_R
875# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
876# undef endhostent
877# if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_I_D
878# define endhostent() (endhostent_r(&PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
879# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
880# if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_V_D
881# define endhostent() endhostent_r(&PL_reentrant_buffer->_hostent_data)
882# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
883# endif /* HAS_ENDHOSTENT */
884#endif /* HAS_ENDHOSTENT_R */
885
886#ifdef HAS_ENDNETENT_R
887# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
888# undef endnetent
889# if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_I_D
890# define endnetent() (endnetent_r(&PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
891# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
892# if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_V_D
893# define endnetent() endnetent_r(&PL_reentrant_buffer->_netent_data)
894# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
895# endif /* HAS_ENDNETENT */
896#endif /* HAS_ENDNETENT_R */
897
898#ifdef HAS_ENDPROTOENT_R
899# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
900# undef endprotoent
901# if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_I_D
902# define endprotoent() (endprotoent_r(&PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
903# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
904# if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_V_D
905# define endprotoent() endprotoent_r(&PL_reentrant_buffer->_protoent_data)
906# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
907# endif /* HAS_ENDPROTOENT */
908#endif /* HAS_ENDPROTOENT_R */
909
910#ifdef HAS_ENDPWENT_R
911# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
912# undef endpwent
913# if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H
914# define endpwent() (endpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
915# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
916# if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H
917# define endpwent() endpwent_r(&PL_reentrant_buffer->_pwent_fptr)
918# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
919# endif /* HAS_ENDPWENT */
920#endif /* HAS_ENDPWENT_R */
921
922#ifdef HAS_ENDSERVENT_R
923# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
924# undef endservent
925# if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_I_D
926# define endservent() (endservent_r(&PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
927# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
928# if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_V_D
929# define endservent() endservent_r(&PL_reentrant_buffer->_servent_data)
930# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
931# endif /* HAS_ENDSERVENT */
932#endif /* HAS_ENDSERVENT_R */
933
934#ifdef HAS_GETGRENT_R
935# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
936# undef getgrent
937# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR
938# 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))
939# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
940# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR
941# 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))
942# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
943# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW
944# 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))
945# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
946# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI
947# 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))
948# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
949# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI
950# 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))
951# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
952# if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH
953# 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))
954# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
955# endif /* HAS_GETGRENT */
956#endif /* HAS_GETGRENT_R */
957
958#ifdef HAS_GETGRGID_R
959# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
960# undef getgrgid
961# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR
962# define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
963# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
964# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR
965# 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))
966# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
967# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI
968# 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))
969# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
970# if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI
971# 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))
972# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
973# endif /* HAS_GETGRGID */
974#endif /* HAS_GETGRGID_R */
975
976#ifdef HAS_GETGRNAM_R
977# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
978# undef getgrnam
979# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
980# 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))
981# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
982# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
983# define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
984# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
985# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI
986# 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))
987# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
988# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
989# 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))
990# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
991# if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
992# 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))
993# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
994# endif /* HAS_GETGRNAM */
995#endif /* HAS_GETGRNAM_R */
996
997#ifdef HAS_GETHOSTBYADDR_R
998# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
999# undef gethostbyaddr
1000# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE
1001# 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))
1002# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1003# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE
1004# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
1005# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1006# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE
1007# define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
1008# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1009# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE
1010# 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))
1011# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1012# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE
1013# 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))
1014# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1015# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE
1016# 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))
1017# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1018# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE
1019# 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))
1020# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1021# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISD
1022# 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))
1023# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1024# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CIISD
1025# 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))
1026# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1027# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CII
1028# 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))
1029# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1030# if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE
1031# 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))
1032# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1033# endif /* HAS_GETHOSTBYADDR */
1034#endif /* HAS_GETHOSTBYADDR_R */
1035
1036#ifdef HAS_GETHOSTBYNAME_R
1037# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1038# undef gethostbyname
1039# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
1040# 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))
1041# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1042# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE
1043# 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))
1044# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1045# if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
1046# 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))
1047# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1048# endif /* HAS_GETHOSTBYNAME */
1049#endif /* HAS_GETHOSTBYNAME_R */
1050
1051#ifdef HAS_GETHOSTENT_R
1052# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1053# undef gethostent
1054# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
1055# 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))
1056# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1057# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE
1058# 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))
1059# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1060# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE
1061# 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))
1062# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1063# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI
1064# 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))
1065# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1066# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI
1067# 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))
1068# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1069# if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SD
1070# 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))
1071# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1072# endif /* HAS_GETHOSTENT */
1073#endif /* HAS_GETHOSTENT_R */
1074
1075#ifdef HAS_GETLOGIN_R
1076# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1077# undef getlogin
1078# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BW
1079# 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))
1080# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1081# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BI
1082# 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))
1083# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1084# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BW
1085# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
1086# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1087# if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BI
1088# define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
1089# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1090# endif /* HAS_GETLOGIN */
1091#endif /* HAS_GETLOGIN_R */
1092
1093#ifdef HAS_GETNETBYADDR_R
1094# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1095# undef getnetbyaddr
1096# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE
1097# 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))
1098# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1099# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI
1100# 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))
1101# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1102# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI
1103# 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))
1104# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1105# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI
1106# 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))
1107# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1108# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_TISD
1109# define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
1110# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1111# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISD
1112# 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))
1113# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1114# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_IISD
1115# 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))
1116# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1117# if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE
1118# 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))
1119# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1120# endif /* HAS_GETNETBYADDR */
1121#endif /* HAS_GETNETBYADDR_R */
1122
1123#ifdef HAS_GETNETBYNAME_R
1124# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1125# undef getnetbyname
1126# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
1127# 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))
1128# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1129# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI
1130# 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))
1131# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1132# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
1133# 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))
1134# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1135# if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
1136# 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))
1137# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1138# endif /* HAS_GETNETBYNAME */
1139#endif /* HAS_GETNETBYNAME_R */
1140
1141#ifdef HAS_GETNETENT_R
1142# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1143# undef getnetent
1144# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
1145# 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))
1146# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1147# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE
1148# 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))
1149# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1150# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE
1151# 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))
1152# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1153# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI
1154# 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))
1155# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1156# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI
1157# 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))
1158# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1159# if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SD
1160# 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))
1161# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1162# endif /* HAS_GETNETENT */
1163#endif /* HAS_GETNETENT_R */
1164
1165#ifdef HAS_GETPROTOBYNAME_R
1166# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1167# undef getprotobyname
1168# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR
1169# 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))
1170# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1171# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
1172# 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))
1173# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1174# if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
1175# 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))
1176# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1177# endif /* HAS_GETPROTOBYNAME */
1178#endif /* HAS_GETPROTOBYNAME_R */
1179
1180#ifdef HAS_GETPROTOBYNUMBER_R
1181# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1182# undef getprotobynumber
1183# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR
1184# 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))
1185# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1186# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI
1187# 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))
1188# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1189# if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISD
1190# 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))
1191# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1192# endif /* HAS_GETPROTOBYNUMBER */
1193#endif /* HAS_GETPROTOBYNUMBER_R */
1194
1195#ifdef HAS_GETPROTOENT_R
1196# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1197# undef getprotoent
1198# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR
1199# 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))
1200# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1201# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI
1202# 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))
1203# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1204# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI
1205# 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))
1206# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1207# if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SD
1208# 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))
1209# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1210# endif /* HAS_GETPROTOENT */
1211#endif /* HAS_GETPROTOENT_R */
1212
1213#ifdef HAS_GETPWENT_R
1214# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1215# undef getpwent
1216# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR
1217# 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))
1218# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1219# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR
1220# 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))
1221# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1222# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW
1223# 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))
1224# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1225# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI
1226# 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))
1227# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1228# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI
1229# 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))
1230# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1231# if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH
1232# 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))
1233# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1234# endif /* HAS_GETPWENT */
1235#endif /* HAS_GETPWENT_R */
1236
1237#ifdef HAS_GETPWNAM_R
1238# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1239# undef getpwnam
1240# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
1241# 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))
1242# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1243# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
1244# define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
1245# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1246# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
1247# 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))
1248# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1249# if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
1250# 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))
1251# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1252# endif /* HAS_GETPWNAM */
1253#endif /* HAS_GETPWNAM_R */
1254
1255#ifdef HAS_GETPWUID_R
1256# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1257# undef getpwuid
1258# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR
1259# define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
1260# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1261# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR
1262# 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))
1263# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1264# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBI
1265# 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))
1266# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1267# if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_S_TSBI
1268# 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))
1269# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1270# endif /* HAS_GETPWUID */
1271#endif /* HAS_GETPWUID_R */
1272
1273#ifdef HAS_GETSERVBYNAME_R
1274# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1275# undef getservbyname
1276# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR
1277# 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))
1278# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1279# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI
1280# 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))
1281# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1282# if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
1283# 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))
1284# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1285# endif /* HAS_GETSERVBYNAME */
1286#endif /* HAS_GETSERVBYNAME_R */
1287
1288#ifdef HAS_GETSERVBYPORT_R
1289# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1290# undef getservbyport
1291# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR
1292# 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))
1293# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1294# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI
1295# 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))
1296# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1297# if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSD
1298# 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))
1299# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1300# endif /* HAS_GETSERVBYPORT */
1301#endif /* HAS_GETSERVBYPORT_R */
1302
1303#ifdef HAS_GETSERVENT_R
1304# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1305# undef getservent
1306# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR
1307# 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))
1308# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1309# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI
1310# 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))
1311# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1312# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI
1313# 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))
1314# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1315# if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SD
1316# 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))
1317# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1318# endif /* HAS_GETSERVENT */
1319#endif /* HAS_GETSERVENT_R */
1320
1321#ifdef HAS_GETSPNAM_R
1322# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1323# undef getspnam
1324# if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
1325# 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))
1326# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1327# if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
1328# 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))
1329# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1330# endif /* HAS_GETSPNAM */
1331#endif /* HAS_GETSPNAM_R */
1332
1333#ifdef HAS_GMTIME_R
1334# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1335# undef gmtime
1336# if !defined(gmtime) && GMTIME_R_PROTO == REENTRANT_PROTO_S_TS
1337# define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->_gmtime_struct) ? &PL_reentrant_buffer->_gmtime_struct : 0)
1338# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1339# if !defined(gmtime) && GMTIME_R_PROTO == REENTRANT_PROTO_I_TS
1340# define gmtime(a) (gmtime_r(a, &PL_reentrant_buffer->_gmtime_struct) == 0 ? &PL_reentrant_buffer->_gmtime_struct : 0)
1341# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1342# endif /* HAS_GMTIME */
1343#endif /* HAS_GMTIME_R */
1344
1345#ifdef HAS_LOCALTIME_R
1346# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1347# undef localtime
1348# if !defined(localtime) && LOCALTIME_R_PROTO == REENTRANT_PROTO_S_TS
1349# define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->_localtime_struct) ? &PL_reentrant_buffer->_localtime_struct : 0)
1350# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1351# if !defined(localtime) && LOCALTIME_R_PROTO == REENTRANT_PROTO_I_TS
1352# define localtime(a) (L_R_TZSET localtime_r(a, &PL_reentrant_buffer->_localtime_struct) == 0 ? &PL_reentrant_buffer->_localtime_struct : 0)
1353# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1354# endif /* HAS_LOCALTIME */
1355#endif /* HAS_LOCALTIME_R */
1356
1357#ifdef HAS_RANDOM_R
1358# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1359# undef random
1360# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_iS
1361# define random() (random_r(&PL_reentrant_buffer->_random_retval, &PL_reentrant_buffer->_random_struct) == 0 ? PL_reentrant_buffer->_random_retval : 0)
1362# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1363# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_lS
1364# define random() (random_r(&PL_reentrant_buffer->_random_retval, &PL_reentrant_buffer->_random_struct) == 0 ? PL_reentrant_buffer->_random_retval : 0)
1365# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1366# if !defined(random) && RANDOM_R_PROTO == REENTRANT_PROTO_I_St
1367# define random() (random_r(&PL_reentrant_buffer->_random_struct, &PL_reentrant_buffer->_random_retval) == 0 ? PL_reentrant_buffer->_random_retval : 0)
1368# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1369# endif /* HAS_RANDOM */
1370#endif /* HAS_RANDOM_R */
1371
1372#ifdef HAS_READDIR_R
1373# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1374# undef readdir
1375# if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
1376# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct, &PL_reentrant_buffer->_readdir_ptr) == 0 ? PL_reentrant_buffer->_readdir_ptr : 0)
1377# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1378# if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TS
1379# define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct) == 0 ? PL_reentrant_buffer->_readdir_struct : 0)
1380# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1381# endif /* HAS_READDIR */
1382#endif /* HAS_READDIR_R */
1383
1384#ifdef HAS_READDIR64_R
1385# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1386# undef readdir64
1387# if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
1388# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct, &PL_reentrant_buffer->_readdir64_ptr) == 0 ? PL_reentrant_buffer->_readdir64_ptr : 0)
1389# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1390# if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TS
1391# define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct) == 0 ? PL_reentrant_buffer->_readdir64_struct : 0)
1392# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1393# endif /* HAS_READDIR64 */
1394#endif /* HAS_READDIR64_R */
1395
1396#ifdef HAS_SETGRENT_R
1397# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1398# undef setgrent
1399# if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_I_H
1400# define setgrent() (setgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
1401# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1402# if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_V_H
1403# define setgrent() setgrent_r(&PL_reentrant_buffer->_grent_fptr)
1404# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1405# endif /* HAS_SETGRENT */
1406#endif /* HAS_SETGRENT_R */
1407
1408#ifdef HAS_SETHOSTENT_R
1409# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1410# undef sethostent
1411# if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_I_ID
1412# define sethostent(a) (sethostent_r(a, &PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
1413# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1414# if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_V_ID
1415# define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->_hostent_data)
1416# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1417# endif /* HAS_SETHOSTENT */
1418#endif /* HAS_SETHOSTENT_R */
1419
1420#ifdef HAS_SETLOCALE_R
1421# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1422# undef setlocale
1423# if !defined(setlocale) && SETLOCALE_R_PROTO == REENTRANT_PROTO_I_ICBI
1424# 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)
1425# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1426# endif /* HAS_SETLOCALE */
1427#endif /* HAS_SETLOCALE_R */
1428
1429#ifdef HAS_SETNETENT_R
1430# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1431# undef setnetent
1432# if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_I_ID
1433# define setnetent(a) (setnetent_r(a, &PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
1434# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1435# if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_V_ID
1436# define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->_netent_data)
1437# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1438# endif /* HAS_SETNETENT */
1439#endif /* HAS_SETNETENT_R */
1440
1441#ifdef HAS_SETPROTOENT_R
1442# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1443# undef setprotoent
1444# if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_I_ID
1445# define setprotoent(a) (setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
1446# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1447# if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_V_ID
1448# define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->_protoent_data)
1449# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1450# endif /* HAS_SETPROTOENT */
1451#endif /* HAS_SETPROTOENT_R */
1452
1453#ifdef HAS_SETPWENT_R
1454# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1455# undef setpwent
1456# if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_I_H
1457# define setpwent() (setpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
1458# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1459# if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_V_H
1460# define setpwent() setpwent_r(&PL_reentrant_buffer->_pwent_fptr)
1461# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1462# endif /* HAS_SETPWENT */
1463#endif /* HAS_SETPWENT_R */
1464
1465#ifdef HAS_SETSERVENT_R
1466# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1467# undef setservent
1468# if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_I_ID
1469# define setservent(a) (setservent_r(a, &PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
1470# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1471# if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_V_ID
1472# define setservent(a) setservent_r(a, &PL_reentrant_buffer->_servent_data)
1473# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1474# endif /* HAS_SETSERVENT */
1475#endif /* HAS_SETSERVENT_R */
1476
1477#ifdef HAS_SRAND48_R
1478# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1479# undef srand48
1480# if !defined(srand48) && SRAND48_R_PROTO == REENTRANT_PROTO_I_LS
1481# define srand48(a) (srand48_r(a, &PL_reentrant_buffer->_drand48_struct) == 0 ? &PL_reentrant_buffer->_drand48_struct : 0)
1482# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1483# endif /* HAS_SRAND48 */
1484#endif /* HAS_SRAND48_R */
1485
1486#ifdef HAS_SRANDOM_R
1487# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1488# undef srandom
1489# if !defined(srandom) && SRANDOM_R_PROTO == REENTRANT_PROTO_I_TS
1490# define srandom(a) (srandom_r(a, &PL_reentrant_buffer->_srandom_struct) == 0 ? &PL_reentrant_buffer->_srandom_struct : 0)
1491# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1492# endif /* HAS_SRANDOM */
1493#endif /* HAS_SRANDOM_R */
1494
1495#ifdef HAS_STRERROR_R
1496# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1497# undef strerror
1498# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBW
1499# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
1500# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1501# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBI
1502# define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
1503# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1504# if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_B_IBW
1505# define strerror(a) strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size)
1506# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1507# endif /* HAS_STRERROR */
1508#endif /* HAS_STRERROR_R */
1509
1510#ifdef HAS_TMPNAM_R
1511# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1512# undef tmpnam
1513# if !defined(tmpnam) && TMPNAM_R_PROTO == REENTRANT_PROTO_B_B
1514# define tmpnam(a) tmpnam_r(a)
1515# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1516# endif /* HAS_TMPNAM */
1517#endif /* HAS_TMPNAM_R */
1518
1519#ifdef HAS_TTYNAME_R
1520# if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
1521# undef ttyname
1522# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBW
1523# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
1524# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1525# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBI
1526# define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
1527# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1528# if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_B_IBI
1529# define ttyname(a) ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size)
1530# endif /* if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1) */
1531# endif /* HAS_TTYNAME */
1532#endif /* HAS_TTYNAME_R */
1533
1534
1535
1536#endif /* USE_REENTRANT_API */
1537
1538#endif
1539
1540/* ex: set ro: */
Unnamed repository; edit this file 'description' to name the repository.