[ViewVC] Diff of: cvs/IO-AIO/AIO.xs

Comparing IO-AIO/AIO.xs (file contents):
Revision 1.155 by root, Fri Jul 17 00:56:54 2009 UTC vs.
Revision 1.162 by root, Sun Jan 10 23:05:12 2010 UTC

…		…
11	#include <stddef.h>	11	#include <stddef.h>
12	#include <stdlib.h>	12	#include <stdlib.h>
13	#include <errno.h>	13	#include <errno.h>
14	#include <sys/types.h>	14	#include <sys/types.h>
15	#include <sys/stat.h>	15	#include <sys/stat.h>
		16	#include <sys/statvfs.h>
16	#include <limits.h>	17	#include <limits.h>
17	#include <fcntl.h>	18	#include <fcntl.h>
18	#include <sched.h>	19	#include <sched.h>
		20
		21	#if _POSIX_MEMLOCK \|\| _POSIX_MAPPED_FILES
		22	# include <sys/mman.h>
		23	#endif
		24
		25	#if !_POSIX_MAPPED_FILES
		26	# define mmap(addr,length,prot,flags,fd,offs) (errno = ENOSYS, -1)
		27	# define munmap(addr,length) (errno = ENOSYS, -1)
		28	#endif
19		29
20	/* perl namespace pollution */	30	/* perl namespace pollution */
21	#undef VERSION	31	#undef VERSION
22		32
23	#ifdef _WIN32	33	#ifdef _WIN32
…		…
99	#define expect_false(expr) expect ((expr) != 0, 0)	109	#define expect_false(expr) expect ((expr) != 0, 0)
100	#define expect_true(expr) expect ((expr) != 0, 1)	110	#define expect_true(expr) expect ((expr) != 0, 1)
101		111
102	/*****************************************************************************/	112	/*****************************************************************************/
103		113
104	static HV *stash;
105	typedef SV SV8; /* byte-sv, used for argument-checking */	114	typedef SV SV8; /* byte-sv, used for argument-checking */
106	typedef int aio_rfd; /* read file desriptor */	115	typedef int aio_rfd; /* read file desriptor */
107	typedef int aio_wfd; /* write file descriptor */	116	typedef int aio_wfd; /* write file descriptor */
108		117
109	#define AIO_REQ_KLASS "IO::AIO::REQ"	118	static HV aio_stash, aio_req_stash, *aio_grp_stash;
110	#define AIO_GRP_KLASS "IO::AIO::GRP"
111		119
112	#define EIO_REQ_MEMBERS \	120	#define EIO_REQ_MEMBERS \
113	SV *callback; \	121	SV *callback; \
114	SV sv1, sv2; \	122	SV sv1, sv2; \
115	STRLEN stroffset; \	123	STRLEN stroffset; \
…		…
121		129
122	#ifndef POSIX_FADV_NORMAL	130	#ifndef POSIX_FADV_NORMAL
123	# define POSIX_FADV_NORMAL 0	131	# define POSIX_FADV_NORMAL 0
124	# define NO_FADVISE 1	132	# define NO_FADVISE 1
125	#endif	133	#endif
126
127	#ifndef POSIX_FADV_SEQUENTIAL	134	#ifndef POSIX_FADV_SEQUENTIAL
128	# define POSIX_FADV_SEQUENTIAL 0	135	# define POSIX_FADV_SEQUENTIAL 0
129	#endif	136	#endif
130
131	#ifndef POSIX_FADV_RANDOM	137	#ifndef POSIX_FADV_RANDOM
132	# define POSIX_FADV_RANDOM 0	138	# define POSIX_FADV_RANDOM 0
133	#endif	139	#endif
134
135	#ifndef POSIX_FADV_NOREUSE	140	#ifndef POSIX_FADV_NOREUSE
136	# define POSIX_FADV_NOREUSE 0	141	# define POSIX_FADV_NOREUSE 0
137	#endif	142	#endif
138
139	#ifndef POSIX_FADV_WILLNEED	143	#ifndef POSIX_FADV_WILLNEED
140	# define POSIX_FADV_WILLNEED 0	144	# define POSIX_FADV_WILLNEED 0
141	#endif	145	#endif
142
143	#ifndef POSIX_FADV_DONTNEED	146	#ifndef POSIX_FADV_DONTNEED
144	# define POSIX_FADV_DONTNEED 0	147	# define POSIX_FADV_DONTNEED 0
		148	#endif
		149
		150	#ifndef ST_NODEV
		151	# define ST_NODEV 0
		152	#endif
		153	#ifndef ST_NOEXEC
		154	# define ST_NOEXEC 0
		155	#endif
		156	#ifndef ST_SYNCHRONOUS
		157	# define ST_SYNCHRONOUS 0
		158	#endif
		159	#ifndef ST_MANDLOCK
		160	# define ST_MANDLOCK 0
		161	#endif
		162	#ifndef ST_WRITE
		163	# define ST_WRITE 0
		164	#endif
		165	#ifndef ST_APPEND
		166	# define ST_APPEND 0
		167	#endif
		168	#ifndef ST_IMMUTABLE
		169	# define ST_IMMUTABLE 0
		170	#endif
		171	#ifndef ST_NOATIME
		172	# define ST_NOATIME 0
		173	#endif
		174	#ifndef ST_NODIRATIME
		175	# define ST_NODIRATIME 0
		176	#endif
		177	#ifndef ST_RELATIME
		178	# define ST_RELATIME 0
		179	#endif
		180
		181	#ifndef MCL_CURRENT
		182	# define MCL_CURRENT 0
		183	#endif
		184	#ifndef MCL_FUTURE
		185	# define MCL_FUTURE 0
		186	#endif
		187
		188	#ifndef MAP_ANONYMOUS
		189	# ifdef MAP_ANON
		190	# define MAP_ANONYMOUS MAP_ANON
		191	# else
		192	# define MAP_ANONYMOUS MAP_FIXED /* and hope this fails */
		193	# endif
		194	#endif
		195	#ifndef MAP_HUGETLB
		196	# define MAP_HUGETLB 0
		197	#endif
		198	#ifndef MAP_LOCKED
		199	# define MAP_LOCKED 0
		200	#endif
		201	#ifndef MAP_NORESERVE
		202	# define MAP_NORESERVE 0
		203	#endif
		204	#ifndef MAP_POPULATE
		205	# define MAP_POPULATE 0
		206	#endif
		207	#ifndef MAP_NONBLOCK
		208	# define MAP_NONBLOCK 0
		209	#endif
		210
		211	#ifndef PAGESIZE
		212	# define PAGESIZE sysconf (_SC_PAGESIZE)
