winpr/libwinpr/file/file.c

 
#include <winpr/config.h>
#include <winpr/debug.h>
#include <winpr/assert.h>
 
#include <winpr/wtypes.h>
#include <winpr/crt.h>
#include <winpr/file.h>
 
#ifdef _WIN32
 
#include <io.h>
 
#else /* _WIN32 */
 
#include "../log.h"
#define TAG WINPR_TAG("file")
 
#include <winpr/wlog.h>
#include <winpr/string.h>
 
#include "file.h"
#include "../handle/handle.h"
#include <errno.h>
#include <fcntl.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/time.h>
 
#ifdef ANDROID
#include <sys/vfs.h>
#else
#include <sys/statvfs.h>
#endif
 
#ifndef MIN
#define MIN(x, y) (((x) < (y)) ? (x) : (y))
#endif
 
static WINPR_FILE* pStdHandleFile = nullptr;
 
static void GetStdHandle_Uninit(void) __attribute__((destructor));
 
static BOOL FileIsHandled(HANDLE handle)
{
  return WINPR_HANDLE_IS_HANDLED(handle, HANDLE_TYPE_FILE, FALSE);
}
 
static int FileGetFd(HANDLE handle)
{
  WINPR_FILE* file = (WINPR_FILE*)handle;
 
  if (!FileIsHandled(handle))
    return -1;
 
  return fileno(file->fp);
}
 
static BOOL FileCloseHandleInt(HANDLE handle, BOOL force)
{
  WINPR_FILE* file = (WINPR_FILE*)handle;
 
  if (!FileIsHandled(handle))
    return FALSE;
 
  if (!force)
  {
    if (handle == pStdHandleFile)
    {
      return FALSE;
    }
  }
 
  if (file->fp)
  {
    /* Don't close stdin/stdout/stderr */
    if (fileno(file->fp) > 2)
    {
      (void)fclose(file->fp);
      file->fp = nullptr;
    }
  }
 
  free(file->lpFileName);
  file->lpFileName = nullptr;
  return TRUE;
}
 
static BOOL FileCloseHandle(HANDLE handle)
{
  return FileCloseHandleInt(handle, FALSE);
}
 
#define log_error(fkt, file) log_error_((fkt), (file), __FILE__, __func__, __LINE__)
static BOOL log_error_(const char* name, const WINPR_FILE* pFile, const char* file, const char* fkt,
                       size_t line)
{
  char ebuffer[256] = WINPR_C_ARRAY_INIT;
 
  WINPR_ASSERT(name);
  WINPR_ASSERT(pFile);
  WINPR_ASSERT(file);
  WINPR_ASSERT(fkt);
 
  const DWORD level = WLOG_ERROR;
  static wLog* log = nullptr;
  if (!log)
    log = WLog_Get(TAG);
 
  if (WLog_IsLevelActive(log, level))
  {
    WLog_PrintTextMessage(log, level, line, file, fkt, "%s %s failed with %s [0x08%x]", name,
                          pFile->lpFileName, winpr_strerror(errno, ebuffer, sizeof(ebuffer)),
                          WINPR_CXX_COMPAT_CAST(unsigned, errno));
  }
  SetLastError(map_posix_err(errno));
  return FALSE;
}
 
static BOOL FileSetEndOfFile(HANDLE hFile)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (!hFile)
    return FALSE;
 
  const INT64 size = _ftelli64(pFile->fp);
  if (size < 0)
    return FALSE;
 
  if (ftruncate(fileno(pFile->fp), (off_t)size) < 0)
    return log_error("ftruncate", pFile);
 
  return TRUE;
}
 
// NOLINTBEGIN(readability-non-const-parameter)
static DWORD FileSetFilePointer(HANDLE hFile, LONG lDistanceToMove,
                                const PLONG lpDistanceToMoveHigh, DWORD dwMoveMethod)
// NOLINTEND(readability-non-const-parameter)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
  INT64 offset = 0;
  int whence = 0;
 
  if (!hFile)
    return INVALID_SET_FILE_POINTER;
 
  /* If there is a high part, the sign is contained in that
   * and the low integer must be interpreted as unsigned. */
  if (lpDistanceToMoveHigh)
  {
    offset = (INT64)(((UINT64)*lpDistanceToMoveHigh << 32U) | (UINT64)lDistanceToMove);
  }
  else
    offset = lDistanceToMove;
 
  switch (dwMoveMethod)
  {
    case FILE_BEGIN:
      whence = SEEK_SET;
      break;
    case FILE_END:
      whence = SEEK_END;
      break;
    case FILE_CURRENT:
      whence = SEEK_CUR;
      break;
    default:
      return INVALID_SET_FILE_POINTER;
  }
 
  if (_fseeki64(pFile->fp, offset, whence))
  {
    (void)log_error("_fseeki64", pFile);
    return INVALID_SET_FILE_POINTER;
  }
 
  return (DWORD)_ftelli64(pFile->fp);
}
 
static BOOL FileSetFilePointerEx(HANDLE hFile, LARGE_INTEGER liDistanceToMove,
                                 PLARGE_INTEGER lpNewFilePointer, DWORD dwMoveMethod)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
  int whence = 0;
 
  if (!hFile)
    return FALSE;
 
  switch (dwMoveMethod)
  {
    case FILE_BEGIN:
      whence = SEEK_SET;
      break;
    case FILE_END:
      whence = SEEK_END;
      break;
    case FILE_CURRENT:
      whence = SEEK_CUR;
      break;
    default:
      return FALSE;
  }
 
  if (_fseeki64(pFile->fp, liDistanceToMove.QuadPart, whence))
    return log_error("_fseeki64", pFile);
 
  if (lpNewFilePointer)
    lpNewFilePointer->QuadPart = _ftelli64(pFile->fp);
 
  return TRUE;
}
 
static BOOL FileRead(PVOID Object, LPVOID lpBuffer, DWORD nNumberOfBytesToRead,
                     LPDWORD lpNumberOfBytesRead, LPOVERLAPPED lpOverlapped)
{
  size_t io_status = 0;
  WINPR_FILE* file = nullptr;
  BOOL status = TRUE;
 
  if (lpOverlapped)
  {
    WLog_ERR(TAG, "WinPR does not support the lpOverlapped parameter");
    SetLastError(ERROR_NOT_SUPPORTED);
    return FALSE;
  }
 
  if (!Object)
    return FALSE;
 
  file = (WINPR_FILE*)Object;
  clearerr(file->fp);
  io_status = fread(lpBuffer, 1, nNumberOfBytesToRead, file->fp);
 
  if (io_status == 0 && ferror(file->fp))
  {
    status = FALSE;
 
    switch (errno)
    {
      case EWOULDBLOCK:
        SetLastError(ERROR_NO_DATA);
        break;
      default:
        SetLastError(map_posix_err(errno));
    }
  }
 
  if (lpNumberOfBytesRead)
    *lpNumberOfBytesRead = (DWORD)io_status;
 
  return status;
}
 
