/*-

 * Copyright (c) 2011 Tim Kientzle

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES

 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.

 * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,

 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT

 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,

 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

#include "archive_platform.h"

__FBSDID("$FreeBSD$");

#ifdef HAVE_ERRNO_H

#include <errno.h>

#endif

#include "archive_options_private.h"

static const char *

parse_option(const char **str,

    const char **mod, const char **opt, const char **val);

int

_archive_set_option(struct archive *a,

    const char *m, const char *o, const char *v,

    int magic, const char *fn, option_handler use_option)

{

	const char *mp, *op, *vp;

	int r;

	archive_check_magic(a, magic, ARCHIVE_STATE_NEW, fn);

	mp = (m != NULL && m[0] != '\0') ? m : NULL;

	op = (o != NULL && o[0] != '\0') ? o : NULL;

	vp = (v != NULL && v[0] != '\0') ? v : NULL;

	if (op == NULL && vp == NULL)

		return (ARCHIVE_OK);

	if (op == NULL) {

		archive_set_error(a, ARCHIVE_ERRNO_MISC, "Empty option");

		return (ARCHIVE_FAILED);

	}

	r = use_option(a, mp, op, vp);

	if (r == ARCHIVE_WARN - 1) {

		archive_set_error(a, ARCHIVE_ERRNO_MISC,

		    "Unknown module name: `%s'", mp);

		return (ARCHIVE_FAILED);

	}

	if (r == ARCHIVE_WARN) {

		archive_set_error(a, ARCHIVE_ERRNO_MISC,

		    "Undefined option: `%s%s%s%s%s%s'",

		    vp?"":"!", mp?mp:"", mp?":":"", op, vp?"=":"", vp?vp:"");

		return (ARCHIVE_FAILED);

	}

	return (r);

}

int

_archive_set_either_option(struct archive *a, const char *m, const char *o, const char *v,

    option_handler use_format_option, option_handler use_filter_option)

{

	int r1, r2;

	if (o == NULL && v == NULL)

		return (ARCHIVE_OK);

	if (o == NULL)

		return (ARCHIVE_FAILED);

	r1 = use_format_option(a, m, o, v);

	if (r1 == ARCHIVE_FATAL)

		return (ARCHIVE_FATAL);

	r2 = use_filter_option(a, m, o, v);

	if (r2 == ARCHIVE_FATAL)

		return (ARCHIVE_FATAL);

	if (r2 == ARCHIVE_WARN - 1)

		return r1;

	return r1 > r2 ? r1 : r2;

}

int

_archive_set_options(struct archive *a, const char *options,

    int magic, const char *fn, option_handler use_option)

{

	int allok = 1, anyok = 0, ignore_mod_err = 0, r;

	char *data;

	const char *s, *mod, *opt, *val;

	archive_check_magic(a, magic, ARCHIVE_STATE_NEW, fn);

	if (options == NULL || options[0] == '\0')

		return ARCHIVE_OK;

	if ((data = strdup(options)) == NULL) {

		archive_set_error(a,

		    ENOMEM, "Out of memory adding file to list");

		return (ARCHIVE_FATAL);

	}

	s = (const char *)data;

	do {

		mod = opt = val = NULL;

		parse_option(&s, &mod, &opt, &val;;

		if (mod == NULL && opt != NULL &&

		    strcmp("__ignore_wrong_module_name__", opt) == 0) {

			/* Ignore module name error */

			if (val != NULL) {

				ignore_mod_err = 1;

				anyok = 1;

			}

			continue;

		}

		r = use_option(a, mod, opt, val);

		if (r == ARCHIVE_FATAL) {

			free(data);

			return (ARCHIVE_FATAL);

		}

		if (r == ARCHIVE_FAILED && mod != NULL) {

			free(data);

			return (ARCHIVE_FAILED);

		}

		if (r == ARCHIVE_WARN - 1) {

			if (ignore_mod_err)

				continue;

			/* The module name is wrong. */

			archive_set_error(a, ARCHIVE_ERRNO_MISC,

			    "Unknown module name: `%s'", mod);

			free(data);

			return (ARCHIVE_FAILED);

		}

		if (r == ARCHIVE_WARN) {

			/* The option name is wrong. No-one used this. */

			archive_set_error(a, ARCHIVE_ERRNO_MISC,

			    "Undefined option: `%s%s%s'",

			    mod?mod:"", mod?":":"", opt);

			free(data);

			return (ARCHIVE_FAILED);

		}

		if (r == ARCHIVE_OK)

			anyok = 1;

		else

			allok = 0;

	} while (s != NULL);

	free(data);

	return allok ? ARCHIVE_OK : anyok ? ARCHIVE_WARN : ARCHIVE_FAILED;

}

static const char *

parse_option(const char **s, const char **m, const char **o, const char **v)

{

	const char *end, *mod, *opt, *val;

	char *p;

	end = NULL;

	mod = NULL;

	opt = *s;

	val = "1";

	p = strchr(opt, ',');

	if (p != NULL) {

		*p = '\0';

		end = ((const char *)p) + 1;

	}

	if (0 == strlen(opt)) {

		*s = end;

		*m = NULL;

		*o = NULL;

		*v = NULL;

		return end;

	}

	p = strchr(opt, ':');

	if (p != NULL) {

		*p = '\0';

		mod = opt;

		opt = ++p;

	}

	p = strchr(opt, '=');

	if (p != NULL) {

		*p = '\0';

		val = ++p;

	} else if (opt[0] == '!') {

		++opt;

		val = NULL;

	}

	*s = end;

	*m = mod;

	*o = opt;

	*v = val;

	return end;

}