1 files changed, 31 insertions, 0 deletions
diff --git a/lib/compat/w32_perror.c b/lib/compat/w32_perror.c
new file mode 100644
index 0000000..1268501
--- /dev/null
+++ b/lib/compat/w32_perror.c
@@ -0,0 +1,31 @@
+/* SPDX-License-Identifier: GPL-3.0-or-later */
+/*
+ * w32_perror.c
+ *
+ * Copyright (C) 2019 David Oberhollenzer <goliath@infraroot.at>
+ */
+#include "config.h"
+#include "compat.h"
+
+#ifdef _WIN32
+#define WIN32_LEAN_AND_MEAN
+#include <windows.h>
+
+void w32_perror(const char *str)
+{
+	DWORD nStatus = GetLastError();
+	LPVOID msg = NULL;
+
+	FormatMessageA(FORMAT_MESSAGE_ALLOCATE_BUFFER |
+		       FORMAT_MESSAGE_FROM_SYSTEM |
+		       FORMAT_MESSAGE_IGNORE_INSERTS,
+		       NULL, nStatus,
+		       MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
+		       (LPTSTR)&msg, 0, NULL);
+
+	fprintf(stderr, "%s: %s\n", str, (const char *)msg);
+
+	if (msg != NULL)
+		LocalFree(msg);
+}
+#endif