145	#endif	213	#endif
146		214
147	static int req_invoke (eio_req *req);	215	static int req_invoke (eio_req *req);
148	#define EIO_FINISH(req) req_invoke (req)	216	#define EIO_FINISH(req) req_invoke (req)
149	static void req_destroy (eio_req *grp);	217	static void req_destroy (eio_req *grp);
…		…
178	/* read any signals sent by the worker threads */	246	/* read any signals sent by the worker threads */
179	s_epipe_drain (&respipe);	247	s_epipe_drain (&respipe);
180	}	248	}
181		249
182	/* must be called at most once */	250	/* must be called at most once */
183	static SV req_sv (aio_req req, const char klass)	251	static SV req_sv (aio_req req, HV stash)
184	{	252	{
185	if (!req->self)	253	if (!req->self)
186	{	254	{
187	req->self = (SV *)newHV ();	255	req->self = (SV *)newHV ();
188	sv_magic (req->self, 0, PERL_MAGIC_ext, (char *)req, 0);	256	sv_magic (req->self, 0, PERL_MAGIC_ext, (char *)req, 0);
189	}	257	}
190		258
191	return sv_2mortal (sv_bless (newRV_inc (req->self), gv_stashpv (klass, 1)));	259	return sv_2mortal (sv_bless (newRV_inc (req->self), stash));
192	}	260	}
193		261
194	static aio_req SvAIO_REQ (SV *sv)	262	static aio_req SvAIO_REQ (SV *sv)
195	{	263	{
196	MAGIC *mg;	264	MAGIC *mg;
197		265
198	if (!sv_derived_from (sv, AIO_REQ_KLASS) \|\| !SvROK (sv))	266	if (!SvROK (sv)
		267	\|\| (SvSTASH (SvRV (sv)) != aio_grp_stash
		268	&& SvSTASH (SvRV (sv)) != aio_req_stash
		269	&& !sv_derived_from (sv, "IO::AIO::REQ")))
199	croak ("object of class " AIO_REQ_KLASS " expected");	270	croak ("object of class IO::AIO::REQ expected");
200		271
201	mg = mg_find (SvRV (sv), PERL_MAGIC_ext);	272	mg = mg_find (SvRV (sv), PERL_MAGIC_ext);
202		273
203	return mg ? (aio_req)mg->mg_ptr : 0;	274	return mg ? (aio_req)mg->mg_ptr : 0;
204	}	275	}
…		…
210	dSP;	281	dSP;
211		282
212	ENTER;	283	ENTER;
213	SAVETMPS;	284	SAVETMPS;
214	PUSHMARK (SP);	285	PUSHMARK (SP);
215	XPUSHs (req_sv (grp, AIO_GRP_KLASS));	286	XPUSHs (req_sv (grp, aio_grp_stash));
216	PUTBACK;	287	PUTBACK;
217	call_sv (grp->sv2, G_VOID \| G_EVAL \| G_KEEPERR);	288	call_sv (grp->sv2, G_VOID \| G_EVAL \| G_KEEPERR);
218	SPAGAIN;	289	SPAGAIN;
219	FREETMPS;	290	FREETMPS;
220	LEAVE;	291	LEAVE;
…		…
326	int flags = req->int1 & (O_RDONLY \| O_WRONLY \| O_RDWR);	397	int flags = req->int1 & (O_RDONLY \| O_WRONLY \| O_RDWR);
327	char sym [64];	398	char sym [64];
328	int symlen;	399	int symlen;
329		400
330	symlen = snprintf (sym, sizeof (sym), "fd#%d", (int)req->result);	401	symlen = snprintf (sym, sizeof (sym), "fd#%d", (int)req->result);
331	gv_init (gv, stash, sym, symlen, 0);	402	gv_init (gv, aio_stash, sym, symlen, 0);
332		403
333	symlen = snprintf (	404	symlen = snprintf (
334	sym,	405	sym,
335	sizeof (sym),	406	sizeof (sym),
336	"%s&=%d",	407	"%s&=%d",
…		…
342	fh = (SV *)gv;	413	fh = (SV *)gv;
343	}	414	}
344		415
345	PUSHs (fh);	416	PUSHs (fh);
346	}	417	}
		418	break;
		419
		420	case EIO_STATVFS:
		421	case EIO_FSTATVFS:
		422	{
		423	SV *rv = &PL_sv_undef;
		424
		425	if (req->result >= 0)
		426	{
		427	EIO_STRUCT_STATVFS *f = EIO_STATVFS_BUF (req);
		428	HV *hv = newHV ();
		429
		430	rv = sv_2mortal (newRV_noinc ((SV *)hv));
		431
		432	hv_store (hv, "bsize" , sizeof ("bsize" ) - 1, newSVval64 (f->f_bsize ), 0);
		433	hv_store (hv, "frsize" , sizeof ("frsize" ) - 1, newSVval64 (f->f_frsize ), 0);
		434	hv_store (hv, "blocks" , sizeof ("blocks" ) - 1, newSVval64 (f->f_blocks ), 0);
		435	hv_store (hv, "bfree" , sizeof ("bfree" ) - 1, newSVval64 (f->f_bfree ), 0);
		436	hv_store (hv, "bavail" , sizeof ("bavail" ) - 1, newSVval64 (f->f_bavail ), 0);
		437	hv_store (hv, "files" , sizeof ("files" ) - 1, newSVval64 (f->f_files ), 0);
		438	hv_store (hv, "ffree" , sizeof ("ffree" ) - 1, newSVval64 (f->f_ffree ), 0);
		439	hv_store (hv, "favail" , sizeof ("favail" ) - 1, newSVval64 (f->f_favail ), 0);
		440	hv_store (hv, "fsid" , sizeof ("fsid" ) - 1, newSVval64 (f->f_fsid ), 0);
		441	hv_store (hv, "flag" , sizeof ("flag" ) - 1, newSVval64 (f->f_flag ), 0);
		442	hv_store (hv, "namemax", sizeof ("namemax") - 1, newSVval64 (f->f_namemax), 0);
		443	}
		444
		445	PUSHs (rv);
		446	}
		447