static BOOL FileWrite(PVOID Object, LPCVOID lpBuffer, DWORD nNumberOfBytesToWrite,
                      LPDWORD lpNumberOfBytesWritten, LPOVERLAPPED lpOverlapped)
{
  size_t io_status = 0;
  WINPR_FILE* file = nullptr;
 
  if (lpOverlapped)
  {
    WLog_ERR(TAG, "WinPR does not support the lpOverlapped parameter");
    SetLastError(ERROR_NOT_SUPPORTED);
    return FALSE;
  }
 
  if (!Object)
    return FALSE;
 
  file = (WINPR_FILE*)Object;
 
  clearerr(file->fp);
  io_status = fwrite(lpBuffer, 1, nNumberOfBytesToWrite, file->fp);
  if (io_status == 0 && ferror(file->fp))
  {
    SetLastError(map_posix_err(errno));
    return FALSE;
  }
 
  *lpNumberOfBytesWritten = (DWORD)io_status;
  return TRUE;
}
 
static DWORD FileGetFileSize(HANDLE Object, LPDWORD lpFileSizeHigh)
{
  WINPR_FILE* file = nullptr;
  INT64 cur = 0;
  INT64 size = 0;
 
  if (!Object)
    return 0;
 
  file = (WINPR_FILE*)Object;
 
  cur = _ftelli64(file->fp);
 
  if (cur < 0)
  {
    (void)log_error("_ftelli64", file);
    return INVALID_FILE_SIZE;
  }
 
  if (_fseeki64(file->fp, 0, SEEK_END) != 0)
  {
    (void)log_error("_fseeki64", file);
    return INVALID_FILE_SIZE;
  }
 
  size = _ftelli64(file->fp);
 
  if (size < 0)
  {
    (void)log_error("_ftelli64", file);
    return INVALID_FILE_SIZE;
  }
 
  if (_fseeki64(file->fp, cur, SEEK_SET) != 0)
  {
    (void)log_error("_fseeki64", file);
    return INVALID_FILE_SIZE;
  }
 
  if (lpFileSizeHigh)
    *lpFileSizeHigh = (UINT32)(size >> 32);
 
  return (UINT32)(size & 0xFFFFFFFF);
}
 
static BOOL FileFlushFileBuffers(HANDLE hFile)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (!pFile->fp)
  {
    SetLastError(ERROR_INVALID_HANDLE);
    return FALSE;
  }
 
  // See: https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-flushfilebuffers
  if ((pFile->dwOpenMode & GENERIC_WRITE) == 0)
  {
    SetLastError(ERROR_ACCESS_DENIED);
    return FALSE;
  }
 
  if (fflush(pFile->fp) != 0)
  {
    SetLastError(map_posix_err(errno));
    return FALSE;
  }
 
  return TRUE;
}
 
static BOOL FileGetFileInformationByHandle(HANDLE hFile,
                                           LPBY_HANDLE_FILE_INFORMATION lpFileInformation)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
  struct stat st;
  UINT64 ft = 0;
  const char* lastSep = nullptr;
 
  if (!pFile)
    return FALSE;
  if (!lpFileInformation)
    return FALSE;
 
  if (fstat(fileno(pFile->fp), &st) == -1)
    return log_error("fstat", pFile);
 
  lpFileInformation->dwFileAttributes = 0;
 
  if (S_ISDIR(st.st_mode))
    lpFileInformation->dwFileAttributes |= FILE_ATTRIBUTE_DIRECTORY;
 
  if (lpFileInformation->dwFileAttributes == 0)
    lpFileInformation->dwFileAttributes = FILE_ATTRIBUTE_ARCHIVE;
 
  lastSep = strrchr(pFile->lpFileName, '/');
 
  if (lastSep)
  {
    const char* name = lastSep + 1;
    const size_t namelen = strlen(name);
 
    if ((namelen > 1) && (name[0] == '.') && (name[1] != '.'))
      lpFileInformation->dwFileAttributes |= FILE_ATTRIBUTE_HIDDEN;
  }
 
  if (!(st.st_mode & S_IWUSR))
    lpFileInformation->dwFileAttributes |= FILE_ATTRIBUTE_READONLY;
 
#ifdef _DARWIN_FEATURE_64_BIT_INODE
  ft = STAT_TIME_TO_FILETIME(st.st_birthtime);
#else
  ft = STAT_TIME_TO_FILETIME(st.st_ctime);
#endif
  lpFileInformation->ftCreationTime.dwHighDateTime = (ft) >> 32ULL;
  lpFileInformation->ftCreationTime.dwLowDateTime = ft & 0xFFFFFFFF;
  ft = STAT_TIME_TO_FILETIME(st.st_mtime);
  lpFileInformation->ftLastWriteTime.dwHighDateTime = (ft) >> 32ULL;
  lpFileInformation->ftLastWriteTime.dwLowDateTime = ft & 0xFFFFFFFF;
  ft = STAT_TIME_TO_FILETIME(st.st_atime);
  lpFileInformation->ftLastAccessTime.dwHighDateTime = (ft) >> 32ULL;
  lpFileInformation->ftLastAccessTime.dwLowDateTime = ft & 0xFFFFFFFF;
  lpFileInformation->nFileSizeHigh = ((UINT64)st.st_size) >> 32ULL;
  lpFileInformation->nFileSizeLow = st.st_size & 0xFFFFFFFF;
  lpFileInformation->dwVolumeSerialNumber = (UINT32)st.st_dev;
  lpFileInformation->nNumberOfLinks = (UINT32)st.st_nlink;
  lpFileInformation->nFileIndexHigh = (st.st_ino >> 4) & 0xFFFFFFFF;
  lpFileInformation->nFileIndexLow = st.st_ino & 0xFFFFFFFF;
  return TRUE;
}
 
static BOOL FileLockFileEx(HANDLE hFile, DWORD dwFlags, WINPR_ATTR_UNUSED DWORD dwReserved,
                           WINPR_ATTR_UNUSED DWORD nNumberOfBytesToLockLow,
                           WINPR_ATTR_UNUSED DWORD nNumberOfBytesToLockHigh,
                           LPOVERLAPPED lpOverlapped)
{
#ifdef __sun
  struct flock lock;
  int lckcmd;
#else
  int lock = 0;
#endif
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (lpOverlapped)
  {
    WLog_ERR(TAG, "WinPR does not support the lpOverlapped parameter");
    SetLastError(ERROR_NOT_SUPPORTED);
    return FALSE;
  }
 
  if (!hFile)
    return FALSE;
 
  if (pFile->bLocked)
  {
    WLog_ERR(TAG, "File %s already locked!", pFile->lpFileName);
    return FALSE;
  }
 
#ifdef __sun
  lock.l_start = 0;
  lock.l_len = 0;
  lock.l_whence = SEEK_SET;
 
  if (dwFlags & LOCKFILE_EXCLUSIVE_LOCK)
    lock.l_type = F_WRLCK;
  else
    lock.l_type = F_WRLCK;
 
  if (dwFlags & LOCKFILE_FAIL_IMMEDIATELY)
    lckcmd = F_SETLK;
  else
    lckcmd = F_SETLKW;
 
  if (fcntl(fileno(pFile->fp), lckcmd, &lock) == -1)
  {
    char ebuffer[256] = WINPR_C_ARRAY_INIT;
    WLog_ERR(TAG, "F_SETLK failed with %s [0x%08X]",
             winpr_strerror(errno, ebuffer, sizeof(ebuffer)), errno);
    SetLastError(map_posix_err(errno));
    return FALSE;
  }
#else
  if (dwFlags & LOCKFILE_EXCLUSIVE_LOCK)
    lock = LOCK_EX;
  else
    lock = LOCK_SH;
 
  if (dwFlags & LOCKFILE_FAIL_IMMEDIATELY)
    lock |= LOCK_NB;
 
  if (flock(fileno(pFile->fp), lock) < 0)
    return log_error("flock", pFile);
#endif
 
  pFile->bLocked = TRUE;
 
  return TRUE;
}
 
