/*
** Copyright (C) 2001-2025 Zabbix SIA
**
** This program is free software: you can redistribute it and/or modify it under the terms of
** the GNU Affero General Public License as published by the Free Software Foundation, version 3.
**
** This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
** without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
** See the GNU Affero General Public License for more details.
**
** You should have received a copy of the GNU Affero General Public License along with this program.
** If not, see <https://www.gnu.org/licenses/>.
**/

#include "zbxmocktest.h"
#include "zbxmockdata.h"
#include "zbxmockassert.h"
#include "zbxmockutil.h"

#include "zbxnum.h"
#include "zbxexpr.h"

static void	compare_token(const char *prefix, const char *path, const char *expression, zbx_strloc_t strloc)
{
	char	*end, c;

	end = (char *)&expression[strloc.r + 1];
	c = *end;
	*end = '\0';
	zbx_mock_assert_str_eq(prefix, zbx_mock_get_parameter_string(path), expression + strloc.l);
	*end = c;
}

static void	get_exp_value_and_compare(const char *param, size_t found_value)
{
	zbx_uint32_t	expected_value;

	/* get expected values */
	if (FAIL == zbx_is_uint32(zbx_mock_get_parameter_string(param), &expected_value))
			fail_msg("Invalid %s value", param);

	/* compare expected token values to values found */
	if (expected_value != found_value)
	{
		fail_msg("Position "ZBX_FS_SIZE_T" of '%s' not equal to expected "ZBX_FS_SIZE_T,
				(zbx_fs_size_t)found_value, param, (zbx_fs_size_t)expected_value);
	}
}

static void	compare_token_user_macro(const char *expression, zbx_token_t *token)
{
	zbx_mock_handle_t	handle;
	const char		*parameter;

	if (ZBX_MOCK_SUCCESS == zbx_mock_parameter("out.token", &handle) &&
				ZBX_MOCK_SUCCESS == zbx_mock_string(handle, &parameter))
	{
		compare_token("Invalid token", "out.token", expression, token->loc);

		compare_token("Invalid name", "out.name", expression, token->data.user_macro.name);

		compare_token("Invalid context", "out.context", expression, token->data.user_macro.context);

	}
	else
	{
		get_exp_value_and_compare("out.token_l", token->loc.l);
		get_exp_value_and_compare("out.token_r", token->loc.r);

		get_exp_value_and_compare("out.name_l", token->data.user_macro.name.l);
		get_exp_value_and_compare("out.name_r", token->data.user_macro.name.r);

		get_exp_value_and_compare("out.context_l", token->data.user_macro.context.l);
		get_exp_value_and_compare("out.context_r", token->data.user_macro.context.r);
	}
}

static void	compare_token_func_macro_values(const char *expression, zbx_token_t *token)
{
	zbx_mock_handle_t	handle;
	const char		*parameter;

	if (ZBX_MOCK_SUCCESS == zbx_mock_parameter("out.token", &handle) &&
			ZBX_MOCK_SUCCESS == zbx_mock_string(handle, &parameter))
	{
		compare_token("Invalid token", "out.token", expression, token->loc);

		compare_token("Invalid macro", "out.macro", expression, token->data.func_macro.macro);

		compare_token("Invalid func", "out.func", expression, token->data.func_macro.func);

		compare_token("Invalid param", "out.param", expression, token->data.func_macro.func_param);
	}
	else
	{
		get_exp_value_and_compare("out.token_l", token->loc.l);
		get_exp_value_and_compare("out.token_r", token->loc.r);

		get_exp_value_and_compare("out.macro_l", token->data.func_macro.macro.l);
		get_exp_value_and_compare("out.macro_r", token->data.func_macro.macro.r);

		get_exp_value_and_compare("out.func_l", token->data.func_macro.func.l);
		get_exp_value_and_compare("out.func_r", token->data.func_macro.func.r);

		get_exp_value_and_compare("out.func_param_l", token->data.func_macro.func_param.l);
		get_exp_value_and_compare("out.func_param_r", token->data.func_macro.func_param.r);
	}
}

static void	compare_token_lld_macro_values(const char *expression, zbx_token_t *token)
{
	zbx_mock_handle_t	handle;
	const char		*parameter;

	if (ZBX_MOCK_SUCCESS == zbx_mock_parameter("out.token", &handle) &&
			ZBX_MOCK_SUCCESS == zbx_mock_string(handle, &parameter))
	{
		compare_token("Invalid token", "out.token", expression, token->loc);

		compare_token("Invalid macro", "out.name", expression, token->data.lld_macro.name);
	}
	else
	{
		get_exp_value_and_compare("out.token_l", token->loc.l);
		get_exp_value_and_compare("out.token_r", token->loc.r);

		get_exp_value_and_compare("out.name_l", token->data.lld_macro.name.l);
		get_exp_value_and_compare("out.name_r", token->data.lld_macro.name.r);
	}
}

