#include "precompiled.h"

MConfig::MConfig() : m_debuglevel(0), m_gamedll(nullptr), m_exec_cfg(nullptr), m_list(nullptr), m_filename(nullptr), m_clientmeta(FALSE)
{
	set_directory();
}

// Initialize default values from the stored options struct.  Has to happen
// _after_ constructor, so that all the fields are allocated (d'oh).
void MConfig::init(option_t* global_options)
{
	m_list = global_options;
	for (auto optp = m_list; optp->name; optp++)
		set(optp, optp->init);
}

option_t* MConfig::find(const char* lookup) const
{
	for (auto optp = m_list; optp->name; optp++) {
		if (!Q_strcmp(optp->name, lookup)) {
			return optp;
		}
	}

	return nullptr;
}

bool MConfig::set(const char* key, const char* value) const
{
	option_t* optp = find(key);
	if (optp)
		return set(optp, value);

	return false;
}

bool MConfig::set(option_t* setp, const char* setstr)
{
	char pathbuf[PATH_MAX];
	int* optval = (int *)setp->dest;
	char** optstr = (char **)setp->dest;
	// cvar_t *optcvar = (cvar_t *) setp->dest;
	// SETOPT_FN optcmd = (SETOPT_FN) setp->dest;

	if (!setstr)
		return true;

	switch (setp->type) {
	case CF_INT:
		if (!isdigit(setstr[0])) {
			META_ERROR("option '%s' invalid format '%s'", setp->name, setstr);
			return false;
		}
		*optval = Q_atoi(setstr);
		META_DEBUG(3, "set config int: %s = %d", setp->name, *optval);
		break;
	case CF_BOOL:
		if (is_yes(setstr)) {
			*optval = TRUE;
		}
		else if (is_no(setstr)) {
			*optval = FALSE;
		}
		else {
			META_ERROR("option '%s' invalid format '%s'", setp->name, setstr);
			return false;
		}
		META_DEBUG(3, "set config bool: %s = %s", setp->name, *optval ? "true" : "false");
		break;
	case CF_STR:
		if (*optstr) {
			free(*optstr);
		}
		*optstr = Q_strdup(setstr);
		META_DEBUG(3, "set config string: %s = %s", setp->name, *optstr);
		break;
	case CF_PATH:
		if (*optstr) {
			free(*optstr);
		}
		full_gamedir_path(setstr, pathbuf);
		*optstr = Q_strdup(pathbuf);
		META_DEBUG(3, "set config path: %s = %s", setp->name, *optstr);
		break;
	default:
		META_ERROR("unrecognized config type '%d'", setp->type);
		return false;
	}

	return true;
}

bool MConfig::load(const char* fn)
{
	char loadfile[PATH_MAX];
	char line[MAX_CONF_LEN];

	// Make full pathname (from gamedir if relative, collapse "..",
	// backslashes, etc).
	full_gamedir_path(fn, loadfile);

	FILE* fp = fopen(loadfile, "r");
	if (!fp) {
		META_ERROR("unable to open config file '%s': %s", loadfile, strerror(errno));
		return false;
	}

	META_DEBUG(2, "Loading from config file: %s", loadfile);
	for (int ln = 1; !feof(fp) && fgets(line, sizeof line, fp); ln++)
	{
		trimbuf(line);

		if (line[0] == '\0' || line[0] == '#' || line[0] == ';' || !Q_strncmp(line, "//", 2))
			continue;

		char* optname = strtok(line, " \t\r\n");
		if (!optname) {
			META_ERROR("'%s' line %d: bad config format: missing option", loadfile, ln);
			continue;
		}

		char *optval = strtok(nullptr, "\r\n");
		if (!optval) {
			META_ERROR("'%s' line %d: bad config format: missing value", loadfile, ln);
			continue;
		}

		auto optp = find(optname);
		if (!optp) {
			META_ERROR("'%s' line %d: unknown option name '%s'", loadfile, ln, optname);
			continue;
		}

		if (!set(optp, optval)) {
			META_ERROR("'%s' line %d: unable to set option '%s' value '%s'", loadfile, ln, optname, optval);
		}
	}

	m_filename = Q_strdup(loadfile);
	fclose(fp);
	return true;
}

void MConfig::show() const
{
	META_CONS("Config options from localinfo and %s:", m_filename);

	for (auto optp = m_list; optp->name; optp++) {
		int* optval = (int *)optp->dest;
		char** optstr = (char **)optp->dest;

		// cvar_t *optcvar = (cvar_t *) optp->dest;
		// SETOPT_FN optcmd = (SETOPT_FN) optp->dest;
		switch (optp->type) {
		case CF_INT:
			printf("   %-20s\t%d\n", optp->name, *optval);
			break;
		case CF_BOOL:
			printf("   %-20s\t%s\n", optp->name, *optval ? "true" : "false");
			break;
		case CF_STR:
		case CF_PATH:
			printf("   %-20s\t%s\n", optp->name, *optstr ? *optstr : "");
			break;
		case CF_NONE:
			break;
		}
	}
}

void MConfig::set_directory()
{
#ifdef _WIN32
	HMODULE hModule = nullptr;
	GetModuleHandleEx(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS | GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, (LPCTSTR)GiveFnptrsToDll, &hModule);
	GetModuleFileName(hModule, m_directory, sizeof m_directory);
#else
	Dl_info addrInfo;
	if (dladdr((void *)GiveFnptrsToDll, &addrInfo)) {
		Q_strncpy(m_directory, addrInfo.dli_fname, sizeof m_directory - 1);
		m_directory[sizeof m_directory - 1] = '\0';
	}
#endif

	normalize_path(m_directory);

	// get directory
	char* dir = Q_strrchr(m_directory, '/');
	if (dir) {
		*dir = '\0';
	}
}