static BOOL FileUnlockFile(HANDLE hFile, WINPR_ATTR_UNUSED DWORD dwFileOffsetLow,
                           WINPR_ATTR_UNUSED DWORD dwFileOffsetHigh,
                           WINPR_ATTR_UNUSED DWORD nNumberOfBytesToUnlockLow,
                           WINPR_ATTR_UNUSED DWORD nNumberOfBytesToUnlockHigh)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
#ifdef __sun
  struct flock lock;
#endif
 
  if (!hFile)
    return FALSE;
 
  if (!pFile->bLocked)
  {
    WLog_ERR(TAG, "File %s is not locked!", pFile->lpFileName);
    return FALSE;
  }
 
#ifdef __sun
  lock.l_start = 0;
  lock.l_len = 0;
  lock.l_whence = SEEK_SET;
  lock.l_type = F_UNLCK;
  if (fcntl(fileno(pFile->fp), F_GETLK, &lock) == -1)
    return log_error("F_GETLK", pFile);
 
#else
  if (flock(fileno(pFile->fp), LOCK_UN) < 0)
    return log_error("flock", pFile);
#endif
 
  return TRUE;
}
 
static BOOL FileUnlockFileEx(HANDLE hFile, WINPR_ATTR_UNUSED DWORD dwReserved,
                             WINPR_ATTR_UNUSED DWORD nNumberOfBytesToUnlockLow,
                             WINPR_ATTR_UNUSED DWORD nNumberOfBytesToUnlockHigh,
                             LPOVERLAPPED lpOverlapped)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
#ifdef __sun
  struct flock lock;
#endif
 
  if (lpOverlapped)
  {
    WLog_ERR(TAG, "WinPR does not support the lpOverlapped parameter");
    SetLastError(ERROR_NOT_SUPPORTED);
    return FALSE;
  }
 
  if (!hFile)
    return FALSE;
 
  if (!pFile->bLocked)
  {
    WLog_ERR(TAG, "File %s is not locked!", pFile->lpFileName);
    return FALSE;
  }
 
#ifdef __sun
  lock.l_start = 0;
  lock.l_len = 0;
  lock.l_whence = SEEK_SET;
  lock.l_type = F_UNLCK;
  if (fcntl(fileno(pFile->fp), F_GETLK, &lock) == -1)
    return log_error("F_GETLK", pFile);
#else
  if (flock(fileno(pFile->fp), LOCK_UN) < 0)
    return log_error("flock", pFile);
#endif
 
  return TRUE;
}
 
static INT64 FileTimeToUS(const FILETIME* ft)
{
  const INT64 EPOCH_DIFF_US = EPOCH_DIFF * 1000000LL;
  INT64 tmp = ((INT64)ft->dwHighDateTime) << 32 | ft->dwLowDateTime;
  tmp /= 10; /* 100ns steps to 1us step */
  tmp -= EPOCH_DIFF_US;
  return tmp;
}
 
#if defined(_POSIX_C_SOURCE) && (_POSIX_C_SOURCE >= 200809L)
static struct timespec filetimeToTimespec(const FILETIME* ftime)
{
  WINPR_ASSERT(ftime);
  INT64 tmp = FileTimeToUS(ftime);
  struct timespec ts = WINPR_C_ARRAY_INIT;
  ts.tv_sec = tmp / 1000000LL;
  ts.tv_nsec = (tmp % 1000000LL) * 1000LL;
  return ts;
}
 
static BOOL FileSetFileTime(HANDLE hFile, WINPR_ATTR_UNUSED const FILETIME* lpCreationTime,
                            const FILETIME* lpLastAccessTime, const FILETIME* lpLastWriteTime)
{
  struct timespec times[2] = { { UTIME_OMIT, UTIME_OMIT },
                             { UTIME_OMIT, UTIME_OMIT } }; /* last access, last modification */
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (!hFile)
    return FALSE;
 
  if (lpLastAccessTime)
    times[0] = filetimeToTimespec(lpLastAccessTime);
 
  if (lpLastWriteTime)
    times[1] = filetimeToTimespec(lpLastWriteTime);
 
  // TODO: Creation time can not be handled!
  const int rc = futimens(fileno(pFile->fp), times);
  if (rc != 0)
  {
    char ebuffer[256] = WINPR_C_ARRAY_INIT;
    WLog_ERR(TAG, "futimens failed: %s [%d]", winpr_strerror(errno, ebuffer, sizeof(ebuffer)),
             errno);
    SetLastError(map_posix_err(errno));
    return FALSE;
  }
 
  return TRUE;
}
#elif defined(__APPLE__) || defined(ANDROID) || defined(__FreeBSD__) || defined(KFREEBSD)
static struct timeval filetimeToTimeval(const FILETIME* ftime)
{
  WINPR_ASSERT(ftime);
  UINT64 tmp = FileTimeToUS(ftime);
  struct timeval tv = WINPR_C_ARRAY_INIT;
  tv.tv_sec = tmp / 1000000ULL;
  tv.tv_usec = tmp % 1000000ULL;
  return tv;
}
 
static struct timeval statToTimeval(const struct stat* sval)
{
  WINPR_ASSERT(sval);
  struct timeval tv = WINPR_C_ARRAY_INIT;
#if defined(__FreeBSD__) || defined(__APPLE__) || defined(KFREEBSD)
  tv.tv_sec = sval->st_atime;
#ifdef _POSIX_SOURCE
  TIMESPEC_TO_TIMEVAL(&tv, &sval->st_atim);
#else
  TIMESPEC_TO_TIMEVAL(&tv, &sval->st_atimespec);
#endif
#elif defined(ANDROID)
  tv.tv_sec = sval->st_atime;
  tv.tv_usec = sval->st_atimensec / 1000UL;
#endif
  return tv;
}
 
