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