/**
 * 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 <memory>
#include <vector>
#include <sstream>
#include <iomanip>
#include <cmath>

namespace relpipe {
namespace in {
namespace asn1 {
namespace lib {

class ASN1ContentHandler {
public:

	enum class CollectionType : uint64_t {
		Constructed, // TODO: special event?
		Sequence = 16,
		Set = 17
	};

	enum class StringType : uint64_t {
		OctetString,
		UTF8String,
		NumericString,
		PrintableString,
		T61String,
		VideotexString,
		IA5String,
		GraphicString,
		VisibleString,
		GeneralString,
		UniversalString,
		CharacterString,
		BMPString,
	};

	class Integer {
	private:
		std::vector<uint8_t> data;
	public:

		/**
		 * @param data integer octets as in BER encoding
		 */
		Integer(std::vector<uint8_t> data) : data(data) {
		}

		virtual ~Integer() {
		}

		size_t size() const {
			return data.size();
		}

		const uint8_t& operator[](std::size_t index) const {
			return data[index];
		}

		const std::string toHex() const {
			std::stringstream hex;
			hex << std::hex << std::setfill('0');
			for (uint8_t b : data) hex << std::setw(2) << (int) b;
			return hex.str();
		}

		const std::string toString() const {
			try {
				return std::to_string(toInt64());
			} catch (...) {
				// TODO: support longer values than 64 bits
				// integer has more than 64 bits → only HEX form value will be available
				return "";
			}
		}

		const int64_t toInt64() const {
			int64_t value = 0;

			if (data.size() > sizeof (value)) throw std::invalid_argument("integer is too long");

			for (size_t i = 0, limit = data.size(), negative = 0; i < limit; i++) {
				uint8_t b = data[i];
				if (i == 0 && b & 0x80) negative = true;
				value = (value << 8) | b;
				if (i == (limit - 1) && negative) value -= std::pow(256, data.size());
			}

			return value;
		}

	};

	virtual ~ASN1ContentHandler() = default;

	virtual void writeStreamStart() = 0;
	virtual void writeStreamEnd() = 0;

	virtual void writeCollectionStart(CollectionType type) = 0;
	virtual void writeCollectionEnd() = 0;
	virtual void writeBoolean(bool value) = 0;
	virtual void writeNull() = 0;
	virtual void writeInteger(Integer value) = 0;
	virtual void writeString(StringType type, std::string value) = 0;
	// virtual void writeOID(std::string value) = 0;
	// Object descriptor
	// virtual void writeReal(float value) = 0;
	// Enumerated
	// Embedded PVD
	// Relative OID
	// TIME
	// UTC time
	// Generalized time
	// Date
	// Time of day
	// Date-time
	// Duration
	// OID-IRI
	// Relative OID-IRI

};

class ASN1ContentHandlerProxy : public ASN1ContentHandler {
private:
	std::vector<std::shared_ptr<ASN1ContentHandler>> handlers;
public:

	void addHandler(std::shared_ptr<ASN1ContentHandler> handler) {
		handlers.push_back(handler);
	}

#define handler for (auto ___h : handlers) ___h

	void writeStreamStart() override {
		handler->writeStreamStart();
	}

	void writeStreamEnd() override {
		handler->writeStreamEnd();
	}

	void writeCollectionStart(CollectionType type) override {
		handler->writeCollectionStart(type);
	}

	void writeCollectionEnd() override {
		handler->writeCollectionEnd();
	}

	void writeBoolean(bool value) override {
		handler->writeBoolean(value);
	}

	void writeNull() override {
		handler->writeNull();
	}

	void writeInteger(Integer value) override {
		handler->writeInteger(value);
	}

	void writeString(StringType type, std::string value) override {
		handler->writeString(type, value);
	}

#undef handler

};


}
}
}
}