clearlinux/uwsgi
2
0
Fork 0
mirror of https://github.com/clearlinux/uwsgi.git synced 2026-09-01 02:35:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

first attempt of uwsgi_sharedarea_readfast

Browse Source
This commit is contained in:
Roberto De Ioris
2013-11-30 07:31:57 +01:00
parent 98541dbc65
commit 9993e3710c
1 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
plugins/psgi/uwsgi_plmodule.c
+25
View File
@@ -733,6 +733,30 @@ XS(XS_sharedarea_read) {
XSRETURN(1);
}
XS(XS_sharedarea_readfast) {
dXSARGS;
int id;
uint64_t pos;
uint64_t len = 0;
psgi_check_args(3);
id = SvIV(ST(0));
pos = SvIV(ST(1));
char *buf = SvPV_nolen(ST(2));
if (items > 3) {
len = SvIV(ST(3));
}
if (uwsgi_sharedarea_read(id, pos, buf, len)) {
croak("unable to (fast) read from sharedarea %d", id);
XSRETURN_UNDEF;
}
XSRETURN_YES;
}
XS(XS_sharedarea_write) {
dXSARGS;
int id;
@@ -846,6 +870,7 @@ void init_perl_embedded_module() {
psgi_xs(chunked_read_nb);
psgi_xs(sharedarea_read);
psgi_xs(sharedarea_readfast);
psgi_xs(sharedarea_write);
psgi_xs(sharedarea_wait);
}