/src/FreeRDP/winpr/libwinpr/file/file.c

Source
/**
 * WinPR: Windows Portable Runtime
 * File Functions
 *
 * Copyright 2015 Thincast Technologies GmbH
 * Copyright 2015 Bernhard Miklautz <bernhard.miklautz@thincast.com>
 * Copyright 2016 David PHAM-VAN <d.phamvan@inuvika.com>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#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

/* one handle per standard stream (stdin, stdout, stderr), created on first use */
static WINPR_FILE* pStdHandleFiles[3] = WINPR_C_ARRAY_INIT;

WINPR_PRAGMA_DIAG_PUSH
WINPR_PRAGMA_DIAG("-Wglobal-constructors")
static void GetStdHandle_Uninit(void) __attribute__((destructor));
WINPR_PRAGMA_DIAG_POP

static BOOL FileIsStdHandle(HANDLE handle)
{
  for (size_t x = 0; x < ARRAYSIZE(pStdHandleFiles); x++)
  {
    if (handle == pStdHandleFiles[x])
      return TRUE;
  }
  return FALSE;
}

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 (FileIsStdHandle(handle))
    {
      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 [0x%08x]", 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, BOOL modification)
{
  WINPR_ASSERT(sval);
  struct timeval tv = WINPR_C_ARRAY_INIT;
#if defined(__FreeBSD__) || defined(__APPLE__) || defined(KFREEBSD)
#ifdef _POSIX_SOURCE
  TIMESPEC_TO_TIMEVAL(&tv, modification ? &sval->st_mtim : &sval->st_atim);
#else
  TIMESPEC_TO_TIMEVAL(&tv, modification ? &sval->st_mtimespec : &sval->st_atimespec);
#endif
#elif defined(ANDROID)
  tv.tv_sec = modification ? sval->st_mtime : sval->st_atime;
  tv.tv_usec = (modification ? sval->st_mtimensec : 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;
  }

  /* Keep the times that are not set */
  struct timeval timevals[2] = { statToTimeval(&buf, FALSE), statToTimeval(&buf, TRUE) };
  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)
{
  for (size_t x = 0; x < ARRAYSIZE(pStdHandleFiles); x++)
  {
    (void)FileCloseHandleInt(pStdHandleFiles[x], TRUE);
    free(pStdHandleFiles[x]);
    pStdHandleFiles[x] = nullptr;
  }
}

HANDLE GetStdHandle(DWORD nStdHandle)
{
  size_t idx = 0;
  FILE* fp = nullptr;

  switch (nStdHandle)
  {
    case STD_INPUT_HANDLE:
      idx = 0;
      fp = stdin;
      break;
    case STD_OUTPUT_HANDLE:
      idx = 1;
      fp = stdout;
      break;
    case STD_ERROR_HANDLE:
      idx = 2;
      fp = stderr;
      break;
    default:
      return INVALID_HANDLE_VALUE;
  }

  if (!pStdHandleFiles[idx])
    pStdHandleFiles[idx] = FileHandle_New(fp);

  if (!pStdHandleFiles[idx])
    return INVALID_HANDLE_VALUE;

  return (HANDLE)pStdHandleFiles[idx];
}

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 */

/**
 * Check if a file name component is valid.
 *
 * Some file names are not valid on Windows. See "Naming Files, Paths, and Namespaces":
 * https://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx
 */
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

Coverage Report

Created: 2026-10-28 06:49