/*
 * =====================================================================================
 *
 *       Filename:  topic_node.cpp
 *
 *    Description:  
 *
 *        Version:  1.0
 *        Created:  2021年04月07日 09时01分48秒
 *       Revision:  none
 *       Compiler:  gcc
 *
 *         Author:  Li Chao (), 
 *   Organization:  
 *
 * =====================================================================================
 */
#include "topic_node.h"
#include "bh_util.h"
#include "failed_msg.h"
#include <chrono>
#include <list>

using namespace std::chrono;
using namespace std::chrono_literals;

namespace
{
inline void AddRoute(BHMsgHead &head, const MQId &id) { head.add_route()->set_mq_id(&id, sizeof(id)); }

struct SrcInfo {
	std::vector<BHAddress> route;
	std::string msg_id;
};

typedef FailedMsgQ ServerFailedQ;

} // namespace
TopicNode::TopicNode(SharedMemory &shm) :
    shm_(shm), sock_node_(shm), sock_request_(shm), sock_reply_(shm), sock_sub_(shm)
{
	SockNode().Start();
	SockClient().Start();
	SockServer().Start();
}

TopicNode::~TopicNode()
{
	StopAll();
}

void TopicNode::StopAll()
{
	SockServer().Stop();
	SockClient().Stop();
	SockNode().Stop();
}

bool TopicNode::Register(ProcInfo &proc, MsgCommonReply &reply_body, const int timeout_ms)
{
	auto &sock = SockNode();
	MsgRegister body;
	*body.mutable_proc() = proc;
	auto AddId = [&](const MQId &id) { body.add_addrs()->set_mq_id(&id, sizeof(id)); };
	AddId(SockNode().id());
	AddId(SockServer().id());
	AddId(SockClient().id());
	AddId(SockSub().id());
	AddId(SockPub().id());

	auto head(InitMsgHead(GetType(body), body.proc().proc_id()));
	AddRoute(head, sock.id());

	MsgI reply;
	DEFER1(reply.Release(shm_););
	BHMsgHead reply_head;
	bool r = sock.SendAndRecv(&BHTopicCenterAddress(), head, body, reply, reply_head, timeout_ms);
	r = r && reply_head.type() == kMsgTypeCommonReply && reply.ParseBody(reply_body);
	if (r) {
		info_ = body;
	}
	return r;
}

bool TopicNode::ServerRegisterRPC(MsgTopicList &topics, MsgCommonReply &reply_body, const int timeout_ms)
{
	//TODO check registered
	auto &sock = SockServer();
	MsgRegisterRPC body;
	body.mutable_topics()->Swap(&topics);

	auto head(InitMsgHead(GetType(body), proc_id()));
	AddRoute(head, sock.id());

	MsgI reply;
	DEFER1(reply.Release(shm_););
	BHMsgHead reply_head;
	bool r = sock.SendAndRecv(&BHTopicCenterAddress(), head, body, reply, reply_head, timeout_ms);
	r = r && reply_head.type() == kMsgTypeCommonReply;
	r = r && reply.ParseBody(reply_body);
	return r;
}

bool TopicNode::ServerStart(const OnRequest &rcb, int nworker)
{
	//TODO check registered

	auto failed_q = std::make_shared<ServerFailedQ>();

	auto onIdle = [failed_q](ShmSocket &socket) { failed_q->TrySend(socket); };

	auto onRecv = [this, rcb, failed_q, onIdle](ShmSocket &sock, MsgI &imsg, BHMsgHead &head) {
		if (head.type() == kMsgTypeRequestTopic && head.route_size() > 0) {
			MsgRequestTopic req;
			if (imsg.ParseBody(req)) {
				std::string out;
				if (rcb(req.topic(), req.data(), out)) {
					MsgRequestTopicReply reply_body;
					reply_body.set_data(std::move(out));
					BHMsgHead reply_head(InitMsgHead(GetType(reply_body), proc_id(), head.msg_id()));

					for (int i = 0; i < head.route_size() - 1; ++i) {
						reply_head.add_route()->Swap(head.mutable_route(i));
					}
					MsgI msg;
					if (msg.Make(sock.shm(), reply_head, reply_body)) {
						auto &remote = head.route().rbegin()->mq_id();
						if (!sock.Send(remote.data(), msg, 10)) {
							failed_q->Push(remote, msg, 10s);
						}
					}
				}
			}
		} else {
			// ignored, or dropped
		}

		onIdle(sock);
	};

	auto &sock = SockServer();
	return rcb && sock.Start(onRecv, onIdle, nworker);
}

