/*
 * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
 *
 * 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 "compat.h"

#include <ctype.h>
#include <fnmatch.h>
#include <string.h>

#include "parser.h"
#include "telescope.h"
#include "utils.h"

static int	check_for_utf8(char*);

static const struct parser_table {
	const char	*mediatype;
	void		(*parserinit)(struct parser*);
} ptable[] = {
	{ "text/gemini",	gemtext_initparser },
	{ "text/x-patch",	textpatch_initparser },
	{ "text/x-diff",	textpatch_initparser },
	{ "application/x-patch",textpatch_initparser },
	{ "text/*",		textplain_initparser },
	{ NULL, NULL}
};

static int
check_for_utf8(char *b)
{
	for (;;) {
		while (*b != '\0' && isspace(*b))
			b++;
		if (*b == '\0')
			break;
		if (strncmp(b, "charset=", 8) != 0) {
			while (*b != '\0' && *b != ';')
				b++;
			if (*b == '\0')
				break;
			b++;
			continue;
		}

		/* is charset= */
		b += strlen("charset=");
		/* TODO: improve the matching */
		return !strncmp(b, "ASCII", 5) || !strncmp(b, "ascii", 5) ||
			!strncmp(b, "UTF-8", 5) || !strncmp(b, "utf-8", 5);
	}

	return 1;
}

int
setup_parser_for(struct tab *tab)
{
	char *b, buf[GEMINI_URL_LEN] = {0};
	const struct parser_table *t;

	memcpy(buf, tab->meta, sizeof(tab->meta));

	for (b = buf; *b != ';' && *b != '\0'; ++b)
		;

	if (*b == ';') {
		*b = '\0';
		++b;
	}

	if (!check_for_utf8(b))
		return 0;

	for (t = ptable; t->mediatype != NULL; ++t) {
		if (!fnmatch(t->mediatype, buf, 0)) {
			parser_init(tab, t->parserinit);
			return 1;
		}
	}

	return 0;
}