]> mj.ucw.cz Git - libucw.git/blob - lib/perl/Filelock/Filelock.xs
df92e035693ea1df6b6e47c9d5322ed19d655a6a
[libucw.git] / lib / perl / Filelock / Filelock.xs
1 /*
2  * PerlXS module for managing file locks
3  *
4  * (c) 2007 Pavel Charvat <pchar@ucw.cz>
5  */
6
7 #include "EXTERN.h"
8 #include "perl.h"
9 #include "XSUB.h"
10
11 #include <unistd.h>
12 #include <fcntl.h>
13
14
15 MODULE = UCW::Filelock          PACKAGE = UCW::Filelock
16
17 PROTOTYPES: ENABLED
18
19 int
20 fcntl_lock(IN int fd, IN int cmd, IN int type, IN int whence, IN int start, IN int len)
21 CODE:
22         struct flock fl;
23         fl.l_type = type;
24         fl.l_whence = whence;
25         fl.l_start = start;
26         fl.l_len = len;
27
28         RETVAL = fcntl(fd, cmd, &fl);
29 OUTPUT:
30         RETVAL