KERNEL32: implement SetFilePointerEx

[Mike McCormack]

ChangeLog:
* implement SetFilePointerEx
-------------- next part --------------
Index: dlls/kernel/file.c
===================================================================
RCS file: /home/wine/wine/dlls/kernel/file.c,v
retrieving revision 1.20
diff -u -r1.20 file.c
--- dlls/kernel/file.c	22 May 2004 03:13:56 -0000	1.20
+++ dlls/kernel/file.c	7 Jun 2004 09:56:31 -0000
@@ -861,6 +861,51 @@
 
 
 /***********************************************************************
+ *           SetFilePointerEx   (KERNEL32.@)
+ */
+BOOL WINAPI SetFilePointerEx( HANDLE hFile, LARGE_INTEGER distance,
+                               LARGE_INTEGER *newpos, DWORD method )
+{
+    static const int whence[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
+    BOOL ret = FALSE;
+    NTSTATUS status;
+    int fd;
+
+    TRACE("handle %p offset %lld newpos %p origin %ld\n",
+          hFile, distance.QuadPart, newpos, method );
+
+    if (method > FILE_END)
+    {
+        SetLastError( ERROR_INVALID_PARAMETER );
+        return ret;
+    }
+
+    if (!(status = wine_server_handle_to_fd( hFile, 0, &fd, NULL, NULL )))
+    {
+        off_t pos, res;
+
+        pos = distance.QuadPart;
+        if ((res = lseek( fd, pos, whence[method] )) == (off_t)-1)
+        {
+            /* also check EPERM due to SuSE7 2.2.16 lseek() EPERM kernel bug */
+            if (((errno == EINVAL) || (errno == EPERM)) && (method != FILE_BEGIN) && (pos < 0))
+                SetLastError( ERROR_NEGATIVE_SEEK );
+            else
+                FILE_SetDosError();
+        }
+        else
+        {
+            ret = TRUE;
+            newpos->QuadPart = res;
+        }
+        wine_server_release_fd( hFile, fd );
+    }
+    else SetLastError( RtlNtStatusToDosError(status) );
+
+    return ret;
+}
+
+/***********************************************************************
  *           GetFileTime   (KERNEL32.@)
  */
 BOOL WINAPI GetFileTime( HANDLE hFile, FILETIME *lpCreationTime,
Index: dlls/kernel/kernel32.spec
===================================================================
RCS file: /home/wine/wine/dlls/kernel/kernel32.spec,v
retrieving revision 1.134
diff -u -r1.134 kernel32.spec
--- dlls/kernel/kernel32.spec	2 Jun 2004 21:32:55 -0000	1.134
+++ dlls/kernel/kernel32.spec	7 Jun 2004 09:56:31 -0000
@@ -777,7 +777,7 @@
 @ stdcall SetFileAttributesA(str long)
 @ stdcall SetFileAttributesW(wstr long)
 @ stdcall SetFilePointer(long long ptr long)
-@ stub SetFilePointerEx
+@ stdcall SetFilePointerEx(long long long ptr long)
 @ stdcall SetFileTime(long ptr ptr ptr)
 @ stdcall SetHandleContext(long long)
 @ stdcall SetHandleCount(long)