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