bool TopicNode::ServerRecvRequest(void *&src_info, std::string &topic, std::string &data, const int timeout_ms)
{
	auto &sock = SockServer();

	MsgI imsg;
	BHMsgHead head;
	if (sock.SyncRecv(imsg, head, timeout_ms) && head.type() == kMsgTypeRequestTopic) {
		MsgRequestTopic request;
		if (imsg.ParseBody(request)) {
			request.mutable_topic()->swap(topic);
			request.mutable_data()->swap(data);
			SrcInfo *p = new SrcInfo;
			p->route.assign(head.route().begin(), head.route().end());
			p->msg_id = head.msg_id();
			src_info = p;
			return true;
		}
	}
	return false;
}

bool TopicNode::ServerSendReply(void *src_info, const std::string &data, const int timeout_ms)
{
	auto &sock = SockServer();

	SrcInfo *p = static_cast<SrcInfo *>(src_info);
	DEFER1(delete p);
	if (!p || p->route.empty()) {
		return false;
	}
	MsgRequestTopicReply body;
	body.set_data(data);
	BHMsgHead head(InitMsgHead(GetType(body), proc_id(), p->msg_id));

	for (unsigned i = 0; i < p->route.size() - 1; ++i) {
		head.add_route()->Swap(&p->route[i]);
	}

	return sock.Send(p->route.back().mq_id().data(), head, body, timeout_ms);
}

bool TopicNode::ClientStartWorker(RequestResultCB const &cb, const int nworker)
{
	if (!cb) {
		return false;
	}
	auto onData = [this, cb](ShmSocket &socket, MsgI &imsg, BHMsgHead &head) {
		if (head.type() == kMsgTypeRequestTopicReply) {
			MsgRequestTopicReply reply;
			if (imsg.ParseBody(reply)) {
				cb(reply.data());
			}
		}
	};

	return SockRequest().Start(onData, nworker);
}

bool TopicNode::ClientAsyncRequest(const Topic &topic, const void *data, const size_t size, const int timeout_ms, const RequestResultCB &cb)
{
	auto Call = [&](const void *remote) {
		auto &sock = SockRequest();

		MsgRequestTopic req;
		req.set_topic(topic);
		req.set_data(data, size);
		BHMsgHead head(InitMsgHead(GetType(req), proc_id()));
		AddRoute(head, sock.id());

		if (cb) {
			auto onRecv = [cb](ShmSocket &sock, MsgI &imsg, BHMsgHead &head) {
				if (head.type() == kMsgTypeRequestTopicReply) {
					MsgRequestTopicReply reply;
					if (imsg.ParseBody(reply)) {
						cb(reply.data());
					}
				}
			};
			return sock.Send(remote, head, req, timeout_ms, onRecv);
		} else {
			return sock.Send(remote, head, req, timeout_ms);
		}
	};

	try {
		BHAddress addr;
		if (ClientQueryRPCTopic(topic, addr, timeout_ms)) {
			return Call(addr.mq_id().data());
		} else {
			return false;
		}
	} catch (...) {
		return false;
	}
}

bool TopicNode::ClientSyncRequest(const Topic &topic, const void *data, const size_t size, std::string &out, const int timeout_ms)
{
	try {
		auto &sock = SockRequest();

		BHAddress addr;
		if (ClientQueryRPCTopic(topic, addr, timeout_ms)) {

			MsgRequestTopic req;
			req.set_topic(topic);
			req.set_data(data, size);
			BHMsgHead head(InitMsgHead(GetType(req), proc_id()));
			AddRoute(head, sock.id());

			MsgI reply;
			DEFER1(reply.Release(shm_););
			BHMsgHead reply_head;

			if (sock.SendAndRecv(addr.mq_id().data(), head, req, reply, reply_head, timeout_ms) && reply_head.type() == kMsgTypeRequestTopicReply) {
				MsgRequestTopicReply dr;
				if (reply.ParseBody(dr)) {
					dr.mutable_data()->swap(out);
					return true;
				} else {
					printf("error parse reply.\n");
				}
			} else {
				printf("error recv data. line: %d\n", __LINE__);
			}
		} else {
			printf("error recv data. line: %d\n", __LINE__);
		}
	} catch (...) {
		printf("error recv data. line: %d\n", __LINE__);
	}
	return false;
}

