projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Update Changes.
[p5sagit/p5-mst-13.2.git] / ext / POSIX / POSIX.xs
CommitLineData
6dead956 1#ifdef WIN32
2#define _POSIX_
3#endif
c5be433b 4
2986a63f 5#ifdef NETWARE
6 #define _POSIX_
4efcf9a2 7 /*
8 * Ideally this should be somewhere down in the includes
9 * but putting it in other places is giving compiler errors.
10 * Also here I am unable to check for HAS_UNAME since it wouldn't have
11 * yet come into the file at this stage - sgp 18th Oct 2000
12 */
2986a63f 13 #include <sys/utsname.h>
14#endif /* NETWARE */
15
c5be433b 16#define PERL_NO_GET_CONTEXT
17
463ee0b2 18#include "EXTERN.h"
760ac839 19#define PERLIO_NOT_STDIO 1
463ee0b2 20#include "perl.h"
21#include "XSUB.h"
32e30700 22#if defined(PERL_OBJECT) || defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)
873ef191 23# undef signal
24# undef open
cd661bb6 25# undef setmode
35ff7856 26# define open PerlLIO_open3
873ef191 27#endif
2304df62 28#include <ctype.h>
a0d0e21e 29#ifdef I_DIRENT /* XXX maybe better to just rely on perl.h? */
2304df62 30#include <dirent.h>
a0d0e21e 31#endif
2304df62 32#include <errno.h>
2304df62 33#ifdef I_FLOAT
34#include <float.h>
35#endif
a0d0e21e 36#ifdef I_LIMITS
2304df62 37#include <limits.h>
a0d0e21e 38#endif
2304df62 39#include <locale.h>
40#include <math.h>
85e6fe83 41#ifdef I_PWD
2304df62 42#include <pwd.h>
85e6fe83 43#endif
2304df62 44#include <setjmp.h>
45#include <signal.h>
2304df62 46#include <stdarg.h>
17c3b450 47
2304df62 48#ifdef I_STDDEF
49#include <stddef.h>
50#endif
6990d991 51
b5846a0b 52#ifdef I_UNISTD
53#include <unistd.h>
54#endif
55
a0d0e21e 56/* XXX This comment is just to make I_TERMIO and I_SGTTY visible to
57 metaconfig for future extension writers. We don't use them in POSIX.
58 (This is really sneaky :-) --AD
59*/
60#if defined(I_TERMIOS)
61#include <termios.h>
62#endif
a0d0e21e 63#ifdef I_STDLIB
2304df62 64#include <stdlib.h>
a0d0e21e 65#endif
2304df62 66#include <string.h>
67#include <sys/stat.h>
2304df62 68#include <sys/types.h>
2304df62 69#include <time.h>
6dead956 70#ifdef I_UNISTD
1d2dff63 71#include <unistd.h>
6dead956 72#endif
bf4acbe4 73#ifdef MACOS_TRADITIONAL
74#undef fdopen
75#endif
71be2cbc 76#include <fcntl.h>
77
e2465f50 78#ifdef HAS_TZNAME
2986a63f 79# if !defined(WIN32) && !defined(__CYGWIN__) && !defined(NETWARE)
e2465f50 80extern char *tzname[];
81# endif
82#else
83#if !defined(WIN32) || (defined(__MINGW32__) && !defined(tzname))
84char *tzname[] = { "" , "" };
85#endif
cb2479a8 86#endif
87
6c418a22 88#if defined(__VMS) && !defined(__POSIX_SOURCE)
6c418a22 89# include <libdef.h> /* LIB$_INVARG constant */
90# include <lib$routines.h> /* prototype for lib$ediv() */
91# include <starlet.h> /* prototype for sys$gettim() */
774d564b 92# if DECC_VERSION < 50000000
86200d5c 93# define pid_t int /* old versions of DECC miss this in types.h */
774d564b 94# endif
6c418a22 95
6990d991 96# undef mkfifo
6c418a22 97# define mkfifo(a,b) (not_here("mkfifo"),-1)
98# define tzset() not_here("tzset")
99
5f6761f9 100#if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)
101# define HAS_TZNAME /* shows up in VMS 7.0 or Dec C 5.6 */
102# include <utsname.h>
5f6761f9 103# endif /* __VMS_VER >= 70000000 or Dec C 5.6 */
6c418a22 104
105 /* The POSIX notion of ttyname() is better served by getname() under VMS */
106 static char ttnambuf[64];
107# define ttyname(fd) (isatty(fd) > 0 ? getname(fd,ttnambuf,0) : NULL)
108
109 /* The non-POSIX CRTL times() has void return type, so we just get the
110 current time directly */
34f7a5fe 111 clock_t vms_times(struct tms *bufptr) {
d28f7c37 112 dTHX;
6c418a22 113 clock_t retval;
114 /* Get wall time and convert to 10 ms intervals to
115 * produce the return value that the POSIX standard expects */
116# if defined(__DECC) && defined (__ALPHA)
117# include <ints.h>
118 uint64 vmstime;
119 _ckvmssts(sys$gettim(&vmstime));
120 vmstime /= 100000;
121 retval = vmstime & 0x7fffffff;
122# else
123 /* (Older hw or ccs don't have an atomic 64-bit type, so we
124 * juggle 32-bit ints (and a float) to produce a time_t result
125 * with minimal loss of information.) */
126 long int vmstime[2],remainder,divisor = 100000;
127 _ckvmssts(sys$gettim((unsigned long int *)vmstime));
128 vmstime[1] &= 0x7fff; /* prevent overflow in EDIV */
129 _ckvmssts(lib$ediv(&divisor,vmstime,(long int *)&retval,&remainder));
130# endif
131 /* Fill in the struct tms using the CRTL routine . . .*/
34f7a5fe 132 times((tbuffer_t *)bufptr);
6c418a22 133 return (clock_t) retval;
134 }
135# define times(t) vms_times(t)
136#else
d308986b 137#if defined (__CYGWIN__)
f89d6eaa 138# define tzname _tzname
139#endif
2986a63f 140#if defined (WIN32) || defined (NETWARE)
6990d991 141# undef mkfifo
6dead956 142# define mkfifo(a,b) not_here("mkfifo")
873ef191 143# define ttyname(a) (char*)not_here("ttyname")
6dead956 144# define sigset_t long
86200d5c 145# define pid_t long
6dead956 146# ifdef __BORLANDC__
147# define tzname _tzname
148# endif
149# ifdef _MSC_VER
150# define mode_t short
151# endif
62520c91 152# ifdef __MINGW32__
153# define mode_t short
f6c6487a 154# ifndef tzset
155# define tzset() not_here("tzset")
156# endif
157# ifndef _POSIX_OPEN_MAX
158# define _POSIX_OPEN_MAX FOPEN_MAX /* XXX bogus ? */
159# endif
62520c91 160# endif
6dead956 161# define sigaction(a,b,c) not_here("sigaction")
162# define sigpending(a) not_here("sigpending")
163# define sigprocmask(a,b,c) not_here("sigprocmask")
164# define sigsuspend(a) not_here("sigsuspend")
165# define sigemptyset(a) not_here("sigemptyset")
166# define sigaddset(a,b) not_here("sigaddset")
167# define sigdelset(a,b) not_here("sigdelset")
168# define sigfillset(a) not_here("sigfillset")
169# define sigismember(a,b) not_here("sigismember")
2986a63f 170#ifndef NETWARE
171# define setuid(a) not_here("setuid")
172# define setgid(a) not_here("setgid")
173#endif /* NETWARE */
6dead956 174#else
6990d991 175
176# ifndef HAS_MKFIFO
bf4acbe4 177# if defined(OS2) || defined(MACOS_TRADITIONAL)
d6a255e6 178# define mkfifo(a,b) not_here("mkfifo")
179# else /* !( defined OS2 ) */
180# ifndef mkfifo
181# define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0))
182# endif
6990d991 183# endif
184# endif /* !HAS_MKFIFO */
185
bf4acbe4 186# ifdef MACOS_TRADITIONAL
bf4acbe4 187# define ttyname(a) (char*)not_here("ttyname")
188# define tzset() not_here("tzset")
189# else
190# include <grp.h>
191# include <sys/times.h>
192# ifdef HAS_UNAME
193# include <sys/utsname.h>
194# endif
195# include <sys/wait.h>
6c418a22 196# endif
6c418a22 197# ifdef I_UTIME
198# include <utime.h>
199# endif
2986a63f 200#endif /* WIN32 || NETWARE */
6dead956 201#endif /* __VMS */
2304df62 202
203typedef int SysRet;
a0d0e21e 204typedef long SysRetLong;
2304df62 205typedef sigset_t* POSIX__SigSet;
206typedef HV* POSIX__SigAction;
a0d0e21e 207#ifdef I_TERMIOS
208typedef struct termios* POSIX__Termios;
209#else /* Define termios types to int, and call not_here for the functions.*/
210#define POSIX__Termios int
211#define speed_t int
212#define tcflag_t int
213#define cc_t int
214#define cfgetispeed(x) not_here("cfgetispeed")
215#define cfgetospeed(x) not_here("cfgetospeed")
216#define tcdrain(x) not_here("tcdrain")
217#define tcflush(x,y) not_here("tcflush")
218#define tcsendbreak(x,y) not_here("tcsendbreak")
219#define cfsetispeed(x,y) not_here("cfsetispeed")
220#define cfsetospeed(x,y) not_here("cfsetospeed")
221#define ctermid(x) (char *) not_here("ctermid")
222#define tcflow(x,y) not_here("tcflow")
223#define tcgetattr(x,y) not_here("tcgetattr")
224#define tcsetattr(x,y,z) not_here("tcsetattr")
225#endif
226
227/* Possibly needed prototypes */
20ce7b12 228char *cuserid (char *);
229double strtod (const char *, char **);
230long strtol (const char *, char **, int);
231unsigned long strtoul (const char *, char **, int);
a0d0e21e 232
233#ifndef HAS_CUSERID
234#define cuserid(a) (char *) not_here("cuserid")
235#endif
236#ifndef HAS_DIFFTIME
237#ifndef difftime
238#define difftime(a,b) not_here("difftime")
239#endif
240#endif
241#ifndef HAS_FPATHCONF
242#define fpathconf(f,n) (SysRetLong) not_here("fpathconf")
243#endif
244#ifndef HAS_MKTIME
245#define mktime(a) not_here("mktime")
8990e307 246#endif
247#ifndef HAS_NICE
248#define nice(a) not_here("nice")
249#endif
a0d0e21e 250#ifndef HAS_PATHCONF
251#define pathconf(f,n) (SysRetLong) not_here("pathconf")
252#endif
253#ifndef HAS_SYSCONF
254#define sysconf(n) (SysRetLong) not_here("sysconf")
255#endif
8990e307 256#ifndef HAS_READLINK
257#define readlink(a,b,c) not_here("readlink")
258#endif
259#ifndef HAS_SETPGID
260#define setpgid(a,b) not_here("setpgid")
261#endif
8990e307 262#ifndef HAS_SETSID
263#define setsid() not_here("setsid")
264#endif
a0d0e21e 265#ifndef HAS_STRCOLL
266#define strcoll(s1,s2) not_here("strcoll")
267#endif
a89d8a78 268#ifndef HAS_STRTOD
269#define strtod(s1,s2) not_here("strtod")
270#endif
271#ifndef HAS_STRTOL
272#define strtol(s1,s2,b) not_here("strtol")
273#endif
274#ifndef HAS_STRTOUL
275#define strtoul(s1,s2,b) not_here("strtoul")
276#endif
a0d0e21e 277#ifndef HAS_STRXFRM
278#define strxfrm(s1,s2,n) not_here("strxfrm")
8990e307 279#endif
280#ifndef HAS_TCGETPGRP
281#define tcgetpgrp(a) not_here("tcgetpgrp")
282#endif
283#ifndef HAS_TCSETPGRP
284#define tcsetpgrp(a,b) not_here("tcsetpgrp")
285#endif
286#ifndef HAS_TIMES
2986a63f 287#ifndef NETWARE
8990e307 288#define times(a) not_here("times")
2986a63f 289#endif /* NETWARE */
8990e307 290#endif
291#ifndef HAS_UNAME
292#define uname(a) not_here("uname")
293#endif
294#ifndef HAS_WAITPID
295#define waitpid(a,b,c) not_here("waitpid")
296#endif
297
a0d0e21e 298#ifndef HAS_MBLEN
299#ifndef mblen
300#define mblen(a,b) not_here("mblen")
301#endif
302#endif
303#ifndef HAS_MBSTOWCS
304#define mbstowcs(s, pwcs, n) not_here("mbstowcs")
305#endif
306#ifndef HAS_MBTOWC
307#define mbtowc(pwc, s, n) not_here("mbtowc")
308#endif
309#ifndef HAS_WCSTOMBS
310#define wcstombs(s, pwcs, n) not_here("wcstombs")
311#endif
312#ifndef HAS_WCTOMB
313#define wctomb(s, wchar) not_here("wcstombs")
314#endif
315#if !defined(HAS_MBLEN) && !defined(HAS_MBSTOWCS) && !defined(HAS_MBTOWC) && !defined(HAS_WCSTOMBS) && !defined(HAS_WCTOMB)
316/* If we don't have these functions, then we wouldn't have gotten a typedef
317 for wchar_t, the wide character type. Defining wchar_t allows the
318 functions referencing it to compile. Its actual type is then meaningless,
319 since without the above functions, all sections using it end up calling
320 not_here() and croak. --Kaveh Ghazi (ghazi@noc.rutgers.edu) 9/18/94. */
321#ifndef wchar_t
322#define wchar_t char
323#endif
324#endif
325
326#ifndef HAS_LOCALECONV
327#define localeconv() not_here("localeconv")
328#endif
329
172ea7c8 330#ifdef HAS_LONG_DOUBLE
53796371 331# if LONG_DOUBLESIZE > NVSIZE
172ea7c8 332# undef HAS_LONG_DOUBLE /* XXX until we figure out how to use them */
333# endif
334#endif
335
336#ifndef HAS_LONG_DOUBLE
337#ifdef LDBL_MAX
338#undef LDBL_MAX
339#endif
340#ifdef LDBL_MIN
341#undef LDBL_MIN
342#endif
343#ifdef LDBL_EPSILON
344#undef LDBL_EPSILON
345#endif
346#endif
347
8990e307 348static int
f0f333f4 349not_here(char *s)
8990e307 350{
351 croak("POSIX::%s not implemented on this architecture", s);
352 return -1;
353}
463ee0b2 354
41f4651c 355#include "constants.c"
a290f238 356
357/* These were implemented in the old "constant" subroutine. They are actually
358 macros that take an integer argument and return an integer result. */
359static int
360int_macro_int (const char *name, STRLEN len, IV *arg_result) {
361 /* Initially switch on the length of the name. */
362 /* This code has been edited from a "constant" function generated by:
363
364use ExtUtils::Constant qw (constant_types C_constant XS_constant);
365
366my $types = {map {($_, 1)} qw(IV)};
367my @names = (qw(S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG WEXITSTATUS WIFEXITED
368 WIFSIGNALED WIFSTOPPED WSTOPSIG WTERMSIG));
369
370print constant_types(); # macro defs
371foreach (C_constant ("POSIX", 'int_macro_int', 'IV', $types, undef, 5, @names) ) {
372 print $_, "\n"; # C constant subs
373}
374print "#### XS Section:\n";
375print XS_constant ("POSIX", $types);
376__END__
377 */
378
379 switch (len) {
380 case 7:
381 /* Names all of length 7. */
382 /* S_ISBLK S_ISCHR S_ISDIR S_ISREG */
383 /* Offset 5 gives the best switch position. */
384 switch (name[5]) {
385 case 'E':
386 if (memEQ(name, "S_ISREG", 7)) {
387 /* ^ */
388#ifdef S_ISREG
389 *arg_result = S_ISREG(*arg_result);
390 return PERL_constant_ISIV;
2304df62 391#else
a290f238 392 return PERL_constant_NOTDEF;
2304df62 393#endif
a290f238 394 }
395 break;
396 case 'H':
397 if (memEQ(name, "S_ISCHR", 7)) {
398 /* ^ */
399#ifdef S_ISCHR
400 *arg_result = S_ISCHR(*arg_result);
401 return PERL_constant_ISIV;
2304df62 402#else
a290f238 403 return PERL_constant_NOTDEF;
2304df62 404#endif
a290f238 405 }
406 break;
407 case 'I':
408 if (memEQ(name, "S_ISDIR", 7)) {
409 /* ^ */
410#ifdef S_ISDIR
411 *arg_result = S_ISDIR(*arg_result);
412 return PERL_constant_ISIV;
2304df62 413#else
a290f238 414 return PERL_constant_NOTDEF;
2304df62 415#endif
a290f238 416 }
417 break;
418 case 'L':
419 if (memEQ(name, "S_ISBLK", 7)) {
420 /* ^ */
421#ifdef S_ISBLK
422 *arg_result = S_ISBLK(*arg_result);
423 return PERL_constant_ISIV;
2304df62 424#else
a290f238 425 return PERL_constant_NOTDEF;
2304df62 426#endif
a290f238 427 }
428 break;
429 }
430 break;
431 case 8:
432 /* Names all of length 8. */
433 /* S_ISFIFO WSTOPSIG WTERMSIG */
434 /* Offset 3 gives the best switch position. */
435 switch (name[3]) {
436 case 'O':
437 if (memEQ(name, "WSTOPSIG", 8)) {
438 /* ^ */
439#ifdef WSTOPSIG
440 *arg_result = WSTOPSIG(*arg_result);
441 return PERL_constant_ISIV;
2304df62 442#else
a290f238 443 return PERL_constant_NOTDEF;
2304df62 444#endif
a290f238 445 }
446 break;
447 case 'R':
448 if (memEQ(name, "WTERMSIG", 8)) {
449 /* ^ */
450#ifdef WTERMSIG
451 *arg_result = WTERMSIG(*arg_result);
452 return PERL_constant_ISIV;
2304df62 453#else
a290f238 454 return PERL_constant_NOTDEF;
2304df62 455#endif
a290f238 456 }
457 break;
458 case 'S':
459 if (memEQ(name, "S_ISFIFO", 8)) {
460 /* ^ */
461#ifdef S_ISFIFO
462 *arg_result = S_ISFIFO(*arg_result);
463 return PERL_constant_ISIV;
2304df62 464#else
a290f238 465 return PERL_constant_NOTDEF;
2304df62 466#endif
a290f238 467 }
468 break;
469 }
470 break;
471 case 9:
472 if (memEQ(name, "WIFEXITED", 9)) {
473#ifdef WIFEXITED
474 *arg_result = WIFEXITED(*arg_result);
475 return PERL_constant_ISIV;
2304df62 476#else
a290f238 477 return PERL_constant_NOTDEF;
2304df62 478#endif
a290f238 479 }
480 break;
481 case 10:
482 if (memEQ(name, "WIFSTOPPED", 10)) {
483#ifdef WIFSTOPPED
484 *arg_result = WIFSTOPPED(*arg_result);
485 return PERL_constant_ISIV;
2304df62 486#else
a290f238 487 return PERL_constant_NOTDEF;
2304df62 488#endif
a290f238 489 }
490 break;
491 case 11:
492 /* Names all of length 11. */
493 /* WEXITSTATUS WIFSIGNALED */
494 /* Offset 1 gives the best switch position. */
495 switch (name[1]) {
496 case 'E':
497 if (memEQ(name, "WEXITSTATUS", 11)) {
498 /* ^ */
499#ifdef WEXITSTATUS
500 *arg_result = WEXITSTATUS(*arg_result);
501 return PERL_constant_ISIV;
2304df62 502#else
a290f238 503 return PERL_constant_NOTDEF;
2304df62 504#endif
a290f238 505 }
506 break;
507 case 'I':
508 if (memEQ(name, "WIFSIGNALED", 11)) {
509 /* ^ */
510#ifdef WIFSIGNALED
511 *arg_result = WIFSIGNALED(*arg_result);
512 return PERL_constant_ISIV;
2304df62 513#else
a290f238 514 return PERL_constant_NOTDEF;
2304df62 515#endif
a290f238 516 }
517 break;
518 }
519 break;
520 }
521 return PERL_constant_NOTFOUND;
522}
523
1dfe7606 524static void
183bde56 525restore_sigmask(SV *osset_sv)
1dfe7606 526{
7feb700b 527 /* Fortunately, restoring the signal mask can't fail, because
528 * there's nothing we can do about it if it does -- we're not
529 * supposed to return -1 from sigaction unless the disposition
530 * was unaffected.
531 */
532 dTHX;
533 sigset_t *ossetp = (sigset_t *) SvPV_nolen( osset_sv );
534 (void)sigprocmask(SIG_SETMASK, ossetp, (sigset_t *)0);
1dfe7606 535}
536
2304df62 537MODULE = SigSet PACKAGE = POSIX::SigSet PREFIX = sig
538
539POSIX::SigSet
540new(packname = "POSIX::SigSet", ...)
541 char * packname
542 CODE:
543 {
544 int i;
01667c76 545 New(0, RETVAL, 1, sigset_t);
2304df62 546 sigemptyset(RETVAL);
a0d0e21e 547 for (i = 1; i < items; i++)
2304df62 548 sigaddset(RETVAL, SvIV(ST(i)));
549 }
550 OUTPUT:
551 RETVAL
463ee0b2 552
8990e307 553void
2304df62 554DESTROY(sigset)
555 POSIX::SigSet sigset
556 CODE:
01667c76 557 Safefree(sigset);
2304df62 558
559SysRet
560sigaddset(sigset, sig)
561 POSIX::SigSet sigset
562 int sig
563
564SysRet
565sigdelset(sigset, sig)
566 POSIX::SigSet sigset
567 int sig
568
569SysRet
570sigemptyset(sigset)
571 POSIX::SigSet sigset
572
573SysRet
574sigfillset(sigset)
575 POSIX::SigSet sigset
576
577int
578sigismember(sigset, sig)
579 POSIX::SigSet sigset
580 int sig
581
582
a0d0e21e 583MODULE = Termios PACKAGE = POSIX::Termios PREFIX = cf
584
585POSIX::Termios
586new(packname = "POSIX::Termios", ...)
587 char * packname
588 CODE:
589 {
590#ifdef I_TERMIOS
01667c76 591 New(0, RETVAL, 1, struct termios);
a0d0e21e 592#else
593 not_here("termios");
640cc986 594 RETVAL = 0;
a0d0e21e 595#endif
596 }
597 OUTPUT:
598 RETVAL
599
600void
601DESTROY(termios_ref)
602 POSIX::Termios termios_ref
603 CODE:
604#ifdef I_TERMIOS
01667c76 605 Safefree(termios_ref);
a0d0e21e 606#else
607 not_here("termios");
608#endif
609
610SysRet
611getattr(termios_ref, fd = 0)
612 POSIX::Termios termios_ref
613 int fd
614 CODE:
615 RETVAL = tcgetattr(fd, termios_ref);
616 OUTPUT:
617 RETVAL
618
619SysRet
620setattr(termios_ref, fd = 0, optional_actions = 0)
621 POSIX::Termios termios_ref
622 int fd
623 int optional_actions
624 CODE:
625 RETVAL = tcsetattr(fd, optional_actions, termios_ref);
626 OUTPUT:
627 RETVAL
628
629speed_t
630cfgetispeed(termios_ref)
631 POSIX::Termios termios_ref
632
633speed_t
634cfgetospeed(termios_ref)
635 POSIX::Termios termios_ref
636
637tcflag_t
638getiflag(termios_ref)
639 POSIX::Termios termios_ref
640 CODE:
641#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
642 RETVAL = termios_ref->c_iflag;
643#else
640cc986 644 not_here("getiflag");
645 RETVAL = 0;
a0d0e21e 646#endif
647 OUTPUT:
648 RETVAL
649
650tcflag_t
651getoflag(termios_ref)
652 POSIX::Termios termios_ref
653 CODE:
654#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
655 RETVAL = termios_ref->c_oflag;
656#else
640cc986 657 not_here("getoflag");
658 RETVAL = 0;
a0d0e21e 659#endif
660 OUTPUT:
661 RETVAL
662
663tcflag_t
664getcflag(termios_ref)
665 POSIX::Termios termios_ref
666 CODE:
667#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
668 RETVAL = termios_ref->c_cflag;
669#else
640cc986 670 not_here("getcflag");
671 RETVAL = 0;
a0d0e21e 672#endif
673 OUTPUT:
674 RETVAL
675
676tcflag_t
677getlflag(termios_ref)
678 POSIX::Termios termios_ref
679 CODE:
680#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
681 RETVAL = termios_ref->c_lflag;
682#else
640cc986 683 not_here("getlflag");
684 RETVAL = 0;
a0d0e21e 685#endif
686 OUTPUT:
687 RETVAL
688
689cc_t
690getcc(termios_ref, ccix)
691 POSIX::Termios termios_ref
692 int ccix
693 CODE:
694#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
695 if (ccix >= NCCS)
696 croak("Bad getcc subscript");
697 RETVAL = termios_ref->c_cc[ccix];
698#else
640cc986 699 not_here("getcc");
700 RETVAL = 0;
a0d0e21e 701#endif
702 OUTPUT:
703 RETVAL
704
705SysRet
706cfsetispeed(termios_ref, speed)
707 POSIX::Termios termios_ref
708 speed_t speed
709
710SysRet
711cfsetospeed(termios_ref, speed)
712 POSIX::Termios termios_ref
713 speed_t speed
714
715void
716setiflag(termios_ref, iflag)
717 POSIX::Termios termios_ref
718 tcflag_t iflag
719 CODE:
720#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
721 termios_ref->c_iflag = iflag;
722#else
723 not_here("setiflag");
724#endif
725
726void
727setoflag(termios_ref, oflag)
728 POSIX::Termios termios_ref
729 tcflag_t oflag
730 CODE:
731#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
732 termios_ref->c_oflag = oflag;
733#else
734 not_here("setoflag");
735#endif
736
737void
738setcflag(termios_ref, cflag)
739 POSIX::Termios termios_ref
740 tcflag_t cflag
741 CODE:
742#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
743 termios_ref->c_cflag = cflag;
744#else
745 not_here("setcflag");
746#endif
747
748void
749setlflag(termios_ref, lflag)
750 POSIX::Termios termios_ref
751 tcflag_t lflag
752 CODE:
753#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
754 termios_ref->c_lflag = lflag;
755#else
756 not_here("setlflag");
757#endif
758
759void
760setcc(termios_ref, ccix, cc)
761 POSIX::Termios termios_ref
762 int ccix
763 cc_t cc
764 CODE:
765#ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
766 if (ccix >= NCCS)
767 croak("Bad setcc subscript");
768 termios_ref->c_cc[ccix] = cc;
769#else
770 not_here("setcc");
771#endif
772
773
a0d0e21e 774MODULE = POSIX PACKAGE = POSIX
775
ee96af8f 776INCLUDE: constants.xs
a290f238 777
778void
779int_macro_int(sv, iv)
780 PREINIT:
781 dXSTARG;
782 STRLEN len;
783 int type;
784 INPUT:
785 SV * sv;
786 const char * s = SvPV(sv, len);
787 IV iv;
788 PPCODE:
789 /* Change this to int_macro_int(s, len, &iv, &nv);
790 if you need to return both NVs and IVs */
791 type = int_macro_int(s, len, &iv);
792 /* Return 1 or 2 items. First is error message, or undef if no error.
793 Second, if present, is found value */
794 switch (type) {
795 case PERL_constant_NOTFOUND:
796 sv = sv_2mortal(newSVpvf("%s is not a valid POSIX macro", s));
797 EXTEND(SP, 1);
798 PUSHs(&PL_sv_undef);
799 PUSHs(sv);
800 break;
801 case PERL_constant_NOTDEF:
802 sv = sv_2mortal(newSVpvf(
803 "Your vendor has not defined POSIX macro %s, used", s));
804 EXTEND(SP, 1);
805 PUSHs(&PL_sv_undef);
806 PUSHs(sv);
807 break;
808 case PERL_constant_ISIV:
809 PUSHi(iv);
810 break;
811 default:
812 sv = sv_2mortal(newSVpvf(
813 "Unexpected return type %d while processing POSIX macro %s, used",
814 type, s));
815 EXTEND(SP, 1);
816 PUSHs(&PL_sv_undef);
817 PUSHs(sv);
818 }
2304df62 819
820int
821isalnum(charstring)
5344da4e 822 unsigned char * charstring
2304df62 823 CODE:
5344da4e 824 unsigned char *s = charstring;
6b88bc9c 825 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 826 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 827 if (!isalnum(*s))
828 RETVAL = 0;
829 OUTPUT:
830 RETVAL
831
832int
833isalpha(charstring)
5344da4e 834 unsigned char * charstring
2304df62 835 CODE:
5344da4e 836 unsigned char *s = charstring;
6b88bc9c 837 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 838 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 839 if (!isalpha(*s))
840 RETVAL = 0;
841 OUTPUT:
842 RETVAL
843
844int
845iscntrl(charstring)
5344da4e 846 unsigned char * charstring
2304df62 847 CODE:
5344da4e 848 unsigned char *s = charstring;
6b88bc9c 849 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 850 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 851 if (!iscntrl(*s))
852 RETVAL = 0;
853 OUTPUT:
854 RETVAL
855
856int
857isdigit(charstring)
5344da4e 858 unsigned char * charstring
2304df62 859 CODE:
5344da4e 860 unsigned char *s = charstring;
6b88bc9c 861 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 862 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 863 if (!isdigit(*s))
864 RETVAL = 0;
865 OUTPUT:
866 RETVAL
867
868int
869isgraph(charstring)
5344da4e 870 unsigned char * charstring
2304df62 871 CODE:
5344da4e 872 unsigned char *s = charstring;
6b88bc9c 873 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 874 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 875 if (!isgraph(*s))
876 RETVAL = 0;
877 OUTPUT:
878 RETVAL
879
880int
881islower(charstring)
5344da4e 882 unsigned char * charstring
2304df62 883 CODE:
5344da4e 884 unsigned char *s = charstring;
6b88bc9c 885 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 886 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 887 if (!islower(*s))
888 RETVAL = 0;
889 OUTPUT:
890 RETVAL
891
892int
893isprint(charstring)
5344da4e 894 unsigned char * charstring
2304df62 895 CODE:
5344da4e 896 unsigned char *s = charstring;
6b88bc9c 897 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 898 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 899 if (!isprint(*s))
900 RETVAL = 0;
901 OUTPUT:
902 RETVAL
903
904int
905ispunct(charstring)
5344da4e 906 unsigned char * charstring
2304df62 907 CODE:
5344da4e 908 unsigned char *s = charstring;
6b88bc9c 909 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 910 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 911 if (!ispunct(*s))
912 RETVAL = 0;
913 OUTPUT:
914 RETVAL
915
916int
917isspace(charstring)
5344da4e 918 unsigned char * charstring
2304df62 919 CODE:
5344da4e 920 unsigned char *s = charstring;
6b88bc9c 921 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 922 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 923 if (!isspace(*s))
924 RETVAL = 0;
925 OUTPUT:
926 RETVAL
8990e307 927
928int
2304df62 929isupper(charstring)
5344da4e 930 unsigned char * charstring
2304df62 931 CODE:
5344da4e 932 unsigned char *s = charstring;
6b88bc9c 933 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 934 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 935 if (!isupper(*s))
936 RETVAL = 0;
937 OUTPUT:
938 RETVAL
8990e307 939
940int
2304df62 941isxdigit(charstring)
5344da4e 942 unsigned char * charstring
2304df62 943 CODE:
5344da4e 944 unsigned char *s = charstring;
6b88bc9c 945 unsigned char *e = s + PL_na; /* "PL_na" set by typemap side effect */
5344da4e 946 for (RETVAL = 1; RETVAL && s < e; s++)
2304df62 947 if (!isxdigit(*s))
948 RETVAL = 0;
949 OUTPUT:
950 RETVAL
951
952SysRet
953open(filename, flags = O_RDONLY, mode = 0666)
954 char * filename
955 int flags
a0d0e21e 956 Mode_t mode
748a9306 957 CODE:
958 if (flags & (O_APPEND|O_CREAT|O_TRUNC|O_RDWR|O_WRONLY|O_EXCL))
959 TAINT_PROPER("open");
960 RETVAL = open(filename, flags, mode);
961 OUTPUT:
962 RETVAL
963
2304df62 964
965HV *
966localeconv()
967 CODE:
a0d0e21e 968#ifdef HAS_LOCALECONV
2304df62 969 struct lconv *lcbuf;
970 RETVAL = newHV();
8063af02 971 if ((lcbuf = localeconv())) {
2304df62 972 /* the strings */
973 if (lcbuf->decimal_point && *lcbuf->decimal_point)
974 hv_store(RETVAL, "decimal_point", 13,
975 newSVpv(lcbuf->decimal_point, 0), 0);
976 if (lcbuf->thousands_sep && *lcbuf->thousands_sep)
977 hv_store(RETVAL, "thousands_sep", 13,
978 newSVpv(lcbuf->thousands_sep, 0), 0);
28e8609d 979#ifndef NO_LOCALECONV_GROUPING
2304df62 980 if (lcbuf->grouping && *lcbuf->grouping)
981 hv_store(RETVAL, "grouping", 8,
982 newSVpv(lcbuf->grouping, 0), 0);
28e8609d 983#endif
2304df62 984 if (lcbuf->int_curr_symbol && *lcbuf->int_curr_symbol)
985 hv_store(RETVAL, "int_curr_symbol", 15,
986 newSVpv(lcbuf->int_curr_symbol, 0), 0);
987 if (lcbuf->currency_symbol && *lcbuf->currency_symbol)
988 hv_store(RETVAL, "currency_symbol", 15,
989 newSVpv(lcbuf->currency_symbol, 0), 0);
990 if (lcbuf->mon_decimal_point && *lcbuf->mon_decimal_point)
991 hv_store(RETVAL, "mon_decimal_point", 17,
992 newSVpv(lcbuf->mon_decimal_point, 0), 0);
39e571d4 993#ifndef NO_LOCALECONV_MON_THOUSANDS_SEP
2304df62 994 if (lcbuf->mon_thousands_sep && *lcbuf->mon_thousands_sep)
995 hv_store(RETVAL, "mon_thousands_sep", 17,
996 newSVpv(lcbuf->mon_thousands_sep, 0), 0);
39e571d4 997#endif
28e8609d 998#ifndef NO_LOCALECONV_MON_GROUPING
2304df62 999 if (lcbuf->mon_grouping && *lcbuf->mon_grouping)
1000 hv_store(RETVAL, "mon_grouping", 12,
1001 newSVpv(lcbuf->mon_grouping, 0), 0);
28e8609d 1002#endif
2304df62 1003 if (lcbuf->positive_sign && *lcbuf->positive_sign)
1004 hv_store(RETVAL, "positive_sign", 13,
1005 newSVpv(lcbuf->positive_sign, 0), 0);
1006 if (lcbuf->negative_sign && *lcbuf->negative_sign)
1007 hv_store(RETVAL, "negative_sign", 13,
1008 newSVpv(lcbuf->negative_sign, 0), 0);
1009 /* the integers */
1010 if (lcbuf->int_frac_digits != CHAR_MAX)
1011 hv_store(RETVAL, "int_frac_digits", 15,
1012 newSViv(lcbuf->int_frac_digits), 0);
1013 if (lcbuf->frac_digits != CHAR_MAX)
1014 hv_store(RETVAL, "frac_digits", 11,
1015 newSViv(lcbuf->frac_digits), 0);
1016 if (lcbuf->p_cs_precedes != CHAR_MAX)
1017 hv_store(RETVAL, "p_cs_precedes", 13,
1018 newSViv(lcbuf->p_cs_precedes), 0);
1019 if (lcbuf->p_sep_by_space != CHAR_MAX)
1020 hv_store(RETVAL, "p_sep_by_space", 14,
1021 newSViv(lcbuf->p_sep_by_space), 0);
1022 if (lcbuf->n_cs_precedes != CHAR_MAX)
1023 hv_store(RETVAL, "n_cs_precedes", 13,
1024 newSViv(lcbuf->n_cs_precedes), 0);
1025 if (lcbuf->n_sep_by_space != CHAR_MAX)
1026 hv_store(RETVAL, "n_sep_by_space", 14,
1027 newSViv(lcbuf->n_sep_by_space), 0);
1028 if (lcbuf->p_sign_posn != CHAR_MAX)
1029 hv_store(RETVAL, "p_sign_posn", 11,
1030 newSViv(lcbuf->p_sign_posn), 0);
1031 if (lcbuf->n_sign_posn != CHAR_MAX)
1032 hv_store(RETVAL, "n_sign_posn", 11,
1033 newSViv(lcbuf->n_sign_posn), 0);
1034 }
a0d0e21e 1035#else
1036 localeconv(); /* A stub to call not_here(). */
1037#endif
2304df62 1038 OUTPUT:
1039 RETVAL
1040
1041char *
c28ee57b 1042setlocale(category, locale = 0)
2304df62 1043 int category
1044 char * locale
c28ee57b 1045 CODE:
1046 RETVAL = setlocale(category, locale);
bbce6d69 1047 if (RETVAL) {
36477c24 1048#ifdef USE_LOCALE_CTYPE
bbce6d69 1049 if (category == LC_CTYPE
1050#ifdef LC_ALL
1051 || category == LC_ALL
1052#endif
1053 )
1054 {
1055 char *newctype;
1056#ifdef LC_ALL
1057 if (category == LC_ALL)
1058 newctype = setlocale(LC_CTYPE, NULL);
1059 else
1060#endif
1061 newctype = RETVAL;
864dbfa3 1062 new_ctype(newctype);
bbce6d69 1063 }
36477c24 1064#endif /* USE_LOCALE_CTYPE */
1065#ifdef USE_LOCALE_COLLATE
bbce6d69 1066 if (category == LC_COLLATE
1067#ifdef LC_ALL
1068 || category == LC_ALL
1069#endif
1070 )
1071 {
1072 char *newcoll;
1073#ifdef LC_ALL
1074 if (category == LC_ALL)
1075 newcoll = setlocale(LC_COLLATE, NULL);
1076 else
1077#endif
1078 newcoll = RETVAL;
864dbfa3 1079 new_collate(newcoll);
bbce6d69 1080 }
36477c24 1081#endif /* USE_LOCALE_COLLATE */
1082#ifdef USE_LOCALE_NUMERIC
bbce6d69 1083 if (category == LC_NUMERIC
1084#ifdef LC_ALL
1085 || category == LC_ALL
1086#endif
1087 )
1088 {
1089 char *newnum;
1090#ifdef LC_ALL
1091 if (category == LC_ALL)
1092 newnum = setlocale(LC_NUMERIC, NULL);
1093 else
1094#endif
1095 newnum = RETVAL;
864dbfa3 1096 new_numeric(newnum);
bbce6d69 1097 }
36477c24 1098#endif /* USE_LOCALE_NUMERIC */
bbce6d69 1099 }
c28ee57b 1100 OUTPUT:
1101 RETVAL
1102
2304df62 1103
e1ca407b 1104NV
2304df62 1105acos(x)
e1ca407b 1106 NV x
2304df62 1107
e1ca407b 1108NV
2304df62 1109asin(x)
e1ca407b 1110 NV x
2304df62 1111
e1ca407b 1112NV
2304df62 1113atan(x)
e1ca407b 1114 NV x
2304df62 1115
e1ca407b 1116NV
2304df62 1117ceil(x)
e1ca407b 1118 NV x
2304df62 1119
e1ca407b 1120NV
2304df62 1121cosh(x)
e1ca407b 1122 NV x
2304df62 1123
e1ca407b 1124NV
2304df62 1125floor(x)
e1ca407b 1126 NV x
2304df62 1127
e1ca407b 1128NV
2304df62 1129fmod(x,y)
e1ca407b 1130 NV x
1131 NV y
2304df62 1132
1133void
1134frexp(x)
e1ca407b 1135 NV x
2304df62 1136 PPCODE:
1137 int expvar;
2304df62 1138 /* (We already know stack is long enough.) */
1139 PUSHs(sv_2mortal(newSVnv(frexp(x,&expvar))));
1140 PUSHs(sv_2mortal(newSViv(expvar)));
1141
e1ca407b 1142NV
2304df62 1143ldexp(x,exp)
e1ca407b 1144 NV x
2304df62 1145 int exp
1146
e1ca407b 1147NV
2304df62 1148log10(x)
e1ca407b 1149 NV x
2304df62 1150
1151void
1152modf(x)
e1ca407b 1153 NV x
2304df62 1154 PPCODE:
e1ca407b 1155 NV intvar;
2304df62 1156 /* (We already know stack is long enough.) */
bf4acbe4 1157 PUSHs(sv_2mortal(newSVnv(Perl_modf(x,&intvar))));
2304df62 1158 PUSHs(sv_2mortal(newSVnv(intvar)));
1159
e1ca407b 1160NV
2304df62 1161sinh(x)
e1ca407b 1162 NV x
2304df62 1163
e1ca407b 1164NV
3b35bae3 1165tan(x)
e1ca407b 1166 NV x
3b35bae3 1167
e1ca407b 1168NV
2304df62 1169tanh(x)
e1ca407b 1170 NV x
2304df62 1171
1172SysRet
1dfe7606 1173sigaction(sig, optaction, oldaction = 0)
2304df62 1174 int sig
1dfe7606 1175 SV * optaction
2304df62 1176 POSIX::SigAction oldaction
1177 CODE:
2986a63f 1178#if defined(WIN32) || defined(NETWARE)
6dead956 1179 RETVAL = not_here("sigaction");
1180#else
2304df62 1181# This code is really grody because we're trying to make the signal
1182# interface look beautiful, which is hard.
1183
2304df62 1184 {
1dfe7606 1185 POSIX__SigAction action;
f4c556ac 1186 GV *siggv = gv_fetchpv("SIG", TRUE, SVt_PVHV);
2304df62 1187 struct sigaction act;
1188 struct sigaction oact;
1dfe7606 1189 sigset_t sset;
183bde56 1190 SV *osset_sv;
27c1a449 1191 sigset_t osset;
2304df62 1192 POSIX__SigSet sigset;
1193 SV** svp;
f4c556ac 1194 SV** sigsvp = hv_fetch(GvHVn(siggv),
4ec43091 1195 PL_sig_name[sig],
1196 strlen(PL_sig_name[sig]),
2304df62 1197 TRUE);
1198
1dfe7606 1199 /* Check optaction and set action */
1200 if(SvTRUE(optaction)) {
1201 if(sv_isa(optaction, "POSIX::SigAction"))
1202 action = (HV*)SvRV(optaction);
1203 else
1204 croak("action is not of type POSIX::SigAction");
1205 }
1206 else {
1207 action=0;
1208 }
1209
1210 /* sigaction() is supposed to look atomic. In particular, any
1211 * signal handler invoked during a sigaction() call should
1212 * see either the old or the new disposition, and not something
1213 * in between. We use sigprocmask() to make it so.
1214 */
1215 sigfillset(&sset);
1216 RETVAL=sigprocmask(SIG_BLOCK, &sset, &osset);
1217 if(RETVAL == -1)
15c0d34a 1218 XSRETURN_UNDEF;
1dfe7606 1219 ENTER;
1220 /* Restore signal mask no matter how we exit this block. */
183bde56 1221 osset_sv = newSVpv((char *)(&osset), sizeof(sigset_t));
1222 SAVEFREESV( osset_sv );
1223 SAVEDESTRUCTOR(restore_sigmask, osset_sv);
1dfe7606 1224
1225 RETVAL=-1; /* In case both oldaction and action are 0. */
1226
1227 /* Remember old disposition if desired. */
2304df62 1228 if (oldaction) {
2304df62 1229 svp = hv_fetch(oldaction, "HANDLER", 7, TRUE);
1dfe7606 1230 if(!svp)
1231 croak("Can't supply an oldaction without a HANDLER");
1232 if(SvTRUE(*sigsvp)) { /* TBD: what if "0"? */
1233 sv_setsv(*svp, *sigsvp);
1234 }
1235 else {
1236 sv_setpv(*svp, "DEFAULT");
1237 }
1238 RETVAL = sigaction(sig, (struct sigaction *)0, & oact);
1239 if(RETVAL == -1)
15c0d34a 1240 XSRETURN_UNDEF;
1dfe7606 1241 /* Get back the mask. */
1242 svp = hv_fetch(oldaction, "MASK", 4, TRUE);
1243 if (sv_isa(*svp, "POSIX::SigSet")) {
1244 IV tmp = SvIV((SV*)SvRV(*svp));
1245 sigset = INT2PTR(sigset_t*, tmp);
1246 }
1247 else {
1248 New(0, sigset, 1, sigset_t);
1249 sv_setptrobj(*svp, sigset, "POSIX::SigSet");
1250 }
1251 *sigset = oact.sa_mask;
1252
1253 /* Get back the flags. */
1254 svp = hv_fetch(oldaction, "FLAGS", 5, TRUE);
1255 sv_setiv(*svp, oact.sa_flags);
2304df62 1256 }
1257
1258 if (action) {
1259 /* Vector new handler through %SIG. (We always use sighandler
1260 for the C signal handler, which reads %SIG to dispatch.) */
1261 svp = hv_fetch(action, "HANDLER", 7, FALSE);
1262 if (!svp)
1263 croak("Can't supply an action without a HANDLER");
1dfe7606 1264 sv_setsv(*sigsvp, *svp);
2304df62 1265 mg_set(*sigsvp); /* handles DEFAULT and IGNORE */
1dfe7606 1266 if(SvPOK(*svp)) {
1267 char *s=SvPVX(*svp);
1268 if(strEQ(s,"IGNORE")) {
1269 act.sa_handler = SIG_IGN;
1270 }
1271 else if(strEQ(s,"DEFAULT")) {
1272 act.sa_handler = SIG_DFL;
1273 }
1274 else {
1275 act.sa_handler = PL_sighandlerp;
1276 }
1277 }
1278 else {
1279 act.sa_handler = PL_sighandlerp;
1280 }
2304df62 1281
1282 /* Set up any desired mask. */
1283 svp = hv_fetch(action, "MASK", 4, FALSE);
1284 if (svp && sv_isa(*svp, "POSIX::SigSet")) {
ac634a9a 1285 IV tmp = SvIV((SV*)SvRV(*svp));
1dfe7606 1286 sigset = INT2PTR(sigset_t*, tmp);
2304df62 1287 act.sa_mask = *sigset;
1288 }
1289 else
85e6fe83 1290 sigemptyset(& act.sa_mask);
2304df62 1291
1292 /* Set up any desired flags. */
1293 svp = hv_fetch(action, "FLAGS", 5, FALSE);
1294 act.sa_flags = svp ? SvIV(*svp) : 0;
2304df62 1295
1dfe7606 1296 /* Don't worry about cleaning up *sigsvp if this fails,
1297 * because that means we tried to disposition a
1298 * nonblockable signal, in which case *sigsvp is
1299 * essentially meaningless anyway.
1300 */
6c418a22 1301 RETVAL = sigaction(sig, & act, (struct sigaction *)0);
15c0d34a 1302 if(RETVAL == -1)
1303 XSRETURN_UNDEF;
2304df62 1304 }
1dfe7606 1305
1306 LEAVE;
2304df62 1307 }
6dead956 1308#endif
2304df62 1309 OUTPUT:
1310 RETVAL
1311
1312SysRet
1313sigpending(sigset)
1314 POSIX::SigSet sigset
1315
1316SysRet
1317sigprocmask(how, sigset, oldsigset = 0)
1318 int how
1319 POSIX::SigSet sigset
33c27489 1320 POSIX::SigSet oldsigset = NO_INIT
1321INIT:
1322 if ( items < 3 ) {
1323 oldsigset = 0;
1324 }
1325 else if (sv_derived_from(ST(2), "POSIX::SigSet")) {
1326 IV tmp = SvIV((SV*)SvRV(ST(2)));
56431972 1327 oldsigset = INT2PTR(POSIX__SigSet,tmp);
33c27489 1328 }
1329 else {
01667c76 1330 New(0, oldsigset, 1, sigset_t);
33c27489 1331 sigemptyset(oldsigset);
1332 sv_setref_pv(ST(2), "POSIX::SigSet", (void*)oldsigset);
1333 }
2304df62 1334
1335SysRet
1336sigsuspend(signal_mask)
1337 POSIX::SigSet signal_mask
1338
2304df62 1339void
1340_exit(status)
1341 int status
8990e307 1342
85e6fe83 1343SysRet
8990e307 1344close(fd)
1345 int fd
1346
85e6fe83 1347SysRet
8990e307 1348dup(fd)
1349 int fd
1350
85e6fe83 1351SysRet
8990e307 1352dup2(fd1, fd2)
1353 int fd1
1354 int fd2
1355
94b6baf5 1356SysRetLong
a0d0e21e 1357lseek(fd, offset, whence)
85e6fe83 1358 int fd
1359 Off_t offset
1360 int whence
8990e307 1361
85e6fe83 1362SysRet
8990e307 1363nice(incr)
1364 int incr
1365
8063af02 1366void
8990e307 1367pipe()
85e6fe83 1368 PPCODE:
1369 int fds[2];
85e6fe83 1370 if (pipe(fds) != -1) {
924508f0 1371 EXTEND(SP,2);
85e6fe83 1372 PUSHs(sv_2mortal(newSViv(fds[0])));
1373 PUSHs(sv_2mortal(newSViv(fds[1])));
1374 }
8990e307 1375
85e6fe83 1376SysRet
a0d0e21e 1377read(fd, buffer, nbytes)
7747499c 1378 PREINIT:
1379 SV *sv_buffer = SvROK(ST(1)) ? SvRV(ST(1)) : ST(1);
1380 INPUT:
1381 int fd
1382 size_t nbytes
1383 char * buffer = sv_grow( sv_buffer, nbytes+1 );
a0d0e21e 1384 CLEANUP:
7747499c 1385 if (RETVAL >= 0) {
1386 SvCUR(sv_buffer) = RETVAL;
1387 SvPOK_only(sv_buffer);
1388 *SvEND(sv_buffer) = '\0';
bbce6d69 1389 SvTAINTED_on(sv_buffer);
7747499c 1390 }
8990e307 1391
85e6fe83 1392SysRet
8990e307 1393setpgid(pid, pgid)
86200d5c 1394 pid_t pid
1395 pid_t pgid
8990e307 1396
86200d5c 1397pid_t
8990e307 1398setsid()
1399
86200d5c 1400pid_t
8990e307 1401tcgetpgrp(fd)
1402 int fd
1403
85e6fe83 1404SysRet
8990e307 1405tcsetpgrp(fd, pgrp_id)
1406 int fd
86200d5c 1407 pid_t pgrp_id
8990e307 1408
8063af02 1409void
8990e307 1410uname()
2304df62 1411 PPCODE:
a0d0e21e 1412#ifdef HAS_UNAME
85e6fe83 1413 struct utsname buf;
85e6fe83 1414 if (uname(&buf) >= 0) {
924508f0 1415 EXTEND(SP, 5);
85e6fe83 1416 PUSHs(sv_2mortal(newSVpv(buf.sysname, 0)));
1417 PUSHs(sv_2mortal(newSVpv(buf.nodename, 0)));
1418 PUSHs(sv_2mortal(newSVpv(buf.release, 0)));
1419 PUSHs(sv_2mortal(newSVpv(buf.version, 0)));
1420 PUSHs(sv_2mortal(newSVpv(buf.machine, 0)));
8990e307 1421 }
a0d0e21e 1422#else
1423 uname((char *) 0); /* A stub to call not_here(). */
1424#endif
8990e307 1425
85e6fe83 1426SysRet
a0d0e21e 1427write(fd, buffer, nbytes)
1428 int fd
1429 char * buffer
1430 size_t nbytes
1431
33f01dd1 1432SV *
1433tmpnam()
1434 PREINIT:
1435 STRLEN i;
1436 int len;
1437 CODE:
1438 RETVAL = newSVpvn("", 0);
1439 SvGROW(RETVAL, L_tmpnam);
1440 len = strlen(tmpnam(SvPV(RETVAL, i)));
1441 SvCUR_set(RETVAL, len);
1442 OUTPUT:
1443 RETVAL
a0d0e21e 1444
1445void
1446abort()
1447
1448int
1449mblen(s, n)
1450 char * s
1451 size_t n
1452
1453size_t
1454mbstowcs(s, pwcs, n)
1455 wchar_t * s
1456 char * pwcs
1457 size_t n
1458
1459int
1460mbtowc(pwc, s, n)
1461 wchar_t * pwc
1462 char * s
1463 size_t n
1464
1465int
1466wcstombs(s, pwcs, n)
1467 char * s
1468 wchar_t * pwcs
1469 size_t n
1470
1471int
1472wctomb(s, wchar)
1473 char * s
1474 wchar_t wchar
1475
1476int
1477strcoll(s1, s2)
1478 char * s1
1479 char * s2
1480
a89d8a78 1481void
1482strtod(str)
1483 char * str
1484 PREINIT:
1485 double num;
1486 char *unparsed;
1487 PPCODE:
36477c24 1488 SET_NUMERIC_LOCAL();
a89d8a78 1489 num = strtod(str, &unparsed);
1490 PUSHs(sv_2mortal(newSVnv(num)));
1491 if (GIMME == G_ARRAY) {
924508f0 1492 EXTEND(SP, 1);
a89d8a78 1493 if (unparsed)
1494 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
1495 else
6b88bc9c 1496 PUSHs(&PL_sv_undef);
a89d8a78 1497 }
1498
1499void
1500strtol(str, base = 0)
1501 char * str
1502 int base
1503 PREINIT:
1504 long num;
1505 char *unparsed;
1506 PPCODE:
1507 num = strtol(str, &unparsed, base);
42718184 1508#if IVSIZE <= LONGSIZE
1509 if (num < IV_MIN || num > IV_MAX)
a89d8a78 1510 PUSHs(sv_2mortal(newSVnv((double)num)));
42718184 1511 else
1512#endif
1513 PUSHs(sv_2mortal(newSViv((IV)num)));
a89d8a78 1514 if (GIMME == G_ARRAY) {
924508f0 1515 EXTEND(SP, 1);
a89d8a78 1516 if (unparsed)
1517 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
1518 else
6b88bc9c 1519 PUSHs(&PL_sv_undef);
a89d8a78 1520 }
1521
1522void
1523strtoul(str, base = 0)
1524 char * str
1525 int base
1526 PREINIT:
1527 unsigned long num;
1528 char *unparsed;
1529 PPCODE:
1530 num = strtoul(str, &unparsed, base);
1531 if (num <= IV_MAX)
1532 PUSHs(sv_2mortal(newSViv((IV)num)));
1533 else
1534 PUSHs(sv_2mortal(newSVnv((double)num)));
1535 if (GIMME == G_ARRAY) {
924508f0 1536 EXTEND(SP, 1);
a89d8a78 1537 if (unparsed)
1538 PUSHs(sv_2mortal(newSViv(strlen(unparsed))));
1539 else
6b88bc9c 1540 PUSHs(&PL_sv_undef);
a89d8a78 1541 }
1542
8063af02 1543void
a0d0e21e 1544strxfrm(src)
1545 SV * src
85e6fe83 1546 CODE:
a0d0e21e 1547 {
1548 STRLEN srclen;
1549 STRLEN dstlen;
1550 char *p = SvPV(src,srclen);
1551 srclen++;
748a9306 1552 ST(0) = sv_2mortal(NEWSV(800,srclen));
a0d0e21e 1553 dstlen = strxfrm(SvPVX(ST(0)), p, (size_t)srclen);
1554 if (dstlen > srclen) {
1555 dstlen++;
1556 SvGROW(ST(0), dstlen);
1557 strxfrm(SvPVX(ST(0)), p, (size_t)dstlen);
1558 dstlen--;
1559 }
1560 SvCUR(ST(0)) = dstlen;
1561 SvPOK_only(ST(0));
1562 }
1563
1564SysRet
1565mkfifo(filename, mode)
1566 char * filename
1567 Mode_t mode
748a9306 1568 CODE:
1569 TAINT_PROPER("mkfifo");
1570 RETVAL = mkfifo(filename, mode);
1571 OUTPUT:
1572 RETVAL
a0d0e21e 1573
1574SysRet
1575tcdrain(fd)
1576 int fd
1577
1578
1579SysRet
1580tcflow(fd, action)
1581 int fd
1582 int action
1583
1584
1585SysRet
1586tcflush(fd, queue_selector)
1587 int fd
1588 int queue_selector
1589
1590SysRet
1591tcsendbreak(fd, duration)
1592 int fd
1593 int duration
1594
1595char *
1596asctime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
1597 int sec
1598 int min
1599 int hour
1600 int mday
1601 int mon
1602 int year
1603 int wday
1604 int yday
1605 int isdst
1606 CODE:
1607 {
1608 struct tm mytm;
7747499c 1609 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e 1610 mytm.tm_sec = sec;
1611 mytm.tm_min = min;
1612 mytm.tm_hour = hour;
1613 mytm.tm_mday = mday;
1614 mytm.tm_mon = mon;
1615 mytm.tm_year = year;
1616 mytm.tm_wday = wday;
1617 mytm.tm_yday = yday;
1618 mytm.tm_isdst = isdst;
1619 RETVAL = asctime(&mytm);
1620 }
1621 OUTPUT:
1622 RETVAL
1623
1624long
1625clock()
1626
1627char *
1628ctime(time)
748a9306 1629 Time_t &time
8990e307 1630
37120919 1631void
1632times()
1633 PPCODE:
1634 struct tms tms;
1635 clock_t realtime;
1636 realtime = times( &tms );
924508f0 1637 EXTEND(SP,5);
9607fc9c 1638 PUSHs( sv_2mortal( newSViv( (IV) realtime ) ) );
1639 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_utime ) ) );
1640 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_stime ) ) );
1641 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cutime ) ) );
1642 PUSHs( sv_2mortal( newSViv( (IV) tms.tms_cstime ) ) );
37120919 1643
a0d0e21e 1644double
1645difftime(time1, time2)
1646 Time_t time1
1647 Time_t time2
1648
1649SysRetLong
1650mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
1651 int sec
1652 int min
1653 int hour
1654 int mday
1655 int mon
1656 int year
1657 int wday
1658 int yday
1659 int isdst
1660 CODE:
1661 {
1662 struct tm mytm;
7747499c 1663 init_tm(&mytm); /* XXX workaround - see init_tm() above */
a0d0e21e 1664 mytm.tm_sec = sec;
1665 mytm.tm_min = min;
1666 mytm.tm_hour = hour;
1667 mytm.tm_mday = mday;
1668 mytm.tm_mon = mon;
1669 mytm.tm_year = year;
1670 mytm.tm_wday = wday;
1671 mytm.tm_yday = yday;
1672 mytm.tm_isdst = isdst;
1673 RETVAL = mktime(&mytm);
1674 }
85e6fe83 1675 OUTPUT:
1676 RETVAL
a0d0e21e 1677
8063af02 1678#XXX: if $xsubpp::WantOptimize is always the default
1679# sv_setpv(TARG, ...) could be used rather than
1680# ST(0) = sv_2mortal(newSVpv(...))
1681void
e44f695e 1682strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
a0d0e21e 1683 char * fmt
1684 int sec
1685 int min
1686 int hour
1687 int mday
1688 int mon
1689 int year
1690 int wday
1691 int yday
1692 int isdst
1693 CODE:
1694 {
b3c85772 1695 char *buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
2a74cb2d 1696 if (buf) {
1697 ST(0) = sv_2mortal(newSVpv(buf, 0));
bf8afc63 1698 Safefree(buf);
2a74cb2d 1699 }
a0d0e21e 1700 }
1701
1702void
1703tzset()
1704
1705void
1706tzname()
1707 PPCODE:
924508f0 1708 EXTEND(SP,2);
79cb57f6 1709 PUSHs(sv_2mortal(newSVpvn(tzname[0],strlen(tzname[0]))));
1710 PUSHs(sv_2mortal(newSVpvn(tzname[1],strlen(tzname[1]))));
a0d0e21e 1711
1712SysRet
1713access(filename, mode)
1714 char * filename
1715 Mode_t mode
1716
1717char *
1718ctermid(s = 0)
1719 char * s = 0;
1720
1721char *
1722cuserid(s = 0)
1723 char * s = 0;
1724
1725SysRetLong
1726fpathconf(fd, name)
1727 int fd
1728 int name
1729
1730SysRetLong
1731pathconf(filename, name)
1732 char * filename
1733 int name
1734
1735SysRet
1736pause()
1737
a043a685 1738SysRet
1739setgid(gid)
1740 Gid_t gid
1741
1742SysRet
1743setuid(uid)
1744 Uid_t uid
1745
a0d0e21e 1746SysRetLong
1747sysconf(name)
1748 int name
1749
1750char *
1751ttyname(fd)
1752 int fd
a043a685 1753
c6c619a9 1754void
b5846a0b 1755getcwd()
8f95b30d 1756 PPCODE:
1757 {
1758 dXSTARG;
89423764 1759 getcwd_sv(TARG);
8f95b30d 1760 XSprePUSH; PUSHTARG;
1761 }
1762
Unnamed repository; edit this file to name it for gitweb.