minizip-ng/mz_strm_win32.c

/* mzstrm_win32.c -- Stream for filesystem access for windows
   part of the MiniZip project

   Copyright (C) 2012-2017 Nathan Moinvaziri
     https://github.com/nmoinvaz/minizip
   Copyright (C) 2009-2010 Mathias Svensson
     Modifications for Zip64 support
     http://result42.com
   Copyright (C) 1998-2010 Gilles Vollant
     http://www.winimage.com/zLibDll/minizip.html

   This program is distributed under the terms of the same license as zlib.
   See the accompanying LICENSE file for the full text of the license.
*/

#include <stdlib.h>
#include <direct.h>

#include <windows.h>
#include <wincrypt.h>

#include "mz_strm.h"
#include "mz_strm_win32.h"

/***************************************************************************/

#ifndef INVALID_HANDLE_VALUE
#  define INVALID_HANDLE_VALUE (0xFFFFFFFF)
#endif

#ifndef INVALID_SET_FILE_POINTER
#  define INVALID_SET_FILE_POINTER ((DWORD)-1)
#endif

#if defined(WINAPI_FAMILY_PARTITION) && (!(defined(IOWIN32_USING_WINRT_API)))
#  if !WINAPI_FAMILY_PARTITION(WINAPI_PARTITION_DESKTOP)
#    define IOWIN32_USING_WINRT_API 1
#  endif
#endif

/***************************************************************************/

typedef struct mz_stream_win32_s
{
    mz_stream   stream;
    HANDLE      handle;
    int         error;
    char        *path;
    int         path_size;
} mz_stream_win32;

/***************************************************************************/

int32_t mz_stream_win32_open(void *stream, const char *path, int mode)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    uint32_t desired_access = 0;
    uint32_t creation_disposition = 0;
    uint32_t share_mode = FILE_SHARE_READ;
    uint32_t flags_attribs = FILE_ATTRIBUTE_NORMAL;
    wchar_t *path_wide = NULL;
    uint32_t path_wide_size = 0;
    HANDLE handle = NULL;

    if (path == NULL)
        return MZ_STREAM_ERROR;

    if ((mode & MZ_STREAM_MODE_READWRITE) == MZ_STREAM_MODE_READ)
    {
        desired_access = GENERIC_READ;
        creation_disposition = OPEN_EXISTING;
        share_mode &= FILE_SHARE_WRITE;
    }
    else if (mode & MZ_STREAM_MODE_APPEND)
    {
        desired_access = GENERIC_WRITE | GENERIC_READ;
        creation_disposition = OPEN_EXISTING;
    }
    else if (mode & MZ_STREAM_MODE_CREATE)
    {
        desired_access = GENERIC_WRITE | GENERIC_READ;
        creation_disposition = CREATE_ALWAYS;
    }
    else
    {
        return MZ_STREAM_ERROR;
    }

    path_wide_size = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
    path_wide = (wchar_t *)malloc((path_wide_size + 1) * sizeof(wchar_t));
    memset(path_wide, 0, sizeof(wchar_t) * (path_wide_size + 1));

    MultiByteToWideChar(CP_UTF8, 0, path, -1, path_wide, path_wide_size);

#ifdef IOWIN32_USING_WINRT_API
    win32->handle = CreateFile2W(path_wide, desired_access, share_mode, creation_disposition, NULL);
#else
    win32->handle = CreateFileW(path_wide, desired_access, share_mode, NULL, creation_disposition, flags_attribs, NULL);
#endif

    free(path_wide);

    if (mz_stream_win32_is_open(stream) != MZ_OK)
    {
        win32->error = GetLastError();
        return MZ_STREAM_ERROR;
    }

    win32->path_size = strlen(path) + 1;
    win32->path = (char *)malloc(win32->path_size);

    strncpy(win32->path, path, win32->path_size);

    return MZ_OK; 
}

int32_t mz_stream_win32_is_open(void *stream)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    if (win32->handle == NULL || win32->handle == INVALID_HANDLE_VALUE)
        return MZ_STREAM_ERROR;
    return MZ_OK;
}

int32_t mz_stream_win32_read(void *stream, void* buf, uint32_t size)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    uint32_t read = 0;
    HANDLE handle = NULL;

    if (mz_stream_win32_is_open(stream) != MZ_OK)
        return MZ_STREAM_ERROR;

    if (!ReadFile(win32->handle, buf, size, &read, NULL))
    {
        win32->error = GetLastError();
        if (win32->error == ERROR_HANDLE_EOF)
            win32->error = 0;
    }

    return read;
}