static void	compare_token_lld_func_macro_values(const char *expression, zbx_token_t *token)
{
	zbx_mock_handle_t	handle;
	const char		*parameter;

	if (ZBX_MOCK_SUCCESS == zbx_mock_parameter("out.token", &handle) &&
			ZBX_MOCK_SUCCESS == zbx_mock_string(handle, &parameter))
	{
		compare_token("Invalid token", "out.token", expression, token->loc);

		compare_token("Invalid macro", "out.macro", expression, token->data.lld_func_macro.macro);

		compare_token("Invalid func", "out.func", expression, token->data.lld_func_macro.func);

		compare_token("Invalid param", "out.param", expression, token->data.lld_func_macro.func_param);
	}
	else
	{
		get_exp_value_and_compare("out.token_l", token->loc.l);
		get_exp_value_and_compare("out.token_r", token->loc.r);

		get_exp_value_and_compare("out.macro_l", token->data.lld_func_macro.macro.l);
		get_exp_value_and_compare("out.macro_r", token->data.lld_func_macro.macro.r);

		get_exp_value_and_compare("out.func_l", token->data.lld_func_macro.func.l);
		get_exp_value_and_compare("out.func_r", token->data.lld_func_macro.func.r);

		get_exp_value_and_compare("out.func_param_l", token->data.lld_func_macro.func_param.l);
		get_exp_value_and_compare("out.func_param_r", token->data.lld_func_macro.func_param.r);
	}
}

static void	compare_token_macro_values(const char *expression, zbx_token_t *token)
{
	compare_token("Invalid token", "out.token", expression, token->loc);
	compare_token("Invalid macro", "out.macro", expression, token->data.macro.name);
}

static void	compare_token_expression_macro_values(const char *expression, zbx_token_t *token)
{
	compare_token("Invalid token", "out.expression", expression, token->data.expression_macro.expression);
}

void	zbx_mock_test_entry(void **state)
{
	const char		*expression, *flags;
	int			expected_ret, expected_token_type, token_search;
	zbx_token_t		token;
	zbx_mock_handle_t	handle;
	zbx_mock_error_t	err;

	ZBX_UNUSED(state);

	expression = zbx_mock_get_parameter_string("in.expression");
	expected_ret = zbx_mock_str_to_return_code(zbx_mock_get_parameter_string("out.return"));

	if (ZBX_MOCK_SUCCESS == zbx_mock_parameter("in.token_search", &handle))
	{
		if (ZBX_MOCK_SUCCESS != (err = zbx_mock_string(handle, &flags)))
		{
			fail_msg("Cannot read parameter at \"in.token_search\": %s", zbx_mock_error_string(err));
		}

		zbx_mock_str_to_token_search(flags, &token_search);
	}
	else
		token_search = ZBX_TOKEN_SEARCH_EXPRESSION_MACRO | ZBX_TOKEN_SEARCH_SIMPLE_MACRO;

	zbx_mock_assert_result_eq("zbx_token_find() return code", expected_ret,
			zbx_token_find(expression, 0, &token, token_search));

	if (SUCCEED == expected_ret)
	{
		zbx_mock_str_to_token_type(zbx_mock_get_parameter_string("out.token_type"), &expected_token_type);

		if (expected_token_type != token.type)
		{
			fail_msg("Expected token type 0x%02X does not match type found 0x%02X", expected_token_type,
					token.type);
		}

		switch (expected_token_type)
		{
			case ZBX_TOKEN_LLD_FUNC_MACRO:
				compare_token_lld_func_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_USER_FUNC_MACRO:
			case ZBX_TOKEN_FUNC_MACRO:
				compare_token_func_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_USER_MACRO:
				compare_token_user_macro(expression, &token);
				break;
			case ZBX_TOKEN_LLD_MACRO:
				compare_token_lld_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_MACRO:
				compare_token_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_EXPRESSION_MACRO:
				compare_token_expression_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_VAR_MACRO:
				compare_token_macro_values(expression, &token);
				break;
			case ZBX_TOKEN_VAR_FUNC_MACRO:
				compare_token_func_macro_values(expression, &token);
				break;
		}
	}
}