/*
 * Copyright (C) 2013  P. J. McDermott
 *
 * This file is part of Dodge Balls
 *
 * Dodge Balls is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Dodge Balls 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Dodge Balls.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <string.h>
#include <stdio.h>
#include <inttypes.h>
#include <expat.h>
#include <SDL_stdinc.h>
#include "output.h"
#include "xml.h"

struct _db_xml_node {
	void                     *data;
	XML_StartElementHandler   start;
	XML_EndElementHandler     end;
	XML_CharacterDataHandler  charhndl;
	struct _db_xml_node      *parent;
};

int
db_xml_check_tag(const char *found, const char *expected)
{
	return strcmp(found, expected) == 0;
}

void
db_xml_unexpected_start_tag(XML_Parser p, const char *found,
		const char *expected)
{
	db_warn("Found \"%s\" start tag where expected one of \"%s\" in map",
			found, expected);
	XML_StopParser(p, XML_FALSE);
}

void
db_xml_unexpected_end_tag(XML_Parser p, const char *found,
		const char *expected)
{
	db_warn("Found \"%s\" end tag where expected one of \"%s\" in map",
			found, expected);
	XML_StopParser(p, XML_FALSE);
}

void
db_xml_get_bool_attr(XML_Parser p, const char **attr, const char *name,
		SDL_bool *dest, int req)
{
	for (; attr[0] != NULL; attr += 2) {
		if (strcmp(attr[0], name) == 0) {
			if (strcmp(attr[1], "true") == 0) {
				*dest = SDL_TRUE;
				return;
			} else if (strcmp(attr[1], "false") == 0) {
				*dest = SDL_FALSE;
				return;
			} else if (req) {
				db_warn("Invalid \"%s\" attribute value", name);
				XML_StopParser(p, XML_FALSE);
			}
		}
	}
	if (req) {
		db_warn("Required attribute \"%s\" not found", name);
		XML_StopParser(p, XML_FALSE);
	}
}

void
db_xml_get_uint32_attr(XML_Parser p, const char **attr, const char *name,
		Uint32 *dest, int req)
{
	for (; attr[0] != NULL; attr += 2) {
		if (strcmp(attr[0], name) == 0) {
			if (sscanf(attr[1], "%" PRIu32, dest) == 1) {
				return;
			} else if (req) {
				db_warn("Invalid \"%s\" attribute value", name);
				XML_StopParser(p, XML_FALSE);
			}
		}
	}
	if (req) {
		db_warn("Required attribute \"%s\" not found", name);
		XML_StopParser(p, XML_FALSE);
	}
}

void
db_xml_get_int_attr(XML_Parser p, const char **attr, const char *name,
		int *dest, int req)
{
	for (; attr[0] != NULL; attr += 2) {
		if (strcmp(attr[0], name) == 0) {
			if (sscanf(attr[1], "%d", dest) == 1) {
				return;
			} else if (req) {
				db_warn("Invalid \"%s\" attribute value", name);
				XML_StopParser(p, XML_FALSE);
			}
		}
	}
	if (req) {
		db_warn("Required attribute \"%s\" not found", name);
		XML_StopParser(p, XML_FALSE);
	}
}

void
db_xml_get_float_attr(XML_Parser p, const char **attr, const char *name,
		float *dest, int req)
{
	for (; attr[0] != NULL; attr += 2) {
		if (strcmp(attr[0], name) == 0) {
			if (sscanf(attr[1], "%f", dest) == 1) {
				return;
			} else if (req) {
				db_warn("Invalid \"%s\" attribute value", name);
				XML_StopParser(p, XML_FALSE);
			}
		}
	}
	if (req) {
		db_warn("Required attribute \"%s\" not found", name);
		XML_StopParser(p, XML_FALSE);
	}
}

void
db_xml_get_string_attr(XML_Parser p, const char **attr, const char *name,
		char **dest, int req)
{
	for (; attr[0] != NULL; attr += 2) {
		if (strcmp(attr[0], name) == 0) {
			*dest = strdup(attr[1]);
			return;
		}
	}
	if (req) {
		db_warn("Required attribute \"%s\" not found", name);
		XML_StopParser(p, XML_FALSE);
	}
}

void
db_xml_node_push(XML_Parser p, void *data,
		XML_StartElementHandler start, XML_EndElementHandler end,
		XML_CharacterDataHandler charhndl)
{
	struct _db_xml_node *n;

	n = malloc(sizeof(*n));
	if (n == NULL) {
		return;
	}
	n->data = data;
	n->start = start;
	n->end = end;
	n->charhndl = charhndl;
	n->parent = (struct _db_xml_node *) XML_GetUserData(p);
	XML_SetUserData(p, n);
	XML_SetStartElementHandler(p, n->start);
	XML_SetEndElementHandler(p, n->end);
	XML_SetCharacterDataHandler(p, n->charhndl);
}

void *
db_xml_node_pop(XML_Parser p)
{
	struct _db_xml_node *n;
	void *data;

	n = (struct _db_xml_node *) XML_GetUserData(p);
	data = n->data;
	XML_SetUserData(p, n->parent);
	free(n);

	n = (struct _db_xml_node *) XML_GetUserData(p);
	if (n == NULL) {
		XML_SetStartElementHandler(p, NULL);
		XML_SetEndElementHandler(p, NULL);
		XML_SetCharacterDataHandler(p, NULL);
	} else {
		XML_SetStartElementHandler(p, n->start);
		XML_SetEndElementHandler(p, n->end);
		XML_SetCharacterDataHandler(p, n->charhndl);
	}

	return data;
}

void *
db_xml_node_peek(XML_Parser p)
{
	struct _db_xml_node *n;

	n = (struct _db_xml_node *) XML_GetUserData(p);

	return n->data;
}