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