Changeset 18062 for gsdl/trunk/common-src

Timestamp:

2008-12-04T12:38:05+13:00 (15 years ago)

Author:

mdewsnip

Message:

Added "my_locking" function from old Windows port of GDBM.

File:

• gsdl/trunk/common-src/packages/gdbm/gdbm-1.8.3/global.c (modified) (1 diff)

gsdl/trunk/common-src/packages/gdbm/gdbm-1.8.3/global.c

@@ -45 +45 @@
 /* The dbm error number is placed in the variable GDBM_ERRNO. */
 gdbm_error gdbm_errno = GDBM_NO_ERROR;
+
+#ifdef MSDOS
+
+#include <io.h>
+#include <windows.h>
+
+/* a simple locking function for windows that uses file descriptors */
+int my_locking(int fh, int lmode, long lockoffset, long nbytes) {
+    int result = -1;
+    int trys = 10;
+
+    lseek (fh, lockoffset, L_SET);
+
+    while (trys > 0 && result != 0) {
+        if (lmode == MY_UNLOCK) {
+            if (UnlockFile((HANDLE)_get_osfhandle(fh),lockoffset,0,nbytes,0))
+                result = 0;
+
+        } else if (lmode == MY_READLOCK) {
+/*          if (LockFileEx((HANDLE)_get_osfhandle(fh),0,0,nbytes,0,0))*/
+            if (LockFile((HANDLE)_get_osfhandle(fh),lockoffset,0,nbytes,0))
+                result = 0;
+
+        } else if (lmode == MY_WRITELOCK) {
+            if (LockFile((HANDLE)_get_osfhandle(fh),lockoffset,0,nbytes,0))
+                result = 0;
+        }
+
+        Sleep(100L);
+        trys--;
+    }
+
+    return result;
+}
+
+#endif