Context Navigation

POSIX.xs

Visit:

Last change on this file was 3181, checked in by bird, 19 years ago
perl 5.8.8
File size: 41.3 KB

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

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: trunk/essentials/dev-lang/perl/ext/POSIX/POSIX.xs

Download in other formats: