A fcntl implementation for systems (like Solaris) without flock() call.
By Sjoerd.
diff --git a/Modules/fcntlmodule.c b/Modules/fcntlmodule.c
index d2efd60..c547ed0 100644
--- a/Modules/fcntlmodule.c
+++ b/Modules/fcntlmodule.c
@@ -27,6 +27,8 @@
#include "allobjects.h"
#include "modsupport.h"
+#include <fcntl.h>
+
/* fcntl(fd, opt, [arg]) */
@@ -144,7 +146,32 @@
return NULL;
BGN_SAVE
+#ifdef HAVE_FLOCK
ret = flock(fd, code);
+#else
+
+#ifndef LOCK_SH
+#define LOCK_SH 1 /* shared lock */
+#define LOCK_EX 2 /* exclusive lock */
+#define LOCK_NB 4 /* don't block when locking */
+#define LOCK_UN 8 /* unlock */
+#endif
+ {
+ struct flock l;
+ if (code == LOCK_UN)
+ l.l_type = F_UNLCK;
+ else if (code & LOCK_SH)
+ l.l_type = F_RDLCK;
+ else if (code & LOCK_EX)
+ l.l_type = F_WRLCK;
+ else {
+ err_setstr(ValueError, "unrecognized flock argument");
+ return NULL;
+ }
+ l.l_whence = l.l_start = l.l_len = 0;
+ ret = fcntl(fd, (code & LOCK_NB) ? F_SETLK : F_SETLKW, &l);
+ }
+#endif /* HAVE_FLOCK */
END_SAVE
if (ret < 0) {
err_errno(IOError);