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