static BOOL FileSetFileTime(HANDLE hFile, const FILETIME* lpCreationTime,
                            const FILETIME* lpLastAccessTime, const FILETIME* lpLastWriteTime)
{
  struct stat buf = WINPR_C_ARRAY_INIT;
  /* OpenBSD, NetBSD and DragonflyBSD support POSIX futimens */
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (!hFile)
    return FALSE;
 
  const int rc = fstat(fileno(pFile->fp), &buf);
  if (rc < 0)
  {
    char ebuffer[256] = WINPR_C_ARRAY_INIT;
    WLog_ERR(TAG, "fstat failed: %s [%d]", winpr_strerror(errno, ebuffer, sizeof(ebuffer)),
             errno);
    SetLastError(map_posix_err(errno));
    return FALSE;
  }
 
  struct timeval timevals[2] = { statToTimeval(&buf), statToTimeval(&buf) };
  if (lpLastAccessTime)
    timevals[0] = filetimeToTimeval(lpLastAccessTime);
 
  if (lpLastWriteTime)
    timevals[1] = filetimeToTimeval(lpLastWriteTime);
 
  // TODO: Creation time can not be handled!
  {
    const int res = utimes(pFile->lpFileName, timevals);
    if (res != 0)
    {
      char ebuffer[256] = WINPR_C_ARRAY_INIT;
      WLog_ERR(TAG, "utimes failed: %s [%d]", winpr_strerror(errno, ebuffer, sizeof(ebuffer)),
               errno);
      SetLastError(map_posix_err(errno));
      return FALSE;
    }
  }
 
  return TRUE;
}
#else
static BOOL FileSetFileTime(HANDLE hFile, const FILETIME* lpCreationTime,
                            const FILETIME* lpLastAccessTime, const FILETIME* lpLastWriteTime)
{
  WINPR_FILE* pFile = (WINPR_FILE*)hFile;
 
  if (!hFile)
    return FALSE;
 
  WLog_WARN(TAG, "TODO: Creation, Access and Write time can not be handled!");
  WLog_WARN(TAG,
            "TODO: Define _POSIX_C_SOURCE >= 200809L or implement a platform specific handler!");
  return TRUE;
}
#endif
 
static HANDLE_OPS fileOps = {
  FileIsHandled,
  FileCloseHandle,
  FileGetFd,
  nullptr, /* CleanupHandle */
  FileRead,
  nullptr, /* FileReadEx */
  nullptr, /* FileReadScatter */
  FileWrite,
  nullptr, /* FileWriteEx */
  nullptr, /* FileWriteGather */
  FileGetFileSize,
  FileFlushFileBuffers,
  FileSetEndOfFile,
  FileSetFilePointer,
  FileSetFilePointerEx,
  nullptr, /* FileLockFile */
  FileLockFileEx,
  FileUnlockFile,
  FileUnlockFileEx,
  FileSetFileTime,
  FileGetFileInformationByHandle,
};
 
static HANDLE_OPS shmOps = {
  FileIsHandled,
  FileCloseHandle,
  FileGetFd,
  nullptr, /* CleanupHandle */
  FileRead,
  nullptr, /* FileReadEx */
  nullptr, /* FileReadScatter */
  FileWrite,
  nullptr, /* FileWriteEx */
  nullptr, /* FileWriteGather */
  nullptr, /* FileGetFileSize */
  nullptr, /*  FlushFileBuffers */
  nullptr, /* FileSetEndOfFile */
  nullptr, /* FileSetFilePointer */
  nullptr, /* SetFilePointerEx */
  nullptr, /* FileLockFile */
  nullptr, /* FileLockFileEx */
  nullptr, /* FileUnlockFile */
  nullptr, /* FileUnlockFileEx */
  nullptr, /* FileSetFileTime */
  FileGetFileInformationByHandle,
};
 
static const char* FileGetMode(DWORD dwDesiredAccess, DWORD dwCreationDisposition, BOOL* create)
{
  BOOL writeable = (dwDesiredAccess & (GENERIC_WRITE | FILE_WRITE_DATA | FILE_APPEND_DATA)) != 0;
 
  switch (dwCreationDisposition)
  {
    case CREATE_ALWAYS:
      *create = TRUE;
      return (writeable) ? "wb+" : "rwb";
    case CREATE_NEW:
      *create = TRUE;
      return "wb+";
    case OPEN_ALWAYS:
      *create = TRUE;
      return "rb+";
    case OPEN_EXISTING:
      *create = FALSE;
      return (writeable) ? "rb+" : "rb";
    case TRUNCATE_EXISTING:
      *create = FALSE;
      return "wb+";
    default:
      *create = FALSE;
      return "";
  }
}
 
UINT32 map_posix_err(int fs_errno)
{
  NTSTATUS rc = 0;
 
  /* try to return NTSTATUS version of error code */
 
  switch (fs_errno)
  {
    case 0:
      rc = STATUS_SUCCESS;
      break;
 
    case ENOTCONN:
    case ENODEV:
    case ENOTDIR:
    case ENXIO:
      rc = ERROR_FILE_NOT_FOUND;
      break;
 
    case EROFS:
    case EPERM:
    case EACCES:
      rc = ERROR_ACCESS_DENIED;
      break;
 
    case ENOENT:
      rc = ERROR_FILE_NOT_FOUND;
      break;
 
    case EBUSY:
      rc = ERROR_BUSY_DRIVE;
      break;
 
    case EEXIST:
      rc = ERROR_FILE_EXISTS;
      break;
 
    case EISDIR:
      rc = STATUS_FILE_IS_A_DIRECTORY;
      break;
 
    case ENOTEMPTY:
      rc = STATUS_DIRECTORY_NOT_EMPTY;
      break;
 
    case EMFILE:
      rc = STATUS_TOO_MANY_OPENED_FILES;
      break;
 
    default:
    {
      char ebuffer[256] = WINPR_C_ARRAY_INIT;
      WLog_ERR(TAG, "Missing ERRNO mapping %s [%d]",
               winpr_strerror(fs_errno, ebuffer, sizeof(ebuffer)), fs_errno);
      rc = STATUS_UNSUCCESSFUL;
    }
    break;
  }
 
  return (UINT32)rc;
}
 