347	break;	448	break;
348		449
349	case EIO_GROUP:	450	case EIO_GROUP:
350	req->int1 = 2; /* mark group as finished */	451	req->int1 = 2; /* mark group as finished */
351		452
…		…
485		586
486	static void atfork_child (void)	587	static void atfork_child (void)
487	{	588	{
488	create_respipe ();	589	create_respipe ();
489	}	590	}
		591
		592	/*****************************************************************************/
		593
		594	#define MMAP_MAGIC PERL_MAGIC_ext
		595
		596	static int
		597	mmap_free (pTHX_ SV sv, MAGIC mg)
		598	{
		599	int old_errno = errno;
		600	munmap (mg->mg_ptr, (size_t)mg->mg_obj);
		601	errno = old_errno;
		602
		603	mg->mg_obj = 0; /* just in case */
		604
		605	SvREADONLY_off (sv);
		606	SvCUR_set (sv, 0);
		607	SvLEN_set (sv, 0);
		608	SvPVX (sv) = 0;
		609	SvOK_off (sv);
		610
		611	return 0;
		612	}
		613
		614	static MGVTBL mmap_vtbl = {
		615	0, 0, 0, 0, mmap_free
		616	};
		617
		618	/*****************************************************************************/
490		619
491	static SV *	620	static SV *
492	get_cb (SV *cb_sv)	621	get_cb (SV *cb_sv)
493	{	622	{
494	SvGETMAGIC (cb_sv);	623	SvGETMAGIC (cb_sv);
…		…
514	PUTBACK; \	643	PUTBACK; \
515	req_submit (req); \	644	req_submit (req); \
516	SPAGAIN; \	645	SPAGAIN; \
517	\	646	\
518	if (GIMME_V != G_VOID) \	647	if (GIMME_V != G_VOID) \
519	XPUSHs (req_sv (req, AIO_REQ_KLASS));	648	XPUSHs (req_sv (req, aio_req_stash));
520		649
521	MODULE = IO::AIO PACKAGE = IO::AIO	650	MODULE = IO::AIO PACKAGE = IO::AIO
522		651
523	PROTOTYPES: ENABLE	652	PROTOTYPES: ENABLE
524		653
…		…
526	{	655	{
527	static const struct {	656	static const struct {
528	const char *name;	657	const char *name;
529	IV iv;	658	IV iv;
530	} *civ, const_iv[] = {	659	} *civ, const_iv[] = {
531	# define const_iv(name, value) { # name, (IV) value },	660	# define const_niv(name, value) { # name, (IV) value },
		661	# define const_iv(name) { # name, (IV) name },
532	# define const_eio(name) { # name, (IV) EIO_ ## name },	662	# define const_eio(name) { # name, (IV) EIO_ ## name },
533	const_iv (EXDEV , EXDEV)	663	const_iv (EXDEV)
534	const_iv (ENOSYS , ENOSYS)	664	const_iv (ENOSYS)
535	const_iv (O_RDONLY, O_RDONLY)	665	const_iv (O_RDONLY)
536	const_iv (O_WRONLY, O_WRONLY)	666	const_iv (O_WRONLY)
537	const_iv (O_CREAT , O_CREAT)	667	const_iv (O_CREAT)
538	const_iv (O_TRUNC , O_TRUNC)	668	const_iv (O_TRUNC)
539	#ifndef _WIN32	669	#ifndef _WIN32
540	const_iv (S_IFIFO , S_IFIFO)	670	const_iv (S_IFIFO)
541	#endif	671	#endif
542	const_iv (FADV_NORMAL , POSIX_FADV_NORMAL)	672	const_niv (FADV_NORMAL , POSIX_FADV_NORMAL)
543	const_iv (FADV_SEQUENTIAL, POSIX_FADV_SEQUENTIAL)	673	const_niv (FADV_SEQUENTIAL, POSIX_FADV_SEQUENTIAL)
544	const_iv (FADV_RANDOM , POSIX_FADV_RANDOM)	674	const_niv (FADV_RANDOM , POSIX_FADV_RANDOM)
545	const_iv (FADV_NOREUSE , POSIX_FADV_NOREUSE)	675	const_niv (FADV_NOREUSE , POSIX_FADV_NOREUSE)
546	const_iv (FADV_WILLNEED , POSIX_FADV_WILLNEED)	676	const_niv (FADV_WILLNEED , POSIX_FADV_WILLNEED)
547	const_iv (FADV_DONTNEED , POSIX_FADV_DONTNEED)	677	const_niv (FADV_DONTNEED , POSIX_FADV_DONTNEED)
		678
		679	const_iv (ST_RDONLY)
		680	const_iv (ST_NOSUID)
		681	const_iv (ST_NODEV)
		682	const_iv (ST_NOEXEC)
		683	const_iv (ST_SYNCHRONOUS)
		684	const_iv (ST_MANDLOCK)
		685	const_iv (ST_WRITE)
		686	const_iv (ST_APPEND)
		687	const_iv (ST_IMMUTABLE)
		688	const_iv (ST_NOATIME)
		689	const_iv (ST_NODIRATIME)
		690	const_iv (ST_RELATIME)
		691
		692	const_iv (PROT_EXEC)
		693	const_iv (PROT_NONE)
		694	const_iv (PROT_READ)
		695	const_iv (PROT_WRITE)
		696
		697	/const_iv (MAP_FIXED)/
		698	const_iv (MAP_PRIVATE)
		699	const_iv (MAP_SHARED)
		700	const_iv (MAP_ANONYMOUS)
		701
		702	/* linuxish */
		703	const_iv (MAP_HUGETLB)
		704	const_iv (MAP_LOCKED)
		705	const_iv (MAP_NORESERVE)
		706	const_iv (MAP_POPULATE)
		707	const_iv (MAP_NONBLOCK)
		708
		709	const_iv (MCL_FUTURE)
		710	const_iv (MCL_CURRENT)
		711
		712	const_eio (MS_ASYNC)
		713	const_eio (MS_INVALIDATE)
		714	const_eio (MS_SYNC)
		715
		716	const_eio (MT_MODIFY)
548		717
549	const_eio (SYNC_FILE_RANGE_WAIT_BEFORE)	718	const_eio (SYNC_FILE_RANGE_WAIT_BEFORE)
550	const_eio (SYNC_FILE_RANGE_WRITE)	719	const_eio (SYNC_FILE_RANGE_WRITE)
551	const_eio (SYNC_FILE_RANGE_WAIT_AFTER)	720	const_eio (SYNC_FILE_RANGE_WAIT_AFTER)
552		721
…		…
564	const_eio (DT_LNK)	733	const_eio (DT_LNK)
565	const_eio (DT_SOCK)	734	const_eio (DT_SOCK)
566	const_eio (DT_WHT)	735	const_eio (DT_WHT)
567	};	736	};
568		737
569	stash = gv_stashpv ("IO::AIO", 1);	738	aio_stash = gv_stashpv ("IO::AIO" , 1);
		739	aio_req_stash = gv_stashpv ("IO::AIO::REQ", 1);
		740	aio_grp_stash = gv_stashpv ("IO::AIO::GRP", 1);
570		741
571	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	742	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
572	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	743	newCONSTSUB (aio_stash, (char *)civ->name, newSViv (civ->iv));
		744
		745	newCONSTSUB (aio_stash, "PAGESIZE", newSViv (PAGESIZE));
573		746
574	create_respipe ();	747	create_respipe ();
575		748
576	if (eio_init (want_poll, done_poll) < 0)	749	if (eio_init (want_poll, done_poll) < 0)
577	croak ("IO::AIO: unable to initialise eio library");	750	croak ("IO::AIO: unable to initialise eio library");
…		…
804	}	977	}
805		978
806	void	979	void
807	aio_stat (SV8 fh_or_path, SV callback=&PL_sv_undef)	980	aio_stat (SV8 fh_or_path, SV callback=&PL_sv_undef)
808	ALIAS:	981	ALIAS:
809	aio_stat = EIO_STAT	982	aio_stat = EIO_STAT
810	aio_lstat = EIO_LSTAT	983	aio_lstat = EIO_LSTAT
		984	aio_statvfs = EIO_STATVFS
811	PPCODE:	985	PPCODE:
812	{	986	{
813	dREQ;	987	dREQ;
814		988
815	req->sv1 = newSVsv (fh_or_path);	989	req->sv1 = newSVsv (fh_or_path);
…		…
819	req->type = ix;	993	req->type = ix;
820	req->ptr1 = SvPVbyte_nolen (req->sv1);	994	req->ptr1 = SvPVbyte_nolen (req->sv1);
821	}	995	}
822	else	996	else
823	{	997	{
824	req->type = EIO_FSTAT;	998	req->type = ix == EIO_STATVFS ? EIO_FSTATVFS : EIO_FSTAT;
825	req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));	999	req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
826	}	1000	}
827		1001
828	REQ_SEND;	1002	REQ_SEND;
829	}	1003	}
…		…
992		1166
993	REQ_SEND;	1167	REQ_SEND;
994	}	1168	}
995		1169
996	void	1170	void
		1171	aio_mtouch (SV8 data, IV offset = 0, SV length = &PL_sv_undef, int flags = 0, SV *callback=&PL_sv_undef)
		1172	ALIAS:
		1173	aio_mtouch = EIO_MTOUCH
		1174	aio_msync = EIO_MSYNC
		1175	PROTOTYPE: $$$$;$
		1176	PPCODE:
		1177	{
		1178	STRLEN svlen;
		1179	UV len = SvUV (length);
		1180	char *svptr = SvPVbyte (data, svlen);
		1181
		1182	if (offset < 0)
		1183	offset += svlen;
		1184
		1185	if (offset < 0 \|\| offset > svlen)
		1186	croak ("offset outside of scalar");
		1187
		1188	if (!SvOK (length) \|\| len + offset > svlen)
		1189	len = svlen - offset;
		1190
		1191	{
		1192	dREQ;
		1193
		1194	req->type = ix;
		1195	req->size = len;
		1196	req->sv2 = SvREFCNT_inc (data);
		1197	req->ptr2 = (char *)svptr + offset;
		1198	req->int1 = flags;
		1199
		1200	REQ_SEND;
		1201	}
		1202	}
		1203
		1204	void