bool TopicNode::ClientQueryRPCTopic(const Topic &topic, bhome::msg::BHAddress &addr, const int timeout_ms)
{
	auto &sock = SockRequest();

	if (topic_query_cache_.Find(topic, addr)) {
		return true;
	}

	MsgQueryTopic query;
	query.set_topic(topic);
	BHMsgHead head(InitMsgHead(GetType(query), proc_id()));
	AddRoute(head, sock.id());

	MsgI reply;
	DEFER1(reply.Release(shm_));
	BHMsgHead reply_head;

	if (sock.SendAndRecv(&BHTopicCenterAddress(), head, query, reply, reply_head, timeout_ms)) {
		if (reply_head.type() == kMsgTypeQueryTopicReply) {
			MsgQueryTopicReply rep;
			if (reply.ParseBody(rep)) {
				addr = rep.address();
				if (addr.mq_id().empty()) {
					return false;
				} else {
					topic_query_cache_.Update(topic, addr);
					return true;
				}
			}
		}
	} else {
	}
	return false;
}

// publish

bool TopicNode::Publish(const Topic &topic, const void *data, const size_t size, const int timeout_ms)
{
	try {
		auto &sock = SockPub();

		MsgPublish pub;
		pub.set_topic(topic);
		pub.set_data(data, size);
		BHMsgHead head(InitMsgHead(GetType(pub), proc_id()));
		AddRoute(head, sock.id());

		MsgI reply;
		DEFER1(reply.Release(shm()););
		BHMsgHead reply_head;
		MsgCommonReply reply_body;
		return sock.SendAndRecv(&BHTopicBusAddress(), head, pub, reply, reply_head, timeout_ms) &&
		       reply_head.type() == kMsgTypeCommonReply &&
		       reply.ParseBody(reply_body) &&
		       IsSuccess(reply_body.errmsg().errcode());
	} catch (...) {
	}
	return false;
}

// subscribe

bool TopicNode::Subscribe(MsgTopicList &topics, const int timeout_ms)
{
	try {
		auto &sock = SockSub();
		MsgSubscribe sub;
		sub.mutable_topics()->Swap(&topics);

		BHMsgHead head(InitMsgHead(GetType(sub), proc_id()));
		AddRoute(head, sock.id());

		return sock.Send(&BHTopicBusAddress(), head, sub, timeout_ms);
	} catch (...) {
		return false;
	}
}

bool TopicNode::SubscribeStartWorker(const TopicDataCB &tdcb, int nworker)
{
	auto &sock = SockSub();

	auto AsyncRecvProc = [this, tdcb](ShmSocket &, MsgI &imsg, BHMsgHead &head) {
		if (head.type() == kMsgTypePublish) {
			MsgPublish pub;
			if (imsg.ParseBody(pub)) {
				tdcb(head.proc_id(), pub.topic(), pub.data());
			}
		} else {
			// ignored, or dropped
		}
	};

	return tdcb && sock.Start(AsyncRecvProc, nworker);
}

bool TopicNode::RecvSub(std::string &proc_id, Topic &topic, std::string &data, const int timeout_ms)
{
	auto &sock = SockSub();
	MsgI msg;
	DEFER1(msg.Release(shm()););
	BHMsgHead head;
	if (sock.SyncRecv(msg, head, timeout_ms) && head.type() == kMsgTypePublish) {
		MsgPublish pub;
		if (msg.ParseBody(pub)) {
			head.mutable_proc_id()->swap(proc_id);
			pub.mutable_topic()->swap(topic);
			pub.mutable_data()->swap(data);
			return true;
		}
	}
	return false;
}