#include "center.h"
#include "defs.h"
#include "pubsub.h"
#include "socket.h"
#include "topic_node.h"
#include "util.h"
#include <atomic>
#include <boost/uuid/uuid_generators.hpp>
#include <boost/uuid/uuid_io.hpp>
#include <condition_variable>
#include <stdio.h>
#include <string>
#include <thread>
#include <vector>
using namespace bhome_msg;

template <class A, class B>
struct IsSameType {
	static const bool value = false;
};
template <class A>
struct IsSameType<A, A> {
	static const bool value = true;
};

BOOST_AUTO_TEST_CASE(Temp)
{
	Topic topics[] = {
	    "",
	    ".",
	    "a",
	    "sp",
	    "sport",
	    "sport.",
	    "sport.a",
	    "sport.a.b.c",
	    "sport.ab.c",
	    "sport.basketball",
	    "sport.football",
	};
	const char sep = '.';
	auto Adjust = [&](const std::string &user_topic) {
		if (user_topic.empty() || user_topic.back() == sep) {
			return user_topic;
		} else {
			return user_topic + sep;
		}
	};

	for (auto &t : topics) {
		const std::string &a = Adjust(t);
		printf("orig: %20s   adjusted: %20s   parts:[", ("'" + t + "'").c_str(), ('\'' + a + '\'').c_str());

		size_t pos = 0;
		while (true) {
			auto &topic = t;
			pos = topic.find(kTopicSep, pos);
			if (pos == topic.npos || ++pos == topic.size()) {
				// Find1(std::string()); // sub all.
				break;
			} else {
				printf("'%s',", topic.substr(0, pos).c_str());
			}
		}
		printf("]\n");
	}
}

BOOST_AUTO_TEST_CASE(PubSubTest)
{
	const std::string shm_name("ShmPubSub");
	ShmRemover auto_remove(shm_name); //remove twice? in case of killed?
	SharedMemory shm(shm_name, 1024 * 1024 * 50);
	DEFER1(shm.Remove());
	auto Avail = [&]() { return shm.get_free_memory(); };
	auto init_avail = Avail();
	int *flag = shm.find_or_construct<int>("flag")(123);
	printf("flag = %d\n", *flag);
	++*flag;
	const std::string sub_proc_id = "subscriber";
	const std::string pub_proc_id = "publisher";

	BHCenter center(shm);
	center.Start();

	std::this_thread::sleep_for(100ms);

	std::atomic<uint64_t> total_count(0);
	std::atomic<ptime> last_time(Now() - seconds(1));
	std::atomic<uint64_t> last_count(0);

	const uint64_t nmsg = 100 * 2;
	const int timeout = 1000;
	auto Sub = [&](int id, const std::vector<std::string> &topics) {
		SocketSubscribe client(shm);
		bool r = client.Subscribe(sub_proc_id, topics, timeout);
		std::mutex mutex;
		std::condition_variable cv;

		std::atomic<uint64_t> n(0);
		auto OnTopicData = [&](const std::string &proc_id, const std::string &topic, const std::string &data) {
			++total_count;

			auto cur = Now();
			if (last_time.exchange(cur) < cur) {
				std::cout << "time: " << cur;
				printf("sub recv, total msg:%10ld, speed:[%8ld/s], used mem:%8ld \n",
				       total_count.load(), total_count - last_count.exchange(total_count), init_avail - Avail());
			}
			if (++n >= nmsg * topics.size()) {
				cv.notify_one();
			}
			// printf("sub %2d recv: %s/%s\n", id, pub.topic().c_str(), pub.data().c_str());
		};
		client.StartRecv(OnTopicData, 1);

		std::unique_lock<std::mutex> lk(mutex);
		cv.wait(lk);
	};

	auto Pub = [&](const std::string &topic) {
		SocketPublish provider(shm);
		for (unsigned i = 0; i < nmsg; ++i) {
			std::string data = topic + std::to_string(i) + std::string(1000, '-');

			bool r = provider.Publish(pub_proc_id, topic, data.data(), data.size(), timeout);
			if (!r) {
				printf("pub ret: %s\n", r ? "ok" : "fail");
			}
		}
	};
	ThreadManager threads;
	typedef std::vector<Topic> Topics;
	Topics topics;
	for (int i = 0; i < 100; ++i) {
		topics.push_back("t" + std::to_string(i));
	}
	Topics part;
	for (size_t i = 0; i < topics.size(); ++i) {
		part.push_back(topics[i]);
		threads.Launch(Sub, i, topics);
	}
	std::this_thread::sleep_for(100ms);
	for (auto &topic : topics) {
		threads.Launch(Pub, topic);
	}
	threads.Launch(Pub, "some_else");

	threads.WaitAll();
	std::cout << "end : " << Now();
	printf("sub recv, total msg:%10ld, speed:[%8ld/s], used mem:%8ld \n",
	       total_count.load(), total_count - last_count.exchange(total_count), init_avail - Avail());
}