997	aio_busy (double delay, SV *callback=&PL_sv_undef)	1205	aio_busy (double delay, SV *callback=&PL_sv_undef)
998	PPCODE:	1206	PPCODE:
999	{	1207	{
1000	dREQ;	1208	dREQ;
1001		1209
…		…
1013	dREQ;	1221	dREQ;
1014		1222
1015	req->type = EIO_GROUP;	1223	req->type = EIO_GROUP;
1016		1224
1017	req_submit (req);	1225	req_submit (req);
1018	XPUSHs (req_sv (req, AIO_GRP_KLASS));	1226	XPUSHs (req_sv (req, aio_grp_stash));
1019	}	1227	}
1020		1228
1021	void	1229	void
1022	aio_nop (SV *callback=&PL_sv_undef)	1230	aio_nop (SV *callback=&PL_sv_undef)
1023	ALIAS:	1231	ALIAS:
…		…
1132	PROTOTYPE: $$$$	1340	PROTOTYPE: $$$$
1133	CODE:	1341	CODE:
1134	#if _XOPEN_SOURCE >= 600 && !NO_FADVISE	1342	#if _XOPEN_SOURCE >= 600 && !NO_FADVISE
1135	RETVAL = posix_fadvise (fh, offset, length, advice);	1343	RETVAL = posix_fadvise (fh, offset, length, advice);
1136	#else	1344	#else
1137	RETVAL = errno = ENOSYS;	1345	RETVAL = errno = ENOSYS; /* yes, this is actually correct */
1138	#endif	1346	#endif
1139	OUTPUT:	1347	OUTPUT:
1140	RETVAL	1348	RETVAL
1141		1349
1142	ssize_t	1350	ssize_t
1143	sendfile (aio_wfd ofh, aio_rfd ifh, off_t offset, size_t count)	1351	sendfile (aio_wfd ofh, aio_rfd ifh, off_t offset, size_t count)
1144	PROTOTYPE: $$$$	1352	PROTOTYPE: $$$$
1145	CODE:	1353	CODE:
1146	eio_sendfile_sync (ofh, ifh, offset, count);	1354	RETVAL = eio_sendfile_sync (ofh, ifh, offset, count);
		1355	OUTPUT:
		1356	RETVAL
		1357
		1358	void
		1359	mmap (SV scalar, size_t length, int prot, int flags, SV fh, off_t offset = 0)
		1360	PROTOTYPE: $$$$$;$
		1361	PPCODE:
		1362	sv_unmagic (scalar, MMAP_MAGIC);
		1363	{
		1364	int fd = SvOK (fh) ? s_fileno_croak (fh, flags & PROT_WRITE) : -1;
		1365	void addr = (void )mmap (0, length, prot, flags, fd, offset);
		1366	if (addr == (void *)-1)
		1367	XSRETURN_NO;
		1368
		1369	/* we store the length in mg_obj, as namlen is I32 :/ */
		1370	sv_magicext (scalar, 0, MMAP_MAGIC, &mmap_vtbl, (char *)addr, 0)
		1371	->mg_obj = (SV *)length;
		1372
		1373	SvUPGRADE (scalar, SVt_PV); /* nop... */
		1374	if (!(prot & PROT_WRITE))
		1375	SvREADONLY_on (scalar);
		1376
		1377	SvPVX (scalar) = (char *)addr;
		1378	SvCUR_set (scalar, length);
		1379	SvLEN_set (scalar, 0);
		1380	SvPOK_only (scalar);
		1381
		1382	XSRETURN_YES;
		1383	}
		1384
		1385	void
		1386	munmap (SV *scalar)
		1387	PROTOTYPE: $
		1388	CODE:
		1389	sv_unmagic (scalar, MMAP_MAGIC);
		1390
		1391	int
		1392	mlockall (int flags)
		1393	PROTOTYPE: $
		1394	CODE:
		1395	#if _POSIX_MEMLOCK
		1396	#if __GLIBC__ == 2 && __GLIBC_MINOR__ <= 7
		1397	extern int mallopt (int, int);
		1398	mallopt (-6, 238); /* http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=473812 */
		1399	#endif
		1400	mlockall (flags);
		1401	#else
		1402	RETVAL = -1;
		1403	errno = ENOSYS;
		1404	#endif
		1405	OUTPUT:
		1406	RETVAL
		1407
		1408	int
		1409	munlockall ()
		1410	PROTOTYPE:
		1411	CODE:
		1412	#if _POSIX_MEMLOCK
		1413	munlockall ();
		1414	#else
		1415	RETVAL = -1;
		1416	errno = ENOSYS;
		1417	#endif
		1418	OUTPUT:
		1419	RETVAL
1147		1420
1148	void _on_next_submit (SV *cb)	1421	void _on_next_submit (SV *cb)
1149	CODE:	1422	CODE:
1150	SvREFCNT_dec (on_next_submit);	1423	SvREFCNT_dec (on_next_submit);
1151	on_next_submit = SvOK (cb) ? newSVsv (cb) : 0;	1424	on_next_submit = SvOK (cb) ? newSVsv (cb) : 0;

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing IO-AIO/AIO.xs (file contents): Revision 1.155 by root, Fri Jul 17 00:56:54 2009 UTC vs. Revision 1.162 by root, Sun Jan 10 23:05:12 2010 UTC

Diff Legend

Comparing IO-AIO/AIO.xs (file contents):
Revision 1.155 by root, Fri Jul 17 00:56:54 2009 UTC vs.
Revision 1.162 by root, Sun Jan 10 23:05:12 2010 UTC