int32_t mz_stream_win32_write(void *stream, const void *buf, uint32_t size)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    uint32_t written = 0;
    uint32_t error = 0;
    HANDLE handle = NULL;

    if (mz_stream_win32_is_open(stream) != MZ_OK)
        return MZ_STREAM_ERROR;

    if (!WriteFile(win32->handle, buf, size, &written, NULL))
    {
        win32->error = GetLastError();
        if (win32->error == ERROR_HANDLE_EOF)
            win32->error = 0;
    }

    return written;
}

static int32_t mz_stream_win32_seekinternal(HANDLE handle, LARGE_INTEGER large_pos, LARGE_INTEGER *new_pos, uint32_t move_method)
{
#ifdef IOWIN32_USING_WINRT_API
    return SetFilePointerEx(handle, pos, newPos, dwMoveMethod);
#else
    LONG high_part = large_pos.HighPart;
    uint32_t pos = SetFilePointer(handle, large_pos.LowPart, &high_part, move_method);

    if ((pos == INVALID_SET_FILE_POINTER) && (GetLastError() != NO_ERROR))
        return MZ_STREAM_ERROR;

    if (new_pos != NULL)
    {
        new_pos->LowPart = pos;
        new_pos->HighPart = high_part;
    }

    return MZ_OK;
#endif
}

int64_t mz_stream_win32_tell(void *stream)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    uint32_t written = 0;
    uint32_t error = 0;
    HANDLE handle = NULL;
    LARGE_INTEGER large_pos;

    if (mz_stream_win32_is_open(stream) != MZ_OK)
        return MZ_STREAM_ERROR;

    large_pos.QuadPart = 0;

    if (mz_stream_win32_seekinternal(win32->handle, large_pos, &large_pos, FILE_CURRENT) != MZ_OK)
    {
        error = GetLastError();
        win32->error = error;
    }

    return large_pos.LowPart;
}

int32_t mz_stream_win32_seek(void *stream, uint64_t offset, int origin)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    uint32_t move_method = 0xFFFFFFFF;
    uint32_t error = 0;
    HANDLE handle = NULL;
    int64_t position = -1;
    LARGE_INTEGER large_pos;


    if (mz_stream_win32_is_open(stream) == MZ_STREAM_ERROR)
        return MZ_STREAM_ERROR;

    switch (origin)
    {
        case MZ_STREAM_SEEK_CUR:
            move_method = FILE_CURRENT;
            break;
        case MZ_STREAM_SEEK_END:
            move_method = FILE_END;
            break;
        case MZ_STREAM_SEEK_SET:
            move_method = FILE_BEGIN;
            break;
        default:
            return MZ_STREAM_ERROR;
    }

    large_pos.QuadPart = offset;

    if (mz_stream_win32_seekinternal(win32->handle, large_pos, NULL, move_method) != MZ_OK)
    {
        error = GetLastError();
        win32->error = error;
        return MZ_STREAM_ERROR;
    }

    return MZ_OK;
}

int mz_stream_win32_close(void *stream)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;

    if (win32->path != NULL)
        free(win32->path);
    if (win32->handle != NULL)
        CloseHandle(win32->handle);
    win32->handle = NULL;
    return MZ_OK;
}

int mz_stream_win32_error(void *stream)
{
    mz_stream_win32 *win32 = (mz_stream_win32 *)stream;
    return win32->error;
}

void *mz_stream_win32_create(void **stream)
{
    mz_stream_win32 *win32 = NULL;

    win32 = (mz_stream_win32 *)malloc(sizeof(mz_stream_win32));
    if (win32 != NULL)
    {
        memset(win32, 0, sizeof(mz_stream_win32));

        win32->stream.open = mz_stream_win32_open;
        win32->stream.is_open = mz_stream_win32_is_open;
        win32->stream.read = mz_stream_win32_read;
        win32->stream.write = mz_stream_win32_write;
        win32->stream.tell = mz_stream_win32_tell;
        win32->stream.seek = mz_stream_win32_seek;
        win32->stream.close = mz_stream_win32_close;
        win32->stream.error = mz_stream_win32_error;
        win32->stream.create = mz_stream_win32_create;
        win32->stream.delete = mz_stream_win32_delete;
    }
    if (stream != NULL)
        *stream = win32;

    return win32;
}

void mz_stream_win32_delete(void **stream)
{
    mz_stream_win32 *win32 = NULL;
    if (stream == NULL)
        return;
    win32 = (mz_stream_win32 *)*stream;
    if (win32 != NULL)
        free(win32);
}

