/**

 * Relational pipes

 * Copyright © 2021 František Kučera (Frantovo.cz, GlobalCode.info)

 *

 * This program 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, version 3 of the License.

 *

 * This program 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 this program. If not, see <http://www.gnu.org/licenses/>.

 */

#pragma once

#include <vector>

#include <relpipe/common/type/typedefs.h>

#include <relpipe/cli/CLI.h>

#include <relpipe/cli/RelpipeCLIException.h>

#include "Configuration.h"

namespace relpipe {

namespace tr {

namespace grep {

class CLIParser {

private:

	relpipe::common::type::StringX readNext(std::vector<relpipe::common::type::StringX> arguments, int& i) {

		if (i < arguments.size()) return arguments[i++];

		else throw relpipe::cli::RelpipeCLIException(L"Missing CLI argument" + (i > 0 ? (L" after " + arguments[i - 1]) : L""), relpipe::cli::CLI::EXIT_CODE_BAD_CLI_ARGUMENTS);

	}

	/**

	 * TODO: use a common method

	 */

	bool parseBoolean(const relpipe::common::type::StringX& value) {

		if (value == L"true") return true;

		else if (value == L"false") return false;

		else throw relpipe::cli::RelpipeCLIException(L"Unable to parse boolean value: " + value + L" (expecting true or false)", relpipe::cli::CLI::EXIT_CODE_BAD_CLI_ARGUMENTS);

	}

	RelationConfiguration::ENTITY parseEntity(const relpipe::common::type::StringX& value) {

		if (value == L"relation") return RelationConfiguration::ENTITY::RELATION;

		else if (value == L"attribute") return RelationConfiguration::ENTITY::ATTRIBUTE;

		else if (value == L"value") return RelationConfiguration::ENTITY::VALUE;

		else throw relpipe::cli::RelpipeCLIException(L"Unable to parse entity value: " + value + L" (expecting „relation“, „attribute“ or „value“)", relpipe::cli::CLI::EXIT_CODE_BAD_CLI_ARGUMENTS);

	}

	void addRelation(Configuration& c, RelationConfiguration& currentRelation) {

		if (currentRelation.relation.size()) {

			using E = RelationConfiguration::ENTITY;

			currentRelation.relationPattern = currentRelation.caseSensitive[E::RELATION] ? std::wregex(currentRelation.relation) : std::wregex(currentRelation.relation, std::regex_constants::icase);

			currentRelation.attributePattern = currentRelation.caseSensitive[E::ATTRIBUTE] ? std::wregex(currentRelation.attribute) : std::wregex(currentRelation.attribute, std::regex_constants::icase);

			currentRelation.valuePattern = currentRelation.caseSensitive[E::VALUE] ? std::wregex(currentRelation.value) : std::wregex(currentRelation.value, std::regex_constants::icase);

			c.relationConfigurations.push_back(currentRelation);

			currentRelation = RelationConfiguration();

		}

	}

public:

	static const relpipe::common::type::StringX OPTION_RELATION;

	static const relpipe::common::type::StringX OPTION_ATTRIBUTE;

	static const relpipe::common::type::StringX OPTION_CASE_SENSITIVE;

	static const relpipe::common::type::StringX OPTION_INVERT_MATCH;

	Configuration parse(const std::vector<relpipe::common::type::StringX>& arguments) {

		Configuration c;

		RelationConfiguration currentRelation;

		for (int i = 0; i < arguments.size();) {

			relpipe::common::type::StringX option = readNext(arguments, i);

			if (option == OPTION_RELATION) {

				addRelation(c, currentRelation); // previous relation

				currentRelation.relation = readNext(arguments, i);

			} else if (option == OPTION_ATTRIBUTE) {

				currentRelation.attribute = readNext(arguments, i);

				currentRelation.value = readNext(arguments, i);

			} else if (option == OPTION_CASE_SENSITIVE) {

				RelationConfiguration::ENTITY entity = parseEntity(readNext(arguments, i));

				currentRelation.caseSensitive[entity] = parseBoolean(readNext(arguments, i));

			} else if (option == OPTION_INVERT_MATCH) {

				RelationConfiguration::ENTITY entity = parseEntity(readNext(arguments, i));

				currentRelation.invertMatch[entity] = parseBoolean(readNext(arguments, i));

			} else throw relpipe::cli::RelpipeCLIException(L"Unsupported CLI option: " + option, relpipe::cli::CLI::EXIT_CODE_BAD_CLI_ARGUMENTS);

		}

		addRelation(c, currentRelation); // last relation

		return c;

	}

	virtual ~CLIParser() {

	}

};

const relpipe::common::type::StringX CLIParser::OPTION_RELATION = L"--relation";

const relpipe::common::type::StringX CLIParser::OPTION_ATTRIBUTE = L"--attribute";

const relpipe::common::type::StringX CLIParser::OPTION_CASE_SENSITIVE = L"--case-sensitive";

const relpipe::common::type::StringX CLIParser::OPTION_INVERT_MATCH = L"--invert-match";

}

}

}