From 32785ee2b792009cb8d00a431824b2489caa87e2 Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Mon, 9 Aug 1999 07:36:23 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog            |  4 ++++
 harbour/source/rtl/filesys.c | 12 ++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 50815261f7..f30a8f6eb4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990809-03:23 EDT Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/filesys.c
+     * hb_fsLock implimented for msvc
+
 19990809-07:40 GMT+1 Victor Szel <info@szelvesz.hu>
    * source/odbc moved to contrib/odbc
    * source/rtl/console.c
diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index 4e095e685c..e684b05e02 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -49,7 +49,9 @@
     #include <dir.h>
   #endif
 
-  #if !defined(_MSC_VER)
+  #if defined(_MSC_VER)
+    #include <sys\locking.h>
+  #else
     #if !defined(HAVE_POSIX_IO)
     #define HAVE_POSIX_IO
     #endif
@@ -410,6 +412,7 @@ BOOL    hb_fsLock   ( FHANDLE handle, ULONG start,
                       ULONG length, USHORT mode )
 {
         int result=0;
+        long pos;
 
 #if defined(HAVE_POSIX_IO) && !defined(__GNUC__) && !defined(__IBMCPP__)
         errno = 0;
@@ -424,10 +427,15 @@ BOOL    hb_fsLock   ( FHANDLE handle, ULONG start,
         }
         last_error = errno;
 #else
+#if defined(_MSC_VER)
+        pos = hb_fsSeek( handle, start, 0 );
+        result = locking( handle, mode?_LK_UNLCK:_LK_LOCK,length );
+        hb_fsSeek( handle, pos, 0 );
+#else        
         result = 1;
         last_error = FS_ERROR;
 #endif
-
+#endif
         return (result ? FALSE : TRUE );
 }