static HANDLE FileCreateFileA(LPCSTR lpFileName, DWORD dwDesiredAccess, DWORD dwShareMode,
                              LPSECURITY_ATTRIBUTES lpSecurityAttributes,
                              DWORD dwCreationDisposition, DWORD dwFlagsAndAttributes,
                              HANDLE hTemplateFile)
{
  WINPR_FILE* pFile = nullptr;
  BOOL create = 0;
  const char* mode = FileGetMode(dwDesiredAccess, dwCreationDisposition, &create);
#ifdef __sun
  struct flock lock;
#else
  int lock = 0;
#endif
  FILE* fp = nullptr;
  struct stat st;
 
  if (dwFlagsAndAttributes & FILE_FLAG_OVERLAPPED)
  {
    WLog_ERR(TAG, "WinPR does not support the FILE_FLAG_OVERLAPPED flag");
    SetLastError(ERROR_NOT_SUPPORTED);
    return INVALID_HANDLE_VALUE;
  }
 
  pFile = (WINPR_FILE*)calloc(1, sizeof(WINPR_FILE));
  if (!pFile)
  {
    SetLastError(ERROR_NOT_ENOUGH_MEMORY);
    return INVALID_HANDLE_VALUE;
  }
 
  WINPR_HANDLE_SET_TYPE_AND_MODE(pFile, HANDLE_TYPE_FILE, WINPR_FD_READ);
  pFile->common.ops = &fileOps;
 
  pFile->lpFileName = _strdup(lpFileName);
  if (!pFile->lpFileName)
  {
    SetLastError(ERROR_NOT_ENOUGH_MEMORY);
    free(pFile);
    return INVALID_HANDLE_VALUE;
  }
 
  pFile->dwOpenMode = dwDesiredAccess;
  pFile->dwShareMode = dwShareMode;
  pFile->dwFlagsAndAttributes = dwFlagsAndAttributes;
  pFile->lpSecurityAttributes = lpSecurityAttributes;
  pFile->dwCreationDisposition = dwCreationDisposition;
  pFile->hTemplateFile = hTemplateFile;
 
  if (create)
  {
    if (dwCreationDisposition == CREATE_NEW)
    {
      if (stat(pFile->lpFileName, &st) == 0)
      {
        SetLastError(ERROR_FILE_EXISTS);
        free(pFile->lpFileName);
        free(pFile);
        return INVALID_HANDLE_VALUE;
      }
    }
 
    fp = winpr_fopen(pFile->lpFileName, "ab");
    if (!fp)
    {
      SetLastError(map_posix_err(errno));
      free(pFile->lpFileName);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
 
    fp = freopen(pFile->lpFileName, mode, fp);
  }
  else
  {
    if (stat(pFile->lpFileName, &st) != 0)
    {
      SetLastError(map_posix_err(errno));
      free(pFile->lpFileName);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
 
    /* FIFO (named pipe) would block the following fopen
     * call if not connected. This renders the channel unusable,
     * therefore abort early. */
    if (S_ISFIFO(st.st_mode))
    {
      SetLastError(ERROR_FILE_NOT_FOUND);
      free(pFile->lpFileName);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
  }
 
  if (nullptr == fp)
    fp = winpr_fopen(pFile->lpFileName, mode);
 
  pFile->fp = fp;
  if (!pFile->fp)
  {
    /* This case can occur when trying to open a
     * not existing file without create flag. */
    SetLastError(map_posix_err(errno));
    free(pFile->lpFileName);
    free(pFile);
    return INVALID_HANDLE_VALUE;
  }
 
  {
    /* winpr_fopen()/freopen() give no way to request O_CLOEXEC atomically; match Windows
     * semantics (not inherited unless asked) by default here too. */
    const BOOL inherit =
        pFile->lpSecurityAttributes && pFile->lpSecurityAttributes->bInheritHandle;
    if (!winpr_set_cloexec(fileno(fp), !inherit))
    {
      SetLastError(map_posix_err(errno));
      FileCloseHandle(pFile);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
  }
 
  (void)setvbuf(fp, nullptr, _IONBF, 0);
 
#ifdef __sun
  lock.l_start = 0;
  lock.l_len = 0;
  lock.l_whence = SEEK_SET;
 
  if (dwShareMode & FILE_SHARE_READ)
    lock.l_type = F_RDLCK;
  if (dwShareMode & FILE_SHARE_WRITE)
    lock.l_type = F_RDLCK;
#else
  if (dwShareMode & FILE_SHARE_READ)
    lock = LOCK_SH;
  if (dwShareMode & FILE_SHARE_WRITE)
    lock = LOCK_EX;
#endif
 
  if (dwShareMode & (FILE_SHARE_READ | FILE_SHARE_WRITE))
  {
#ifdef __sun
    if (fcntl(fileno(pFile->fp), F_SETLKW, &lock) == -1)
#else
    if (flock(fileno(pFile->fp), lock) < 0)
#endif
    {
#ifdef __sun
      (void)log_error("F_SETLKW", pFile);
#else
      (void)log_error("flock", pFile);
#endif
 
      SetLastError(map_posix_err(errno));
      FileCloseHandle(pFile);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
 
    pFile->bLocked = TRUE;
  }
 
  if (fstat(fileno(pFile->fp), &st) == 0 && dwFlagsAndAttributes & FILE_ATTRIBUTE_READONLY)
  {
    st.st_mode &= WINPR_ASSERTING_INT_CAST(mode_t, (mode_t)(~(S_IWUSR | S_IWGRP | S_IWOTH)));
    if (fchmod(fileno(pFile->fp), st.st_mode) != 0)
    {
      SetLastError(map_posix_err(errno));
      FileCloseHandle(pFile);
      free(pFile);
      return INVALID_HANDLE_VALUE;
    }
  }
 
  SetLastError(STATUS_SUCCESS);
  return pFile;
}
 
static BOOL IsFileDevice(WINPR_ATTR_UNUSED LPCTSTR lpDeviceName)
{
  return TRUE;
}
 
static const HANDLE_CREATOR FileHandleCreator = { IsFileDevice, FileCreateFileA };
 
const HANDLE_CREATOR* GetFileHandleCreator(void)
{
  return &FileHandleCreator;
}
 
static WINPR_FILE* FileHandle_New(FILE* fp)
{
  WINPR_FILE* pFile = nullptr;
  char name[MAX_PATH] = WINPR_C_ARRAY_INIT;
 
  (void)_snprintf(name, sizeof(name), "device_%d", fileno(fp));
  pFile = (WINPR_FILE*)calloc(1, sizeof(WINPR_FILE));
  if (!pFile)
  {
    SetLastError(ERROR_NOT_ENOUGH_MEMORY);
    return nullptr;
  }
  pFile->fp = fp;
  pFile->common.ops = &shmOps;
  pFile->lpFileName = _strdup(name);
 
  WINPR_HANDLE_SET_TYPE_AND_MODE(pFile, HANDLE_TYPE_FILE, WINPR_FD_READ);
  return pFile;
}
 
void GetStdHandle_Uninit(void)
{
  FileCloseHandleInt(pStdHandleFile, TRUE);
  free(pStdHandleFile);
}
 
HANDLE GetStdHandle(DWORD nStdHandle)
{
  FILE* fp = nullptr;
 
  switch (nStdHandle)
  {
    case STD_INPUT_HANDLE:
      fp = stdin;
      break;
    case STD_OUTPUT_HANDLE:
      fp = stdout;
      break;
    case STD_ERROR_HANDLE:
      fp = stderr;
      break;
    default:
      return INVALID_HANDLE_VALUE;
  }
  if (!pStdHandleFile)
    pStdHandleFile = FileHandle_New(fp);
 
  if (!pStdHandleFile)
    return INVALID_HANDLE_VALUE;
 
  return (HANDLE)pStdHandleFile;
}
 
BOOL SetStdHandle(WINPR_ATTR_UNUSED DWORD nStdHandle, WINPR_ATTR_UNUSED HANDLE hHandle)
{
  return FALSE;
}
 
BOOL SetStdHandleEx(WINPR_ATTR_UNUSED DWORD dwStdHandle, WINPR_ATTR_UNUSED HANDLE hNewHandle,
                    WINPR_ATTR_UNUSED HANDLE* phOldHandle)
{
  return FALSE;
}
 
BOOL GetDiskFreeSpaceA(LPCSTR lpRootPathName, LPDWORD lpSectorsPerCluster, LPDWORD lpBytesPerSector,
                       LPDWORD lpNumberOfFreeClusters, LPDWORD lpTotalNumberOfClusters)
{
#if defined(ANDROID)
#define STATVFS statfs
#else
#define STATVFS statvfs
#endif
 
  struct STATVFS svfst = WINPR_C_ARRAY_INIT;
  STATVFS(lpRootPathName, &svfst);
  *lpSectorsPerCluster = (UINT32)MIN(svfst.f_frsize, UINT32_MAX);
  *lpBytesPerSector = 1;
  *lpNumberOfFreeClusters = (UINT32)MIN(svfst.f_bavail, UINT32_MAX);
  *lpTotalNumberOfClusters = (UINT32)MIN(svfst.f_blocks, UINT32_MAX);
  return TRUE;
}
 
BOOL GetDiskFreeSpaceW(LPCWSTR lpRootPathName, LPDWORD lpSectorsPerCluster,
                       LPDWORD lpBytesPerSector, LPDWORD lpNumberOfFreeClusters,
                       LPDWORD lpTotalNumberOfClusters)
{
  BOOL ret = 0;
  if (!lpRootPathName)
    return FALSE;
 
  char* rootPathName = ConvertWCharToUtf8Alloc(lpRootPathName, nullptr);
  if (!rootPathName)
  {
    SetLastError(ERROR_NOT_ENOUGH_MEMORY);
    return FALSE;
  }
  ret = GetDiskFreeSpaceA(rootPathName, lpSectorsPerCluster, lpBytesPerSector,
                          lpNumberOfFreeClusters, lpTotalNumberOfClusters);
  free(rootPathName);
  return ret;
}
 
#endif /* _WIN32 */
 
BOOL ValidFileNameComponent(LPCWSTR lpFileName)
{
  if (!lpFileName)
    return FALSE;
 
  /* CON */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'C' || lpFileName[0] == L'c')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'O' || lpFileName[1] == L'o')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'N' || lpFileName[2] == L'n')) &&
      (lpFileName[3] == L'\0'))
  {
    return FALSE;
  }
 
  /* PRN */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'P' || lpFileName[0] == L'p')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'R' || lpFileName[1] == L'r')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'N' || lpFileName[2] == L'n')) &&
      (lpFileName[3] == L'\0'))
  {
    return FALSE;
  }
 
  /* AUX */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'A' || lpFileName[0] == L'a')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'U' || lpFileName[1] == L'u')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'X' || lpFileName[2] == L'x')) &&
      (lpFileName[3] == L'\0'))
  {
    return FALSE;
  }
 
  /* NUL */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'N' || lpFileName[0] == L'n')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'U' || lpFileName[1] == L'u')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'L' || lpFileName[2] == L'l')) &&
      (lpFileName[3] == L'\0'))
  {
    return FALSE;
  }
 
  /* LPT0-9 */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'L' || lpFileName[0] == L'l')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'P' || lpFileName[1] == L'p')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'T' || lpFileName[2] == L't')) &&
      (lpFileName[3] != L'\0' && (L'0' <= lpFileName[3] && lpFileName[3] <= L'9')) &&
      (lpFileName[4] == L'\0'))
  {
    return FALSE;
  }
 
  /* COM0-9 */
  if ((lpFileName[0] != L'\0' && (lpFileName[0] == L'C' || lpFileName[0] == L'c')) &&
      (lpFileName[1] != L'\0' && (lpFileName[1] == L'O' || lpFileName[1] == L'o')) &&
      (lpFileName[2] != L'\0' && (lpFileName[2] == L'M' || lpFileName[2] == L'm')) &&
      (lpFileName[3] != L'\0' && (L'0' <= lpFileName[3] && lpFileName[3] <= L'9')) &&
      (lpFileName[4] == L'\0'))
  {
    return FALSE;
  }
 
  /* Reserved characters */
  for (LPCWSTR c = lpFileName; *c; c++)
  {
    if ((*c == L'<') || (*c == L'>') || (*c == L':') || (*c == L'"') || (*c == L'/') ||
        (*c == L'\\') || (*c == L'|') || (*c == L'?') || (*c == L'*'))
    {
      return FALSE;
    }
  }
 
  return TRUE;
}
 
