projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
PL_ prefix to all perlvars, part1
[p5sagit/p5-mst-13.2.git] / ext / POSIX / POSIX.xs
CommitLineData
6dead956 1#ifdef WIN32
2#define _POSIX_
3#endif
463ee0b2 4#include "EXTERN.h"
760ac839 5#define PERLIO_NOT_STDIO 1
463ee0b2 6#include "perl.h"
7#include "XSUB.h"
35ff7856 8#ifdef PERL_OBJECT /* XXX _very_ temporary hacks */
873ef191 9# undef signal
10# undef open
35ff7856 11# define open PerlLIO_open3
873ef191 12# undef TAINT_PROPER
35ff7856 13# define TAINT_PROPER(a)
873ef191 14#endif
2304df62 15#include <ctype.h>
a0d0e21e 16#ifdef I_DIRENT /* XXX maybe better to just rely on perl.h? */
2304df62 17#include <dirent.h>
a0d0e21e 18#endif
2304df62 19#include <errno.h>
2304df62 20#ifdef I_FLOAT
21#include <float.h>
22#endif
a0d0e21e 23#ifdef I_LIMITS
2304df62 24#include <limits.h>
a0d0e21e 25#endif
2304df62 26#include <locale.h>
27#include <math.h>
85e6fe83 28#ifdef I_PWD
2304df62 29#include <pwd.h>
85e6fe83 30#endif
2304df62 31#include <setjmp.h>
32#include <signal.h>
2304df62 33#include <stdarg.h>
17c3b450 34
2304df62 35#ifdef I_STDDEF
36#include <stddef.h>
37#endif
6990d991 38
a0d0e21e 39/* XXX This comment is just to make I_TERMIO and I_SGTTY visible to
40 metaconfig for future extension writers. We don't use them in POSIX.
41 (This is really sneaky :-) --AD
42*/
43#if defined(I_TERMIOS)
44#include <termios.h>
45#endif
a0d0e21e 46#ifdef I_STDLIB
2304df62 47#include <stdlib.h>
a0d0e21e 48#endif
2304df62 49#include <string.h>
50#include <sys/stat.h>
2304df62 51#include <sys/types.h>
2304df62 52#include <time.h>
6dead956 53#ifdef I_UNISTD
1d2dff63 54#include <unistd.h>
6dead956 55#endif
71be2cbc 56#include <fcntl.h>
57
6c418a22 58#if defined(__VMS) && !defined(__POSIX_SOURCE)
6c418a22 59# include <libdef.h> /* LIB$_INVARG constant */
60# include <lib$routines.h> /* prototype for lib$ediv() */
61# include <starlet.h> /* prototype for sys$gettim() */
774d564b 62# if DECC_VERSION < 50000000
63# define pid_t int /* old versions of DECC miss this in types.h */
64# endif
6c418a22 65
6990d991 66# undef mkfifo
6c418a22 67# define mkfifo(a,b) (not_here("mkfifo"),-1)
68# define tzset() not_here("tzset")
69
5f6761f9 70#if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)
71# define HAS_TZNAME /* shows up in VMS 7.0 or Dec C 5.6 */
72# include <utsname.h>
5f6761f9 73# endif /* __VMS_VER >= 70000000 or Dec C 5.6 */
6c418a22 74
75 /* The POSIX notion of ttyname() is better served by getname() under VMS */
76 static char ttnambuf[64];
77# define ttyname(fd) (isatty(fd) > 0 ? getname(fd,ttnambuf,0) : NULL)
78
79 /* The non-POSIX CRTL times() has void return type, so we just get the
80 current time directly */
81 clock_t vms_times(struct tms *bufptr) {
82 clock_t retval;
83 /* Get wall time and convert to 10 ms intervals to
84 * produce the return value that the POSIX standard expects */
85# if defined(__DECC) && defined (__ALPHA)
86# include <ints.h>
87 uint64 vmstime;
88 _ckvmssts(sys$gettim(&vmstime));
89 vmstime /= 100000;
90 retval = vmstime & 0x7fffffff;
91# else
92 /* (Older hw or ccs don't have an atomic 64-bit type, so we
93 * juggle 32-bit ints (and a float) to produce a time_t result
94 * with minimal loss of information.) */
95 long int vmstime[2],remainder,divisor = 100000;
96 _ckvmssts(sys$gettim((unsigned long int *)vmstime));
97 vmstime[1] &= 0x7fff; /* prevent overflow in EDIV */
98 _ckvmssts(lib$ediv(&divisor,vmstime,(long int *)&retval,&remainder));
99# endif
100 /* Fill in the struct tms using the CRTL routine . . .*/
101 times((tbuffer_t *)bufptr);
102 return (clock_t) retval;
103 }
104# define times(t) vms_times(t)
105#else
6dead956 106#if defined (WIN32)
6990d991 107# undef mkfifo
6dead956 108# define mkfifo(a,b) not_here("mkfifo")
873ef191 109# define ttyname(a) (char*)not_here("ttyname")
6dead956 110# define sigset_t long
111# define pid_t long
112# ifdef __BORLANDC__
113# define tzname _tzname
114# endif
115# ifdef _MSC_VER
116# define mode_t short
117# endif
62520c91 118# ifdef __MINGW32__
119# define mode_t short
f6c6487a 120# ifndef tzset
121# define tzset() not_here("tzset")
122# endif
123# ifndef _POSIX_OPEN_MAX
124# define _POSIX_OPEN_MAX FOPEN_MAX /* XXX bogus ? */
125# endif
62520c91 126# endif
6dead956 127# define sigaction(a,b,c) not_here("sigaction")
128# define sigpending(a) not_here("sigpending")
129# define sigprocmask(a,b,c) not_here("sigprocmask")
130# define sigsuspend(a) not_here("sigsuspend")
131# define sigemptyset(a) not_here("sigemptyset")
132# define sigaddset(a,b) not_here("sigaddset")
133# define sigdelset(a,b) not_here("sigdelset")
134# define sigfillset(a) not_here("sigfillset")
135# define sigismember(a,b) not_here("sigismember")
136#else
6990d991 137
138# ifndef HAS_MKFIFO
139# ifndef mkfifo
140# define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0))
141# endif
142# endif /* !HAS_MKFIFO */
143
6c418a22 144# include <grp.h>
145# include <sys/times.h>
146# ifdef HAS_UNAME
147# include <sys/utsname.h>
148# endif
149# include <sys/wait.h>
150# ifdef I_UTIME
151# include <utime.h>
152# endif
6dead956 153#endif /* WIN32 */
154#endif /* __VMS */
2304df62 155
156typedef int SysRet;
a0d0e21e 157typedef long SysRetLong;
2304df62 158typedef sigset_t* POSIX__SigSet;
159typedef HV* POSIX__SigAction;
a0d0e21e 160#ifdef I_TERMIOS
161typedef struct termios* POSIX__Termios;
162#else /* Define termios types to int, and call not_here for the functions.*/
163#define POSIX__Termios int
164#define speed_t int
165#define tcflag_t int
166#define cc_t int
167#define cfgetispeed(x) not_here("cfgetispeed")
168#define cfgetospeed(x) not_here("cfgetospeed")
169#define tcdrain(x) not_here("tcdrain")
170#define tcflush(x,y) not_here("tcflush")
171#define tcsendbreak(x,y) not_here("tcsendbreak")
172#define cfsetispeed(x,y) not_here("cfsetispeed")
173#define cfsetospeed(x,y) not_here("cfsetospeed")
174#define ctermid(x) (char *) not_here("ctermid")
175#define tcflow(x,y) not_here("tcflow")
176#define tcgetattr(x,y) not_here("tcgetattr")
177#define tcsetattr(x,y,z) not_here("tcsetattr")
178#endif
179
180/* Possibly needed prototypes */
181char *cuserid _((char *));
a89d8a78 182double strtod _((const char *, char **));
183long strtol _((const char *, char **, int));
184unsigned long strtoul _((const char *, char **, int));
a0d0e21e 185
186#ifndef HAS_CUSERID
187#define cuserid(a) (char *) not_here("cuserid")
188#endif
189#ifndef HAS_DIFFTIME
190#ifndef difftime
191#define difftime(a,b) not_here("difftime")
192#endif
193#endif
194#ifndef HAS_FPATHCONF
195#define fpathconf(f,n) (SysRetLong) not_here("fpathconf")
196#endif
197#ifndef HAS_MKTIME
198#define mktime(a) not_here("mktime")
8990e307 199#endif
200#ifndef HAS_NICE
201#define nice(a) not_here("nice")
202#endif
a0d0e21e 203#ifndef HAS_PATHCONF
204#define pathconf(f,n) (SysRetLong) not_here("pathconf")
205#endif
206#ifndef HAS_SYSCONF
207#define sysconf(n) (SysRetLong) not_here("sysconf")
208#endif
8990e307 209#ifndef HAS_READLINK
210#define readlink(a,b,c) not_here("readlink")
211#endif
212#ifndef HAS_SETPGID
213#define setpgid(a,b) not_here("setpgid")
214#endif
8990e307 215#ifndef HAS_SETSID
216#define setsid() not_here("setsid")
217#endif
a0d0e21e 218#ifndef HAS_STRCOLL
219#define strcoll(s1,s2) not_here("strcoll")
220#endif
a89d8a78 221#ifndef HAS_STRTOD
222#define strtod(s1,s2) not_here("strtod")
223#endif
224#ifndef HAS_STRTOL
225#define strtol(s1,s2,b) not_here("strtol")
226#endif
227#ifndef HAS_STRTOUL
228#define strtoul(s1,s2,b) not_here("strtoul")
229#endif
a0d0e21e 230#ifndef HAS_STRXFRM
231#define strxfrm(s1,s2,n) not_here("strxfrm")
8990e307 232#endif
233#ifndef HAS_TCGETPGRP
234#define tcgetpgrp(a) not_here("tcgetpgrp")
235#endif
236#ifndef HAS_TCSETPGRP
237#define tcsetpgrp(a,b) not_here("tcsetpgrp")
238#endif
239#ifndef HAS_TIMES
240#define times(a) not_here("times")
241#endif
242#ifndef HAS_UNAME
243#define uname(a) not_here("uname")
244#endif
245#ifndef HAS_WAITPID
246#define waitpid(a,b,c) not_here("waitpid")
247#endif
248
a0d0e21e 249#ifndef HAS_MBLEN
250#ifndef mblen
251#define mblen(a,b) not_here("mblen")
252#endif
253#endif
254#ifndef HAS_MBSTOWCS
255#define mbstowcs(s, pwcs, n) not_here("mbstowcs")
256#endif
257#ifndef HAS_MBTOWC
258#define mbtowc(pwc, s, n) not_here("mbtowc")
259#endif
260#ifndef HAS_WCSTOMBS
261#define wcstombs(s, pwcs, n) not_here("wcstombs")
262#endif
263#ifndef HAS_WCTOMB
264#define wctomb(s, wchar) not_here("wcstombs")
265#endif
266#if !defined(HAS_MBLEN) && !defined(HAS_MBSTOWCS) && !defined(HAS_MBTOWC) && !defined(HAS_WCSTOMBS) && !defined(HAS_WCTOMB)
267/* If we don't have these functions, then we wouldn't have gotten a typedef
268 for wchar_t, the wide character type. Defining wchar_t allows the
269 functions referencing it to compile. Its actual type is then meaningless,
270 since without the above functions, all sections using it end up calling
271 not_here() and croak. --Kaveh Ghazi (ghazi@noc.rutgers.edu) 9/18/94. */
272#ifndef wchar_t
273#define wchar_t char
274#endif
275#endif
276
277#ifndef HAS_LOCALECONV
278#define localeconv() not_here("localeconv")
279#endif
280
281#ifdef HAS_TZNAME
62520c91 282# ifndef WIN32
a0d0e21e 283extern char *tzname[];
62520c91 284# endif
a0d0e21e 285#else
fa4efe8e 286#if !defined(WIN32) || (defined(__MINGW32__) && !defined(tzname))
a0d0e21e 287char *tzname[] = { "" , "" };
288#endif
eda5ff31 289#endif
a0d0e21e 290
7747499c 291/* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSIX)
292 * fields for which we don't have Configure support yet:
293 * char *tm_zone; -- abbreviation of timezone name
294 * long tm_gmtoff; -- offset from GMT in seconds
295 * To workaround core dumps from the uninitialised tm_zone we get the
296 * system to give us a reasonable struct to copy. This fix means that
297 * strftime uses the tm_zone and tm_gmtoff values returned by
298 * localtime(time()). That should give the desired result most of the
299 * time. But probably not always!
300 *
301 * This is a temporary workaround to be removed once Configure
302 * support is added and NETaa14816 is considered in full.
303 * It does not address tzname aspects of NETaa14816.
304 */
dfe9444c 305#ifdef HAS_GNULIBC
306# ifndef STRUCT_TM_HASZONE
307# define STRUCT_TM_HAS_ZONE
308# endif
309#endif
310
7747499c 311#ifdef STRUCT_TM_HASZONE
312static void
313init_tm(ptm) /* see mktime, strftime and asctime */
314 struct tm *ptm;
315{
316 Time_t now;
317 (void)time(&now);
318 Copy(localtime(&now), ptm, 1, struct tm);
319}
320
321#else
322# define init_tm(ptm)
323#endif
324
325
dc45a647 326#ifdef HAS_LONG_DOUBLE
327# if LONG_DOUBLESIZE > DOUBLESIZE
328# undef HAS_LONG_DOUBLE /* XXX until we figure out how to use them */
329# endif
330#endif
331
332#ifndef HAS_LONG_DOUBLE
a0d0e21e 333#ifdef LDBL_MAX
334#undef LDBL_MAX
335#endif
336#ifdef LDBL_MIN
337#undef LDBL_MIN
338#endif
339#ifdef LDBL_EPSILON
340#undef LDBL_EPSILON
341#endif
342#endif
343
8990e307 344static int
f0f333f4 345not_here(char *s)
8990e307 346{
347 croak("POSIX::%s not implemented on this architecture", s);
348 return -1;
349}
463ee0b2 350
640cc986 351static
352#ifdef HAS_LONG_DOUBLE
353long double
354#else
355double
356#endif
f0f333f4 357constant(char *name, int arg)
2304df62 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 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 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 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 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 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 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 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 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 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 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 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 903#else
904 goto not_there;
905#endif
774d564b 906 if (strEQ(name, "ENOTCONN"))
907#ifdef ENOTCONN
908 return ENOTCONN;
2304df62 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 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 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 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 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 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 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 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 1298 if (strEQ(name, "FD_CLOEXEC"))
1299#ifdef FD_CLOEXEC
1300 return FD_CLOEXEC;
1301#else
1302 goto not_there;
1303#endif
2304df62 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 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
68dc0745 1734 if (strEQ(name, "SIG_DFL")) return (IV)SIG_DFL;
2304df62 1735#endif
1736#ifdef SIG_ERR
68dc0745 1737 if (strEQ(name, "SIG_ERR")) return (IV)SIG_ERR;
2304df62 1738#endif
1739#ifdef SIG_IGN
68dc0745 1740 if (strEQ(name, "SIG_IGN")) return (IV)SIG_IGN;
2304df62 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 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 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 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 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 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 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 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 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"))
491527d0 2317#if defined(_PC_CHOWN_RESTRICTED) || HINT_SC_EXIST
2304df62 2318 return _PC_CHOWN_RESTRICTED;
2319#else
2320 goto not_there;
2321#endif
2322 if (strEQ(name, "_PC_LINK_MAX"))
491527d0 2323#if defined(_PC_LINK_MAX) || HINT_SC_EXIST
2304df62 2324 return _PC_LINK_MAX;
2325#else
2326 goto not_there;
2327#endif
2328 if (strEQ(name, "_PC_MAX_CANON"))
491527d0 2329#if defined(_PC_MAX_CANON) || HINT_SC_EXIST
2304df62 2330 return _PC_MAX_CANON;
2331#else
2332 goto not_there;
2333#endif
2334 if (strEQ(name, "_PC_MAX_INPUT"))
491527d0 2335#if defined(_PC_MAX_INPUT) || HINT_SC_EXIST
2304df62 2336 return _PC_MAX_INPUT;
2337#else
2338 goto not_there;
2339#endif
2340 if (strEQ(name, "_PC_NAME_MAX"))
491527d0 2341#if defined(_PC_NAME_MAX) || HINT_SC_EXIST
2304df62 2342 return _PC_NAME_MAX;
2343#else
2344 goto not_there;
2345#endif
2346 if (strEQ(name, "_PC_NO_TRUNC"))
491527d0 2347#if defined(_PC_NO_TRUNC) || HINT_SC_EXIST
2304df62 2348 return _PC_NO_TRUNC;
2349#else
2350 goto not_there;
2351#endif
2352 if (strEQ(name, "_PC_PATH_MAX"))
491527d0 2353#if defined(_PC_PATH_MAX) || HINT_SC_EXIST
2304df62 2354 return _PC_PATH_MAX;
2355#else
2356 goto not_there;
2357#endif
2358 if (strEQ(name, "_PC_PIPE_BUF"))
491527d0 2359#if defined(_PC_PIPE_BUF) || HINT_SC_EXIST
2304df62 2360 return _PC_PIPE_BUF;
2361#else
2362 goto not_there;
2363#endif
2364 if (strEQ(name, "_PC_VDISABLE"))
491527d0 2365#if defined(_PC_VDISABLE) || HINT_SC_EXIST
2304df62 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"))
491527d0 2491#if defined(_SC_ARG_MAX) || HINT_SC_EXIST
2304df62 2492 return _SC_ARG_MAX;
2493#else
2494 goto not_there;
2495#endif
2496 if (strEQ(name, "_SC_CHILD_MAX"))
491527d0 2497#if defined(_SC_CHILD_MAX) || HINT_SC_EXIST
2304df62 2498 return _SC_CHILD_MAX;
2499#else
2500 goto not_there;
2501#endif
2502 if (strEQ(name, "_SC_CLK_TCK"))
491527d0 2503#if defined(_SC_CLK_TCK) || HINT_SC_EXIST
2304df62 2504 return _SC_CLK_TCK;
2505#else
2506 goto not_there;
2507#endif
2508 if (strEQ(name, "_SC_JOB_CONTROL"))
491527d0 2509#if defined(_SC_JOB_CONTROL) || HINT_SC_EXIST
2304df62 2510 return _SC_JOB_CONTROL;
2511#else
2512 goto not_there;
2513#endif
2514 if (strEQ(name, "_SC_NGROUPS_MAX"))
491527d0 2515#if defined(_SC_NGROUPS_MAX) || HINT_SC_EXIST
2304df62 2516 return _SC_NGROUPS_MAX;
2517#else
2518 goto not_there;
2519#endif
2520 if (strEQ(name, "_SC_OPEN_MAX"))
491527d0 2521#if defined(_SC_OPEN_MAX) || HINT_SC_EXIST
2304df62 2522 return _SC_OPEN_MAX;
2523#else
2524 goto not_there;
2525#endif
2526 if (strEQ(name, "_SC_SAVED_IDS"))
491527d0 2527#if defined(_SC_SAVED_IDS) || HINT_SC_EXIST
2304df62 2528 return _SC_SAVED_IDS;
2529#else
2530 goto not_there;
2531#endif
2532 if (strEQ(name, "_SC_STREAM_MAX"))
491527d0 2533#if defined(_SC_STREAM_MAX) || HINT_SC_EXIST
2304df62 2534 return _SC_STREAM_MAX;
2535#else
2536 goto not_there;
2537#endif
2538 if (strEQ(name, "_SC_TZNAME_MAX"))
491527d0 2539#if defined(_SC_TZNAME_MAX) || HINT_SC_EXIST
2304df62 2540 return _SC_TZNAME_MAX;
2541#else
2542 goto not_there;
2543#endif
2544 if (strEQ(name, "_SC_VERSION"))
491527d0 2545#if defined(_SC_VERSION) || HINT_SC_EXIST
2304df62 2546 return _SC_VERSION;
2547#else
2548 goto not_there;
2549#endif
2550 break;
2551 }
2304df62 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 2572 sigaddset(RETVAL, SvIV(ST(i)));
2573 }
2574 OUTPUT:
2575 RETVAL
463ee0b2 2576
8990e307 2577void
2304df62 2578DESTROY(sigset)
2579 POSIX::SigSet sigset
2580 CODE:
a0d0e21e 2581 safefree((char *)sigset);
2304df62 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 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");
640cc986 2618 RETVAL = 0;
a0d0e21e 2619#endif
2620 }
2621 OUTPUT:
2622 RETVAL
2623
2624void
2625DESTROY(termios_ref)
2626 POSIX::Termios termios_ref
2627 CODE:
2628#ifdef I_TERMIOS
2629 safefree((char *)termios_ref);
2630#else
2631 not_here("termios");
2632#endif
2633
2634SysRet
2635getattr(termios_ref, fd = 0)
2636 POSIX::Termios termios_ref
2637 int fd
2638 CODE:
2639 RETVAL = tcgetattr(fd, termios_ref);
2640 OUTPUT:
2641 RETVAL
2642
2643SysRet
2644setattr(termios_ref, fd = 0, optional_actions = 0)
2645 POSIX::Termios termios_ref
2646 int fd
2647 int optional_actions
2648 CODE:
2649 RETVAL = tcsetattr(fd, optional_actions, termios_ref);
2650 OUTPUT:
2651 RETVAL
2652
2653speed_t
2654cfgetispeed(termios_ref)
2655 POSIX::Termios termios_ref
2656
2657speed_t
2658cfgetospeed(termios_ref)
2659 POSIX::Termios termios_ref
2660
2661tcflag_t
2662getiflag(termios_ref)
2663 POSIX::Termios termios_ref
2664 CODE:
2665#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2666 RETVAL = termios_ref->c_iflag;
2667#else
640cc986 2668 not_here("getiflag");
2669 RETVAL = 0;
a0d0e21e 2670#endif
2671 OUTPUT:
2672 RETVAL
2673
2674tcflag_t
2675getoflag(termios_ref)
2676 POSIX::Termios termios_ref
2677 CODE:
2678#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2679 RETVAL = termios_ref->c_oflag;
2680#else
640cc986 2681 not_here("getoflag");
2682 RETVAL = 0;
a0d0e21e 2683#endif
2684 OUTPUT:
2685 RETVAL
2686
2687tcflag_t
2688getcflag(termios_ref)
2689 POSIX::Termios termios_ref
2690 CODE:
2691#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2692 RETVAL = termios_ref->c_cflag;
2693#else
640cc986 2694 not_here("getcflag");
2695 RETVAL = 0;
a0d0e21e 2696#endif
2697 OUTPUT:
2698 RETVAL
2699
2700tcflag_t
2701getlflag(termios_ref)
2702 POSIX::Termios termios_ref
2703 CODE:
2704#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2705 RETVAL = termios_ref->c_lflag;
2706#else
640cc986 2707 not_here("getlflag");
2708 RETVAL = 0;
a0d0e21e 2709#endif
2710 OUTPUT:
2711 RETVAL
2712
2713cc_t
2714getcc(termios_ref, ccix)
2715 POSIX::Termios termios_ref
2716 int ccix
2717 CODE:
2718#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2719 if (ccix >= NCCS)
2720 croak("Bad getcc subscript");
2721 RETVAL = termios_ref->c_cc[ccix];
2722#else
640cc986 2723 not_here("getcc");
2724 RETVAL = 0;
a0d0e21e 2725#endif
2726 OUTPUT:
2727 RETVAL
2728
2729SysRet
2730cfsetispeed(termios_ref, speed)
2731 POSIX::Termios termios_ref
2732 speed_t speed
2733
2734SysRet
2735cfsetospeed(termios_ref, speed)
2736 POSIX::Termios termios_ref
2737 speed_t speed
2738
2739void
2740setiflag(termios_ref, iflag)
2741 POSIX::Termios termios_ref
2742 tcflag_t iflag
2743 CODE:
2744#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2745 termios_ref->c_iflag = iflag;
2746#else
2747 not_here("setiflag");
2748#endif
2749
2750void
2751setoflag(termios_ref, oflag)
2752 POSIX::Termios termios_ref
2753 tcflag_t oflag
2754 CODE:
2755#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2756 termios_ref->c_oflag = oflag;
2757#else
2758 not_here("setoflag");
2759#endif
2760
2761void
2762setcflag(termios_ref, cflag)
2763 POSIX::Termios termios_ref
2764 tcflag_t cflag
2765 CODE:
2766#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2767 termios_ref->c_cflag = cflag;
2768#else
2769 not_here("setcflag");
2770#endif
2771
2772void
2773setlflag(termios_ref, lflag)
2774 POSIX::Termios termios_ref
2775 tcflag_t lflag
2776 CODE:
2777#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2778 termios_ref->c_lflag = lflag;
2779#else
2780 not_here("setlflag");
2781#endif
2782
2783void
2784setcc(termios_ref, ccix, cc)
2785 POSIX::Termios termios_ref
2786 int ccix
2787 cc_t cc
2788 CODE:
2789#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
2790 if (ccix >= NCCS)
2791 croak("Bad setcc subscript");
2792 termios_ref->c_cc[ccix] = cc;
2793#else
2794 not_here("setcc");
2795#endif
2796
2797
a0d0e21e 2798MODULE = POSIX PACKAGE = POSIX
2799
2800double
2304df62 2801constant(name,arg)
2802 char * name
2803 int arg
2804
2805int
2806isalnum(charstring)
5344da4e 2807 unsigned char * charstring
2304df62 2808 CODE:
5344da4e 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 2812 if (!isalnum(*s))
2813 RETVAL = 0;
2814 OUTPUT:
2815 RETVAL
2816
2817int
2818isalpha(charstring)
5344da4e 2819 unsigned char * charstring
2304df62 2820 CODE:
5344da4e 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 2824 if (!isalpha(*s))
2825 RETVAL = 0;
2826 OUTPUT:
2827 RETVAL
2828
2829int
2830iscntrl(charstring)
5344da4e 2831 unsigned char * charstring
2304df62 2832 CODE:
5344da4e 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 2836 if (!iscntrl(*s))
2837 RETVAL = 0;
2838 OUTPUT:
2839 RETVAL
2840
2841int
2842isdigit(charstring)
5344da4e 2843 unsigned char * charstring
2304df62 2844 CODE:
5344da4e 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 2848 if (!isdigit(*s))
2849 RETVAL = 0;
2850 OUTPUT:
2851 RETVAL
2852
2853int
2854isgraph(charstring)
5344da4e 2855 unsigned char * charstring
2304df62 2856 CODE:
5344da4e 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 2860 if (!isgraph(*s))
2861 RETVAL = 0;
2862 OUTPUT:
2863 RETVAL
2864
2865int
2866islower(charstring)
5344da4e 2867 unsigned char * charstring
2304df62 2868 CODE:
5344da4e 2869 unsigned char *s = charstring;
2870 unsigned char *e = s + na; /* "na" set by typemap side effect */
2871 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2872 if (!islower(*s))
2873 RETVAL = 0;
2874 OUTPUT:
2875 RETVAL
2876
2877int
2878isprint(charstring)
5344da4e 2879 unsigned char * charstring
2304df62 2880 CODE:
5344da4e 2881 unsigned char *s = charstring;
2882 unsigned char *e = s + na; /* "na" set by typemap side effect */
2883 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2884 if (!isprint(*s))
2885 RETVAL = 0;
2886 OUTPUT:
2887 RETVAL
2888
2889int
2890ispunct(charstring)
5344da4e 2891 unsigned char * charstring
2304df62 2892 CODE:
5344da4e 2893 unsigned char *s = charstring;
2894 unsigned char *e = s + na; /* "na" set by typemap side effect */
2895 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2896 if (!ispunct(*s))
2897 RETVAL = 0;
2898 OUTPUT:
2899 RETVAL
2900
2901int
2902isspace(charstring)
5344da4e 2903 unsigned char * charstring
2304df62 2904 CODE:
5344da4e 2905 unsigned char *s = charstring;
2906 unsigned char *e = s + na; /* "na" set by typemap side effect */
2907 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2908 if (!isspace(*s))
2909 RETVAL = 0;
2910 OUTPUT:
2911 RETVAL
8990e307 2912
2913int
2304df62 2914isupper(charstring)
5344da4e 2915 unsigned char * charstring
2304df62 2916 CODE:
5344da4e 2917 unsigned char *s = charstring;
2918 unsigned char *e = s + na; /* "na" set by typemap side effect */
2919 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2920 if (!isupper(*s))
2921 RETVAL = 0;
2922 OUTPUT:
2923 RETVAL
8990e307 2924
2925int
2304df62 2926isxdigit(charstring)
5344da4e 2927 unsigned char * charstring
2304df62 2928 CODE:
5344da4e 2929 unsigned char *s = charstring;
2930 unsigned char *e = s + na; /* "na" set by typemap side effect */
2931 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 2932 if (!isxdigit(*s))
2933 RETVAL = 0;
2934 OUTPUT:
2935 RETVAL
2936
2937SysRet
2938open(filename, flags = O_RDONLY, mode = 0666)
2939 char * filename
2940 int flags
a0d0e21e 2941 Mode_t mode
748a9306 2942 CODE:
2943 if (flags & (O_APPEND|O_CREAT|O_TRUNC|O_RDWR|O_WRONLY|O_EXCL))
2944 TAINT_PROPER("open");
2945 RETVAL = open(filename, flags, mode);
2946 OUTPUT:
2947 RETVAL
2948
2304df62 2949
2950HV *
2951localeconv()
2952 CODE:
a0d0e21e 2953#ifdef HAS_LOCALECONV
2304df62 2954 struct lconv *lcbuf;
2955 RETVAL = newHV();
5f05dabc 2956 SET_NUMERIC_LOCAL();
2304df62 2957 if (lcbuf = localeconv()) {
2958 /* the strings */
2959 if (lcbuf->decimal_point && *lcbuf->decimal_point)
2960 hv_store(RETVAL, "decimal_point", 13,
2961 newSVpv(lcbuf->decimal_point, 0), 0);
2962 if (lcbuf->thousands_sep && *lcbuf->thousands_sep)
2963 hv_store(RETVAL, "thousands_sep", 13,
2964 newSVpv(lcbuf->thousands_sep, 0), 0);
28e8609d 2965#ifndef NO_LOCALECONV_GROUPING
2304df62 2966 if (lcbuf->grouping && *lcbuf->grouping)
2967 hv_store(RETVAL, "grouping", 8,
2968 newSVpv(lcbuf->grouping, 0), 0);
28e8609d 2969#endif
2304df62 2970 if (lcbuf->int_curr_symbol && *lcbuf->int_curr_symbol)
2971 hv_store(RETVAL, "int_curr_symbol", 15,
2972 newSVpv(lcbuf->int_curr_symbol, 0), 0);
2973 if (lcbuf->currency_symbol && *lcbuf->currency_symbol)
2974 hv_store(RETVAL, "currency_symbol", 15,
2975 newSVpv(lcbuf->currency_symbol, 0), 0);
2976 if (lcbuf->mon_decimal_point && *lcbuf->mon_decimal_point)
2977 hv_store(RETVAL, "mon_decimal_point", 17,
2978 newSVpv(lcbuf->mon_decimal_point, 0), 0);
39e571d4 2979#ifndef NO_LOCALECONV_MON_THOUSANDS_SEP
2304df62 2980 if (lcbuf->mon_thousands_sep && *lcbuf->mon_thousands_sep)
2981 hv_store(RETVAL, "mon_thousands_sep", 17,
2982 newSVpv(lcbuf->mon_thousands_sep, 0), 0);
39e571d4 2983#endif
28e8609d 2984#ifndef NO_LOCALECONV_MON_GROUPING
2304df62 2985 if (lcbuf->mon_grouping && *lcbuf->mon_grouping)
2986 hv_store(RETVAL, "mon_grouping", 12,
2987 newSVpv(lcbuf->mon_grouping, 0), 0);
28e8609d 2988#endif
2304df62 2989 if (lcbuf->positive_sign && *lcbuf->positive_sign)
2990 hv_store(RETVAL, "positive_sign", 13,
2991 newSVpv(lcbuf->positive_sign, 0), 0);
2992 if (lcbuf->negative_sign && *lcbuf->negative_sign)
2993 hv_store(RETVAL, "negative_sign", 13,
2994 newSVpv(lcbuf->negative_sign, 0), 0);
2995 /* the integers */
2996 if (lcbuf->int_frac_digits != CHAR_MAX)
2997 hv_store(RETVAL, "int_frac_digits", 15,
2998 newSViv(lcbuf->int_frac_digits), 0);
2999 if (lcbuf->frac_digits != CHAR_MAX)
3000 hv_store(RETVAL, "frac_digits", 11,
3001 newSViv(lcbuf->frac_digits), 0);
3002 if (lcbuf->p_cs_precedes != CHAR_MAX)
3003 hv_store(RETVAL, "p_cs_precedes", 13,
3004 newSViv(lcbuf->p_cs_precedes), 0);
3005 if (lcbuf->p_sep_by_space != CHAR_MAX)
3006 hv_store(RETVAL, "p_sep_by_space", 14,
3007 newSViv(lcbuf->p_sep_by_space), 0);
3008 if (lcbuf->n_cs_precedes != CHAR_MAX)
3009 hv_store(RETVAL, "n_cs_precedes", 13,
3010 newSViv(lcbuf->n_cs_precedes), 0);
3011 if (lcbuf->n_sep_by_space != CHAR_MAX)
3012 hv_store(RETVAL, "n_sep_by_space", 14,
3013 newSViv(lcbuf->n_sep_by_space), 0);
3014 if (lcbuf->p_sign_posn != CHAR_MAX)
3015 hv_store(RETVAL, "p_sign_posn", 11,
3016 newSViv(lcbuf->p_sign_posn), 0);
3017 if (lcbuf->n_sign_posn != CHAR_MAX)
3018 hv_store(RETVAL, "n_sign_posn", 11,
3019 newSViv(lcbuf->n_sign_posn), 0);
3020 }
a0d0e21e 3021#else
3022 localeconv(); /* A stub to call not_here(). */
3023#endif
2304df62 3024 OUTPUT:
3025 RETVAL
3026
3027char *
c28ee57b 3028setlocale(category, locale = 0)
2304df62 3029 int category
3030 char * locale
c28ee57b 3031 CODE:
3032 RETVAL = setlocale(category, locale);
bbce6d69 3033 if (RETVAL) {
36477c24 3034#ifdef USE_LOCALE_CTYPE
bbce6d69 3035 if (category == LC_CTYPE
3036#ifdef LC_ALL
3037 || category == LC_ALL
3038#endif
3039 )
3040 {
3041 char *newctype;
3042#ifdef LC_ALL
3043 if (category == LC_ALL)
3044 newctype = setlocale(LC_CTYPE, NULL);
3045 else
3046#endif
3047 newctype = RETVAL;
3048 perl_new_ctype(newctype);
3049 }
36477c24 3050#endif /* USE_LOCALE_CTYPE */
3051#ifdef USE_LOCALE_COLLATE
bbce6d69 3052 if (category == LC_COLLATE
3053#ifdef LC_ALL
3054 || category == LC_ALL
3055#endif
3056 )
3057 {
3058 char *newcoll;
3059#ifdef LC_ALL
3060 if (category == LC_ALL)
3061 newcoll = setlocale(LC_COLLATE, NULL);
3062 else
3063#endif
3064 newcoll = RETVAL;
3065 perl_new_collate(newcoll);
3066 }
36477c24 3067#endif /* USE_LOCALE_COLLATE */
3068#ifdef USE_LOCALE_NUMERIC
bbce6d69 3069 if (category == LC_NUMERIC
3070#ifdef LC_ALL
3071 || category == LC_ALL
3072#endif
3073 )
3074 {
3075 char *newnum;
3076#ifdef LC_ALL
3077 if (category == LC_ALL)
3078 newnum = setlocale(LC_NUMERIC, NULL);
3079 else
3080#endif
3081 newnum = RETVAL;
3082 perl_new_numeric(newnum);
3083 }
36477c24 3084#endif /* USE_LOCALE_NUMERIC */
bbce6d69 3085 }
c28ee57b 3086 OUTPUT:
3087 RETVAL
3088
2304df62 3089
3090double
3091acos(x)
3092 double x
3093
3094double
3095asin(x)
3096 double x
3097
3098double
3099atan(x)
3100 double x
3101
3102double
3103ceil(x)
3104 double x
3105
3106double
3107cosh(x)
3108 double x
3109
3110double
3111floor(x)
3112 double x
3113
3114double
3115fmod(x,y)
3116 double x
3117 double y
3118
3119void
3120frexp(x)
3121 double x
3122 PPCODE:
3123 int expvar;
2304df62 3124 /* (We already know stack is long enough.) */
3125 PUSHs(sv_2mortal(newSVnv(frexp(x,&expvar))));
3126 PUSHs(sv_2mortal(newSViv(expvar)));
3127
3128double
3129ldexp(x,exp)
3130 double x
3131 int exp
3132
3133double
3134log10(x)
3135 double x
3136
3137void
3138modf(x)
3139 double x
3140 PPCODE:
3141 double intvar;
2304df62 3142 /* (We already know stack is long enough.) */
3143 PUSHs(sv_2mortal(newSVnv(modf(x,&intvar))));
3144 PUSHs(sv_2mortal(newSVnv(intvar)));
3145
3146double
3147sinh(x)
3148 double x
3149
3150double
3b35bae3 3151tan(x)
3152 double x
3153
3154double
2304df62 3155tanh(x)
3156 double x
3157
3158SysRet
3159sigaction(sig, action, oldaction = 0)
3160 int sig
3161 POSIX::SigAction action
3162 POSIX::SigAction oldaction
3163 CODE:
6dead956 3164#ifdef WIN32
3165 RETVAL = not_here("sigaction");
3166#else
2304df62 3167# This code is really grody because we're trying to make the signal
3168# interface look beautiful, which is hard.
3169
3280af22 3170 if (!PL_siggv)
85e6fe83 3171 gv_fetchpv("SIG", TRUE, SVt_PVHV);
2304df62 3172
3173 {
3174 struct sigaction act;
3175 struct sigaction oact;
3176 POSIX__SigSet sigset;
3177 SV** svp;
3280af22 3178 SV** sigsvp = hv_fetch(GvHVn(PL_siggv),
4633a7c4 3179 sig_name[sig],
3180 strlen(sig_name[sig]),
2304df62 3181 TRUE);
3182
3183 /* Remember old handler name if desired. */
3184 if (oldaction) {
3185 char *hand = SvPVx(*sigsvp, na);
3186 svp = hv_fetch(oldaction, "HANDLER", 7, TRUE);
3187 sv_setpv(*svp, *hand ? hand : "DEFAULT");
3188 }
3189
3190 if (action) {
3191 /* Vector new handler through %SIG. (We always use sighandler
3192 for the C signal handler, which reads %SIG to dispatch.) */
3193 svp = hv_fetch(action, "HANDLER", 7, FALSE);
3194 if (!svp)
3195 croak("Can't supply an action without a HANDLER");
3196 sv_setpv(*sigsvp, SvPV(*svp, na));
3197 mg_set(*sigsvp); /* handles DEFAULT and IGNORE */
3198 act.sa_handler = sighandler;
3199
3200 /* Set up any desired mask. */
3201 svp = hv_fetch(action, "MASK", 4, FALSE);
3202 if (svp && sv_isa(*svp, "POSIX::SigSet")) {
a0d0e21e 3203 unsigned long tmp;
3204 tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
3205 sigset = (sigset_t*) tmp;
2304df62 3206 act.sa_mask = *sigset;
3207 }
3208 else
85e6fe83 3209 sigemptyset(& act.sa_mask);
2304df62 3210
3211 /* Set up any desired flags. */
3212 svp = hv_fetch(action, "FLAGS", 5, FALSE);
3213 act.sa_flags = svp ? SvIV(*svp) : 0;
3214 }
3215
3216 /* Now work around sigaction oddities */
3217 if (action && oldaction)
85e6fe83 3218 RETVAL = sigaction(sig, & act, & oact);
2304df62 3219 else if (action)
6c418a22 3220 RETVAL = sigaction(sig, & act, (struct sigaction *)0);
2304df62 3221 else if (oldaction)
6c418a22 3222 RETVAL = sigaction(sig, (struct sigaction *)0, & oact);
a0d0e21e 3223 else
3224 RETVAL = -1;
2304df62 3225
3226 if (oldaction) {
3227 /* Get back the mask. */
3228 svp = hv_fetch(oldaction, "MASK", 4, TRUE);
a0d0e21e 3229 if (sv_isa(*svp, "POSIX::SigSet")) {
3230 unsigned long tmp;
3231 tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
3232 sigset = (sigset_t*) tmp;
3233 }
2304df62 3234 else {
3235 sigset = (sigset_t*)safemalloc(sizeof(sigset_t));
3236 sv_setptrobj(*svp, sigset, "POSIX::SigSet");
3237 }
3238 *sigset = oact.sa_mask;
3239
3240 /* Get back the flags. */
3241 svp = hv_fetch(oldaction, "FLAGS", 5, TRUE);
3242 sv_setiv(*svp, oact.sa_flags);
3243 }
3244 }
6dead956 3245#endif
2304df62 3246 OUTPUT:
3247 RETVAL
3248
3249SysRet
3250sigpending(sigset)
3251 POSIX::SigSet sigset
3252
3253SysRet
3254sigprocmask(how, sigset, oldsigset = 0)
3255 int how
3256 POSIX::SigSet sigset
3257 POSIX::SigSet oldsigset
3258
3259SysRet
3260sigsuspend(signal_mask)
3261 POSIX::SigSet signal_mask
3262
2304df62 3263void
3264_exit(status)
3265 int status
8990e307 3266
85e6fe83 3267SysRet
8990e307 3268close(fd)
3269 int fd
3270
85e6fe83 3271SysRet
8990e307 3272dup(fd)
3273 int fd
3274
85e6fe83 3275SysRet
8990e307 3276dup2(fd1, fd2)
3277 int fd1
3278 int fd2
3279
94b6baf5 3280SysRetLong
a0d0e21e 3281lseek(fd, offset, whence)
85e6fe83 3282 int fd
3283 Off_t offset
3284 int whence
8990e307 3285
85e6fe83 3286SysRet
8990e307 3287nice(incr)
3288 int incr
3289
3290int
8990e307 3291pipe()
85e6fe83 3292 PPCODE:
3293 int fds[2];
85e6fe83 3294 if (pipe(fds) != -1) {
924508f0 3295 EXTEND(SP,2);
85e6fe83 3296 PUSHs(sv_2mortal(newSViv(fds[0])));
3297 PUSHs(sv_2mortal(newSViv(fds[1])));
3298 }
8990e307 3299
85e6fe83 3300SysRet
a0d0e21e 3301read(fd, buffer, nbytes)
7747499c 3302 PREINIT:
3303 SV *sv_buffer = SvROK(ST(1)) ? SvRV(ST(1)) : ST(1);
3304 INPUT:
3305 int fd
3306 size_t nbytes
3307 char * buffer = sv_grow( sv_buffer, nbytes+1 );
a0d0e21e 3308 CLEANUP:
7747499c 3309 if (RETVAL >= 0) {
3310 SvCUR(sv_buffer) = RETVAL;
3311 SvPOK_only(sv_buffer);
3312 *SvEND(sv_buffer) = '\0';
bbce6d69 3313 SvTAINTED_on(sv_buffer);
7747499c 3314 }
8990e307 3315
85e6fe83 3316SysRet
8990e307 3317setpgid(pid, pgid)
3318 pid_t pid
3319 pid_t pgid
3320
8990e307 3321pid_t
3322setsid()
3323
8990e307 3324pid_t
3325tcgetpgrp(fd)
3326 int fd
3327
85e6fe83 3328SysRet
8990e307 3329tcsetpgrp(fd, pgrp_id)
3330 int fd
3331 pid_t pgrp_id
3332
3333int
8990e307 3334uname()
2304df62 3335 PPCODE:
a0d0e21e 3336#ifdef HAS_UNAME
85e6fe83 3337 struct utsname buf;
85e6fe83 3338 if (uname(&buf) >= 0) {
924508f0 3339 EXTEND(SP, 5);
85e6fe83 3340 PUSHs(sv_2mortal(newSVpv(buf.sysname, 0)));
3341 PUSHs(sv_2mortal(newSVpv(buf.nodename, 0)));
3342 PUSHs(sv_2mortal(newSVpv(buf.release, 0)));
3343 PUSHs(sv_2mortal(newSVpv(buf.version, 0)));
3344 PUSHs(sv_2mortal(newSVpv(buf.machine, 0)));
8990e307 3345 }
a0d0e21e 3346#else
3347 uname((char *) 0); /* A stub to call not_here(). */
3348#endif
8990e307 3349
85e6fe83 3350SysRet
a0d0e21e 3351write(fd, buffer, nbytes)
3352 int fd
3353 char * buffer
3354 size_t nbytes
3355
3356char *
3357tmpnam(s = 0)
3358 char * s = 0;
3359
3360void
3361abort()
3362
3363int
3364mblen(s, n)
3365 char * s
3366 size_t n
3367
3368size_t
3369mbstowcs(s, pwcs, n)
3370 wchar_t * s
3371 char * pwcs
3372 size_t n
3373
3374int
3375mbtowc(pwc, s, n)
3376 wchar_t * pwc
3377 char * s
3378 size_t n
3379
3380int
3381wcstombs(s, pwcs, n)
3382 char * s
3383 wchar_t * pwcs
3384 size_t n
3385
3386int
3387wctomb(s, wchar)
3388 char * s
3389 wchar_t wchar
3390
3391int
3392strcoll(s1, s2)
3393 char * s1
3394 char * s2
3395
a89d8a78 3396void
3397strtod(str)
3398 char * str
3399 PREINIT:
3400 double num;
3401 char *unparsed;
3402 PPCODE:
36477c24 3403 SET_NUMERIC_LOCAL();
a89d8a78 3404 num = strtod(str, &unparsed);
3405 PUSHs(sv_2mortal(newSVnv(num)));
3406 if (GIMME == G_ARRAY) {
924508f0 3407 EXTEND(SP, 1);
a89d8a78 3408 if (unparsed)
3409 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3410 else
3411 PUSHs(&sv_undef);
3412 }
3413
3414void
3415strtol(str, base = 0)
3416 char * str
3417 int base
3418 PREINIT:
3419 long num;
3420 char *unparsed;
3421 PPCODE:
3422 num = strtol(str, &unparsed, base);
3423 if (num >= IV_MIN && num <= IV_MAX)
3424 PUSHs(sv_2mortal(newSViv((IV)num)));
3425 else
3426 PUSHs(sv_2mortal(newSVnv((double)num)));
3427 if (GIMME == G_ARRAY) {
924508f0 3428 EXTEND(SP, 1);
a89d8a78 3429 if (unparsed)
3430 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3431 else
3432 PUSHs(&sv_undef);
3433 }
3434
3435void
3436strtoul(str, base = 0)
3437 char * str
3438 int base
3439 PREINIT:
3440 unsigned long num;
3441 char *unparsed;
3442 PPCODE:
3443 num = strtoul(str, &unparsed, base);
3444 if (num <= IV_MAX)
3445 PUSHs(sv_2mortal(newSViv((IV)num)));
3446 else
3447 PUSHs(sv_2mortal(newSVnv((double)num)));
3448 if (GIMME == G_ARRAY) {
924508f0 3449 EXTEND(SP, 1);
a89d8a78 3450 if (unparsed)
3451 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
3452 else
3453 PUSHs(&sv_undef);
3454 }
3455
a0d0e21e 3456SV *
3457strxfrm(src)
3458 SV * src
85e6fe83 3459 CODE:
a0d0e21e 3460 {
3461 STRLEN srclen;
3462 STRLEN dstlen;
3463 char *p = SvPV(src,srclen);
3464 srclen++;
748a9306 3465 ST(0) = sv_2mortal(NEWSV(800,srclen));
a0d0e21e 3466 dstlen = strxfrm(SvPVX(ST(0)), p, (size_t)srclen);
3467 if (dstlen > srclen) {
3468 dstlen++;
3469 SvGROW(ST(0), dstlen);
3470 strxfrm(SvPVX(ST(0)), p, (size_t)dstlen);
3471 dstlen--;
3472 }
3473 SvCUR(ST(0)) = dstlen;
3474 SvPOK_only(ST(0));
3475 }
3476
3477SysRet
3478mkfifo(filename, mode)
3479 char * filename
3480 Mode_t mode
748a9306 3481 CODE:
3482 TAINT_PROPER("mkfifo");
3483 RETVAL = mkfifo(filename, mode);
3484 OUTPUT:
3485 RETVAL
a0d0e21e 3486
3487SysRet
3488tcdrain(fd)
3489 int fd
3490
3491
3492SysRet
3493tcflow(fd, action)
3494 int fd
3495 int action
3496
3497
3498SysRet
3499tcflush(fd, queue_selector)
3500 int fd
3501 int queue_selector
3502
3503SysRet
3504tcsendbreak(fd, duration)
3505 int fd
3506 int duration
3507
3508char *
3509asctime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
3510 int sec
3511 int min
3512 int hour
3513 int mday
3514 int mon
3515 int year
3516 int wday
3517 int yday
3518 int isdst
3519 CODE:
3520 {
3521 struct tm mytm;
7747499c 3522 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e 3523 mytm.tm_sec = sec;
3524 mytm.tm_min = min;
3525 mytm.tm_hour = hour;
3526 mytm.tm_mday = mday;
3527 mytm.tm_mon = mon;
3528 mytm.tm_year = year;
3529 mytm.tm_wday = wday;
3530 mytm.tm_yday = yday;
3531 mytm.tm_isdst = isdst;
3532 RETVAL = asctime(&mytm);
3533 }
3534 OUTPUT:
3535 RETVAL
3536
3537long
3538clock()
3539
3540char *
3541ctime(time)
748a9306 3542 Time_t &time
8990e307 3543
37120919 3544void
3545times()
3546 PPCODE:
3547 struct tms tms;
3548 clock_t realtime;
3549 realtime = times( &tms );
924508f0 3550 EXTEND(SP,5);
9607fc9c 3551 PUSHs( sv_2mortal( newSViv( (IV) realtime ) ) );
3552 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_utime ) ) );
3553 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_stime ) ) );
3554 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cutime ) ) );
3555 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cstime ) ) );
37120919 3556
a0d0e21e 3557double
3558difftime(time1, time2)
3559 Time_t time1
3560 Time_t time2
3561
3562SysRetLong
3563mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
3564 int sec
3565 int min
3566 int hour
3567 int mday
3568 int mon
3569 int year
3570 int wday
3571 int yday
3572 int isdst
3573 CODE:
3574 {
3575 struct tm mytm;
7747499c 3576 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e 3577 mytm.tm_sec = sec;
3578 mytm.tm_min = min;
3579 mytm.tm_hour = hour;
3580 mytm.tm_mday = mday;
3581 mytm.tm_mon = mon;
3582 mytm.tm_year = year;
3583 mytm.tm_wday = wday;
3584 mytm.tm_yday = yday;
3585 mytm.tm_isdst = isdst;
3586 RETVAL = mktime(&mytm);
3587 }
85e6fe83 3588 OUTPUT:
3589 RETVAL
a0d0e21e 3590
3591char *
3592strftime(fmt, sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
3593 char * fmt
3594 int sec
3595 int min
3596 int hour
3597 int mday
3598 int mon
3599 int year
3600 int wday
3601 int yday
3602 int isdst
3603 CODE:
3604 {
3605 char tmpbuf[128];
3606 struct tm mytm;
3607 int len;
7747499c 3608 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e 3609 mytm.tm_sec = sec;
3610 mytm.tm_min = min;
3611 mytm.tm_hour = hour;
3612 mytm.tm_mday = mday;
3613 mytm.tm_mon = mon;
3614 mytm.tm_year = year;
3615 mytm.tm_wday = wday;
3616 mytm.tm_yday = yday;
3617 mytm.tm_isdst = isdst;
3618 len = strftime(tmpbuf, sizeof tmpbuf, fmt, &mytm);
3619 ST(0) = sv_2mortal(newSVpv(tmpbuf, len));
3620 }
3621
3622void
3623tzset()
3624
3625void
3626tzname()
3627 PPCODE:
924508f0 3628 EXTEND(SP,2);
a0d0e21e 3629 PUSHs(sv_2mortal(newSVpv(tzname[0],strlen(tzname[0]))));
3630 PUSHs(sv_2mortal(newSVpv(tzname[1],strlen(tzname[1]))));
3631
3632SysRet
3633access(filename, mode)
3634 char * filename
3635 Mode_t mode
3636
3637char *
3638ctermid(s = 0)
3639 char * s = 0;
3640
3641char *
3642cuserid(s = 0)
3643 char * s = 0;
3644
3645SysRetLong
3646fpathconf(fd, name)
3647 int fd
3648 int name
3649
3650SysRetLong
3651pathconf(filename, name)
3652 char * filename
3653 int name
3654
3655SysRet
3656pause()
3657
3658SysRetLong
3659sysconf(name)
3660 int name
3661
3662char *
3663ttyname(fd)
3664 int fd
Unnamed repository; edit this file to name it for gitweb.