1 files changed, 291 insertions, 0 deletions
diff --git a/3rdparty/plibsys/src/pdir-win.c b/3rdparty/plibsys/src/pdir-win.c
new file mode 100644
index 0000000..8c6df15
--- /dev/null
+++ b/3rdparty/plibsys/src/pdir-win.c
@@ -0,0 +1,291 @@
+/*
+ * The MIT License
+ *
+ * Copyright (C) 2015-2016 Alexander Saprykin <saprykin.spb@gmail.com>
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining
+ * a copy of this software and associated documentation files (the
+ * 'Software'), to deal in the Software without restriction, including
+ * without limitation the rights to use, copy, modify, merge, publish,
+ * distribute, sublicense, and/or sell copies of the Software, and to
+ * permit persons to whom the Software is furnished to do so, subject to
+ * the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+#include "pdir.h"
+#include "perror.h"
+#include "pmem.h"
+#include "pstring.h"
+#include "perror-private.h"
+
+#include <stdlib.h>
+#include <string.h>
+
+struct PDir_ {
+	WIN32_FIND_DATAA	find_data;
+	HANDLE			search_handle;
+	pboolean		cached;
+	pchar			path[MAX_PATH + 3];
+	pchar			*orig_path;
+};
+
+P_LIB_API PDir *
+p_dir_new (const pchar	*path,
+	   PError	**error)
+{
+	PDir	*ret;
+	pchar	*pathp;
+
+	if (P_UNLIKELY (path == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+				     0,
+				     "Invalid input argument");
+		return NULL;
+	}
+
+	if (P_UNLIKELY ((ret = p_malloc0 (sizeof (PDir))) == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_NO_RESOURCES,
+				     0,
+				     "Failed to allocate memory for directory structure");
+		return NULL;
+	}
+
+	if (P_UNLIKELY (!GetFullPathNameA (path, MAX_PATH, ret->path, NULL))) {
+		p_error_set_error_p (error,
+				     (pint) p_error_get_last_io (),
+				     p_error_get_last_system (),
+				     "Failed to call GetFullPathNameA() to get directory path");
+		p_free (ret);
+		return NULL;
+	}
+
+	/* Append the search pattern "\\*\0" to the directory name */
+	pathp = strchr (ret->path, '\0');
+
+	if (ret->path < pathp  &&  *(pathp - 1) != '\\'  &&  *(pathp - 1) != ':')
+		*pathp++ = '\\';
+
+	*pathp++ = '*';
+	*pathp = '\0';
+
+	/* Open directory stream and retrieve the first entry */
+	ret->search_handle = FindFirstFileA (ret->path, &ret->find_data);
+
+	if (P_UNLIKELY (ret->search_handle == INVALID_HANDLE_VALUE)) {
+		p_error_set_error_p (error,
+				     (pint) p_error_get_last_io (),
+				     p_error_get_last_system (),
+				     "Failed to call FindFirstFileA() to open directory stream");
+		p_free (ret);
+		return NULL;
+	}
+
+	ret->cached    = TRUE;
+	ret->orig_path = p_strdup (path);
+
+	return ret;
+}
+
+P_LIB_API pboolean
+p_dir_create (const pchar	*path,
+	      pint		mode,
+	      PError		**error)
+{
+	P_UNUSED (mode);
+
+	if (P_UNLIKELY (path == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+				     0,
+				     "Invalid input argument");
+		return FALSE;
+	}
+
+	if (p_dir_is_exists (path))
+		return TRUE;
+
+	if (P_UNLIKELY (CreateDirectoryA (path, NULL) == 0)) {
+		p_error_set_error_p (error,
+				     (pint) p_error_get_last_io (),
+				     p_error_get_last_system (),
+				     "Failed to call CreateDirectoryA() to create directory");
+		return FALSE;
+	} else
+		return TRUE;
+}
+
+P_LIB_API pboolean
+p_dir_remove (const pchar	*path,
+	      PError		**error)
+{
+	if (P_UNLIKELY (path == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+				     0,
+				     "Invalid input argument");
+		return FALSE;
+	}
+
+	if (!p_dir_is_exists (path)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_NOT_EXISTS,
+				     0,
+				     "Specified directory doesn't exist");
+		return FALSE;
+	}
+
+	if (P_UNLIKELY (RemoveDirectoryA (path) == 0)) {
+		p_error_set_error_p (error,
+				     (pint) p_error_get_last_io (),
+				     p_error_get_last_system (),
+				     "Failed to call RemoveDirectoryA() to remove directory");
+		return FALSE;
+	} else
+		return TRUE;
+}
+
+P_LIB_API pboolean
+p_dir_is_exists (const pchar *path)
+{
+	DWORD	dwAttrs;
+
+	if (P_UNLIKELY (path == NULL))
+		return FALSE;
+
+	dwAttrs = GetFileAttributesA (path);
+
+	return (dwAttrs != INVALID_FILE_ATTRIBUTES) && (dwAttrs & FILE_ATTRIBUTE_DIRECTORY);
+}
+
+P_LIB_API pchar *
+p_dir_get_path (const PDir *dir)
+{
+	if (P_UNLIKELY (dir == NULL))
+		return NULL;
+
+	return p_strdup (dir->orig_path);
+}
+
+P_LIB_API PDirEntry *
+p_dir_get_next_entry (PDir	*dir,
+		      PError	**error)
+{
+	PDirEntry	*ret;
+	DWORD		dwAttrs;
+
+	if (P_UNLIKELY (dir == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+				     0,
+				     "Invalid input argument");
+		return NULL;
+	}
+
+	if (dir->cached == TRUE)
+		dir->cached = FALSE;
+	else {
+		if (P_UNLIKELY (dir->search_handle == INVALID_HANDLE_VALUE)) {
+			p_error_set_error_p (error,
+					     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+					     0,
+					     "Not a valid (or closed) directory stream");
+			return NULL;
+		}
+
+		if (P_UNLIKELY (!FindNextFileA (dir->search_handle, &dir->find_data))) {
+			p_error_set_error_p (error,
+					     (pint) p_error_get_last_io (),
+					     p_error_get_last_system (),
+					     "Failed to call FindNextFileA() to read directory stream");
+			FindClose (dir->search_handle);
+			dir->search_handle = INVALID_HANDLE_VALUE;
+			return NULL;
+		}
+	}
+
+	if (P_UNLIKELY ((ret = p_malloc0 (sizeof (PDirEntry))) == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_NO_RESOURCES,
+				     0,
+				     "Failed to allocate memory for directory entry");
+		return NULL;
+	}
+
+	ret->name = p_strdup (dir->find_data.cFileName);
+
+	dwAttrs = dir->find_data.dwFileAttributes;
+
+	if (dwAttrs & FILE_ATTRIBUTE_DIRECTORY)
+		ret->type = P_DIR_ENTRY_TYPE_DIR;
+	else if (dwAttrs & FILE_ATTRIBUTE_DEVICE)
+		ret->type = P_DIR_ENTRY_TYPE_OTHER;
+	else
+		ret->type = P_DIR_ENTRY_TYPE_FILE;
+
+	return ret;
+}
+
+P_LIB_API pboolean
+p_dir_rewind (PDir	*dir,
+	      PError	**error)
+{
+	if (P_UNLIKELY (dir == NULL)) {
+		p_error_set_error_p (error,
+				     (pint) P_ERROR_IO_INVALID_ARGUMENT,
+				     0,
+				     "Invalid input argument");
+		return FALSE;
+	}
+
+	if (dir->search_handle != INVALID_HANDLE_VALUE) {
+		if (P_UNLIKELY (FindClose (dir->search_handle) == 0)) {
+			p_error_set_error_p (error,
+					     (pint) p_error_get_last_io (),
+					     p_error_get_last_system (),
+					     "Failed to call FindClose() to close directory stream");
+			return FALSE;
+		}
+	}
+
+	dir->search_handle = FindFirstFileA (dir->path, &dir->find_data);
+
+	if (P_UNLIKELY (dir->search_handle == INVALID_HANDLE_VALUE)) {
+		p_error_set_error_p (error,
+				     (pint) p_error_get_last_io (),
+				     p_error_get_last_system (),
+				     "Failed to call FindFirstFileA() to open directory stream");
+		dir->cached = FALSE;
+		return FALSE;
+	} else {
+		dir->cached = TRUE;
+		return TRUE;
+	}
+}
+
+P_LIB_API void
+p_dir_free (PDir *dir)
+{
+	if (dir == NULL)
+		return;
+
+	if (P_LIKELY (dir->search_handle != INVALID_HANDLE_VALUE)) {
+		if (P_UNLIKELY (!FindClose (dir->search_handle)))
+			P_ERROR ("PDir::p_dir_free: FindClose() failed");
+	}
+
+	p_free (dir->orig_path);
+	p_free (dir);
+}