#ifdef _UWP
 
HANDLE CreateFileW(LPCWSTR lpFileName, DWORD dwDesiredAccess, DWORD dwShareMode,
                   LPSECURITY_ATTRIBUTES lpSecurityAttributes, DWORD dwCreationDisposition,
                   DWORD dwFlagsAndAttributes, HANDLE hTemplateFile)
{
  HANDLE hFile;
  CREATEFILE2_EXTENDED_PARAMETERS params = WINPR_C_ARRAY_INIT;
 
  params.dwSize = sizeof(CREATEFILE2_EXTENDED_PARAMETERS);
 
  if (dwFlagsAndAttributes & FILE_FLAG_BACKUP_SEMANTICS)
    params.dwFileFlags |= FILE_FLAG_BACKUP_SEMANTICS;
  if (dwFlagsAndAttributes & FILE_FLAG_DELETE_ON_CLOSE)
    params.dwFileFlags |= FILE_FLAG_DELETE_ON_CLOSE;
  if (dwFlagsAndAttributes & FILE_FLAG_NO_BUFFERING)
    params.dwFileFlags |= FILE_FLAG_NO_BUFFERING;
  if (dwFlagsAndAttributes & FILE_FLAG_OPEN_NO_RECALL)
    params.dwFileFlags |= FILE_FLAG_OPEN_NO_RECALL;
  if (dwFlagsAndAttributes & FILE_FLAG_OPEN_REPARSE_POINT)
    params.dwFileFlags |= FILE_FLAG_OPEN_REPARSE_POINT;
  if (dwFlagsAndAttributes & FILE_FLAG_OPEN_REQUIRING_OPLOCK)
    params.dwFileFlags |= FILE_FLAG_OPEN_REQUIRING_OPLOCK;
  if (dwFlagsAndAttributes & FILE_FLAG_OVERLAPPED)
    params.dwFileFlags |= FILE_FLAG_OVERLAPPED;
  if (dwFlagsAndAttributes & FILE_FLAG_POSIX_SEMANTICS)
    params.dwFileFlags |= FILE_FLAG_POSIX_SEMANTICS;
  if (dwFlagsAndAttributes & FILE_FLAG_RANDOM_ACCESS)
    params.dwFileFlags |= FILE_FLAG_RANDOM_ACCESS;
  if (dwFlagsAndAttributes & FILE_FLAG_SESSION_AWARE)
    params.dwFileFlags |= FILE_FLAG_SESSION_AWARE;
  if (dwFlagsAndAttributes & FILE_FLAG_SEQUENTIAL_SCAN)
    params.dwFileFlags |= FILE_FLAG_SEQUENTIAL_SCAN;
  if (dwFlagsAndAttributes & FILE_FLAG_WRITE_THROUGH)
    params.dwFileFlags |= FILE_FLAG_WRITE_THROUGH;
 
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_ARCHIVE)
    params.dwFileAttributes |= FILE_ATTRIBUTE_ARCHIVE;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_COMPRESSED)
    params.dwFileAttributes |= FILE_ATTRIBUTE_COMPRESSED;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_DEVICE)
    params.dwFileAttributes |= FILE_ATTRIBUTE_DEVICE;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_DIRECTORY)
    params.dwFileAttributes |= FILE_ATTRIBUTE_DIRECTORY;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_ENCRYPTED)
    params.dwFileAttributes |= FILE_ATTRIBUTE_ENCRYPTED;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_HIDDEN)
    params.dwFileAttributes |= FILE_ATTRIBUTE_HIDDEN;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_INTEGRITY_STREAM)
    params.dwFileAttributes |= FILE_ATTRIBUTE_INTEGRITY_STREAM;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_NORMAL)
    params.dwFileAttributes |= FILE_ATTRIBUTE_NORMAL;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_NOT_CONTENT_INDEXED)
    params.dwFileAttributes |= FILE_ATTRIBUTE_NOT_CONTENT_INDEXED;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_NO_SCRUB_DATA)
    params.dwFileAttributes |= FILE_ATTRIBUTE_NO_SCRUB_DATA;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_OFFLINE)
    params.dwFileAttributes |= FILE_ATTRIBUTE_OFFLINE;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_READONLY)
    params.dwFileAttributes |= FILE_ATTRIBUTE_READONLY;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_REPARSE_POINT)
    params.dwFileAttributes |= FILE_ATTRIBUTE_REPARSE_POINT;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_SPARSE_FILE)
    params.dwFileAttributes |= FILE_ATTRIBUTE_SPARSE_FILE;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_SYSTEM)
    params.dwFileAttributes |= FILE_ATTRIBUTE_SYSTEM;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_TEMPORARY)
    params.dwFileAttributes |= FILE_ATTRIBUTE_TEMPORARY;
  if (dwFlagsAndAttributes & FILE_ATTRIBUTE_VIRTUAL)
    params.dwFileAttributes |= FILE_ATTRIBUTE_VIRTUAL;
 
  if (dwFlagsAndAttributes & SECURITY_ANONYMOUS)
    params.dwSecurityQosFlags |= SECURITY_ANONYMOUS;
  if (dwFlagsAndAttributes & SECURITY_CONTEXT_TRACKING)
    params.dwSecurityQosFlags |= SECURITY_CONTEXT_TRACKING;
  if (dwFlagsAndAttributes & SECURITY_DELEGATION)
    params.dwSecurityQosFlags |= SECURITY_DELEGATION;
  if (dwFlagsAndAttributes & SECURITY_EFFECTIVE_ONLY)
    params.dwSecurityQosFlags |= SECURITY_EFFECTIVE_ONLY;
  if (dwFlagsAndAttributes & SECURITY_IDENTIFICATION)
    params.dwSecurityQosFlags |= SECURITY_IDENTIFICATION;
  if (dwFlagsAndAttributes & SECURITY_IMPERSONATION)
    params.dwSecurityQosFlags |= SECURITY_IMPERSONATION;
 
  params.lpSecurityAttributes = lpSecurityAttributes;
  params.hTemplateFile = hTemplateFile;
 
  hFile = CreateFile2(lpFileName, dwDesiredAccess, dwShareMode, dwCreationDisposition, &params);
 
  return hFile;
}
 
