This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
integrate changes#6252..6256,6259..6260
[perl5.git] / ext / POSIX / POSIX.xs
CommitLineData
6dead956
GS		 1#ifdef WIN32
2#define _POSIX_
3#endif
c5be433b
GS		 4
5#define PERL_NO_GET_CONTEXT
6
463ee0b2 7#include "EXTERN.h"
760ac839 8#define PERLIO_NOT_STDIO 1
463ee0b2
LW		 9#include "perl.h"
10#include "XSUB.h"
32e30700 11#if defined(PERL_OBJECT) || defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)
873ef191
GS		 12# undef signal
13# undef open
cd661bb6 14# undef setmode
35ff7856 15# define open PerlLIO_open3
873ef191 16#endif
2304df62 17#include <ctype.h>
a0d0e21e 18#ifdef I_DIRENT /* XXX maybe better to just rely on perl.h? */
2304df62 19#include <dirent.h>
a0d0e21e 20#endif
2304df62 21#include <errno.h>
2304df62
AD		 22#ifdef I_FLOAT
23#include <float.h>
24#endif
a0d0e21e 25#ifdef I_LIMITS
2304df62 26#include <limits.h>
a0d0e21e 27#endif
2304df62
AD		 28#include <locale.h>
29#include <math.h>
85e6fe83 30#ifdef I_PWD
2304df62 31#include <pwd.h>
85e6fe83 32#endif
2304df62
AD		 33#include <setjmp.h>
34#include <signal.h>
2304df62 35#include <stdarg.h>
17c3b450 36
2304df62
AD		 37#ifdef I_STDDEF
38#include <stddef.h>
39#endif
6990d991 40
a0d0e21e
LW		 41/* XXX This comment is just to make I_TERMIO and I_SGTTY visible to
42 metaconfig for future extension writers. We don't use them in POSIX.
43 (This is really sneaky :-) --AD
44*/
45#if defined(I_TERMIOS)
46#include <termios.h>
47#endif
a0d0e21e 48#ifdef I_STDLIB
2304df62 49#include <stdlib.h>
a0d0e21e 50#endif
2304df62
AD		 51#include <string.h>
52#include <sys/stat.h>
2304df62 53#include <sys/types.h>
2304df62 54#include <time.h>
6dead956 55#ifdef I_UNISTD
1d2dff63 56#include <unistd.h>
6dead956 57#endif
bf4acbe4
GS		 58#ifdef MACOS_TRADITIONAL
59#undef fdopen
60#endif
71be2cbc 61#include <fcntl.h>
62
6c418a22 63#if defined(__VMS) && !defined(__POSIX_SOURCE)
6c418a22 64# include <libdef.h> /* LIB$_INVARG constant */
65# include <lib$routines.h> /* prototype for lib$ediv() */
66# include <starlet.h> /* prototype for sys$gettim() */
774d564b 67# if DECC_VERSION < 50000000
68# define pid_t int /* old versions of DECC miss this in types.h */
69# endif
6c418a22 70
6990d991 71# undef mkfifo
6c418a22 72# define mkfifo(a,b) (not_here("mkfifo"),-1)
73# define tzset() not_here("tzset")
74
5f6761f9
DS		 75#if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)
76# define HAS_TZNAME /* shows up in VMS 7.0 or Dec C 5.6 */
77# include <utsname.h>
5f6761f9 78# endif /* __VMS_VER >= 70000000 or Dec C 5.6 */
6c418a22 79
80 /* The POSIX notion of ttyname() is better served by getname() under VMS */
81 static char ttnambuf[64];
82# define ttyname(fd) (isatty(fd) > 0 ? getname(fd,ttnambuf,0) : NULL)
83
84 /* The non-POSIX CRTL times() has void return type, so we just get the
85 current time directly */
0dff5aa1 86 clock_t vms_times(struct tms *bufptr) {
d28f7c37 87 dTHX;
6c418a22 88 clock_t retval;
89 /* Get wall time and convert to 10 ms intervals to
90 * produce the return value that the POSIX standard expects */
91# if defined(__DECC) && defined (__ALPHA)
92# include <ints.h>
93 uint64 vmstime;
94 _ckvmssts(sys$gettim(&vmstime));
95 vmstime /= 100000;
96 retval = vmstime & 0x7fffffff;
97# else
98 /* (Older hw or ccs don't have an atomic 64-bit type, so we
99 * juggle 32-bit ints (and a float) to produce a time_t result
100 * with minimal loss of information.) */
101 long int vmstime[2],remainder,divisor = 100000;
102 _ckvmssts(sys$gettim((unsigned long int *)vmstime));
103 vmstime[1] &= 0x7fff; /* prevent overflow in EDIV */
104 _ckvmssts(lib$ediv(&divisor,vmstime,(long int *)&retval,&remainder));
105# endif
106 /* Fill in the struct tms using the CRTL routine . . .*/
0dff5aa1 107 times((tbuffer_t *)bufptr);
6c418a22 108 return (clock_t) retval;
109 }
110# define times(t) vms_times(t)
111#else
d308986b 112#if defined (__CYGWIN__)
f89d6eaa
EF		 113# define tzname _tzname
114#endif
6dead956 115#if defined (WIN32)
6990d991 116# undef mkfifo
6dead956 117# define mkfifo(a,b) not_here("mkfifo")
873ef191 118# define ttyname(a) (char*)not_here("ttyname")
6dead956
GS		 119# define sigset_t long
120# define pid_t long
121# ifdef __BORLANDC__
122# define tzname _tzname
123# endif
124# ifdef _MSC_VER
125# define mode_t short
126# endif
62520c91
GS		 127# ifdef __MINGW32__
128# define mode_t short
f6c6487a
GS		 129# ifndef tzset
130# define tzset() not_here("tzset")
131# endif
132# ifndef _POSIX_OPEN_MAX
133# define _POSIX_OPEN_MAX FOPEN_MAX /* XXX bogus ? */
134# endif
62520c91 135# endif
6dead956
GS		 136# define sigaction(a,b,c) not_here("sigaction")
137# define sigpending(a) not_here("sigpending")
138# define sigprocmask(a,b,c) not_here("sigprocmask")
139# define sigsuspend(a) not_here("sigsuspend")
140# define sigemptyset(a) not_here("sigemptyset")
141# define sigaddset(a,b) not_here("sigaddset")
142# define sigdelset(a,b) not_here("sigdelset")
143# define sigfillset(a) not_here("sigfillset")
144# define sigismember(a,b) not_here("sigismember")
145#else
6990d991
JH		 146
147# ifndef HAS_MKFIFO
bf4acbe4 148# if defined(OS2) || defined(MACOS_TRADITIONAL)
d6a255e6
IZ		 149# define mkfifo(a,b) not_here("mkfifo")
150# else /* !( defined OS2 ) */
151# ifndef mkfifo
152# define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0))
153# endif
6990d991
JH		 154# endif
155# endif /* !HAS_MKFIFO */
156
bf4acbe4
GS		 157# ifdef MACOS_TRADITIONAL
158 struct tms { time_t tms_utime, tms_stime, tms_cutime, tms_cstime; };
159# define times(a) not_here("times")
160# define ttyname(a) (char*)not_here("ttyname")
161# define tzset() not_here("tzset")
162# else
163# include <grp.h>
164# include <sys/times.h>
165# ifdef HAS_UNAME
166# include <sys/utsname.h>
167# endif
168# include <sys/wait.h>
6c418a22 169# endif
6c418a22 170# ifdef I_UTIME
171# include <utime.h>
172# endif
6dead956
GS		 173#endif /* WIN32 */
174#endif /* __VMS */
2304df62
AD		 175
176typedef int SysRet;
a0d0e21e 177typedef long SysRetLong;
2304df62
AD		 178typedef sigset_t* POSIX__SigSet;
179typedef HV* POSIX__SigAction;
a0d0e21e
LW		 180#ifdef I_TERMIOS
181typedef struct termios* POSIX__Termios;
182#else /* Define termios types to int, and call not_here for the functions.*/
183#define POSIX__Termios int
184#define speed_t int
185#define tcflag_t int
186#define cc_t int
187#define cfgetispeed(x) not_here("cfgetispeed")
188#define cfgetospeed(x) not_here("cfgetospeed")
189#define tcdrain(x) not_here("tcdrain")
190#define tcflush(x,y) not_here("tcflush")
191#define tcsendbreak(x,y) not_here("tcsendbreak")
192#define cfsetispeed(x,y) not_here("cfsetispeed")
193#define cfsetospeed(x,y) not_here("cfsetospeed")
194#define ctermid(x) (char *) not_here("ctermid")
195#define tcflow(x,y) not_here("tcflow")
196#define tcgetattr(x,y) not_here("tcgetattr")
197#define tcsetattr(x,y,z) not_here("tcsetattr")
198#endif
199
200/* Possibly needed prototypes */
20ce7b12
GS		 201char *cuserid (char *);
202double strtod (const char *, char **);
203long strtol (const char *, char **, int);
204unsigned long strtoul (const char *, char **, int);
a0d0e21e
LW		 205
206#ifndef HAS_CUSERID
207#define cuserid(a) (char *) not_here("cuserid")
208#endif
209#ifndef HAS_DIFFTIME
210#ifndef difftime
211#define difftime(a,b) not_here("difftime")
212#endif
213#endif
214#ifndef HAS_FPATHCONF
215#define fpathconf(f,n) (SysRetLong) not_here("fpathconf")
216#endif
217#ifndef HAS_MKTIME
218#define mktime(a) not_here("mktime")
8990e307
LW		 219#endif
220#ifndef HAS_NICE
221#define nice(a) not_here("nice")
222#endif
a0d0e21e
LW		 223#ifndef HAS_PATHCONF
224#define pathconf(f,n) (SysRetLong) not_here("pathconf")
225#endif
226#ifndef HAS_SYSCONF
227#define sysconf(n) (SysRetLong) not_here("sysconf")
228#endif
8990e307
LW		 229#ifndef HAS_READLINK
230#define readlink(a,b,c) not_here("readlink")
231#endif
232#ifndef HAS_SETPGID
233#define setpgid(a,b) not_here("setpgid")
234#endif
8990e307
LW		 235#ifndef HAS_SETSID
236#define setsid() not_here("setsid")
237#endif
a0d0e21e
LW		 238#ifndef HAS_STRCOLL
239#define strcoll(s1,s2) not_here("strcoll")
240#endif
a89d8a78
DH		 241#ifndef HAS_STRTOD
242#define strtod(s1,s2) not_here("strtod")
243#endif
244#ifndef HAS_STRTOL
245#define strtol(s1,s2,b) not_here("strtol")
246#endif
247#ifndef HAS_STRTOUL
248#define strtoul(s1,s2,b) not_here("strtoul")
249#endif
a0d0e21e
LW		 250#ifndef HAS_STRXFRM
251#define strxfrm(s1,s2,n) not_here("strxfrm")
8990e307
LW		 252#endif
253#ifndef HAS_TCGETPGRP
254#define tcgetpgrp(a) not_here("tcgetpgrp")
255#endif
256#ifndef HAS_TCSETPGRP
257#define tcsetpgrp(a,b) not_here("tcsetpgrp")
258#endif
259#ifndef HAS_TIMES
260#define times(a) not_here("times")
261#endif
262#ifndef HAS_UNAME
263#define uname(a) not_here("uname")
264#endif
265#ifndef HAS_WAITPID
266#define waitpid(a,b,c) not_here("waitpid")
267#endif
268
a0d0e21e
LW		 269#ifndef HAS_MBLEN
270#ifndef mblen
271#define mblen(a,b) not_here("mblen")
272#endif
273#endif
274#ifndef HAS_MBSTOWCS
275#define mbstowcs(s, pwcs, n) not_here("mbstowcs")
276#endif
277#ifndef HAS_MBTOWC
278#define mbtowc(pwc, s, n) not_here("mbtowc")
279#endif
280#ifndef HAS_WCSTOMBS
281#define wcstombs(s, pwcs, n) not_here("wcstombs")
282#endif
283#ifndef HAS_WCTOMB
284#define wctomb(s, wchar) not_here("wcstombs")
285#endif
286#if !defined(HAS_MBLEN) && !defined(HAS_MBSTOWCS) && !defined(HAS_MBTOWC) && !defined(HAS_WCSTOMBS) && !defined(HAS_WCTOMB)
287/* If we don't have these functions, then we wouldn't have gotten a typedef
288 for wchar_t, the wide character type. Defining wchar_t allows the
289 functions referencing it to compile. Its actual type is then meaningless,
290 since without the above functions, all sections using it end up calling
291 not_here() and croak. --Kaveh Ghazi (ghazi@noc.rutgers.edu) 9/18/94. */
292#ifndef wchar_t
293#define wchar_t char
294#endif
295#endif
296
297#ifndef HAS_LOCALECONV
298#define localeconv() not_here("localeconv")
299#endif
300
301#ifdef HAS_TZNAME
d308986b 302# if !defined(WIN32) && !defined(__CYGWIN__)
a0d0e21e 303extern char *tzname[];
62520c91 304# endif
a0d0e21e 305#else
fa4efe8e 306#if !defined(WIN32) || (defined(__MINGW32__) && !defined(tzname))
a0d0e21e
LW		 307char *tzname[] = { "" , "" };
308#endif
eda5ff31 309#endif
a0d0e21e 310
7747499c
TB		 311/* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSIX)
312 * fields for which we don't have Configure support yet:
313 * char *tm_zone; -- abbreviation of timezone name
314 * long tm_gmtoff; -- offset from GMT in seconds
315 * To workaround core dumps from the uninitialised tm_zone we get the
316 * system to give us a reasonable struct to copy. This fix means that
317 * strftime uses the tm_zone and tm_gmtoff values returned by
318 * localtime(time()). That should give the desired result most of the
319 * time. But probably not always!
320 *
321 * This is a temporary workaround to be removed once Configure
322 * support is added and NETaa14816 is considered in full.
323 * It does not address tzname aspects of NETaa14816.
324 */
dfe9444c
AD		 325#ifdef HAS_GNULIBC
326# ifndef STRUCT_TM_HASZONE
75cb7811 327# define STRUCT_TM_HASZONE
dfe9444c
AD		 328# endif
329#endif
330
7747499c
TB		 331#ifdef STRUCT_TM_HASZONE
332static void
0221c164 333init_tm(struct tm *ptm) /* see mktime, strftime and asctime */
7747499c
TB		 334{
335 Time_t now;
336 (void)time(&now);
337 Copy(localtime(&now), ptm, 1, struct tm);
338}
339
340#else
341# define init_tm(ptm)
342#endif
343
33c0e3ec
SB		 344/*
345 * mini_mktime - normalise struct tm values without the localtime()
346 * semantics (and overhead) of mktime().
347 */
348static void
349mini_mktime(struct tm *ptm)
350{
351 int yearday;
352 int secs;
353 int month, mday, year, jday;
354 int odd_cent, odd_year;
355
356#define DAYS_PER_YEAR 365
357#define DAYS_PER_QYEAR (4*DAYS_PER_YEAR+1)
358#define DAYS_PER_CENT (25*DAYS_PER_QYEAR-1)
359#define DAYS_PER_QCENT (4*DAYS_PER_CENT+1)
360#define SECS_PER_HOUR (60*60)
361#define SECS_PER_DAY (24*SECS_PER_HOUR)
362/* parentheses deliberately absent on these two, otherwise they don't work */
363#define MONTH_TO_DAYS 153/5
364#define DAYS_TO_MONTH 5/153
365/* offset to bias by March (month 4) 1st between month/mday & year finding */
366#define YEAR_ADJUST (4*MONTH_TO_DAYS+1)
367/* as used here, the algorithm leaves Sunday as day 1 unless we adjust it */
368#define WEEKDAY_BIAS 6 /* (1+6)%7 makes Sunday 0 again */
369
370/*
371 * Year/day algorithm notes:
372 *
373 * With a suitable offset for numeric value of the month, one can find
374 * an offset into the year by considering months to have 30.6 (153/5) days,
375 * using integer arithmetic (i.e., with truncation). To avoid too much
376 * messing about with leap days, we consider January and February to be
377 * the 13th and 14th month of the previous year. After that transformation,
378 * we need the month index we use to be high by 1 from 'normal human' usage,
379 * so the month index values we use run from 4 through 15.
380 *
381 * Given that, and the rules for the Gregorian calendar (leap years are those
382 * divisible by 4 unless also divisible by 100, when they must be divisible
383 * by 400 instead), we can simply calculate the number of days since some
384 * arbitrary 'beginning of time' by futzing with the (adjusted) year number,
385 * the days we derive from our month index, and adding in the day of the
386 * month. The value used here is not adjusted for the actual origin which
387 * it normally would use (1 January A.D. 1), since we're not exposing it.
388 * We're only building the value so we can turn around and get the
389 * normalised values for the year, month, day-of-month, and day-of-year.
390 *
391 * For going backward, we need to bias the value we're using so that we find
392 * the right year value. (Basically, we don't want the contribution of
393 * March 1st to the number to apply while deriving the year). Having done
394 * that, we 'count up' the contribution to the year number by accounting for
395 * full quadracenturies (400-year periods) with their extra leap days, plus
396 * the contribution from full centuries (to avoid counting in the lost leap
397 * days), plus the contribution from full quad-years (to count in the normal
398 * leap days), plus the leftover contribution from any non-leap years.
399 * At this point, if we were working with an actual leap day, we'll have 0
400 * days left over. This is also true for March 1st, however. So, we have
401 * to special-case that result, and (earlier) keep track of the 'odd'
402 * century and year contributions. If we got 4 extra centuries in a qcent,
403 * or 4 extra years in a qyear, then it's a leap day and we call it 29 Feb.
404 * Otherwise, we add back in the earlier bias we removed (the 123 from
405 * figuring in March 1st), find the month index (integer division by 30.6),
406 * and the remainder is the day-of-month. We then have to convert back to
407 * 'real' months (including fixing January and February from being 14/15 in
408 * the previous year to being in the proper year). After that, to get
409 * tm_yday, we work with the normalised year and get a new yearday value for
410 * January 1st, which we subtract from the yearday value we had earlier,
411 * representing the date we've re-built. This is done from January 1
412 * because tm_yday is 0-origin.
413 *
414 * Since POSIX time routines are only guaranteed to work for times since the
415 * UNIX epoch (00:00:00 1 Jan 1970 UTC), the fact that this algorithm
416 * applies Gregorian calendar rules even to dates before the 16th century
417 * doesn't bother me. Besides, you'd need cultural context for a given
418 * date to know whether it was Julian or Gregorian calendar, and that's
419 * outside the scope for this routine. Since we convert back based on the
420 * same rules we used to build the yearday, you'll only get strange results
421 * for input which needed normalising, or for the 'odd' century years which
422 * were leap years in the Julian calander but not in the Gregorian one.
423 * I can live with that.
424 *
425 * This algorithm also fails to handle years before A.D. 1 gracefully, but
426 * that's still outside the scope for POSIX time manipulation, so I don't
427 * care.
428 */
429
430 year = 1900 + ptm->tm_year;
431 month = ptm->tm_mon;
432 mday = ptm->tm_mday;
433 /* allow given yday with no month & mday to dominate the result */
434 if (ptm->tm_yday >= 0 && mday <= 0 && month <= 0) {
435 month = 0;
436 mday = 0;
437 jday = 1 + ptm->tm_yday;
438 }
439 else {
440 jday = 0;
441 }
442 if (month >= 2)
443 month+=2;
444 else
445 month+=14, year--;
446 yearday = DAYS_PER_YEAR * year + year/4 - year/100 + year/400;
447 yearday += month*MONTH_TO_DAYS + mday + jday;
448 /*
449 * Note that we don't know when leap-seconds were or will be,
450 * so we have to trust the user if we get something which looks
451 * like a sensible leap-second. Wild values for seconds will
452 * be rationalised, however.
453 */
454 if ((unsigned) ptm->tm_sec <= 60) {
455 secs = 0;
456 }
457 else {
458 secs = ptm->tm_sec;
459 ptm->tm_sec = 0;
460 }
461 secs += 60 * ptm->tm_min;
462 secs += SECS_PER_HOUR * ptm->tm_hour;
463 if (secs < 0) {
464 if (secs-(secs/SECS_PER_DAY*SECS_PER_DAY) < 0) {
465 /* got negative remainder, but need positive time */
466 /* back off an extra day to compensate */
467 yearday += (secs/SECS_PER_DAY)-1;
468 secs -= SECS_PER_DAY * (secs/SECS_PER_DAY - 1);
469 }
470 else {
471 yearday += (secs/SECS_PER_DAY);
472 secs -= SECS_PER_DAY * (secs/SECS_PER_DAY);
473 }
474 }
475 else if (secs >= SECS_PER_DAY) {
476 yearday += (secs/SECS_PER_DAY);
477 secs %= SECS_PER_DAY;
478 }
479 ptm->tm_hour = secs/SECS_PER_HOUR;
480 secs %= SECS_PER_HOUR;
481 ptm->tm_min = secs/60;
482 secs %= 60;
483 ptm->tm_sec += secs;
484 /* done with time of day effects */
485 /*
486 * The algorithm for yearday has (so far) left it high by 428.
487 * To avoid mistaking a legitimate Feb 29 as Mar 1, we need to
488 * bias it by 123 while trying to figure out what year it
489 * really represents. Even with this tweak, the reverse
490 * translation fails for years before A.D. 0001.
491 * It would still fail for Feb 29, but we catch that one below.
492 */
493 jday = yearday; /* save for later fixup vis-a-vis Jan 1 */
494 yearday -= YEAR_ADJUST;
495 year = (yearday / DAYS_PER_QCENT) * 400;
496 yearday %= DAYS_PER_QCENT;
497 odd_cent = yearday / DAYS_PER_CENT;
498 year += odd_cent * 100;
499 yearday %= DAYS_PER_CENT;
500 year += (yearday / DAYS_PER_QYEAR) * 4;
501 yearday %= DAYS_PER_QYEAR;
502 odd_year = yearday / DAYS_PER_YEAR;
503 year += odd_year;
504 yearday %= DAYS_PER_YEAR;
505 if (!yearday && (odd_cent==4 || odd_year==4)) { /* catch Feb 29 */
506 month = 1;
507 yearday = 29;
508 }
509 else {
510 yearday += YEAR_ADJUST; /* recover March 1st crock */
511 month = yearday*DAYS_TO_MONTH;
512 yearday -= month*MONTH_TO_DAYS;
513 /* recover other leap-year adjustment */
514 if (month > 13) {
515 month-=14;
516 year++;
517 }
518 else {
519 month-=2;
520 }
521 }
522 ptm->tm_year = year - 1900;
d0e85dce
GS		 523 if (yearday) {
524 ptm->tm_mday = yearday;
525 ptm->tm_mon = month;
526 }
527 else {
528 ptm->tm_mday = 31;
529 ptm->tm_mon = month - 1;
530 }
33c0e3ec
SB		 531 /* re-build yearday based on Jan 1 to get tm_yday */
532 year--;
533 yearday = year*DAYS_PER_YEAR + year/4 - year/100 + year/400;
534 yearday += 14*MONTH_TO_DAYS + 1;
535 ptm->tm_yday = jday - yearday;
536 /* fix tm_wday if not overridden by caller */
537 if ((unsigned)ptm->tm_wday > 6)
538 ptm->tm_wday = (jday + WEEKDAY_BIAS) % 7;
539}
7747499c 540
dc45a647
MB		 541#ifdef HAS_LONG_DOUBLE
542# if LONG_DOUBLESIZE > DOUBLESIZE
543# undef HAS_LONG_DOUBLE /* XXX until we figure out how to use them */
544# endif
545#endif
546
547#ifndef HAS_LONG_DOUBLE
a0d0e21e
LW		 548#ifdef LDBL_MAX
549#undef LDBL_MAX
550#endif
551#ifdef LDBL_MIN
552#undef LDBL_MIN
553#endif
554#ifdef LDBL_EPSILON
555#undef LDBL_EPSILON
556#endif
557#endif
558
8990e307 559static int
f0f333f4 560not_here(char *s)
8990e307
LW		 561{
562 croak("POSIX::%s not implemented on this architecture", s);
563 return -1;
564}
463ee0b2 565
640cc986 566static
6a2c8ee7 567#if defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE)
640cc986
HM		 568long double
569#else
570double
571#endif
f0f333f4 572constant(char *name, int arg)
2304df62
AD		 573{
574 errno = 0;
575 switch (*name) {
576 case 'A':
577 if (strEQ(name, "ARG_MAX"))
578#ifdef ARG_MAX
579 return ARG_MAX;
580#else
581 goto not_there;
582#endif
583 break;
584 case 'B':
585 if (strEQ(name, "BUFSIZ"))
586#ifdef BUFSIZ
587 return BUFSIZ;
588#else
589 goto not_there;
590#endif
591 if (strEQ(name, "BRKINT"))
592#ifdef BRKINT
593 return BRKINT;
594#else
595 goto not_there;
596#endif
597 if (strEQ(name, "B9600"))
598#ifdef B9600
599 return B9600;
600#else
601 goto not_there;
602#endif
603 if (strEQ(name, "B19200"))
604#ifdef B19200
605 return B19200;
606#else
607 goto not_there;
608#endif
609 if (strEQ(name, "B38400"))
610#ifdef B38400
611 return B38400;
612#else
613 goto not_there;
614#endif
615 if (strEQ(name, "B0"))
616#ifdef B0
617 return B0;
618#else
619 goto not_there;
620#endif
621 if (strEQ(name, "B110"))
622#ifdef B110
623 return B110;
624#else
625 goto not_there;
626#endif
627 if (strEQ(name, "B1200"))
628#ifdef B1200
629 return B1200;
630#else
631 goto not_there;
632#endif
633 if (strEQ(name, "B134"))
634#ifdef B134
635 return B134;
636#else
637 goto not_there;
638#endif
639 if (strEQ(name, "B150"))
640#ifdef B150
641 return B150;
642#else
643 goto not_there;
644#endif
645 if (strEQ(name, "B1800"))
646#ifdef B1800
647 return B1800;
648#else
649 goto not_there;
650#endif
651 if (strEQ(name, "B200"))
652#ifdef B200
653 return B200;
654#else
655 goto not_there;
656#endif
657 if (strEQ(name, "B2400"))
658#ifdef B2400
659 return B2400;
660#else
661 goto not_there;
662#endif
663 if (strEQ(name, "B300"))
664#ifdef B300
665 return B300;
666#else
667 goto not_there;
668#endif
669 if (strEQ(name, "B4800"))
670#ifdef B4800
671 return B4800;
672#else
673 goto not_there;
674#endif
675 if (strEQ(name, "B50"))
676#ifdef B50
677 return B50;
678#else
679 goto not_there;
680#endif
681 if (strEQ(name, "B600"))
682#ifdef B600
683 return B600;
684#else
685 goto not_there;
686#endif
687 if (strEQ(name, "B75"))
688#ifdef B75
689 return B75;
690#else
691 goto not_there;
692#endif
693 break;
694 case 'C':
695 if (strEQ(name, "CHAR_BIT"))
696#ifdef CHAR_BIT
697 return CHAR_BIT;
698#else
699 goto not_there;
700#endif
701 if (strEQ(name, "CHAR_MAX"))
702#ifdef CHAR_MAX
703 return CHAR_MAX;
704#else
705 goto not_there;
706#endif
707 if (strEQ(name, "CHAR_MIN"))
708#ifdef CHAR_MIN
709 return CHAR_MIN;
710#else
711 goto not_there;
712#endif
713 if (strEQ(name, "CHILD_MAX"))
714#ifdef CHILD_MAX
715 return CHILD_MAX;
716#else
717 goto not_there;
718#endif
719 if (strEQ(name, "CLK_TCK"))
720#ifdef CLK_TCK
721 return CLK_TCK;
722#else
723 goto not_there;
724#endif
725 if (strEQ(name, "CLOCAL"))
726#ifdef CLOCAL
727 return CLOCAL;
728#else
729 goto not_there;
730#endif
731 if (strEQ(name, "CLOCKS_PER_SEC"))
732#ifdef CLOCKS_PER_SEC
733 return CLOCKS_PER_SEC;
734#else
735 goto not_there;
736#endif
737 if (strEQ(name, "CREAD"))
738#ifdef CREAD
739 return CREAD;
740#else
741 goto not_there;
742#endif
743 if (strEQ(name, "CS5"))
744#ifdef CS5
745 return CS5;
746#else
747 goto not_there;
748#endif
749 if (strEQ(name, "CS6"))
750#ifdef CS6
751 return CS6;
752#else
753 goto not_there;
754#endif
755 if (strEQ(name, "CS7"))
756#ifdef CS7
757 return CS7;
758#else
759 goto not_there;
760#endif
761 if (strEQ(name, "CS8"))
762#ifdef CS8
763 return CS8;
764#else
765 goto not_there;
766#endif
767 if (strEQ(name, "CSIZE"))
768#ifdef CSIZE
769 return CSIZE;
770#else
771 goto not_there;
772#endif
773 if (strEQ(name, "CSTOPB"))
774#ifdef CSTOPB
775 return CSTOPB;
776#else
777 goto not_there;
778#endif
779 break;
780 case 'D':
781 if (strEQ(name, "DBL_MAX"))
782#ifdef DBL_MAX
783 return DBL_MAX;
784#else
785 goto not_there;
786#endif
787 if (strEQ(name, "DBL_MIN"))
788#ifdef DBL_MIN
789 return DBL_MIN;
790#else
791 goto not_there;
792#endif
793 if (strEQ(name, "DBL_DIG"))
794#ifdef DBL_DIG
795 return DBL_DIG;
796#else
797 goto not_there;
798#endif
799 if (strEQ(name, "DBL_EPSILON"))
800#ifdef DBL_EPSILON
801 return DBL_EPSILON;
802#else
803 goto not_there;
804#endif
805 if (strEQ(name, "DBL_MANT_DIG"))
806#ifdef DBL_MANT_DIG
807 return DBL_MANT_DIG;
808#else
809 goto not_there;
810#endif
811 if (strEQ(name, "DBL_MAX_10_EXP"))
812#ifdef DBL_MAX_10_EXP
813 return DBL_MAX_10_EXP;
814#else
815 goto not_there;
816#endif
817 if (strEQ(name, "DBL_MAX_EXP"))
818#ifdef DBL_MAX_EXP
819 return DBL_MAX_EXP;
820#else
821 goto not_there;
822#endif
823 if (strEQ(name, "DBL_MIN_10_EXP"))
824#ifdef DBL_MIN_10_EXP
825 return DBL_MIN_10_EXP;
826#else
827 goto not_there;
828#endif
829 if (strEQ(name, "DBL_MIN_EXP"))
830#ifdef DBL_MIN_EXP
831 return DBL_MIN_EXP;
832#else
833 goto not_there;
834#endif
835 break;
836 case 'E':
837 switch (name[1]) {
838 case 'A':
839 if (strEQ(name, "EACCES"))
840#ifdef EACCES
841 return EACCES;
842#else
843 goto not_there;
844#endif
774d564b 845 if (strEQ(name, "EADDRINUSE"))
846#ifdef EADDRINUSE
847 return EADDRINUSE;
848#else
849 goto not_there;
850#endif
851 if (strEQ(name, "EADDRNOTAVAIL"))
852#ifdef EADDRNOTAVAIL
853 return EADDRNOTAVAIL;
854#else
855 goto not_there;
856#endif
857 if (strEQ(name, "EAFNOSUPPORT"))
858#ifdef EAFNOSUPPORT
859 return EAFNOSUPPORT;
860#else
861 goto not_there;
862#endif
2304df62
AD		 863 if (strEQ(name, "EAGAIN"))
864#ifdef EAGAIN
865 return EAGAIN;
866#else
867 goto not_there;
868#endif
774d564b 869 if (strEQ(name, "EALREADY"))
870#ifdef EALREADY
871 return EALREADY;
872#else
873 goto not_there;
874#endif
2304df62
AD		 875 break;
876 case 'B':
877 if (strEQ(name, "EBADF"))
878#ifdef EBADF
879 return EBADF;
880#else
881 goto not_there;
882#endif
883 if (strEQ(name, "EBUSY"))
884#ifdef EBUSY
885 return EBUSY;
886#else
887 goto not_there;
888#endif
889 break;
890 case 'C':
891 if (strEQ(name, "ECHILD"))
892#ifdef ECHILD
893 return ECHILD;
894#else
895 goto not_there;
896#endif
897 if (strEQ(name, "ECHO"))
898#ifdef ECHO
899 return ECHO;
900#else
901 goto not_there;
902#endif
903 if (strEQ(name, "ECHOE"))
904#ifdef ECHOE
905 return ECHOE;
906#else
907 goto not_there;
908#endif
909 if (strEQ(name, "ECHOK"))
910#ifdef ECHOK
911 return ECHOK;
912#else
913 goto not_there;
914#endif
915 if (strEQ(name, "ECHONL"))
916#ifdef ECHONL
917 return ECHONL;
918#else
919 goto not_there;
920#endif
774d564b 921 if (strEQ(name, "ECONNABORTED"))
922#ifdef ECONNABORTED
923 return ECONNABORTED;
924#else
925 goto not_there;
926#endif
927 if (strEQ(name, "ECONNREFUSED"))
928#ifdef ECONNREFUSED
929 return ECONNREFUSED;
930#else
931 goto not_there;
932#endif
933 if (strEQ(name, "ECONNRESET"))
934#ifdef ECONNRESET
935 return ECONNRESET;
936#else
937 goto not_there;
938#endif
2304df62
AD		 939 break;
940 case 'D':
941 if (strEQ(name, "EDEADLK"))
942#ifdef EDEADLK
943 return EDEADLK;
944#else
945 goto not_there;
946#endif
774d564b 947 if (strEQ(name, "EDESTADDRREQ"))
948#ifdef EDESTADDRREQ
949 return EDESTADDRREQ;
950#else
951 goto not_there;
952#endif
2304df62
AD		 953 if (strEQ(name, "EDOM"))
954#ifdef EDOM
955 return EDOM;
956#else
957 goto not_there;
958#endif
774d564b 959 if (strEQ(name, "EDQUOT"))
960#ifdef EDQUOT
961 return EDQUOT;
962#else
963 goto not_there;
964#endif
2304df62
AD		 965 break;
966 case 'E':
967 if (strEQ(name, "EEXIST"))
968#ifdef EEXIST
969 return EEXIST;
970#else
971 goto not_there;
972#endif
973 break;
974 case 'F':
975 if (strEQ(name, "EFAULT"))
976#ifdef EFAULT
977 return EFAULT;
978#else
979 goto not_there;
980#endif
981 if (strEQ(name, "EFBIG"))
982#ifdef EFBIG
983 return EFBIG;
984#else
985 goto not_there;
986#endif
987 break;
774d564b 988 case 'H':
989 if (strEQ(name, "EHOSTDOWN"))
990#ifdef EHOSTDOWN
991 return EHOSTDOWN;
992#else
993 goto not_there;
994#endif
995 if (strEQ(name, "EHOSTUNREACH"))
996#ifdef EHOSTUNREACH
997 return EHOSTUNREACH;
998#else
999 goto not_there;
1000#endif
1001 break;
2304df62 1002 case 'I':
774d564b 1003 if (strEQ(name, "EINPROGRESS"))
1004#ifdef EINPROGRESS
1005 return EINPROGRESS;
1006#else
1007 goto not_there;
1008#endif
2304df62
AD		 1009 if (strEQ(name, "EINTR"))
1010#ifdef EINTR
1011 return EINTR;
1012#else
1013 goto not_there;
1014#endif
1015 if (strEQ(name, "EINVAL"))
1016#ifdef EINVAL
1017 return EINVAL;
1018#else
1019 goto not_there;
1020#endif
1021 if (strEQ(name, "EIO"))
1022#ifdef EIO
1023 return EIO;
1024#else
1025 goto not_there;
1026#endif
774d564b 1027 if (strEQ(name, "EISCONN"))
1028#ifdef EISCONN
1029 return EISCONN;
1030#else
1031 goto not_there;
1032#endif
2304df62
AD		 1033 if (strEQ(name, "EISDIR"))
1034#ifdef EISDIR
1035 return EISDIR;
1036#else
1037 goto not_there;
1038#endif
4670cb3e
NC		 1039 break;
1040 case 'L':
774d564b 1041 if (strEQ(name, "ELOOP"))
1042#ifdef ELOOP
1043 return ELOOP;
1044#else
1045 goto not_there;
1046#endif
2304df62
AD		 1047 break;
1048 case 'M':
1049 if (strEQ(name, "EMFILE"))
1050#ifdef EMFILE
1051 return EMFILE;
1052#else
1053 goto not_there;
1054#endif
1055 if (strEQ(name, "EMLINK"))
1056#ifdef EMLINK
1057 return EMLINK;
1058#else
1059 goto not_there;
1060#endif
774d564b 1061 if (strEQ(name, "EMSGSIZE"))
1062#ifdef EMSGSIZE
1063 return EMSGSIZE;
1064#else
1065 goto not_there;
1066#endif
2304df62
AD		 1067 break;
1068 case 'N':
774d564b 1069 if (strEQ(name, "ENETDOWN"))
1070#ifdef ENETDOWN
1071 return ENETDOWN;
1072#else
1073 goto not_there;
1074#endif
1075 if (strEQ(name, "ENETRESET"))
1076#ifdef ENETRESET
1077 return ENETRESET;
1078#else
1079 goto not_there;
1080#endif
1081 if (strEQ(name, "ENETUNREACH"))
1082#ifdef ENETUNREACH
1083 return ENETUNREACH;
1084#else
1085 goto not_there;
1086#endif
1087 if (strEQ(name, "ENOBUFS"))
1088#ifdef ENOBUFS
1089 return ENOBUFS;
1090#else
1091 goto not_there;
1092#endif
1093 if (strEQ(name, "ENOEXEC"))
1094#ifdef ENOEXEC
1095 return ENOEXEC;
1096#else
1097 goto not_there;
1098#endif
2304df62
AD		 1099 if (strEQ(name, "ENOMEM"))
1100#ifdef ENOMEM
1101 return ENOMEM;
1102#else
1103 goto not_there;
1104#endif
774d564b 1105 if (strEQ(name, "ENOPROTOOPT"))
1106#ifdef ENOPROTOOPT
1107 return ENOPROTOOPT;
1108#else
1109 goto not_there;
1110#endif
2304df62
AD		 1111 if (strEQ(name, "ENOSPC"))
1112#ifdef ENOSPC
1113 return ENOSPC;
1114#else
1115 goto not_there;
1116#endif
774d564b 1117 if (strEQ(name, "ENOTBLK"))
1118#ifdef ENOTBLK
1119 return ENOTBLK;
2304df62
AD		 1120#else
1121 goto not_there;
1122#endif
774d564b 1123 if (strEQ(name, "ENOTCONN"))
1124#ifdef ENOTCONN
1125 return ENOTCONN;
2304df62
AD		 1126#else
1127 goto not_there;
1128#endif
1129 if (strEQ(name, "ENOTDIR"))
1130#ifdef ENOTDIR
1131 return ENOTDIR;
1132#else
1133 goto not_there;
1134#endif
1135 if (strEQ(name, "ENOTEMPTY"))
1136#ifdef ENOTEMPTY
1137 return ENOTEMPTY;
1138#else
1139 goto not_there;
1140#endif
774d564b 1141 if (strEQ(name, "ENOTSOCK"))
1142#ifdef ENOTSOCK
1143 return ENOTSOCK;
1144#else
1145 goto not_there;
1146#endif
1147 if (strEQ(name, "ENOTTY"))
1148#ifdef ENOTTY
1149 return ENOTTY;
1150#else
1151 goto not_there;
1152#endif
2304df62
AD		 1153 if (strEQ(name, "ENFILE"))
1154#ifdef ENFILE
1155 return ENFILE;
1156#else
1157 goto not_there;
1158#endif
1159 if (strEQ(name, "ENODEV"))
1160#ifdef ENODEV
1161 return ENODEV;
1162#else
1163 goto not_there;
1164#endif
1165 if (strEQ(name, "ENOENT"))
1166#ifdef ENOENT
1167 return ENOENT;
1168#else
1169 goto not_there;
1170#endif
1171 if (strEQ(name, "ENOLCK"))
1172#ifdef ENOLCK
1173 return ENOLCK;
1174#else
1175 goto not_there;
1176#endif
1177 if (strEQ(name, "ENOSYS"))
1178#ifdef ENOSYS
1179 return ENOSYS;
1180#else
1181 goto not_there;
1182#endif
1183 if (strEQ(name, "ENXIO"))
1184#ifdef ENXIO
1185 return ENXIO;
1186#else
1187 goto not_there;
1188#endif
1189 if (strEQ(name, "ENAMETOOLONG"))
1190#ifdef ENAMETOOLONG
1191 return ENAMETOOLONG;
1192#else
1193 goto not_there;
1194#endif
1195 break;
1196 case 'O':
1197 if (strEQ(name, "EOF"))
1198#ifdef EOF
1199 return EOF;
1200#else
1201 goto not_there;
1202#endif
774d564b 1203 if (strEQ(name, "EOPNOTSUPP"))
1204#ifdef EOPNOTSUPP
1205 return EOPNOTSUPP;
1206#else
1207 goto not_there;
1208#endif
2304df62
AD		 1209 break;
1210 case 'P':
1211 if (strEQ(name, "EPERM"))
1212#ifdef EPERM
1213 return EPERM;
1214#else
1215 goto not_there;
1216#endif
774d564b 1217 if (strEQ(name, "EPFNOSUPPORT"))
1218#ifdef EPFNOSUPPORT
1219 return EPFNOSUPPORT;
1220#else
1221 goto not_there;
1222#endif
2304df62
AD		 1223 if (strEQ(name, "EPIPE"))
1224#ifdef EPIPE
1225 return EPIPE;
1226#else
1227 goto not_there;
1228#endif
774d564b 1229 if (strEQ(name, "EPROCLIM"))
1230#ifdef EPROCLIM
1231 return EPROCLIM;
1232#else
1233 goto not_there;
1234#endif
1235 if (strEQ(name, "EPROTONOSUPPORT"))
1236#ifdef EPROTONOSUPPORT
1237 return EPROTONOSUPPORT;
1238#else
1239 goto not_there;
1240#endif
1241 if (strEQ(name, "EPROTOTYPE"))
1242#ifdef EPROTOTYPE
1243 return EPROTOTYPE;
1244#else
1245 goto not_there;
1246#endif
2304df62
AD		 1247 break;
1248 case 'R':
1249 if (strEQ(name, "ERANGE"))
1250#ifdef ERANGE
1251 return ERANGE;
1252#else
1253 goto not_there;
1254#endif
774d564b 1255 if (strEQ(name, "EREMOTE"))
1256#ifdef EREMOTE
1257 return EREMOTE;
1258#else
1259 goto not_there;
1260#endif
1261 if (strEQ(name, "ERESTART"))
1262#ifdef ERESTART
1263 return ERESTART;
1264#else
1265 goto not_there;
1266#endif
2304df62
AD		 1267 if (strEQ(name, "EROFS"))
1268#ifdef EROFS
1269 return EROFS;
1270#else
1271 goto not_there;
1272#endif
1273 break;
1274 case 'S':
774d564b 1275 if (strEQ(name, "ESHUTDOWN"))
1276#ifdef ESHUTDOWN
1277 return ESHUTDOWN;
1278#else
1279 goto not_there;
1280#endif
1281 if (strEQ(name, "ESOCKTNOSUPPORT"))
1282#ifdef ESOCKTNOSUPPORT
1283 return ESOCKTNOSUPPORT;
1284#else
1285 goto not_there;
1286#endif
2304df62
AD		 1287 if (strEQ(name, "ESPIPE"))
1288#ifdef ESPIPE
1289 return ESPIPE;
1290#else
1291 goto not_there;
1292#endif
1293 if (strEQ(name, "ESRCH"))
1294#ifdef ESRCH
1295 return ESRCH;
1296#else
1297 goto not_there;
1298#endif
774d564b 1299 if (strEQ(name, "ESTALE"))
1300#ifdef ESTALE
1301 return ESTALE;
1302#else
1303 goto not_there;
1304#endif
2304df62 1305 break;
774d564b 1306 case 'T':
1307 if (strEQ(name, "ETIMEDOUT"))
1308#ifdef ETIMEDOUT
1309 return ETIMEDOUT;
1310#else
1311 goto not_there;
1312#endif
1313 if (strEQ(name, "ETOOMANYREFS"))
1314#ifdef ETOOMANYREFS
1315 return ETOOMANYREFS;
1316#else
1317 goto not_there;
1318#endif
1319 if (strEQ(name, "ETXTBSY"))
1320#ifdef ETXTBSY
1321 return ETXTBSY;
1322#else
1323 goto not_there;
1324#endif
1325 break;
1326 case 'U':
1327 if (strEQ(name, "EUSERS"))
1328#ifdef EUSERS
1329 return EUSERS;
1330#else
1331 goto not_there;
1332#endif
1333 break;
1334 case 'W':
1335 if (strEQ(name, "EWOULDBLOCK"))
1336#ifdef EWOULDBLOCK
1337 return EWOULDBLOCK;
1338#else
1339 goto not_there;
1340#endif
1341 break;
2304df62
AD		 1342 case 'X':
1343 if (strEQ(name, "EXIT_FAILURE"))
1344#ifdef EXIT_FAILURE
1345 return EXIT_FAILURE;
1346#else
1347 return 1;
1348#endif
1349 if (strEQ(name, "EXIT_SUCCESS"))
1350#ifdef EXIT_SUCCESS
1351 return EXIT_SUCCESS;
1352#else
1353 return 0;
1354#endif
1355 if (strEQ(name, "EXDEV"))
1356#ifdef EXDEV
1357 return EXDEV;
1358#else
1359 goto not_there;
1360#endif
1361 break;
1362 }
1363 if (strEQ(name, "E2BIG"))
1364#ifdef E2BIG
1365 return E2BIG;
1366#else
1367 goto not_there;
1368#endif
1369 break;
1370 case 'F':
1371 if (strnEQ(name, "FLT_", 4)) {
1372 if (strEQ(name, "FLT_MAX"))
1373#ifdef FLT_MAX
1374 return FLT_MAX;
1375#else
1376 goto not_there;
1377#endif
1378 if (strEQ(name, "FLT_MIN"))
1379#ifdef FLT_MIN
1380 return FLT_MIN;
1381#else
1382 goto not_there;
1383#endif
1384 if (strEQ(name, "FLT_ROUNDS"))
1385#ifdef FLT_ROUNDS
1386 return FLT_ROUNDS;
1387#else
1388 goto not_there;
1389#endif
1390 if (strEQ(name, "FLT_DIG"))
1391#ifdef FLT_DIG
1392 return FLT_DIG;
1393#else
1394 goto not_there;
1395#endif
1396 if (strEQ(name, "FLT_EPSILON"))
1397#ifdef FLT_EPSILON
1398 return FLT_EPSILON;
1399#else
1400 goto not_there;
1401#endif
1402 if (strEQ(name, "FLT_MANT_DIG"))
1403#ifdef FLT_MANT_DIG
1404 return FLT_MANT_DIG;
1405#else
1406 goto not_there;
1407#endif
1408 if (strEQ(name, "FLT_MAX_10_EXP"))
1409#ifdef FLT_MAX_10_EXP
1410 return FLT_MAX_10_EXP;
1411#else
1412 goto not_there;
1413#endif
1414 if (strEQ(name, "FLT_MAX_EXP"))
1415#ifdef FLT_MAX_EXP
1416 return FLT_MAX_EXP;
1417#else
1418 goto not_there;
1419#endif
1420 if (strEQ(name, "FLT_MIN_10_EXP"))
1421#ifdef FLT_MIN_10_EXP
1422 return FLT_MIN_10_EXP;
1423#else
1424 goto not_there;
1425#endif
1426 if (strEQ(name, "FLT_MIN_EXP"))
1427#ifdef FLT_MIN_EXP
1428 return FLT_MIN_EXP;
1429#else
1430 goto not_there;
1431#endif
1432 if (strEQ(name, "FLT_RADIX"))
1433#ifdef FLT_RADIX
1434 return FLT_RADIX;
1435#else
1436 goto not_there;
1437#endif
1438 break;
1439 }
1440 if (strnEQ(name, "F_", 2)) {
1441 if (strEQ(name, "F_DUPFD"))
1442#ifdef F_DUPFD
1443 return F_DUPFD;
1444#else
1445 goto not_there;
1446#endif
1447 if (strEQ(name, "F_GETFD"))
1448#ifdef F_GETFD
1449 return F_GETFD;
1450#else
1451 goto not_there;
1452#endif
1453 if (strEQ(name, "F_GETFL"))
1454#ifdef F_GETFL
1455 return F_GETFL;
1456#else
1457 goto not_there;
1458#endif
1459 if (strEQ(name, "F_GETLK"))
1460#ifdef F_GETLK
1461 return F_GETLK;
1462#else
1463 goto not_there;
1464#endif
1465 if (strEQ(name, "F_OK"))
1466#ifdef F_OK
1467 return F_OK;
1468#else
1469 goto not_there;
1470#endif
1471 if (strEQ(name, "F_RDLCK"))
1472#ifdef F_RDLCK
1473 return F_RDLCK;
1474#else
1475 goto not_there;
1476#endif
1477 if (strEQ(name, "F_SETFD"))
1478#ifdef F_SETFD
1479 return F_SETFD;
1480#else
1481 goto not_there;
1482#endif
1483 if (strEQ(name, "F_SETFL"))
1484#ifdef F_SETFL
1485 return F_SETFL;
1486#else
1487 goto not_there;
1488#endif
1489 if (strEQ(name, "F_SETLK"))
1490#ifdef F_SETLK
1491 return F_SETLK;
1492#else
1493 goto not_there;
1494#endif
1495 if (strEQ(name, "F_SETLKW"))
1496#ifdef F_SETLKW
1497 return F_SETLKW;
1498#else
1499 goto not_there;
1500#endif
1501 if (strEQ(name, "F_UNLCK"))
1502#ifdef F_UNLCK
1503 return F_UNLCK;
1504#else
1505 goto not_there;
1506#endif
1507 if (strEQ(name, "F_WRLCK"))
1508#ifdef F_WRLCK
1509 return F_WRLCK;
1510#else
1511 goto not_there;
1512#endif
1513 break;
1514 }
40000a8c
AD		 1515 if (strEQ(name, "FD_CLOEXEC"))
1516#ifdef FD_CLOEXEC
1517 return FD_CLOEXEC;
1518#else
1519 goto not_there;
1520#endif
2304df62
AD		 1521 if (strEQ(name, "FILENAME_MAX"))
1522#ifdef FILENAME_MAX
1523 return FILENAME_MAX;
1524#else
1525 goto not_there;
1526#endif
1527 break;
1528 case 'H':
1529 if (strEQ(name, "HUGE_VAL"))
428eeaed 1530#if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
4d46a988
JH		 1531 /* HUGE_VALL is admittedly non-POSIX but if are using long doubles
1532 * we might as well use long doubles. --jhi */
4d46a988 1533 return HUGE_VALL;
4d46a988 1534#endif
2304df62
AD		 1535#ifdef HUGE_VAL
1536 return HUGE_VAL;
1537#else
1538 goto not_there;
1539#endif
1540 if (strEQ(name, "HUPCL"))
1541#ifdef HUPCL
1542 return HUPCL;
1543#else
1544 goto not_there;
1545#endif
1546 break;
1547 case 'I':
1548 if (strEQ(name, "INT_MAX"))
1549#ifdef INT_MAX
1550 return INT_MAX;
1551#else
1552 goto not_there;
1553#endif
1554 if (strEQ(name, "INT_MIN"))
1555#ifdef INT_MIN
1556 return INT_MIN;
1557#else
1558 goto not_there;
1559#endif
1560 if (strEQ(name, "ICANON"))
1561#ifdef ICANON
1562 return ICANON;
1563#else
1564 goto not_there;
1565#endif
1566 if (strEQ(name, "ICRNL"))
1567#ifdef ICRNL
1568 return ICRNL;
1569#else
1570 goto not_there;
1571#endif
1572 if (strEQ(name, "IEXTEN"))
1573#ifdef IEXTEN
1574 return IEXTEN;
1575#else
1576 goto not_there;
1577#endif
1578 if (strEQ(name, "IGNBRK"))
1579#ifdef IGNBRK
1580 return IGNBRK;
1581#else
1582 goto not_there;
1583#endif
1584 if (strEQ(name, "IGNCR"))
1585#ifdef IGNCR
1586 return IGNCR;
1587#else
1588 goto not_there;
1589#endif
1590 if (strEQ(name, "IGNPAR"))
1591#ifdef IGNPAR
1592 return IGNPAR;
1593#else
1594 goto not_there;
1595#endif
1596 if (strEQ(name, "INLCR"))
1597#ifdef INLCR
1598 return INLCR;
1599#else
1600 goto not_there;
1601#endif
1602 if (strEQ(name, "INPCK"))
1603#ifdef INPCK
1604 return INPCK;
1605#else
1606 goto not_there;
1607#endif
1608 if (strEQ(name, "ISIG"))
1609#ifdef ISIG
1610 return ISIG;
1611#else
1612 goto not_there;
1613#endif
1614 if (strEQ(name, "ISTRIP"))
1615#ifdef ISTRIP
1616 return ISTRIP;
1617#else
1618 goto not_there;
1619#endif
1620 if (strEQ(name, "IXOFF"))
1621#ifdef IXOFF
1622 return IXOFF;
1623#else
1624 goto not_there;
1625#endif
1626 if (strEQ(name, "IXON"))
1627#ifdef IXON
1628 return IXON;
1629#else
1630 goto not_there;
1631#endif
1632 break;
1633 case 'L':
1634 if (strnEQ(name, "LC_", 3)) {
1635 if (strEQ(name, "LC_ALL"))
1636#ifdef LC_ALL
1637 return LC_ALL;
1638#else
1639 goto not_there;
1640#endif
1641 if (strEQ(name, "LC_COLLATE"))
1642#ifdef LC_COLLATE
1643 return LC_COLLATE;
1644#else
1645 goto not_there;
1646#endif
1647 if (strEQ(name, "LC_CTYPE"))
1648#ifdef LC_CTYPE
1649 return LC_CTYPE;
1650#else
1651 goto not_there;
1652#endif
1653 if (strEQ(name, "LC_MONETARY"))
1654#ifdef LC_MONETARY
1655 return LC_MONETARY;
1656#else
1657 goto not_there;
1658#endif
1659 if (strEQ(name, "LC_NUMERIC"))
1660#ifdef LC_NUMERIC
1661 return LC_NUMERIC;
1662#else
1663 goto not_there;
1664#endif
1665 if (strEQ(name, "LC_TIME"))
1666#ifdef LC_TIME
1667 return LC_TIME;
1668#else
1669 goto not_there;
1670#endif
1671 break;
1672 }
1673 if (strnEQ(name, "LDBL_", 5)) {
1674 if (strEQ(name, "LDBL_MAX"))
1675#ifdef LDBL_MAX
1676 return LDBL_MAX;
1677#else
1678 goto not_there;
1679#endif
1680 if (strEQ(name, "LDBL_MIN"))
1681#ifdef LDBL_MIN
1682 return LDBL_MIN;
1683#else
1684 goto not_there;
1685#endif
1686 if (strEQ(name, "LDBL_DIG"))
1687#ifdef LDBL_DIG
1688 return LDBL_DIG;
1689#else
1690 goto not_there;
1691#endif
1692 if (strEQ(name, "LDBL_EPSILON"))
1693#ifdef LDBL_EPSILON
1694 return LDBL_EPSILON;
1695#else
1696 goto not_there;
1697#endif
1698 if (strEQ(name, "LDBL_MANT_DIG"))
1699#ifdef LDBL_MANT_DIG
1700 return LDBL_MANT_DIG;
1701#else
1702 goto not_there;
1703#endif
1704 if (strEQ(name, "LDBL_MAX_10_EXP"))
1705#ifdef LDBL_MAX_10_EXP
1706 return LDBL_MAX_10_EXP;
1707#else
1708 goto not_there;
1709#endif
1710 if (strEQ(name, "LDBL_MAX_EXP"))
1711#ifdef LDBL_MAX_EXP
1712 return LDBL_MAX_EXP;
1713#else
1714 goto not_there;
1715#endif
1716 if (strEQ(name, "LDBL_MIN_10_EXP"))
1717#ifdef LDBL_MIN_10_EXP
1718 return LDBL_MIN_10_EXP;
1719#else
1720 goto not_there;
1721#endif
1722 if (strEQ(name, "LDBL_MIN_EXP"))
1723#ifdef LDBL_MIN_EXP
1724 return LDBL_MIN_EXP;
1725#else
1726 goto not_there;
1727#endif
1728 break;
1729 }
1730 if (strnEQ(name, "L_", 2)) {
1731 if (strEQ(name, "L_ctermid"))
1732#ifdef L_ctermid
1733 return L_ctermid;
1734#else
1735 goto not_there;
1736#endif
1737 if (strEQ(name, "L_cuserid"))
1738#ifdef L_cuserid
1739 return L_cuserid;
1740#else
1741 goto not_there;
1742#endif
33f01dd1
SH		 1743 /* L_tmpnam[e] was a typo--retained for compatibility */
1744 if (strEQ(name, "L_tmpname") || strEQ(name, "L_tmpnam"))
1745#ifdef L_tmpnam
1746 return L_tmpnam;
2304df62
AD		 1747#else
1748 goto not_there;
1749#endif
1750 break;
1751 }
1752 if (strEQ(name, "LONG_MAX"))
1753#ifdef LONG_MAX
1754 return LONG_MAX;
1755#else
1756 goto not_there;
1757#endif
1758 if (strEQ(name, "LONG_MIN"))
1759#ifdef LONG_MIN
1760 return LONG_MIN;
1761#else
1762 goto not_there;
1763#endif
1764 if (strEQ(name, "LINK_MAX"))
1765#ifdef LINK_MAX
1766 return LINK_MAX;
1767#else
1768 goto not_there;
1769#endif
1770 break;
1771 case 'M':
1772 if (strEQ(name, "MAX_CANON"))
1773#ifdef MAX_CANON
1774 return MAX_CANON;
1775#else
1776 goto not_there;
1777#endif
1778 if (strEQ(name, "MAX_INPUT"))
1779#ifdef MAX_INPUT
1780 return MAX_INPUT;
1781#else
1782 goto not_there;
1783#endif
1784 if (strEQ(name, "MB_CUR_MAX"))
1785#ifdef MB_CUR_MAX
1786 return MB_CUR_MAX;
1787#else
1788 goto not_there;
1789#endif
1790 if (strEQ(name, "MB_LEN_MAX"))
1791#ifdef MB_LEN_MAX
1792 return MB_LEN_MAX;
1793#else
1794 goto not_there;
1795#endif
1796 break;
1797 case 'N':
a0d0e21e 1798 if (strEQ(name, "NULL")) return 0;
2304df62
AD		 1799 if (strEQ(name, "NAME_MAX"))
1800#ifdef NAME_MAX
1801 return NAME_MAX;
1802#else
1803 goto not_there;
1804#endif
1805 if (strEQ(name, "NCCS"))
1806#ifdef NCCS
1807 return NCCS;
1808#else
1809 goto not_there;
1810#endif
1811 if (strEQ(name, "NGROUPS_MAX"))
1812#ifdef NGROUPS_MAX
1813 return NGROUPS_MAX;
1814#else
1815 goto not_there;
1816#endif
1817 if (strEQ(name, "NOFLSH"))
1818#ifdef NOFLSH
1819 return NOFLSH;
1820#else
1821 goto not_there;
1822#endif
1823 break;
1824 case 'O':
1825 if (strnEQ(name, "O_", 2)) {
1826 if (strEQ(name, "O_APPEND"))
1827#ifdef O_APPEND
1828 return O_APPEND;
1829#else
1830 goto not_there;
1831#endif
1832 if (strEQ(name, "O_CREAT"))
1833#ifdef O_CREAT
1834 return O_CREAT;
1835#else
1836 goto not_there;
1837#endif
1838 if (strEQ(name, "O_TRUNC"))
1839#ifdef O_TRUNC
1840 return O_TRUNC;
1841#else
1842 goto not_there;
1843#endif
1844 if (strEQ(name, "O_RDONLY"))
1845#ifdef O_RDONLY
1846 return O_RDONLY;
1847#else
1848 goto not_there;
1849#endif
1850 if (strEQ(name, "O_RDWR"))
1851#ifdef O_RDWR
1852 return O_RDWR;
1853#else
1854 goto not_there;
1855#endif
1856 if (strEQ(name, "O_WRONLY"))
1857#ifdef O_WRONLY
1858 return O_WRONLY;
1859#else
1860 goto not_there;
1861#endif
1862 if (strEQ(name, "O_EXCL"))
1863#ifdef O_EXCL
1864 return O_EXCL;
1865#else
1866 goto not_there;
1867#endif
1868 if (strEQ(name, "O_NOCTTY"))
1869#ifdef O_NOCTTY
1870 return O_NOCTTY;
1871#else
1872 goto not_there;
1873#endif
1874 if (strEQ(name, "O_NONBLOCK"))
1875#ifdef O_NONBLOCK
1876 return O_NONBLOCK;
1877#else
1878 goto not_there;
1879#endif
1880 if (strEQ(name, "O_ACCMODE"))
1881#ifdef O_ACCMODE
1882 return O_ACCMODE;
1883#else
1884 goto not_there;
1885#endif
1886 break;
1887 }
1888 if (strEQ(name, "OPEN_MAX"))
1889#ifdef OPEN_MAX
1890 return OPEN_MAX;
1891#else
1892 goto not_there;
1893#endif
1894 if (strEQ(name, "OPOST"))
1895#ifdef OPOST
1896 return OPOST;
1897#else
1898 goto not_there;
1899#endif
1900 break;
1901 case 'P':
1902 if (strEQ(name, "PATH_MAX"))
1903#ifdef PATH_MAX
1904 return PATH_MAX;
1905#else
1906 goto not_there;
1907#endif
1908 if (strEQ(name, "PARENB"))
1909#ifdef PARENB
1910 return PARENB;
1911#else
1912 goto not_there;
1913#endif
1914 if (strEQ(name, "PARMRK"))
1915#ifdef PARMRK
1916 return PARMRK;
1917#else
1918 goto not_there;
1919#endif
1920 if (strEQ(name, "PARODD"))
1921#ifdef PARODD
1922 return PARODD;
1923#else
1924 goto not_there;
1925#endif
1926 if (strEQ(name, "PIPE_BUF"))
1927#ifdef PIPE_BUF
1928 return PIPE_BUF;
1929#else
1930 goto not_there;
1931#endif
1932 break;
1933 case 'R':
1934 if (strEQ(name, "RAND_MAX"))
1935#ifdef RAND_MAX
1936 return RAND_MAX;
1937#else
1938 goto not_there;
1939#endif
1940 if (strEQ(name, "R_OK"))
1941#ifdef R_OK
1942 return R_OK;
1943#else
1944 goto not_there;
1945#endif
1946 break;
1947 case 'S':
1948 if (strnEQ(name, "SIG", 3)) {
1949 if (name[3] == '_') {
1950 if (strEQ(name, "SIG_BLOCK"))
1951#ifdef SIG_BLOCK
1952 return SIG_BLOCK;
1953#else
1954 goto not_there;
1955#endif
1956#ifdef SIG_DFL
68dc0745 1957 if (strEQ(name, "SIG_DFL")) return (IV)SIG_DFL;
2304df62
AD		 1958#endif
1959#ifdef SIG_ERR
68dc0745 1960 if (strEQ(name, "SIG_ERR")) return (IV)SIG_ERR;
2304df62
AD		 1961#endif
1962#ifdef SIG_IGN
68dc0745 1963 if (strEQ(name, "SIG_IGN")) return (IV)SIG_IGN;
2304df62
AD		 1964#endif
1965 if (strEQ(name, "SIG_SETMASK"))
1966#ifdef SIG_SETMASK
1967 return SIG_SETMASK;
1968#else
1969 goto not_there;
1970#endif
1971 if (strEQ(name, "SIG_UNBLOCK"))
1972#ifdef SIG_UNBLOCK
1973 return SIG_UNBLOCK;
1974#else
1975 goto not_there;
1976#endif
1977 break;
1978 }
1979 if (strEQ(name, "SIGABRT"))
1980#ifdef SIGABRT
1981 return SIGABRT;
1982#else
1983 goto not_there;
1984#endif
1985 if (strEQ(name, "SIGALRM"))
1986#ifdef SIGALRM
1987 return SIGALRM;
1988#else
1989 goto not_there;
1990#endif
1991 if (strEQ(name, "SIGCHLD"))
1992#ifdef SIGCHLD
1993 return SIGCHLD;
1994#else
1995 goto not_there;
1996#endif
1997 if (strEQ(name, "SIGCONT"))
1998#ifdef SIGCONT
1999 return SIGCONT;
2000#else
2001 goto not_there;
2002#endif
2003 if (strEQ(name, "SIGFPE"))
2004#ifdef SIGFPE
2005 return SIGFPE;
2006#else
2007 goto not_there;
2008#endif
2009 if (strEQ(name, "SIGHUP"))
2010#ifdef SIGHUP
2011 return SIGHUP;
2012#else
2013 goto not_there;
2014#endif
2015 if (strEQ(name, "SIGILL"))
2016#ifdef SIGILL
2017 return SIGILL;
2018#else
2019 goto not_there;
2020#endif
2021 if (strEQ(name, "SIGINT"))
2022#ifdef SIGINT
2023 return SIGINT;
2024#else
2025 goto not_there;
2026#endif
2027 if (strEQ(name, "SIGKILL"))
2028#ifdef SIGKILL
2029 return SIGKILL;
2030#else
2031 goto not_there;
2032#endif
2033 if (strEQ(name, "SIGPIPE"))
2034#ifdef SIGPIPE
2035 return SIGPIPE;
2036#else
2037 goto not_there;
2038#endif
2039 if (strEQ(name, "SIGQUIT"))
2040#ifdef SIGQUIT
2041 return SIGQUIT;
2042#else
2043 goto not_there;
2044#endif
2045 if (strEQ(name, "SIGSEGV"))
2046#ifdef SIGSEGV
2047 return SIGSEGV;
2048#else
2049 goto not_there;
2050#endif
2051 if (strEQ(name, "SIGSTOP"))
2052#ifdef SIGSTOP
2053 return SIGSTOP;
2054#else
2055 goto not_there;
2056#endif
2057 if (strEQ(name, "SIGTERM"))
2058#ifdef SIGTERM
2059 return SIGTERM;
2060#else
2061 goto not_there;
2062#endif
2063 if (strEQ(name, "SIGTSTP"))
2064#ifdef SIGTSTP
2065 return SIGTSTP;
2066#else
2067 goto not_there;
2068#endif
2069 if (strEQ(name, "SIGTTIN"))
2070#ifdef SIGTTIN
2071 return SIGTTIN;
2072#else
2073 goto not_there;
2074#endif
2075 if (strEQ(name, "SIGTTOU"))
2076#ifdef SIGTTOU
2077 return SIGTTOU;
2078#else
2079 goto not_there;
2080#endif
2081 if (strEQ(name, "SIGUSR1"))
2082#ifdef SIGUSR1
2083 return SIGUSR1;
2084#else
2085 goto not_there;
2086#endif
2087 if (strEQ(name, "SIGUSR2"))
2088#ifdef SIGUSR2
2089 return SIGUSR2;
2090#else
2091 goto not_there;
2092#endif
2093 break;
2094 }
2095 if (name[1] == '_') {
2304df62
AD		 2096 if (strEQ(name, "S_ISGID"))
2097#ifdef S_ISGID
2098 return S_ISGID;
2099#else
2100 goto not_there;
2101#endif
2102 if (strEQ(name, "S_ISUID"))
2103#ifdef S_ISUID
2104 return S_ISUID;
2105#else
2106 goto not_there;
2107#endif
2108 if (strEQ(name, "S_IRGRP"))
2109#ifdef S_IRGRP
2110 return S_IRGRP;
2111#else
2112 goto not_there;
2113#endif
2114 if (strEQ(name, "S_IROTH"))
2115#ifdef S_IROTH
2116 return S_IROTH;
2117#else
2118 goto not_there;
2119#endif
2120 if (strEQ(name, "S_IRUSR"))
2121#ifdef S_IRUSR
2122 return S_IRUSR;
2123#else
2124 goto not_there;
2125#endif
2126 if (strEQ(name, "S_IRWXG"))
2127#ifdef S_IRWXG
2128 return S_IRWXG;
2129#else
2130 goto not_there;
2131#endif
2132 if (strEQ(name, "S_IRWXO"))
2133#ifdef S_IRWXO
2134 return S_IRWXO;
2135#else
2136 goto not_there;
2137#endif
2138 if (strEQ(name, "S_IRWXU"))
2139#ifdef S_IRWXU
2140 return S_IRWXU;
2141#else
2142 goto not_there;
2143#endif
2144 if (strEQ(name, "S_IWGRP"))
2145#ifdef S_IWGRP
2146 return S_IWGRP;
2147#else
2148 goto not_there;
2149#endif
2150 if (strEQ(name, "S_IWOTH"))
2151#ifdef S_IWOTH
2152 return S_IWOTH;
2153#else
2154 goto not_there;
2155#endif
2156 if (strEQ(name, "S_IWUSR"))
2157#ifdef S_IWUSR
2158 return S_IWUSR;
2159#else
2160 goto not_there;
2161#endif
2162 if (strEQ(name, "S_IXGRP"))
2163#ifdef S_IXGRP
2164 return S_IXGRP;
2165#else
2166 goto not_there;
2167#endif
2168 if (strEQ(name, "S_IXOTH"))
2169#ifdef S_IXOTH
2170 return S_IXOTH;
2171#else
2172 goto not_there;
2173#endif
2174 if (strEQ(name, "S_IXUSR"))
2175#ifdef S_IXUSR
2176 return S_IXUSR;
2177#else
2178 goto not_there;
2179#endif
4633a7c4
LW		 2180 errno = EAGAIN; /* the following aren't constants */
2181#ifdef S_ISBLK
2182 if (strEQ(name, "S_ISBLK")) return S_ISBLK(arg);
2183#endif
2184#ifdef S_ISCHR
2185 if (strEQ(name, "S_ISCHR")) return S_ISCHR(arg);
2186#endif
2187#ifdef S_ISDIR
2188 if (strEQ(name, "S_ISDIR")) return S_ISDIR(arg);
2189#endif
2190#ifdef S_ISFIFO
2191 if (strEQ(name, "S_ISFIFO")) return S_ISFIFO(arg);
2192#endif
2193#ifdef S_ISREG
2194 if (strEQ(name, "S_ISREG")) return S_ISREG(arg);
2195#endif
2304df62
AD		 2196 break;
2197 }
2198 if (strEQ(name, "SEEK_CUR"))
2199#ifdef SEEK_CUR
2200 return SEEK_CUR;
2201#else
2202 goto not_there;
2203#endif
2204 if (strEQ(name, "SEEK_END"))
2205#ifdef SEEK_END
2206 return SEEK_END;
2207#else
2208 goto not_there;
2209#endif
2210 if (strEQ(name, "SEEK_SET"))
2211#ifdef SEEK_SET
2212 return SEEK_SET;
2213#else
2214 goto not_there;
2215#endif
2216 if (strEQ(name, "STREAM_MAX"))
2217#ifdef STREAM_MAX
2218 return STREAM_MAX;
2219#else
2220 goto not_there;
2221#endif
2222 if (strEQ(name, "SHRT_MAX"))
2223#ifdef SHRT_MAX
2224 return SHRT_MAX;
2225#else
2226 goto not_there;
2227#endif
2228 if (strEQ(name, "SHRT_MIN"))
2229#ifdef SHRT_MIN
2230 return SHRT_MIN;
2231#else
2232 goto not_there;
2233#endif
774d564b 2234 if (strnEQ(name, "SA_", 3)) {
2235 if (strEQ(name, "SA_NOCLDSTOP"))
2304df62 2236#ifdef SA_NOCLDSTOP
774d564b 2237 return SA_NOCLDSTOP;
2304df62 2238#else
774d564b 2239 goto not_there;
2304df62 2240#endif
774d564b 2241 if (strEQ(name, "SA_NOCLDWAIT"))
2242#ifdef SA_NOCLDWAIT
2243 return SA_NOCLDWAIT;
2244#else
2245 goto not_there;
2246#endif
2247 if (strEQ(name, "SA_NODEFER"))
2248#ifdef SA_NODEFER
2249 return SA_NODEFER;
2250#else
2251 goto not_there;
2252#endif
2253 if (strEQ(name, "SA_ONSTACK"))
2254#ifdef SA_ONSTACK
2255 return SA_ONSTACK;
2256#else
2257 goto not_there;
2258#endif
2259 if (strEQ(name, "SA_RESETHAND"))
2260#ifdef SA_RESETHAND
2261 return SA_RESETHAND;
2262#else
2263 goto not_there;
2264#endif
2265 if (strEQ(name, "SA_RESTART"))
2266#ifdef SA_RESTART
2267 return SA_RESTART;
2268#else
2269 goto not_there;
2270#endif
2271 if (strEQ(name, "SA_SIGINFO"))
2272#ifdef SA_SIGINFO
2273 return SA_SIGINFO;
2274#else
2275 goto not_there;
2276#endif
2277 break;
2278 }
2304df62
AD		 2279 if (strEQ(name, "SCHAR_MAX"))
2280#ifdef SCHAR_MAX
2281 return SCHAR_MAX;
2282#else
2283 goto not_there;
2284#endif
2285 if (strEQ(name, "SCHAR_MIN"))
2286#ifdef SCHAR_MIN
2287 return SCHAR_MIN;
2288#else
2289 goto not_there;
2290#endif
2291 if (strEQ(name, "SSIZE_MAX"))
2292#ifdef SSIZE_MAX
2293 return SSIZE_MAX;
2294#else
2295 goto not_there;
2296#endif
2297 if (strEQ(name, "STDIN_FILENO"))
2298#ifdef STDIN_FILENO
2299 return STDIN_FILENO;
2300#else
2301 goto not_there;
2302#endif
2303 if (strEQ(name, "STDOUT_FILENO"))
2304#ifdef STDOUT_FILENO
2305 return STDOUT_FILENO;
2306#else
2307 goto not_there;
2308#endif
2309 if (strEQ(name, "STRERR_FILENO"))
2310#ifdef STRERR_FILENO
2311 return STRERR_FILENO;
2312#else
2313 goto not_there;
2314#endif
2315 break;
2316 case 'T':
2317 if (strEQ(name, "TCIFLUSH"))
2318#ifdef TCIFLUSH
2319 return TCIFLUSH;
2320#else
2321 goto not_there;
2322#endif
2323 if (strEQ(name, "TCIOFF"))
2324#ifdef TCIOFF
2325 return TCIOFF;
2326#else
2327 goto not_there;
2328#endif
2329 if (strEQ(name, "TCIOFLUSH"))
2330#ifdef TCIOFLUSH
2331 return TCIOFLUSH;
2332#else
2333 goto not_there;
2334#endif
2335 if (strEQ(name, "TCION"))
2336#ifdef TCION
2337 return TCION;
2338#else
2339 goto not_there;
2340#endif
2341 if (strEQ(name, "TCOFLUSH"))
2342#ifdef TCOFLUSH
2343 return TCOFLUSH;
2344#else
2345 goto not_there;
2346#endif
2347 if (strEQ(name, "TCOOFF"))
2348#ifdef TCOOFF
2349 return TCOOFF;
2350#else
2351 goto not_there;
2352#endif
2353 if (strEQ(name, "TCOON"))
2354#ifdef TCOON
2355 return TCOON;
2356#else
2357 goto not_there;
2358#endif
2359 if (strEQ(name, "TCSADRAIN"))
2360#ifdef TCSADRAIN
2361 return TCSADRAIN;
2362#else
2363 goto not_there;
2364#endif
2365 if (strEQ(name, "TCSAFLUSH"))
2366#ifdef TCSAFLUSH
2367 return TCSAFLUSH;
2368#else
2369 goto not_there;
2370#endif
2371 if (strEQ(name, "TCSANOW"))
2372#ifdef TCSANOW
2373 return TCSANOW;
2374#else
2375 goto not_there;
2376#endif
2377 if (strEQ(name, "TMP_MAX"))
2378#ifdef TMP_MAX
2379 return TMP_MAX;
2380#else
2381 goto not_there;
2382#endif
2383 if (strEQ(name, "TOSTOP"))
2384#ifdef TOSTOP
2385 return TOSTOP;
2386#else
2387 goto not_there;
2388#endif
2389 if (strEQ(name, "TZNAME_MAX"))
2390#ifdef TZNAME_MAX
2391 return TZNAME_MAX;
2392#else
2393 goto not_there;
2394#endif
2395 break;
2396 case 'U':
2397 if (strEQ(name, "UCHAR_MAX"))
2398#ifdef UCHAR_MAX
2399 return UCHAR_MAX;
2400#else
2401 goto not_there;
2402#endif
2403 if (strEQ(name, "UINT_MAX"))
2404#ifdef UINT_MAX
2405 return UINT_MAX;
2406#else
2407 goto not_there;
2408#endif
2409 if (strEQ(name, "ULONG_MAX"))
2410#ifdef ULONG_MAX
2411 return ULONG_MAX;
2412#else
2413 goto not_there;
2414#endif
2415 if (strEQ(name, "USHRT_MAX"))
2416#ifdef USHRT_MAX
2417 return USHRT_MAX;
2418#else
2419 goto not_there;
2420#endif
2421 break;
2422 case 'V':
2423 if (strEQ(name, "VEOF"))
2424#ifdef VEOF
2425 return VEOF;
2426#else
2427 goto not_there;
2428#endif
2429 if (strEQ(name, "VEOL"))
2430#ifdef VEOL
2431 return VEOL;
2432#else
2433 goto not_there;
2434#endif
2435 if (strEQ(name, "VERASE"))
2436#ifdef VERASE
2437 return VERASE;
2438#else
2439 goto not_there;
2440#endif
2441 if (strEQ(name, "VINTR"))
2442#ifdef VINTR
2443 return VINTR;
2444#else
2445 goto not_there;
2446#endif
2447 if (strEQ(name, "VKILL"))
2448#ifdef VKILL
2449 return VKILL;
2450#else
2451 goto not_there;
2452#endif
2453 if (strEQ(name, "VMIN"))
2454#ifdef VMIN
2455 return VMIN;
2456#else
2457 goto not_there;
2458#endif
2459 if (strEQ(name, "VQUIT"))
2460#ifdef VQUIT
2461 return VQUIT;
2462#else
2463 goto not_there;
2464#endif
2465 if (strEQ(name, "VSTART"))
2466#ifdef VSTART
2467 return VSTART;
2468#else
2469 goto not_there;
2470#endif
2471 if (strEQ(name, "VSTOP"))
2472#ifdef VSTOP
2473 return VSTOP;
2474#else
2475 goto not_there;
2476#endif
2477 if (strEQ(name, "VSUSP"))
2478#ifdef VSUSP
2479 return VSUSP;
2480#else
2481 goto not_there;
2482#endif
2483 if (strEQ(name, "VTIME"))
2484#ifdef VTIME
2485 return VTIME;
2486#else
2487 goto not_there;
2488#endif
2489 break;
2490 case 'W':
2491 if (strEQ(name, "W_OK"))
2492#ifdef W_OK
2493 return W_OK;
2494#else
2495 goto not_there;
2496#endif
4633a7c4
LW		 2497 if (strEQ(name, "WNOHANG"))
2498#ifdef WNOHANG
2499 return WNOHANG;
2500#else
2501 goto not_there;
2502#endif
2503 if (strEQ(name, "WUNTRACED"))
2504#ifdef WUNTRACED
2505 return WUNTRACED;
2506#else
2507 goto not_there;
2508#endif
2509 errno = EAGAIN; /* the following aren't constants */
2304df62
AD		 2510#ifdef WEXITSTATUS
2511 if (strEQ(name, "WEXITSTATUS")) return WEXITSTATUS(arg);
2512#endif
2513#ifdef WIFEXITED
2514 if (strEQ(name, "WIFEXITED")) return WIFEXITED(arg);
2515#endif
2516#ifdef WIFSIGNALED
2517 if (strEQ(name, "WIFSIGNALED")) return WIFSIGNALED(arg);
2518#endif
2519#ifdef WIFSTOPPED
2520 if (strEQ(name, "WIFSTOPPED")) return WIFSTOPPED(arg);
2521#endif
2304df62
AD		 2522#ifdef WSTOPSIG
2523 if (strEQ(name, "WSTOPSIG")) return WSTOPSIG(arg);
2524#endif
2525#ifdef WTERMSIG
2526 if (strEQ(name, "WTERMSIG")) return WTERMSIG(arg);
2527#endif
2304df62
AD		 2528 break;
2529 case 'X':
2530 if (strEQ(name, "X_OK"))
2531#ifdef X_OK
2532 return X_OK;
2533#else
2534 goto not_there;
2535#endif
2536 break;
2537 case '_':
2538 if (strnEQ(name, "_PC_", 4)) {
2539 if (strEQ(name, "_PC_CHOWN_RESTRICTED"))
491527d0 2540#if defined(_PC_CHOWN_RESTRICTED) || HINT_SC_EXIST
2304df62
AD		 2541 return _PC_CHOWN_RESTRICTED;
2542#else
2543 goto not_there;
2544#endif
2545 if (strEQ(name, "_PC_LINK_MAX"))
491527d0 2546#if defined(_PC_LINK_MAX) || HINT_SC_EXIST
2304df62
AD		 2547 return _PC_LINK_MAX;
2548#else
2549 goto not_there;
2550#endif
2551 if (strEQ(name, "_PC_MAX_CANON"))
491527d0 2552#if defined(_PC_MAX_CANON) || HINT_SC_EXIST
2304df62
AD		 2553 return _PC_MAX_CANON;
2554#else
2555 goto not_there;
2556#endif
2557 if (strEQ(name, "_PC_MAX_INPUT"))
491527d0 2558#if defined(_PC_MAX_INPUT) || HINT_SC_EXIST
2304df62
AD		 2559 return _PC_MAX_INPUT;
2560#else
2561 goto not_there;
2562#endif
2563 if (strEQ(name, "_PC_NAME_MAX"))
491527d0 2564#if defined(_PC_NAME_MAX) || HINT_SC_EXIST
2304df62
AD		 2565 return _PC_NAME_MAX;
2566#else
2567 goto not_there;
2568#endif
2569 if (strEQ(name, "_PC_NO_TRUNC"))
491527d0 2570#if defined(_PC_NO_TRUNC) || HINT_SC_EXIST
2304df62
AD		 2571 return _PC_NO_TRUNC;
2572#else
2573 goto not_there;
2574#endif
2575 if (strEQ(name, "_PC_PATH_MAX"))
491527d0 2576#if defined(_PC_PATH_MAX) || HINT_SC_EXIST
2304df62
AD		 2577 return _PC_PATH_MAX;
2578#else
2579 goto not_there;
2580#endif
2581 if (strEQ(name, "_PC_PIPE_BUF"))
491527d0 2582#if defined(_PC_PIPE_BUF) || HINT_SC_EXIST
2304df62
AD		 2583 return _PC_PIPE_BUF;
2584#else
2585 goto not_there;
2586#endif
2587 if (strEQ(name, "_PC_VDISABLE"))
491527d0 2588#if defined(_PC_VDISABLE) || HINT_SC_EXIST
2304df62
AD		 2589 return _PC_VDISABLE;
2590#else
2591 goto not_there;
2592#endif
2593 break;
2594 }
2595 if (strnEQ(name, "_POSIX_", 7)) {
2596 if (strEQ(name, "_POSIX_ARG_MAX"))
2597#ifdef _POSIX_ARG_MAX
2598 return _POSIX_ARG_MAX;
2599#else
2600 return 0;
2601#endif
2602 if (strEQ(name, "_POSIX_CHILD_MAX"))
2603#ifdef _POSIX_CHILD_MAX
2604 return _POSIX_CHILD_MAX;
2605#else
2606 return 0;
2607#endif
2608 if (strEQ(name, "_POSIX_CHOWN_RESTRICTED"))
2609#ifdef _POSIX_CHOWN_RESTRICTED
2610 return _POSIX_CHOWN_RESTRICTED;
2611#else
2612 return 0;
2613#endif
2614 if (strEQ(name, "_POSIX_JOB_CONTROL"))
2615#ifdef _POSIX_JOB_CONTROL
2616 return _POSIX_JOB_CONTROL;
2617#else
2618 return 0;
2619#endif
2620 if (strEQ(name, "_POSIX_LINK_MAX"))
2621#ifdef _POSIX_LINK_MAX
2622 return _POSIX_LINK_MAX;
2623#else
2624 return 0;
2625#endif
2626 if (strEQ(name, "_POSIX_MAX_CANON"))
2627#ifdef _POSIX_MAX_CANON
2628 return _POSIX_MAX_CANON;
2629#else
2630 return 0;
2631#endif
2632 if (strEQ(name, "_POSIX_MAX_INPUT"))
2633#ifdef _POSIX_MAX_INPUT
2634 return _POSIX_MAX_INPUT;
2635#else
2636 return 0;
2637#endif
2638 if (strEQ(name, "_POSIX_NAME_MAX"))
2639#ifdef _POSIX_NAME_MAX
2640 return _POSIX_NAME_MAX;
2641#else
2642 return 0;
2643#endif
2644 if (strEQ(name, "_POSIX_NGROUPS_MAX"))
2645#ifdef _POSIX_NGROUPS_MAX
2646 return _POSIX_NGROUPS_MAX;
2647#else
2648 return 0;
2649#endif
2650 if (strEQ(name, "_POSIX_NO_TRUNC"))
2651#ifdef _POSIX_NO_TRUNC
2652 return _POSIX_NO_TRUNC;
2653#else
2654 return 0;
2655#endif
2656 if (strEQ(name, "_POSIX_OPEN_MAX"))
2657#ifdef _POSIX_OPEN_MAX
2658 return _POSIX_OPEN_MAX;
2659#else
2660 return 0;
2661#endif
2662 if (strEQ(name, "_POSIX_PATH_MAX"))
2663#ifdef _POSIX_PATH_MAX
2664 return _POSIX_PATH_MAX;
2665#else
2666 return 0;
2667#endif
2668 if (strEQ(name, "_POSIX_PIPE_BUF"))
2669#ifdef _POSIX_PIPE_BUF
2670 return _POSIX_PIPE_BUF;
2671#else
2672 return 0;
2673#endif
2674 if (strEQ(name, "_POSIX_SAVED_IDS"))
2675#ifdef _POSIX_SAVED_IDS
2676 return _POSIX_SAVED_IDS;
2677#else
2678 return 0;
2679#endif
2680 if (strEQ(name, "_POSIX_SSIZE_MAX"))
2681#ifdef _POSIX_SSIZE_MAX
2682 return _POSIX_SSIZE_MAX;
2683#else
2684 return 0;
2685#endif
2686 if (strEQ(name, "_POSIX_STREAM_MAX"))
2687#ifdef _POSIX_STREAM_MAX
2688 return _POSIX_STREAM_MAX;
2689#else
2690 return 0;
2691#endif
2692 if (strEQ(name, "_POSIX_TZNAME_MAX"))
2693#ifdef _POSIX_TZNAME_MAX
2694 return _POSIX_TZNAME_MAX;
2695#else
2696 return 0;
2697#endif
2698 if (strEQ(name, "_POSIX_VDISABLE"))
2699#ifdef _POSIX_VDISABLE
2700 return _POSIX_VDISABLE;
2701#else
2702 return 0;
2703#endif
2704 if (strEQ(name, "_POSIX_VERSION"))
2705#ifdef _POSIX_VERSION
2706 return _POSIX_VERSION;
2707#else
2708 return 0;
2709#endif
2710 break;
2711 }
2712 if (strnEQ(name, "_SC_", 4)) {
2713 if (strEQ(name, "_SC_ARG_MAX"))
491527d0 2714#if defined(_SC_ARG_MAX) || HINT_SC_EXIST
2304df62
AD		 2715 return _SC_ARG_MAX;
2716#else
2717 goto not_there;
2718#endif
2719 if (strEQ(name, "_SC_CHILD_MAX"))
491527d0 2720#if defined(_SC_CHILD_MAX) || HINT_SC_EXIST
2304df62
AD		 2721 return _SC_CHILD_MAX;
2722#else
2723 goto not_there;
2724#endif
2725 if (strEQ(name, "_SC_CLK_TCK"))
491527d0 2726#if defined(_SC_CLK_TCK) || HINT_SC_EXIST
2304df62
AD		 2727 return _SC_CLK_TCK;
2728#else
2729 goto not_there;
2730#endif
2731 if (strEQ(name, "_SC_JOB_CONTROL"))
491527d0 2732#if defined(_SC_JOB_CONTROL) || HINT_SC_EXIST
2304df62
AD		 2733 return _SC_JOB_CONTROL;
2734#else
2735 goto not_there;
2736#endif
2737 if (strEQ(name, "_SC_NGROUPS_MAX"))
491527d0 2738#if defined(_SC_NGROUPS_MAX) || HINT_SC_EXIST
2304df62
AD		 2739 return _SC_NGROUPS_MAX;
2740#else
2741 goto not_there;
2742#endif
2743 if (strEQ(name, "_SC_OPEN_MAX"))
491527d0 2744#if defined(_SC_OPEN_MAX) || HINT_SC_EXIST
2304df62
AD		 2745 return _SC_OPEN_MAX;
2746#else
2747 goto not_there;
2748#endif
2749 if (strEQ(name, "_SC_SAVED_IDS"))
491527d0 2750#if defined(_SC_SAVED_IDS) || HINT_SC_EXIST
2304df62
AD		 2751 return _SC_SAVED_IDS;
2752#else
2753 goto not_there;
2754#endif
2755 if (strEQ(name, "_SC_STREAM_MAX"))
491527d0 2756#if defined(_SC_STREAM_MAX) || HINT_SC_EXIST
2304df62
AD		 2757 return _SC_STREAM_MAX;
2758#else
2759 goto not_there;
2760#endif
2761 if (strEQ(name, "_SC_TZNAME_MAX"))
491527d0 2762#if defined(_SC_TZNAME_MAX) || HINT_SC_EXIST
2304df62
AD		 2763 return _SC_TZNAME_MAX;
2764#else
2765 goto not_there;
2766#endif
2767 if (strEQ(name, "_SC_VERSION"))
491527d0 2768#if defined(_SC_VERSION) || HINT_SC_EXIST
2304df62
AD		 2769 return _SC_VERSION;
2770#else
2771 goto not_there;
2772#endif
2773 break;
2774 }
2304df62
AD		 2775 }
2776 errno = EINVAL;
2777 return 0;
2778
2779not_there:
2780 errno = ENOENT;
2781 return 0;
2782}
2783
2784MODULE = SigSet PACKAGE = POSIX::SigSet PREFIX = sig
2785
2786POSIX::SigSet
2787new(packname = "POSIX::SigSet", ...)
2788 char * packname
2789 CODE:
2790 {
2791 int i;
01667c76 2792 New(0, RETVAL, 1, sigset_t);
2304df62 2793 sigemptyset(RETVAL);
a0d0e21e 2794 for (i = 1; i < items; i++)
2304df62
AD		 2795 sigaddset(RETVAL, SvIV(ST(i)));
2796 }
2797 OUTPUT:
2798 RETVAL
463ee0b2 2799
8990e307 2800void
2304df62
AD		 2801DESTROY(sigset)
2802 POSIX::SigSet sigset
2803 CODE:
01667c76 2804 Safefree(sigset);
2304df62
AD		 2805
2806SysRet
2807sigaddset(sigset, sig)
2808 POSIX::SigSet sigset
2809 int sig
2810
2811SysRet
2812sigdelset(sigset, sig)
2813 POSIX::SigSet sigset
2814 int sig
2815
2816SysRet
2817sigemptyset(sigset)
2818 POSIX::SigSet sigset
2819
2820SysRet
2821sigfillset(sigset)
2822 POSIX::SigSet sigset
2823
2824int
2825sigismember(sigset, sig)
2826 POSIX::SigSet sigset
2827 int sig
2828
2829
a0d0e21e
LW		 2830MODULE = Termios PACKAGE = POSIX::Termios PREFIX = cf
2831
2832POSIX::Termios
2833new(packname = "POSIX::Termios", ...)
2834 char * packname
2835 CODE:
2836 {
2837#ifdef I_TERMIOS
01667c76 2838 New(0, RETVAL, 1, struct termios);
a0d0e21e
LW		 2839#else
2840 not_here("termios");
640cc986 2841 RETVAL = 0;
a0d0e21e
LW		 2842#endif
2843 }
2844 OUTPUT:
2845 RETVAL
2846
2847void
2848DESTROY(termios_ref)
2849 POSIX::Termios termios_ref
2850 CODE:
2851#ifdef I_TERMIOS
01667c76 2852 Safefree(termios_ref);
a0d0e21e
LW		 2853#else
2854 not_here("termios");
2855#endif
2856
2857SysRet
2858getattr(termios_ref, fd = 0)
2859 POSIX::Termios termios_ref
2860 int fd
2861 CODE:
2862 RETVAL = tcgetattr(fd, termios_ref);
2863 OUTPUT:
2864 RETVAL
2865
2866SysRet
2867setattr(termios_ref, fd = 0, optional_actions = 0)
2868 POSIX::Termios termios_ref
2869 int fd
2870 int optional_actions
2871 CODE:
2872 RETVAL = tcsetattr(fd, optional_actions, termios_ref);
2873 OUTPUT:
2874 RETVAL
2875
2876speed_t
2877cfgetispeed(termios_ref)
2878 POSIX::Termios termios_ref
2879
2880speed_t
2881cfgetospeed(termios_ref)
2882 POSIX::Termios termios_ref
2883
2884tcflag_t
2885getiflag(termios_ref)
2886 POSIX::Termios termios_ref
2887 CODE:
2888#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2889 RETVAL = termios_ref->c_iflag;
2890#else
640cc986
HM		 2891 not_here("getiflag");
2892 RETVAL = 0;
a0d0e21e
LW		 2893#endif
2894 OUTPUT:
2895 RETVAL
2896
2897tcflag_t
2898getoflag(termios_ref)
2899 POSIX::Termios termios_ref
2900 CODE:
2901#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2902 RETVAL = termios_ref->c_oflag;
2903#else
640cc986
HM		 2904 not_here("getoflag");
2905 RETVAL = 0;
a0d0e21e
LW		 2906#endif
2907 OUTPUT:
2908 RETVAL
2909
2910tcflag_t
2911getcflag(termios_ref)
2912 POSIX::Termios termios_ref
2913 CODE:
2914#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2915 RETVAL = termios_ref->c_cflag;
2916#else
640cc986
HM		 2917 not_here("getcflag");
2918 RETVAL = 0;
a0d0e21e
LW		 2919#endif
2920 OUTPUT:
2921 RETVAL
2922
2923tcflag_t
2924getlflag(termios_ref)
2925 POSIX::Termios termios_ref
2926 CODE:
2927#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2928 RETVAL = termios_ref->c_lflag;
2929#else
640cc986
HM		 2930 not_here("getlflag");
2931 RETVAL = 0;
a0d0e21e
LW		 2932#endif
2933 OUTPUT:
2934 RETVAL
2935
2936cc_t
2937getcc(termios_ref, ccix)
2938 POSIX::Termios termios_ref
2939 int ccix
2940 CODE:
2941#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2942 if (ccix >= NCCS)
2943 croak("Bad getcc subscript");
2944 RETVAL = termios_ref->c_cc[ccix];
2945#else
640cc986
HM		 2946 not_here("getcc");
2947 RETVAL = 0;
a0d0e21e
LW		 2948#endif
2949 OUTPUT:
2950 RETVAL
2951
2952SysRet
2953cfsetispeed(termios_ref, speed)
2954 POSIX::Termios termios_ref
2955 speed_t speed
2956
2957SysRet
2958cfsetospeed(termios_ref, speed)
2959 POSIX::Termios termios_ref
2960 speed_t speed
2961
2962void
2963setiflag(termios_ref, iflag)
2964 POSIX::Termios termios_ref
2965 tcflag_t iflag
2966 CODE:
2967#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2968 termios_ref->c_iflag = iflag;
2969#else
2970 not_here("setiflag");
2971#endif
2972
2973void
2974setoflag(termios_ref, oflag)
2975 POSIX::Termios termios_ref
2976 tcflag_t oflag
2977 CODE:
2978#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2979 termios_ref->c_oflag = oflag;
2980#else
2981 not_here("setoflag");
2982#endif
2983
2984void
2985setcflag(termios_ref, cflag)
2986 POSIX::Termios termios_ref
2987 tcflag_t cflag
2988 CODE:
2989#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2990 termios_ref->c_cflag = cflag;
2991#else
2992 not_here("setcflag");
2993#endif
2994
2995void
2996setlflag(termios_ref, lflag)
2997 POSIX::Termios termios_ref
2998 tcflag_t lflag
2999 CODE:
3000#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
3001 termios_ref->c_lflag = lflag;
3002#else
3003 not_here("setlflag");
3004#endif
3005
3006void
3007setcc(termios_ref, ccix, cc)
3008 POSIX::Termios termios_ref
3009 int ccix
3010 cc_t cc
3011 CODE:
3012#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
3013 if (ccix >= NCCS)
3014 croak("Bad setcc subscript");
3015 termios_ref->c_cc[ccix] = cc;
3016#else
3017 not_here("setcc");
3018#endif
3019
3020
a0d0e21e
LW		 3021MODULE = POSIX PACKAGE = POSIX
3022
3023double
2304df62
AD		 3024constant(name,arg)
3025 char * name
3026 int arg
3027
3028int
3029isalnum(charstring)
5344da4e 3030 unsigned char * charstring
2304df62 3031 CODE:
5344da4e 3032 unsigned char *s = charstring;
6b88bc9c 3033 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3034 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3035 if (!isalnum(*s))
3036 RETVAL = 0;
3037 OUTPUT:
3038 RETVAL
3039
3040int
3041isalpha(charstring)
5344da4e 3042 unsigned char * charstring
2304df62 3043 CODE:
5344da4e 3044 unsigned char *s = charstring;
6b88bc9c 3045 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3046 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3047 if (!isalpha(*s))
3048 RETVAL = 0;
3049 OUTPUT:
3050 RETVAL
3051
3052int
3053iscntrl(charstring)
5344da4e 3054 unsigned char * charstring
2304df62 3055 CODE:
5344da4e 3056 unsigned char *s = charstring;
6b88bc9c 3057 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3058 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3059 if (!iscntrl(*s))
3060 RETVAL = 0;
3061 OUTPUT:
3062 RETVAL
3063
3064int
3065isdigit(charstring)
5344da4e 3066 unsigned char * charstring
2304df62 3067 CODE:
5344da4e 3068 unsigned char *s = charstring;
6b88bc9c 3069 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3070 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3071 if (!isdigit(*s))
3072 RETVAL = 0;
3073 OUTPUT:
3074 RETVAL
3075
3076int
3077isgraph(charstring)
5344da4e 3078 unsigned char * charstring
2304df62 3079 CODE:
5344da4e 3080 unsigned char *s = charstring;
6b88bc9c 3081 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3082 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3083 if (!isgraph(*s))
3084 RETVAL = 0;
3085 OUTPUT:
3086 RETVAL
3087
3088int
3089islower(charstring)
5344da4e 3090 unsigned char * charstring
2304df62 3091 CODE:
5344da4e 3092 unsigned char *s = charstring;
6b88bc9c 3093 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3094 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3095 if (!islower(*s))
3096 RETVAL = 0;
3097 OUTPUT:
3098 RETVAL
3099
3100int
3101isprint(charstring)
5344da4e 3102 unsigned char * charstring
2304df62 3103 CODE:
5344da4e 3104 unsigned char *s = charstring;
6b88bc9c 3105 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3106 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3107 if (!isprint(*s))
3108 RETVAL = 0;
3109 OUTPUT:
3110 RETVAL
3111
3112int
3113ispunct(charstring)
5344da4e 3114 unsigned char * charstring
2304df62 3115 CODE:
5344da4e 3116 unsigned char *s = charstring;
6b88bc9c 3117 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3118 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3119 if (!ispunct(*s))
3120 RETVAL = 0;
3121 OUTPUT:
3122 RETVAL
3123
3124int
3125isspace(charstring)
5344da4e 3126 unsigned char * charstring
2304df62 3127 CODE:
5344da4e 3128 unsigned char *s = charstring;
6b88bc9c 3129 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3130 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3131 if (!isspace(*s))
3132 RETVAL = 0;
3133 OUTPUT:
3134 RETVAL
8990e307
LW		 3135
3136int
2304df62 3137isupper(charstring)
5344da4e 3138 unsigned char * charstring
2304df62 3139 CODE:
5344da4e 3140 unsigned char *s = charstring;
6b88bc9c 3141 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3142 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3143 if (!isupper(*s))
3144 RETVAL = 0;
3145 OUTPUT:
3146 RETVAL
8990e307
LW		 3147
3148int
2304df62 3149isxdigit(charstring)
5344da4e 3150 unsigned char * charstring
2304df62 3151 CODE:
5344da4e 3152 unsigned char *s = charstring;
6b88bc9c 3153 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 3154 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62
AD		 3155 if (!isxdigit(*s))
3156 RETVAL = 0;
3157 OUTPUT:
3158 RETVAL
3159
3160SysRet
3161open(filename, flags = O_RDONLY, mode = 0666)
3162 char * filename
3163 int flags
a0d0e21e 3164 Mode_t mode
748a9306
LW		 3165 CODE:
3166 if (flags & (O_APPEND|O_CREAT|O_TRUNC|O_RDWR|O_WRONLY|O_EXCL))
3167 TAINT_PROPER("open");
3168 RETVAL = open(filename, flags, mode);
3169 OUTPUT:
3170 RETVAL
3171
2304df62
AD		 3172
3173HV *
3174localeconv()
3175 CODE:
a0d0e21e 3176#ifdef HAS_LOCALECONV
2304df62
AD		 3177 struct lconv *lcbuf;
3178 RETVAL = newHV();
3179 if (lcbuf = localeconv()) {
3180 /* the strings */
3181 if (lcbuf->decimal_point && *lcbuf->decimal_point)
3182 hv_store(RETVAL, "decimal_point", 13,
3183 newSVpv(lcbuf->decimal_point, 0), 0);
3184 if (lcbuf->thousands_sep && *lcbuf->thousands_sep)
3185 hv_store(RETVAL, "thousands_sep", 13,
3186 newSVpv(lcbuf->thousands_sep, 0), 0);
28e8609d 3187#ifndef NO_LOCALECONV_GROUPING
2304df62
AD		 3188 if (lcbuf->grouping && *lcbuf->grouping)
3189 hv_store(RETVAL, "grouping", 8,
3190 newSVpv(lcbuf->grouping, 0), 0);
28e8609d 3191#endif
2304df62
AD		 3192 if (lcbuf->int_curr_symbol && *lcbuf->int_curr_symbol)
3193 hv_store(RETVAL, "int_curr_symbol", 15,
3194 newSVpv(lcbuf->int_curr_symbol, 0), 0);
3195 if (lcbuf->currency_symbol && *lcbuf->currency_symbol)
3196 hv_store(RETVAL, "currency_symbol", 15,
3197 newSVpv(lcbuf->currency_symbol, 0), 0);
3198 if (lcbuf->mon_decimal_point && *lcbuf->mon_decimal_point)
3199 hv_store(RETVAL, "mon_decimal_point", 17,
3200 newSVpv(lcbuf->mon_decimal_point, 0), 0);
39e571d4 3201#ifndef NO_LOCALECONV_MON_THOUSANDS_SEP
2304df62
AD		 3202 if (lcbuf->mon_thousands_sep && *lcbuf->mon_thousands_sep)
3203 hv_store(RETVAL, "mon_thousands_sep", 17,
3204 newSVpv(lcbuf->mon_thousands_sep, 0), 0);
39e571d4 3205#endif
28e8609d 3206#ifndef NO_LOCALECONV_MON_GROUPING
2304df62
AD		 3207 if (lcbuf->mon_grouping && *lcbuf->mon_grouping)
3208 hv_store(RETVAL, "mon_grouping", 12,
3209 newSVpv(lcbuf->mon_grouping, 0), 0);
28e8609d 3210#endif
2304df62
AD		 3211 if (lcbuf->positive_sign && *lcbuf->positive_sign)
3212 hv_store(RETVAL, "positive_sign", 13,
3213 newSVpv(lcbuf->positive_sign, 0), 0);
3214 if (lcbuf->negative_sign && *lcbuf->negative_sign)
3215 hv_store(RETVAL, "negative_sign", 13,
3216 newSVpv(lcbuf->negative_sign, 0), 0);
3217 /* the integers */
3218 if (lcbuf->int_frac_digits != CHAR_MAX)
3219 hv_store(RETVAL, "int_frac_digits", 15,
3220 newSViv(lcbuf->int_frac_digits), 0);
3221 if (lcbuf->frac_digits != CHAR_MAX)
3222 hv_store(RETVAL, "frac_digits", 11,
3223 newSViv(lcbuf->frac_digits), 0);
3224 if (lcbuf->p_cs_precedes != CHAR_MAX)
3225 hv_store(RETVAL, "p_cs_precedes", 13,
3226 newSViv(lcbuf->p_cs_precedes), 0);
3227 if (lcbuf->p_sep_by_space != CHAR_MAX)
3228 hv_store(RETVAL, "p_sep_by_space", 14,
3229 newSViv(lcbuf->p_sep_by_space), 0);
3230 if (lcbuf->n_cs_precedes != CHAR_MAX)
3231 hv_store(RETVAL, "n_cs_precedes", 13,
3232 newSViv(lcbuf->n_cs_precedes), 0);
3233 if (lcbuf->n_sep_by_space != CHAR_MAX)
3234 hv_store(RETVAL, "n_sep_by_space", 14,
3235 newSViv(lcbuf->n_sep_by_space), 0);
3236 if (lcbuf->p_sign_posn != CHAR_MAX)
3237 hv_store(RETVAL, "p_sign_posn", 11,
3238 newSViv(lcbuf->p_sign_posn), 0);
3239 if (lcbuf->n_sign_posn != CHAR_MAX)
3240 hv_store(RETVAL, "n_sign_posn", 11,
3241 newSViv(lcbuf->n_sign_posn), 0);
3242 }
a0d0e21e
LW		 3243#else
3244 localeconv(); /* A stub to call not_here(). */
3245#endif
2304df62
AD		 3246 OUTPUT:
3247 RETVAL
3248
3249char *
c28ee57b 3250setlocale(category, locale = 0)
2304df62
AD		 3251 int category
3252 char * locale
c28ee57b
JH		 3253 CODE:
3254 RETVAL = setlocale(category, locale);
bbce6d69 3255 if (RETVAL) {
36477c24 3256#ifdef USE_LOCALE_CTYPE
bbce6d69 3257 if (category == LC_CTYPE
3258#ifdef LC_ALL
3259 || category == LC_ALL
3260#endif
3261 )
3262 {
3263 char *newctype;
3264#ifdef LC_ALL
3265 if (category == LC_ALL)
3266 newctype = setlocale(LC_CTYPE, NULL);
3267 else
3268#endif
3269 newctype = RETVAL;
864dbfa3 3270 new_ctype(newctype);
bbce6d69 3271 }
36477c24 3272#endif /* USE_LOCALE_CTYPE */
3273#ifdef USE_LOCALE_COLLATE
bbce6d69 3274 if (category == LC_COLLATE
3275#ifdef LC_ALL
3276 || category == LC_ALL
3277#endif
3278 )
3279 {
3280 char *newcoll;
3281#ifdef LC_ALL
3282 if (category == LC_ALL)
3283 newcoll = setlocale(LC_COLLATE, NULL);
3284 else
3285#endif
3286 newcoll = RETVAL;
864dbfa3 3287 new_collate(newcoll);
bbce6d69 3288 }
36477c24 3289#endif /* USE_LOCALE_COLLATE */
3290#ifdef USE_LOCALE_NUMERIC
bbce6d69 3291 if (category == LC_NUMERIC
3292#ifdef LC_ALL
3293 || category == LC_ALL
3294#endif
3295 )
3296 {
3297 char *newnum;
3298#ifdef LC_ALL
3299 if (category == LC_ALL)
3300 newnum = setlocale(LC_NUMERIC, NULL);
3301 else
3302#endif
3303 newnum = RETVAL;
864dbfa3 3304 new_numeric(newnum);
bbce6d69 3305 }
36477c24 3306#endif /* USE_LOCALE_NUMERIC */
bbce6d69 3307 }
c28ee57b
JH		 3308 OUTPUT:
3309 RETVAL
3310
2304df62
AD		 3311
3312double
3313acos(x)
3314 double x
3315
3316double
3317asin(x)
3318 double x
3319
3320double
3321atan(x)
3322 double x
3323
3324double
3325ceil(x)
3326 double x
3327
3328double
3329cosh(x)
3330 double x
3331
3332double
3333floor(x)
3334 double x
3335
3336double
3337fmod(x,y)
3338 double x
3339 double y
3340
3341void
3342frexp(x)
3343 double x
3344 PPCODE:
3345 int expvar;
2304df62
AD		 3346 /* (We already know stack is long enough.) */
3347 PUSHs(sv_2mortal(newSVnv(frexp(x,&expvar))));
3348 PUSHs(sv_2mortal(newSViv(expvar)));
3349
3350double
3351ldexp(x,exp)
3352 double x
3353 int exp
3354
3355double
3356log10(x)
3357 double x
3358
3359void
3360modf(x)
3361 double x
3362 PPCODE:
3363 double intvar;
2304df62 3364 /* (We already know stack is long enough.) */
bf4acbe4 3365 PUSHs(sv_2mortal(newSVnv(Perl_modf(x,&intvar))));
2304df62
AD		 3366 PUSHs(sv_2mortal(newSVnv(intvar)));
3367
3368double
3369sinh(x)
3370 double x
3371
3372double
3b35bae3
AD		 3373tan(x)
3374 double x
3375
3376double
2304df62
AD		 3377tanh(x)
3378 double x
3379
3380SysRet
3381sigaction(sig, action, oldaction = 0)
3382 int sig
3383 POSIX::SigAction action
3384 POSIX::SigAction oldaction
3385 CODE:
6dead956
GS		 3386#ifdef WIN32
3387 RETVAL = not_here("sigaction");
3388#else
2304df62
AD		 3389# This code is really grody because we're trying to make the signal
3390# interface look beautiful, which is hard.
3391
2304df62 3392 {
f4c556ac 3393 GV *siggv = gv_fetchpv("SIG", TRUE, SVt_PVHV);
2304df62
AD		 3394 struct sigaction act;
3395 struct sigaction oact;
3396 POSIX__SigSet sigset;
3397 SV** svp;
f4c556ac 3398 SV** sigsvp = hv_fetch(GvHVn(siggv),
4ec43091
JH		 3399 PL_sig_name[sig],
3400 strlen(PL_sig_name[sig]),
2304df62 3401 TRUE);
2d8e6c8d 3402 STRLEN n_a;
2304df62
AD		 3403
3404 /* Remember old handler name if desired. */
3405 if (oldaction) {
2d8e6c8d 3406 char *hand = SvPVx(*sigsvp, n_a);
2304df62
AD		 3407 svp = hv_fetch(oldaction, "HANDLER", 7, TRUE);
3408 sv_setpv(*svp, *hand ? hand : "DEFAULT");
3409 }
3410
3411 if (action) {
3412 /* Vector new handler through %SIG. (We always use sighandler
3413 for the C signal handler, which reads %SIG to dispatch.) */
3414 svp = hv_fetch(action, "HANDLER", 7, FALSE);
3415 if (!svp)
3416 croak("Can't supply an action without a HANDLER");
2d8e6c8d 3417 sv_setpv(*sigsvp, SvPV(*svp, n_a));
2304df62 3418 mg_set(*sigsvp); /* handles DEFAULT and IGNORE */
cea2e8a9 3419 act.sa_handler = PL_sighandlerp;
2304df62
AD		 3420
3421 /* Set up any desired mask. */
3422 svp = hv_fetch(action, "MASK", 4, FALSE);
3423 if (svp && sv_isa(*svp, "POSIX::SigSet")) {
a0d0e21e
LW		 3424 unsigned long tmp;
3425 tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
3426 sigset = (sigset_t*) tmp;
2304df62
AD		 3427 act.sa_mask = *sigset;
3428 }
3429 else
85e6fe83 3430 sigemptyset(& act.sa_mask);
2304df62
AD		 3431
3432 /* Set up any desired flags. */
3433 svp = hv_fetch(action, "FLAGS", 5, FALSE);
3434 act.sa_flags = svp ? SvIV(*svp) : 0;
3435 }
3436
3437 /* Now work around sigaction oddities */
3438 if (action && oldaction)
85e6fe83 3439 RETVAL = sigaction(sig, & act, & oact);
2304df62 3440 else if (action)
6c418a22 3441 RETVAL = sigaction(sig, & act, (struct sigaction *)0);
2304df62 3442 else if (oldaction)
6c418a22 3443 RETVAL = sigaction(sig, (struct sigaction *)0, & oact);
a0d0e21e
LW		 3444 else
3445 RETVAL = -1;
2304df62
AD		 3446
3447 if (oldaction) {
3448 /* Get back the mask. */
3449 svp = hv_fetch(oldaction, "MASK", 4, TRUE);
a0d0e21e
LW		 3450 if (sv_isa(*svp, "POSIX::SigSet")) {
3451 unsigned long tmp;
3452 tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
3453 sigset = (sigset_t*) tmp;
3454 }
2304df62 3455 else {
01667c76 3456 New(0, sigset, 1, sigset_t);
56431972 3457 sv_setptrobj(*svp, sigset, "POSIX::SigSet");
2304df62
AD		 3458 }
3459 *sigset = oact.sa_mask;
3460
3461 /* Get back the flags. */
3462 svp = hv_fetch(oldaction, "FLAGS", 5, TRUE);
3463 sv_setiv(*svp, oact.sa_flags);
3464 }
3465 }
6dead956 3466#endif
2304df62
AD		 3467 OUTPUT:
3468 RETVAL
3469
3470SysRet
3471sigpending(sigset)
3472 POSIX::SigSet sigset
3473
3474SysRet
3475sigprocmask(how, sigset, oldsigset = 0)
3476 int how
3477 POSIX::SigSet sigset
33c27489
GS		 3478 POSIX::SigSet oldsigset = NO_INIT
3479INIT:
3480 if ( items < 3 ) {
3481 oldsigset = 0;
3482 }
3483 else if (sv_derived_from(ST(2), "POSIX::SigSet")) {
3484 IV tmp = SvIV((SV*)SvRV(ST(2)));
56431972 3485 oldsigset = INT2PTR(POSIX__SigSet,tmp);
33c27489
GS		 3486 }
3487 else {
01667c76 3488 New(0, oldsigset, 1, sigset_t);
33c27489
GS		 3489 sigemptyset(oldsigset);
3490 sv_setref_pv(ST(2), "POSIX::SigSet", (void*)oldsigset);
3491 }
2304df62
AD		 3492
3493SysRet
3494sigsuspend(signal_mask)
3495 POSIX::SigSet signal_mask
3496
2304df62
AD		 3497void
3498_exit(status)
3499 int status
8990e307 3500
85e6fe83 3501SysRet
8990e307
LW		 3502close(fd)
3503 int fd
3504
85e6fe83 3505SysRet
8990e307
LW		 3506dup(fd)
3507 int fd
3508
85e6fe83 3509SysRet
8990e307
LW		 3510dup2(fd1, fd2)
3511 int fd1
3512 int fd2
3513
94b6baf5 3514SysRetLong
a0d0e21e 3515lseek(fd, offset, whence)
85e6fe83
LW		 3516 int fd
3517 Off_t offset
3518 int whence
8990e307 3519
85e6fe83 3520SysRet
8990e307
LW		 3521nice(incr)
3522 int incr
3523
3524int
8990e307 3525pipe()
85e6fe83
LW		 3526 PPCODE:
3527 int fds[2];
85e6fe83 3528 if (pipe(fds) != -1) {
924508f0 3529 EXTEND(SP,2);
85e6fe83
LW		 3530 PUSHs(sv_2mortal(newSViv(fds[0])));
3531 PUSHs(sv_2mortal(newSViv(fds[1])));
3532 }
8990e307 3533
85e6fe83 3534SysRet
a0d0e21e 3535read(fd, buffer, nbytes)
7747499c
TB		 3536 PREINIT:
3537 SV *sv_buffer = SvROK(ST(1)) ? SvRV(ST(1)) : ST(1);
3538 INPUT:
3539 int fd
3540 size_t nbytes
3541 char * buffer = sv_grow( sv_buffer, nbytes+1 );
a0d0e21e 3542 CLEANUP:
7747499c
TB		 3543 if (RETVAL >= 0) {
3544 SvCUR(sv_buffer) = RETVAL;
3545 SvPOK_only(sv_buffer);
3546 *SvEND(sv_buffer) = '\0';
bbce6d69 3547 SvTAINTED_on(sv_buffer);
7747499c 3548 }
8990e307 3549
85e6fe83 3550SysRet
8990e307
LW		 3551setpgid(pid, pgid)
3552 pid_t pid
3553 pid_t pgid
3554
8990e307
LW		 3555pid_t
3556setsid()
3557
8990e307
LW		 3558pid_t
3559tcgetpgrp(fd)
3560 int fd
3561
85e6fe83 3562SysRet
8990e307
LW		 3563tcsetpgrp(fd, pgrp_id)
3564 int fd
3565 pid_t pgrp_id
3566
3567int
8990e307 3568uname()
2304df62 3569 PPCODE:
a0d0e21e 3570#ifdef HAS_UNAME
85e6fe83 3571 struct utsname buf;
85e6fe83 3572 if (uname(&buf) >= 0) {
924508f0 3573 EXTEND(SP, 5);
85e6fe83
LW		 3574 PUSHs(sv_2mortal(newSVpv(buf.sysname, 0)));
3575 PUSHs(sv_2mortal(newSVpv(buf.nodename, 0)));
3576 PUSHs(sv_2mortal(newSVpv(buf.release, 0)));
3577 PUSHs(sv_2mortal(newSVpv(buf.version, 0)));
3578 PUSHs(sv_2mortal(newSVpv(buf.machine, 0)));
8990e307 3579 }
a0d0e21e
LW		 3580#else
3581 uname((char *) 0); /* A stub to call not_here(). */
3582#endif
8990e307 3583
85e6fe83 3584SysRet
a0d0e21e
LW		 3585write(fd, buffer, nbytes)
3586 int fd
3587 char * buffer
3588 size_t nbytes
3589
33f01dd1
SH		 3590SV *
3591tmpnam()
3592 PREINIT:
3593 STRLEN i;
3594 int len;
3595 CODE:
3596 RETVAL = newSVpvn("", 0);
3597 SvGROW(RETVAL, L_tmpnam);
3598 len = strlen(tmpnam(SvPV(RETVAL, i)));
3599 SvCUR_set(RETVAL, len);
3600 OUTPUT:
3601 RETVAL
a0d0e21e
LW		 3602
3603void
3604abort()
3605
3606int
3607mblen(s, n)
3608 char * s
3609 size_t n
3610
3611size_t
3612mbstowcs(s, pwcs, n)
3613 wchar_t * s
3614 char * pwcs
3615 size_t n
3616
3617int
3618mbtowc(pwc, s, n)
3619 wchar_t * pwc
3620 char * s
3621 size_t n
3622
3623int
3624wcstombs(s, pwcs, n)
3625 char * s
3626 wchar_t * pwcs
3627 size_t n
3628
3629int
3630wctomb(s, wchar)
3631 char * s
3632 wchar_t wchar
3633
3634int
3635strcoll(s1, s2)
3636 char * s1
3637 char * s2
3638
a89d8a78
DH		 3639void
3640strtod(str)
3641 char * str
3642 PREINIT:
3643 double num;
3644 char *unparsed;
3645 PPCODE:
36477c24 3646 SET_NUMERIC_LOCAL();
a89d8a78
DH		 3647 num = strtod(str, &unparsed);
3648 PUSHs(sv_2mortal(newSVnv(num)));
3649 if (GIMME == G_ARRAY) {
924508f0 3650 EXTEND(SP, 1);
a89d8a78
DH		 3651 if (unparsed)
3652 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3653 else
6b88bc9c 3654 PUSHs(&PL_sv_undef);
a89d8a78
DH		 3655 }
3656
3657void
3658strtol(str, base = 0)
3659 char * str
3660 int base
3661 PREINIT:
3662 long num;
3663 char *unparsed;
3664 PPCODE:
3665 num = strtol(str, &unparsed, base);
42718184
RB		 3666#if IVSIZE <= LONGSIZE
3667 if (num < IV_MIN || num > IV_MAX)
a89d8a78 3668 PUSHs(sv_2mortal(newSVnv((double)num)));
42718184
RB		 3669 else
3670#endif
3671 PUSHs(sv_2mortal(newSViv((IV)num)));
a89d8a78 3672 if (GIMME == G_ARRAY) {
924508f0 3673 EXTEND(SP, 1);
a89d8a78
DH		 3674 if (unparsed)
3675 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3676 else
6b88bc9c 3677 PUSHs(&PL_sv_undef);
a89d8a78
DH		 3678 }
3679
3680void
3681strtoul(str, base = 0)
3682 char * str
3683 int base
3684 PREINIT:
3685 unsigned long num;
3686 char *unparsed;
3687 PPCODE:
3688 num = strtoul(str, &unparsed, base);
3689 if (num <= IV_MAX)
3690 PUSHs(sv_2mortal(newSViv((IV)num)));
3691 else
3692 PUSHs(sv_2mortal(newSVnv((double)num)));
3693 if (GIMME == G_ARRAY) {
924508f0 3694 EXTEND(SP, 1);
a89d8a78
DH		 3695 if (unparsed)
3696 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3697 else
6b88bc9c 3698 PUSHs(&PL_sv_undef);
a89d8a78
DH		 3699 }
3700
a0d0e21e
LW		 3701SV *
3702strxfrm(src)
3703 SV * src
85e6fe83 3704 CODE:
a0d0e21e
LW		 3705 {
3706 STRLEN srclen;
3707 STRLEN dstlen;
3708 char *p = SvPV(src,srclen);
3709 srclen++;
748a9306 3710 ST(0) = sv_2mortal(NEWSV(800,srclen));
a0d0e21e
LW		 3711 dstlen = strxfrm(SvPVX(ST(0)), p, (size_t)srclen);
3712 if (dstlen > srclen) {
3713 dstlen++;
3714 SvGROW(ST(0), dstlen);
3715 strxfrm(SvPVX(ST(0)), p, (size_t)dstlen);
3716 dstlen--;
3717 }
3718 SvCUR(ST(0)) = dstlen;
3719 SvPOK_only(ST(0));
3720 }
3721
3722SysRet
3723mkfifo(filename, mode)
3724 char * filename
3725 Mode_t mode
748a9306
LW		 3726 CODE:
3727 TAINT_PROPER("mkfifo");
3728 RETVAL = mkfifo(filename, mode);
3729 OUTPUT:
3730 RETVAL
a0d0e21e
LW		 3731
3732SysRet
3733tcdrain(fd)
3734 int fd
3735
3736
3737SysRet
3738tcflow(fd, action)
3739 int fd
3740 int action
3741
3742
3743SysRet
3744tcflush(fd, queue_selector)
3745 int fd
3746 int queue_selector
3747
3748SysRet
3749tcsendbreak(fd, duration)
3750 int fd
3751 int duration
3752
3753char *
3754asctime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
3755 int sec
3756 int min
3757 int hour
3758 int mday
3759 int mon
3760 int year
3761 int wday
3762 int yday
3763 int isdst
3764 CODE:
3765 {
3766 struct tm mytm;
7747499c 3767 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e
LW		 3768 mytm.tm_sec = sec;
3769 mytm.tm_min = min;
3770 mytm.tm_hour = hour;
3771 mytm.tm_mday = mday;
3772 mytm.tm_mon = mon;
3773 mytm.tm_year = year;
3774 mytm.tm_wday = wday;
3775 mytm.tm_yday = yday;
3776 mytm.tm_isdst = isdst;
3777 RETVAL = asctime(&mytm);
3778 }
3779 OUTPUT:
3780 RETVAL
3781
3782long
3783clock()
3784
3785char *
3786ctime(time)
748a9306 3787 Time_t &time
8990e307 3788
37120919
AD		 3789void
3790times()
3791 PPCODE:
3792 struct tms tms;
3793 clock_t realtime;
3794 realtime = times( &tms );
924508f0 3795 EXTEND(SP,5);
9607fc9c 3796 PUSHs( sv_2mortal( newSViv( (IV) realtime ) ) );
3797 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_utime ) ) );
3798 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_stime ) ) );
3799 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cutime ) ) );
3800 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cstime ) ) );
37120919 3801
a0d0e21e
LW		 3802double
3803difftime(time1, time2)
3804 Time_t time1
3805 Time_t time2
3806
3807SysRetLong
3808mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
3809 int sec
3810 int min
3811 int hour
3812 int mday
3813 int mon
3814 int year
3815 int wday
3816 int yday
3817 int isdst
3818 CODE:
3819 {
3820 struct tm mytm;
7747499c 3821 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e
LW		 3822 mytm.tm_sec = sec;
3823 mytm.tm_min = min;
3824 mytm.tm_hour = hour;
3825 mytm.tm_mday = mday;
3826 mytm.tm_mon = mon;
3827 mytm.tm_year = year;
3828 mytm.tm_wday = wday;
3829 mytm.tm_yday = yday;
3830 mytm.tm_isdst = isdst;
3831 RETVAL = mktime(&mytm);
3832 }
85e6fe83
LW		 3833 OUTPUT:
3834 RETVAL
a0d0e21e
LW		 3835
3836char *
e44f695e 3837strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
a0d0e21e
LW		 3838 char * fmt
3839 int sec
3840 int min
3841 int hour
3842 int mday
3843 int mon
3844 int year
3845 int wday
3846 int yday
3847 int isdst
3848 CODE:
3849 {
3850 char tmpbuf[128];
3851 struct tm mytm;
3852 int len;
7747499c 3853 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e
LW		 3854 mytm.tm_sec = sec;
3855 mytm.tm_min = min;
3856 mytm.tm_hour = hour;
3857 mytm.tm_mday = mday;
3858 mytm.tm_mon = mon;
3859 mytm.tm_year = year;
3860 mytm.tm_wday = wday;
3861 mytm.tm_yday = yday;
3862 mytm.tm_isdst = isdst;
33c0e3ec 3863 mini_mktime(&mytm);
a0d0e21e 3864 len = strftime(tmpbuf, sizeof tmpbuf, fmt, &mytm);
e8227f62
TL		 3865 /*
3866 ** The following is needed to handle to the situation where
3867 ** tmpbuf overflows. Basically we want to allocate a buffer
3868 ** and try repeatedly. The reason why it is so complicated
3869 ** is that getting a return value of 0 from strftime can indicate
3870 ** one of the following:
3871 ** 1. buffer overflowed,
3872 ** 2. illegal conversion specifier, or
3873 ** 3. the format string specifies nothing to be returned(not
3874 ** an error). This could be because format is an empty string
3875 ** or it specifies %p that yields an empty string in some locale.
3876 ** If there is a better way to make it portable, go ahead by
3877 ** all means.
3878 */
25685dc7 3879 if ((len > 0 && len < sizeof(tmpbuf)) || (len == 0 && *fmt == '\0'))
e8227f62 3880 ST(0) = sv_2mortal(newSVpv(tmpbuf, len));
25685dc7 3881 else {
e8227f62 3882 /* Possibly buf overflowed - try again with a bigger buf */
25685dc7
JD		 3883 int fmtlen = strlen(fmt);
3884 int bufsize = fmtlen + sizeof(tmpbuf);
01667c76 3885 char* buf;
e8227f62 3886 int buflen;
01667c76
JD		 3887
3888 New(0, buf, bufsize, char);
25685dc7 3889 while (buf) {
e8227f62 3890 buflen = strftime(buf, bufsize, fmt, &mytm);
25685dc7
JD		 3891 if (buflen > 0 && buflen < bufsize)
3892 break;
3893 /* heuristic to prevent out-of-memory errors */
3894 if (bufsize > 100*fmtlen) {
3895 Safefree(buf);
3896 buf = NULL;
3897 break;
3898 }
e8227f62 3899 bufsize *= 2;
01667c76 3900 Renew(buf, bufsize, char);
e8227f62 3901 }
25685dc7 3902 if (buf) {
79cb57f6 3903 ST(0) = sv_2mortal(newSVpvn(buf, buflen));
01667c76 3904 Safefree(buf);
e8227f62 3905 }
25685dc7
JD		 3906 else
3907 ST(0) = sv_2mortal(newSVpvn(tmpbuf, len));
e8227f62 3908 }
a0d0e21e
LW		 3909 }
3910
3911void
3912tzset()
3913
3914void
3915tzname()
3916 PPCODE:
924508f0 3917 EXTEND(SP,2);
79cb57f6
GS		 3918 PUSHs(sv_2mortal(newSVpvn(tzname[0],strlen(tzname[0]))));
3919 PUSHs(sv_2mortal(newSVpvn(tzname[1],strlen(tzname[1]))));
a0d0e21e
LW		 3920
3921SysRet
3922access(filename, mode)
3923 char * filename
3924 Mode_t mode
3925
3926char *
3927ctermid(s = 0)
3928 char * s = 0;
3929
3930char *
3931cuserid(s = 0)
3932 char * s = 0;
3933
3934SysRetLong
3935fpathconf(fd, name)
3936 int fd
3937 int name
3938
3939SysRetLong
3940pathconf(filename, name)
3941 char * filename
3942 int name
3943
3944SysRet
3945pause()
3946
3947SysRetLong
3948sysconf(name)
3949 int name
3950
3951char *
3952ttyname(fd)
3953 int fd
Unnamed repository; edit this file 'description' to name the repository.