namespace
{
struct C {
	C() { printf("+C\n"); }
	C(const C &c) { printf("+C(const C&)\n"); }
	void F() { printf("C::F()\n"); }
	~C() { printf("-C\n"); }
	char arr[100];
};
int F(C &c) { return printf(":::::::::::::F()\n"); }
} // namespace

BOOST_AUTO_TEST_CASE(ReqRepTest)
{
	const std::string shm_name("ShmReqRep");
	ShmRemover auto_remove(shm_name);
	SharedMemory shm(shm_name, 1024 * 1024 * 50);

	auto Avail = [&]() { return shm.get_free_memory(); };
	auto init_avail = Avail();
	int *flag = shm.find_or_construct<int>("flag")(123);
	printf("flag = %d\n", *flag);
	++*flag;

	const std::string client_proc_id = "client_proc_";
	const std::string server_proc_id = "server_proc_";

	BHCenter center(shm);
	center.Start();
	std::atomic<bool> run(true);

	auto Client = [&](const std::string &topic, const int nreq) {
		TopicNode client(shm);
		MsgRegister reg;
		reg.mutable_proc()->set_proc_id(client_proc_id + topic);
		MsgCommonReply reply_body;

		if (!client.Register(reg, reply_body, 1000)) {
			printf("client register failed\n");
			return;
		}

		std::atomic<int> count(0);
		std::string reply;
		auto onRecv = [&](const std::string &rep) {
			reply = rep;
			if (++count >= nreq) {
				printf("count: %d\n", count.load());
			}
		};
		client.ClientStartWorker(onRecv, 2);
		boost::timer::auto_cpu_timer timer;
		for (int i = 0; i < nreq; ++i) {
			if (!client.ClientAsyncRequest(topic, "data " + std::to_string(i), 1000)) {
				printf("client request failed\n");
				++count;
			}

			// if (!client.SyncRequest(topic, "data " + std::to_string(i), reply, 1000)) {
			// 	printf("client request failed\n");
			// }
			// 	++count;
		}
		do {
			std::this_thread::yield();
		} while (count.load() < nreq);
		client.ClientStopWorker();
		printf("request %s %d done ", topic.c_str(), count.load());
	};
	std::atomic_uint64_t server_msg_count(0);
	auto Server = [&](const std::string &name, const std::vector<std::string> &topics) {
		TopicNode server(shm);
		MsgRegister reg;
		reg.mutable_proc()->set_proc_id(server_proc_id);
		reg.mutable_proc()->set_name(name);
		MsgCommonReply reply_body;

		if (!server.Register(reg, reply_body, 100)) {
			printf("server register failed\n");
			return;
		}

		auto onData = [&](const std::string &topic, const std::string &data, std::string &reply) {
			++server_msg_count;
			reply = topic + ':' + data;
			return true;
		};
		server.ServerStart(onData);

		MsgRegisterRPC rpc;
		for (auto &topic : topics) {
			rpc.add_topics(topic);
		}
		if (!server.RegisterRPC(rpc, reply_body, 100)) {
			printf("server register topic failed\n");
			return;
		}

		while (run) {
			std::this_thread::yield();
		}
	};
	ThreadManager clients, servers;
	std::vector<Topic> topics = {"topic1", "topic2"};
	servers.Launch(Server, "server", topics);
	std::this_thread::sleep_for(100ms);
	for (auto &t : topics) {
		clients.Launch(Client, t, 1000 * 1);
	}
	clients.WaitAll();
	printf("clients done, server replyed: %d\n", server_msg_count.load());
	run = false;
	servers.WaitAll();
}

inline int MyMin(int a, int b)
{
	printf("MyMin\n");
	return a < b ? a : b;
}

int test_main(int argc, char *argv[])
{
	printf("test main\n");
	int a = 0;
	int b = 0;
	BOOST_CHECK_EQUAL(a, b);
	int n = MyMin(4, 6);
	for (int i = 0; i < n; ++i) {
		printf("i = %d\n", i);
	}

	return 0;
}