///
/// \file Flag.h
/// \author kyle 
/// \created 2023-10-12
/// \brief Flag defines a command-line flag parser.
///
/// \section COPYRIGHT
///
/// Copyright 2023 K. Isom <kyle@imap.cc>
///
/// Permission to use, copy, modify, and/or 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 <cstdint>
#include <functional>
#include <map>
#include <regex>
#include <vector>

#include "Flag.h"
#include "StringUtil.h"


namespace scsl {


static const std::regex	isFlag("^--?[a-zA-Z0-9][a-zA-Z0-9-_]*$",
			       std::regex_constants::nosubs);

std::string
ParseStatusToString(ParseStatus status)
{
	switch (status) {
	case ParseStatus::OK:
		return "OK";
	case ParseStatus::EndOfFlags:
		return "end of flags";
	case ParseStatus::NotRegistered:
		return "flag not registered";
	case ParseStatus::NotEnoughArgs:
		return "not enough args passed to flags";
	default:
		return "unknown/unspecified parse error";
	}
}


Flag *
NewFlag(FlagType fType, std::string fName, std::string fDescription)
{
	auto flag = new Flag;

	flag->Type = fType;
	flag->WasSet = false;
	flag->Name = fName;
	flag->Description = fDescription;
	flag->Value = FlagValue{};

	return flag;
}


Flags::Flags(std::string fName)
	: name(fName), description("")
{
}


Flags::Flags(std::string fName, std::string fDescription)
    : name(fName), description(fDescription)
{
}


bool
Flags::Register(std::string fName, FlagType fType, std::string fDescription)
{
	if (!std::regex_search(fName, isFlag)) {
		return false;
	}

	if (this->flags.count(fName) != 0) {
		return false;
	}

	auto flag = NewFlag(fType, fName, fDescription);
	this->flags[fName] = flag;
	return true;
}


bool
Flags::Register(std::string fName, bool defaultValue, std::string fDescription)
{
	if (!this->Register(fName, FlagType::Boolean, fDescription)) {
		return false;
	}

	this->flags[fName]->Value.b = defaultValue;
	return true;
}


bool
Flags::Register(std::string fName, int defaultValue, std::string fDescription)
{
	if (!this->Register(fName, FlagType::Integer, fDescription)) {
		return false;
	}

	this->flags[fName]->Value.i = defaultValue;
	return true;
}


bool
Flags::Register(std::string fName, unsigned int defaultValue, std::string fDescription)
{
	if (!this->Register(fName, FlagType::UnsignedInteger, fDescription)) {
		return false;
	}

	this->flags[fName]->Value.u = defaultValue;
	return true;
}


bool
Flags::Register(std::string fName, size_t defaultValue, std::string fDescription)
{
	if (!this->Register(fName, FlagType::SizeT, fDescription)) {
		return false;
	}

	this->flags[fName]->Value.size = defaultValue;
	return true;
}


bool
Flags::Register(std::string fName, std::string defaultValue, std::string fDescription)
{
	if (!this->Register(fName, FlagType::String, fDescription)) {
		return false;
	}

	this->flags[fName]->Value.s = new std::string(defaultValue);
	return true;
}


size_t
Flags::Size()
{
	return this->flags.size();
}


Flag *
Flags::Lookup(std::string fName)
{
	if (this->flags.count(fName) == 0) {
		return nullptr;
	}

	return this->flags[fName];
}


bool
Flags::ValueOf(std::string fName, FlagValue &value)
{
	if (this->flags.count(fName)) {
		return false;
	}

	value = this->flags[fName]->Value;
	return true;
}



ParseStatus
Flags::parseArg(int argc, char **argv, int &index)
{
	std::string	arg(argv[index]);

	U::S::TrimWhitespace(arg);

	index++;
	if (!std::regex_search(arg, isFlag)) {
		return ParseStatus::EndOfFlags;
	}

	if (this->flags.count(arg) == 0) {
		return ParseStatus::NotRegistered;
	}

	auto flag = flags[arg];
	switch (flag->Type) {
	case FlagType::Boolean:
		flag->WasSet = true;
		flag->Value.b = true;
		return ParseStatus::OK;
	case FlagType::Integer:
		flag->WasSet = true;
		flag->Value.i = std::stoi(argv[++index], 0, 0);
		return ParseStatus::OK;
	case FlagType::UnsignedInteger:
		flag->WasSet = true;
		flag->Value.u = static_cast<unsigned int>(std::stoi(argv[index++], 0, 0));
		return ParseStatus::OK;
	case FlagType::String:
		flag->WasSet = true;
		flag->Value.s = new std::string(argv[index++]);
		return ParseStatus::OK;
	case FlagType::SizeT:
		flag->WasSet = true;
		flag->Value.size = static_cast<size_t>(std::stoull(argv[index++]));
		return ParseStatus::OK;
	default:
#if defined(NDEBUG) or defined(SCSL_NOEXCEPT)
		return ParseStatus::Unknown;
#else
		throw std::runtime_error("unhandled type");
#endif
	}

	return ParseStatus::OK;
}


ParseStatus
Flags::Parse(int argc, char **argv)
{
	int	index = 1;

	while (index != argc) {
		auto result = this->parseArg(argc, argv, index);
		switch (result) {
		case ParseStatus::OK:
			continue;

		case ParseStatus::EndOfFlags:
			while (index < argc) {
				this->args.push_back(std::string(argv[index]));
				index++;
			}
			continue;
		case ParseStatus::NotEnoughArgs:
		case ParseStatus::NotRegistered:
			// fall through //
			return result;
		default:
#if defined(NDEBUG) or defined(SCSL_NOEXCEPT)
			return ParseStatus::Unknown;
#else
			throw std::runtime_error("unhandled parse state");
#endif
		}

	}

	return ParseStatus::OK;
}


size_t
Flags::NumArgs()
{
	return this->args.size();
}


std::vector<std::string>
Flags::Args()
{
	return this->args;
}


Flag *
Flags::checkGetArg(std::string fName, FlagType eType)
{
	if (this->flags[fName] == 0) {
		return nullptr;
	}

	auto flag = this->flags[fName];
	if (flag == nullptr) {
		return nullptr;
	}

	if (flag->Type != eType) {
		return nullptr;
	}

	return flag;
}


bool
Flags::GetBool(std::string fName, bool &flagValue)
{
	auto	flag = this->checkGetArg(fName, FlagType::Boolean);

	flagValue = flag->Value.b;
	return flag->WasSet;
}


bool
Flags::GetInteger(std::string fName, int &flagValue)
{
	auto	flag = this->checkGetArg(fName, FlagType::Integer);

	flagValue = flag->Value.i;
	return flag->WasSet;
}


bool
Flags::GetUnsignedInteger(std::string fName, unsigned int &flagValue)
{
	auto	flag = this->checkGetArg(fName, FlagType::UnsignedInteger);

	flagValue = flag->Value.u;
	return flag->WasSet;
}



bool
Flags::GetSizeT(std::string fName, std::size_t &flagValue)
{
	auto	flag = this->checkGetArg(fName, FlagType::SizeT);

	flagValue = flag->Value.size;
	return flag->WasSet;
}


bool
Flags::GetString(std::string fName, std::string &flagValue)
{
	auto	flag = this->checkGetArg(fName, FlagType::String);

	if (flag->Value.s == nullptr) {
		return false;
	}

	flagValue = *(flag->Value.s);
	return flag->WasSet;
}


} // namespace scsl