HANDLE CreateFileA(LPCSTR lpFileName, DWORD dwDesiredAccess, DWORD dwShareMode,
                   LPSECURITY_ATTRIBUTES lpSecurityAttributes, DWORD dwCreationDisposition,
                   DWORD dwFlagsAndAttributes, HANDLE hTemplateFile)
{
  HANDLE hFile;
  if (!lpFileName)
    return nullptr;
 
  WCHAR* lpFileNameW = ConvertUtf8ToWCharAlloc(lpFileName, nullptr);
 
  if (!lpFileNameW)
    return nullptr;
 
  hFile = CreateFileW(lpFileNameW, dwDesiredAccess, dwShareMode, lpSecurityAttributes,
                      dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile);
 
  free(lpFileNameW);
 
  return hFile;
}
 
DWORD WINAPI GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh)
{
  BOOL status;
  LARGE_INTEGER fileSize = { 0, 0 };
 
  if (!lpFileSizeHigh)
    return INVALID_FILE_SIZE;
 
  status = GetFileSizeEx(hFile, &fileSize);
 
  if (!status)
    return INVALID_FILE_SIZE;
 
  *lpFileSizeHigh = fileSize.HighPart;
 
  return fileSize.LowPart;
}
 
DWORD SetFilePointer(HANDLE hFile, LONG lDistanceToMove, PLONG lpDistanceToMoveHigh,
                     DWORD dwMoveMethod)
{
  BOOL status;
  LARGE_INTEGER liDistanceToMove = { 0, 0 };
  LARGE_INTEGER liNewFilePointer = { 0, 0 };
 
  liDistanceToMove.LowPart = lDistanceToMove;
 
  status = SetFilePointerEx(hFile, liDistanceToMove, &liNewFilePointer, dwMoveMethod);
 
  if (!status)
    return INVALID_SET_FILE_POINTER;
 
  if (lpDistanceToMoveHigh)
    *lpDistanceToMoveHigh = liNewFilePointer.HighPart;
 
  return liNewFilePointer.LowPart;
}
 
HANDLE FindFirstFileA(LPCSTR lpFileName, LPWIN32_FIND_DATAA lpFindFileData)
{
  return FindFirstFileExA(lpFileName, FindExInfoStandard, lpFindFileData, FindExSearchNameMatch,
                          nullptr, 0);
}
 
HANDLE FindFirstFileW(LPCWSTR lpFileName, LPWIN32_FIND_DATAW lpFindFileData)
{
  return FindFirstFileExW(lpFileName, FindExInfoStandard, lpFindFileData, FindExSearchNameMatch,
                          nullptr, 0);
}
 
