/**
 * FreeRDP: A Remote Desktop Protocol Implementation
 * common helper utilities
 *
 * Copyright 2024 Armin Novak <anovak@thincast.com>
 * Copyright 2024 Thincast Technologies GmbH
 *
 * 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 <ctype.h>

#include <freerdp/utils/helpers.h>

#include <winpr/path.h>
#include <winpr/file.h>
#include <winpr/build-config.h>
#include <freerdp/version.h>
#include <freerdp/build-config.h>

#include "../core/utils.h"

static INIT_ONCE s_freerdp_app_details_once = INIT_ONCE_STATIC_INIT;
static char s_freerdp_vendor_string[MAX_PATH] = WINPR_C_ARRAY_INIT;
static char s_freerdp_product_string[MAX_PATH] = WINPR_C_ARRAY_INIT;
static char s_freerdp_details_string[3ull * MAX_PATH] = WINPR_C_ARRAY_INIT;
static WCHAR s_freerdp_details_string_w[3ull * MAX_PATH] = WINPR_C_ARRAY_INIT;
static SSIZE_T s_freerdp_version = -1;
static BOOL s_freerdp_app_details_are_custom = FALSE;

static void updateDetailsString(void)
{
	const char* vendor = s_freerdp_vendor_string;
	const char* product = s_freerdp_product_string;
	const SSIZE_T version = s_freerdp_version;

	WINPR_ASSERT(vendor);
	WINPR_ASSERT(product);
	if (s_freerdp_app_details_are_custom)
	{
		if (version < 0)
			(void)_snprintf(s_freerdp_details_string, sizeof(s_freerdp_details_string) - 1, "%s-%s",
			                vendor, product);
		else
			(void)_snprintf(s_freerdp_details_string, sizeof(s_freerdp_details_string) - 1,
			                "%s-%s%" PRIdz, vendor, product, version);
	}
	else if (version < 0)
	{
		(void)_snprintf(s_freerdp_details_string, sizeof(s_freerdp_details_string) - 1, "%s",
		                product);
	}
	else
		(void)_snprintf(s_freerdp_details_string, sizeof(s_freerdp_details_string) - 1, "%s%" PRIdz,
		                product, version);

	(void)ConvertUtf8NToWChar(s_freerdp_details_string, sizeof(s_freerdp_details_string),
	                          s_freerdp_details_string_w, sizeof(s_freerdp_details_string_w) - 1);
}

static BOOL CALLBACK init_app_details(WINPR_ATTR_UNUSED PINIT_ONCE once,
                                      WINPR_ATTR_UNUSED PVOID param,
                                      WINPR_ATTR_UNUSED PVOID* context)
{
	const size_t vlen = sizeof(FREERDP_VENDOR_STRING);
	const size_t plen = sizeof(FREERDP_PRODUCT_STRING);
	const char* rvlen = strncpy(s_freerdp_vendor_string, FREERDP_VENDOR_STRING, vlen);
	const char* rplen = strncpy(s_freerdp_product_string, FREERDP_PRODUCT_STRING, plen);
	if (!rvlen || !rplen)
		return FALSE;

#if defined(WITH_RESOURCE_VERSIONING)
	s_freerdp_version = FREERDP_VERSION_MAJOR;
#else
	s_freerdp_version = -1;
#endif
	updateDetailsString();
	return TRUE;
}

WINPR_ATTR_NODISCARD
static BOOL initializeApplicationDetails(void)
{
	return InitOnceExecuteOnce(&s_freerdp_app_details_once, init_app_details, nullptr, nullptr);
}

BOOL freerdp_setApplicationDetails(const char* vendor, const char* product, SSIZE_T version)
{
	if (!initializeApplicationDetails())
		return -1;

	if (!vendor || !product)
		return FALSE;
	const size_t vlen = strnlen(vendor, MAX_PATH);
	const size_t plen = strnlen(product, MAX_PATH);
	if ((vlen == MAX_PATH) || (plen == MAX_PATH))
		return FALSE;

	if (!strncpy(s_freerdp_vendor_string, vendor, vlen + 1))
		return FALSE;

	if (!strncpy(s_freerdp_product_string, product, plen + 1))
		return FALSE;

	s_freerdp_version = version;
	s_freerdp_app_details_are_custom = TRUE;

	const char separator = PathGetSeparatorA(PATH_STYLE_NATIVE);
	char* str = freerdp_getApplicatonDetailsCombined(separator);
	if (!str)
		return FALSE;

	const BOOL rc = winpr_setApplicationDetails(str, "WinPR", -1);
	free(str);
	updateDetailsString();
	return rc;
}

const char* freerdp_getApplicationDetailsVendor(void)
{
	if (!initializeApplicationDetails())
		return nullptr;
	return s_freerdp_vendor_string;
}

const char* freerdp_getApplicationDetailsProduct(void)
{
	if (!initializeApplicationDetails())
		return nullptr;
	return s_freerdp_product_string;
}

char* freerdp_getApplicatonDetailsRegKey(const char* fmt)
{
	char* val = freerdp_getApplicatonDetailsCombined('\\');
	if (!val)
		return nullptr;

	char* str = nullptr;
	size_t slen = 0;
	(void)winpr_asprintf(&str, &slen, fmt, val);
	free(val);
	return str;
}

char* freerdp_getApplicatonDetailsCombined(char separator)
{
	const SSIZE_T version = freerdp_getApplicationDetailsVersion();
	const char* vendor = freerdp_getApplicationDetailsVendor();
	const char* product = freerdp_getApplicationDetailsProduct();

	size_t slen = 0;
	char* str = nullptr;
	if (version < 0)
	{
		(void)winpr_asprintf(&str, &slen, "%s%c%s", vendor, separator, product);
	}
	else
	{
		(void)winpr_asprintf(&str, &slen, "%s%c%s%" PRIdz, vendor, separator, product, version);
	}

	return str;
}

SSIZE_T freerdp_getApplicationDetailsVersion(void)
{
	if (!initializeApplicationDetails())
		return -1;
	return s_freerdp_version;
}

const char* freerdp_getApplicationDetailsString(void)
{
	return s_freerdp_details_string;
}

const WCHAR* freerdp_getApplicationDetailsStringW(void)
{
	return s_freerdp_details_string_w;
}

BOOL freerdp_areApplicationDetailsCustomized(void)
{
	return s_freerdp_app_details_are_custom;
}

#if !defined(WITH_FULL_CONFIG_PATH)
WINPR_ATTR_MALLOC(free, 1)
WINPR_ATTR_NODISCARD
static char* freerdp_settings_get_legacy_config_path(const char* filename)
{
	char product[sizeof(FREERDP_PRODUCT_STRING)] = WINPR_C_ARRAY_INIT;

	for (size_t i = 0; i < sizeof(product); i++)
		product[i] = (char)tolower(FREERDP_PRODUCT_STRING[i]);

	char* path = GetKnownSubPath(KNOWN_PATH_XDG_CONFIG_HOME, product);

	if (!path)
		return nullptr;

	char* filepath = GetCombinedPath(path, filename);
	free(path);
	return filepath;
}
#endif

WINPR_ATTR_NODISCARD
WINPR_ATTR_MALLOC(free, 1) static char* getCustomConfigPath(BOOL system, const char* filename)
{
	eKnownPathTypes id = system ? KNOWN_PATH_SYSTEM_CONFIG_HOME : KNOWN_PATH_XDG_CONFIG_HOME;

	const char* vendor = freerdp_getApplicationDetailsVendor();
	const char* product = freerdp_getApplicationDetailsProduct();
	const SSIZE_T version = freerdp_getApplicationDetailsVersion();

	if (!vendor || !product)
		return nullptr;

	char* config = GetKnownSubPathV(id, "%s", vendor);
	if (!config)
		return nullptr;

	char* base = nullptr;
	if (version < 0)
		base = GetCombinedPathV(config, "%s", product);
	else
		base = GetCombinedPathV(config, "%s%" PRIdz, product, version);
	free(config);

	if (!base)
		return nullptr;

	if (!filename)
		return base;

	char* path = GetCombinedPathV(base, "%s", filename);
	free(base);
	return path;
}

char* freerdp_GetConfigFilePath(BOOL system, const char* filename)
{
#if defined(FREERDP_USE_VENDOR_PRODUCT_CONFIG_DIR)
	const BOOL customized = TRUE;
#else
	const BOOL customized = freerdp_areApplicationDetailsCustomized();
#endif
	if (customized)
		return getCustomConfigPath(system, filename);

	eKnownPathTypes id = system ? KNOWN_PATH_SYSTEM_CONFIG_HOME : KNOWN_PATH_XDG_CONFIG_HOME;

	const char* vendor = freerdp_getApplicationDetailsVendor();
	const char* product = freerdp_getApplicationDetailsProduct();
	const SSIZE_T version = freerdp_getApplicationDetailsVersion();

	if (!vendor || !product)
		return nullptr;

#if !defined(WITH_FULL_CONFIG_PATH)
	if (!system && (_stricmp(vendor, product) == 0))
		return freerdp_settings_get_legacy_config_path(filename);
#endif

	char* config = GetKnownPath(id);
	if (!config)
		return nullptr;

	char* base = nullptr;
	if (version < 0)
		base = GetCombinedPathV(config, "%s", product);
	else
		base = GetCombinedPathV(config, "%s%" PRIdz, product, version);
	free(config);

	if (!base)
		return nullptr;

	if (!filename)
		return base;

	char* path = GetCombinedPathV(base, "%s", filename);
	free(base);
	return path;
}

WINPR_JSON* freerdp_GetJSONConfigFile(BOOL system, const char* filename)
{
	char* path = freerdp_GetConfigFilePath(system, filename);
	if (!path)
		return nullptr;

	WINPR_JSON* json = WINPR_JSON_ParseFromFile(path);
	free(path);
	return json;
}