/*
 * Copyright (c) 2018 Markus Hennecke <markus-hennecke@markus-hennecke.de>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <err.h>
#include <stdlib.h>
#include <string.h>

#include "template.h"


void
tmpl_name_free(struct tmpl_name *_entry)
{
	free(_entry->name);
}


void
tmpl_var_free(struct tmpl_var *_var)
{
	tmpl_name_free(&_var->name);
	free(_var->value);
	free(_var);
}


struct tmpl_var *
tmpl_var_new(const char *_name)
{
	struct tmpl_var *var = malloc(sizeof(struct tmpl_var));
	if (NULL == var)
		err(1, NULL);
	var->name.name = strdup(_name);
	var->value = NULL;

	return var;
}


void
tmpl_var_set(struct tmpl_var *_var, const char *_value)
{
	free(_var->value);
	if (_value)
		_var->value = strdup(_value);
	else
		_var->value = NULL;
}


void
tmpl_var_setn(struct tmpl_var *_var, const char *_value, size_t _len)
{
	free(_var->value);
	_var->value = strndup(_value, _len);
}


struct tmpl_data *
tmpl_data_new(void)
{
	struct tmpl_data *data;

	data = malloc(sizeof(struct tmpl_data));
	if (NULL == data)
		err(1, NULL);
	TAILQ_INIT(&data->variables);
	TAILQ_INIT(&data->loops);
	return data;
}


void
tmpl_data_free(struct tmpl_data *_data)
{
	struct tmpl_var *var;
	struct tmpl_loop *loop;

	if (_data == NULL)
		return;

	while ((var = TAILQ_FIRST(&_data->variables))) {
		TAILQ_REMOVE(&_data->variables, var, entry);
		tmpl_var_free(var);
	}
	while ((loop = TAILQ_FIRST(&_data->loops))) {
		TAILQ_REMOVE(&_data->loops, loop, entry);
		tmpl_loop_free(loop);
	}
	free(_data);
}


struct tmpl_var *
tmpl_data_get_variable(struct tmpl_data *_data, const char *_name)
{
	struct tmpl_var *var;
	TAILQ_FOREACH(var, &_data->variables, entry) {
		if (strcmp(_name, var->name.name) == 0)
			return var;
	}
	return NULL;
}


void
tmpl_data_set_variable(struct tmpl_data *_data, const char *_name,
		const char *_value)
{
	struct tmpl_var *var = tmpl_data_get_variable(_data, _name);
	if (var == NULL) {
		var = tmpl_var_new(_name);
		TAILQ_INSERT_TAIL(&_data->variables, var, entry);
	}
	tmpl_var_set(var, _value);
}


void
tmpl_data_move_variable(struct tmpl_data *_data, const char *_name,
		char *_value)
{
	struct tmpl_var *var = tmpl_data_get_variable(_data, _name);
	if (var == NULL) {
		var = tmpl_var_new(_name);
		TAILQ_INSERT_TAIL(&_data->variables, var, entry);
	} else {
		free(var->value);
	}
	var->value = _value;
}


void
tmpl_data_set_variablen(struct tmpl_data *_data, const char *_name,
		const char *_value, size_t _len)
{
	struct tmpl_var *var = tmpl_data_get_variable(_data, _name);
	if (var == NULL) {
		var = tmpl_var_new(_name);
		TAILQ_INSERT_TAIL(&_data->variables, var, entry);
	}
	tmpl_var_setn(var, _value, _len);
}


struct tmpl_loop *
tmpl_data_get_loop(struct tmpl_data *_data, const char *_name)
{
	struct tmpl_loop *loop;
	TAILQ_FOREACH(loop, &_data->loops, entry) {
		if (strcmp(_name, loop->name.name) == 0)
			return loop;
	}
	return NULL;
}


struct tmpl_loop *
tmpl_data_add_loop(struct tmpl_data *_data, const char *_name)
{
	struct tmpl_loop *loop = tmpl_data_get_loop(_data, _name);
	if (loop)
		return loop;
	loop = tmpl_loop_new(_name);
	TAILQ_INSERT_TAIL(&_data->loops, loop, entry);
	return loop;
}


void
tmpl_data_set_loop(struct tmpl_data *_data, const char *_name,
		struct tmpl_loop *_loop)
{
	struct tmpl_loop *loop = tmpl_data_get_loop(_data, _name);
	if (loop) {
		TAILQ_REMOVE(&_data->loops, loop, entry);
		tmpl_loop_free(loop);
	}
	TAILQ_INSERT_TAIL(&_data->loops, _loop, entry);
}


void
tmpl_loop_free(struct tmpl_loop *_loop)
{
	struct tmpl_data *data;
	while ((data = TAILQ_FIRST(&_loop->data))) {
		TAILQ_REMOVE(&_loop->data, data, entry);
		tmpl_data_free(data);
	}
	tmpl_name_free(&_loop->name);
	free(_loop);
}


struct tmpl_loop *
tmpl_loop_new(const char *_name)
{
	struct tmpl_loop *loop = malloc(sizeof(struct tmpl_loop));
	if (NULL == loop)
		err(1, NULL);

	loop->name.name = strdup(_name);
	TAILQ_INIT(&loop->data);
	return loop;
}


bool
tmpl_loop_isempty(struct tmpl_loop *_loop)
{
	return !(_loop && TAILQ_FIRST(&_loop->data));
}


void
tmpl_loop_add_data(struct tmpl_loop *_loop, struct tmpl_data *_data)
{
	TAILQ_INSERT_TAIL(&_loop->data, _data, entry);
}