DWORD GetFullPathNameA(LPCSTR lpFileName, DWORD nBufferLength, LPSTR lpBuffer, LPSTR* lpFilePart)
{
  DWORD dwStatus;
  WCHAR* lpFileNameW = nullptr;
  WCHAR* lpBufferW = nullptr;
  WCHAR* lpFilePartW = nullptr;
  DWORD nBufferLengthW = nBufferLength * sizeof(WCHAR);
 
  if (!lpFileName || (nBufferLength < 1))
    return 0;
 
  lpFileNameW = ConvertUtf8ToWCharAlloc(lpFileName, nullptr);
  if (!lpFileNameW)
    return 0;
 
  lpBufferW = (WCHAR*)malloc(nBufferLengthW);
 
  if (!lpBufferW)
    return 0;
 
  dwStatus = GetFullPathNameW(lpFileNameW, nBufferLengthW, lpBufferW, &lpFilePartW);
 
  (void)ConvertWCharNToUtf8(lpBufferW, nBufferLengthW / sizeof(WCHAR), lpBuffer, nBufferLength);
 
  if (lpFilePart)
    lpFilePart = lpBuffer + (lpFilePartW - lpBufferW);
 
  free(lpFileNameW);
  free(lpBufferW);
 
  return WINPR_ASSERTING_INT_CAST(DWORD, dwStatus * sizeof(WCHAR));
}
 
BOOL GetDiskFreeSpaceA(LPCSTR lpRootPathName, LPDWORD lpSectorsPerCluster, LPDWORD lpBytesPerSector,
                       LPDWORD lpNumberOfFreeClusters, LPDWORD lpTotalNumberOfClusters)
{
  BOOL status;
  ULARGE_INTEGER FreeBytesAvailableToCaller = { 0, 0 };
  ULARGE_INTEGER TotalNumberOfBytes = { 0, 0 };
  ULARGE_INTEGER TotalNumberOfFreeBytes = { 0, 0 };
 
  status = GetDiskFreeSpaceExA(lpRootPathName, &FreeBytesAvailableToCaller, &TotalNumberOfBytes,
                               &TotalNumberOfFreeBytes);
 
  if (!status)
    return FALSE;
 
  *lpBytesPerSector = 1;
  *lpSectorsPerCluster = TotalNumberOfBytes.LowPart;
  *lpNumberOfFreeClusters = FreeBytesAvailableToCaller.LowPart;
  *lpTotalNumberOfClusters = TotalNumberOfFreeBytes.LowPart;
 
  return TRUE;
}
 
BOOL GetDiskFreeSpaceW(LPCWSTR lpRootPathName, LPDWORD lpSectorsPerCluster,
                       LPDWORD lpBytesPerSector, LPDWORD lpNumberOfFreeClusters,
                       LPDWORD lpTotalNumberOfClusters)
{
  BOOL status;
  ULARGE_INTEGER FreeBytesAvailableToCaller = { 0, 0 };
  ULARGE_INTEGER TotalNumberOfBytes = { 0, 0 };
  ULARGE_INTEGER TotalNumberOfFreeBytes = { 0, 0 };
 
  status = GetDiskFreeSpaceExW(lpRootPathName, &FreeBytesAvailableToCaller, &TotalNumberOfBytes,
                               &TotalNumberOfFreeBytes);
 
  if (!status)
    return FALSE;
 
  *lpBytesPerSector = 1;
  *lpSectorsPerCluster = TotalNumberOfBytes.LowPart;
  *lpNumberOfFreeClusters = FreeBytesAvailableToCaller.LowPart;
  *lpTotalNumberOfClusters = TotalNumberOfFreeBytes.LowPart;
 
  return TRUE;
}
 
DWORD GetLogicalDriveStringsA(DWORD nBufferLength, LPSTR lpBuffer)
{
  SetLastError(ERROR_INVALID_FUNCTION);
  return 0;
}
 
DWORD GetLogicalDriveStringsW(DWORD nBufferLength, LPWSTR lpBuffer)
{
  SetLastError(ERROR_INVALID_FUNCTION);
  return 0;
}
 
BOOL PathIsDirectoryEmptyA(LPCSTR pszPath)
{
  return FALSE;
}
 
UINT GetACP(void)
{
  return CP_UTF8;
}
 
#endif
 
/* Extended API */
 
#ifdef _WIN32
#include <io.h>
#endif
 
HANDLE GetFileHandleForFileDescriptor(int fd)
{
#ifdef _WIN32
  return (HANDLE)_get_osfhandle(fd);
#else  /* _WIN32 */
  WINPR_FILE* pFile = nullptr;
  FILE* fp = nullptr;
  int flags = 0;
 
  /* Make sure it's a valid fd */
  if (fcntl(fd, F_GETFD) == -1 && errno == EBADF)
    return INVALID_HANDLE_VALUE;
 
  flags = fcntl(fd, F_GETFL);
  if (flags == -1)
    return INVALID_HANDLE_VALUE;
 
  if (flags & O_WRONLY)
    fp = fdopen(fd, "wb");
  else
    fp = fdopen(fd, "rb");
 
  if (!fp)
    return INVALID_HANDLE_VALUE;
 
  (void)setvbuf(fp, nullptr, _IONBF, 0);
 
  // NOLINTNEXTLINE(clang-analyzer-unix.Stream)
  pFile = FileHandle_New(fp);
  if (!pFile)
    return INVALID_HANDLE_VALUE;
 
  return (HANDLE)pFile;
#endif /* _WIN32 */
}
 
FILE* winpr_fopen(const char* path, const char* mode)
{
#ifndef _WIN32
  return fopen(path, mode);
#else
  LPWSTR lpPathW = nullptr;
  LPWSTR lpModeW = nullptr;
  FILE* result = nullptr;
 
  if (!path || !mode)
    return nullptr;
 
  lpPathW = ConvertUtf8ToWCharAlloc(path, nullptr);
  if (!lpPathW)
    goto cleanup;
 
  lpModeW = ConvertUtf8ToWCharAlloc(mode, nullptr);
  if (!lpModeW)
    goto cleanup;
 
  result = _wfopen(lpPathW, lpModeW);
 
cleanup:
  free(lpPathW);
  free(lpModeW);
  return result;
#endif
}
 
#if !defined(_UWP) && !defined(_WIN32)
DWORD GetLogicalDriveStringsW(DWORD nBufferLength, LPWSTR lpBuffer)
{
  char* buffer = nullptr;
  if (nBufferLength > 0)
  {
    buffer = calloc(nBufferLength, sizeof(char));
    if (!buffer)
      return 0;
  }
 
  const DWORD rc = GetLogicalDriveStringsA(nBufferLength, buffer);
  if (buffer)
    ConvertMszUtf8NToWChar(buffer, rc, lpBuffer, nBufferLength);
  free(buffer);
  return rc;
}
 
DWORD GetLogicalDriveStringsA(DWORD nBufferLength, LPSTR lpBuffer)
{
  /* format is '<name1>\0<name2>\0...<nameX>\0\0'
   * for details see
   * https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getlogicaldrivestringsa
   */
  const char path[] = "/\0";
  const size_t len = sizeof(path);
  if (nBufferLength < len)
    return WINPR_ASSERTING_INT_CAST(DWORD, len);
 
  memcpy(lpBuffer, path, len);
  return len - 1;
}
#endif