int32_t mz_win32_rand(uint8_t *buf, uint32_t size)
{
    HCRYPTPROV provider;
    unsigned __int64 pentium_tsc[1];
    int32_t len = 0;
    int32_t result = 0;


    if (CryptAcquireContext(&provider, NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT | CRYPT_SILENT))
    {
        result = CryptGenRandom(provider, size, buf);
        CryptReleaseContext(provider, 0);
        if (result)
            return size;
    }

    for (len = 0; len < (int)size; len += 1)
    {
        if (len % 8 == 0)
            QueryPerformanceCounter((LARGE_INTEGER *)pentium_tsc);
        buf[len] = ((unsigned char*)pentium_tsc)[len % 8];
    }

    return len;
}

int16_t mz_win32_get_file_date(const char *path, uint32_t *dos_date)
{
    FILETIME ftm_local;
    HANDLE handle = NULL;
    WIN32_FIND_DATAW ff32;
    wchar_t *path_wide = NULL;
    uint32_t path_wide_size = 0;
    int16_t err = MZ_INTERNAL_ERROR;

    path_wide_size = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
    path_wide = (wchar_t *)malloc((path_wide_size + 1) * sizeof(wchar_t));
    memset(path_wide, 0, sizeof(wchar_t) * (path_wide_size + 1));

    MultiByteToWideChar(CP_UTF8, 0, path, -1, path_wide, path_wide_size);

    handle = FindFirstFileW(path_wide, &ff32);

    free(path_wide);

    if (handle != INVALID_HANDLE_VALUE)
    {
        FileTimeToLocalFileTime(&(ff32.ftLastWriteTime), &ftm_local);
        FileTimeToDosDateTime(&ftm_local, ((LPWORD)dos_date) + 1, ((LPWORD)dos_date) + 0);
        FindClose(handle);
        err = MZ_OK;
    }

    return err;
}

int16_t mz_win32_set_file_date(const char *path, uint32_t dos_date)
{
    HANDLE handle = NULL;
    FILETIME ftm, ftm_local, ftm_create, ftm_access, ftm_modified;
    wchar_t *path_wide = NULL;
    uint32_t path_wide_size = 0;
    int16_t err = MZ_OK;

    path_wide_size = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
    path_wide = (wchar_t *)malloc((path_wide_size + 1) * sizeof(wchar_t));
    memset(path_wide, 0, sizeof(wchar_t) * (path_wide_size + 1));

    MultiByteToWideChar(CP_UTF8, 0, path, -1, path_wide, path_wide_size);

#ifdef IOWIN32_USING_WINRT_API
    handle = CreateFile2W(path_wide, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
#else
    handle = CreateFileW(path_wide, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
#endif

    free(path_wide);

    if (handle != INVALID_HANDLE_VALUE)
    {
        GetFileTime(handle, &ftm_create, &ftm_access, &ftm_modified);
        DosDateTimeToFileTime((WORD)(dos_date >> 16), (WORD)dos_date, &ftm_local);
        LocalFileTimeToFileTime(&ftm_local, &ftm);

        if (SetFileTime(handle, &ftm, &ftm_access, &ftm) == 0)
            err = MZ_INTERNAL_ERROR;

        CloseHandle(handle);
    }

    return err;
}

int16_t mz_win32_change_dir(const char *path)
{
    wchar_t *path_wide = NULL;
    uint32_t path_wide_size = 0;
    int16_t err = MZ_OK;


    path_wide_size = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
    path_wide = (wchar_t *)malloc((path_wide_size + 1) * sizeof(wchar_t));
    memset(path_wide, 0, sizeof(wchar_t) * (path_wide_size + 1));

    MultiByteToWideChar(CP_UTF8, 0, path, -1, path_wide, path_wide_size);

    if (_wchdir(path_wide) != 0)
        err = MZ_INTERNAL_ERROR;

    free(path_wide);
    return err;
}

int16_t mz_win32_make_dir(const char *path)
{
    wchar_t *path_wide = NULL;
    uint32_t path_wide_size = 0;
    int16_t err = MZ_OK;


    path_wide_size = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
    path_wide = (wchar_t *)malloc((path_wide_size + 1) * sizeof(wchar_t));
    memset(path_wide, 0, sizeof(wchar_t) * (path_wide_size + 1));

    MultiByteToWideChar(CP_UTF8, 0, path, -1, path_wide, path_wide_size);

    if (_wmkdir(path_wide) != 0)
        err = MZ_INTERNAL_ERROR;

    free(path_wide);
    return err;
}