#include "center.h"
#include "defs.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)
{
	const std::string shm_name("ShmTemp");
	ShmRemover auto_remove(shm_name); //remove twice? in case of killed?
	SharedMemory shm(shm_name, 1024 * 1024 * 10);

	typedef std::chrono::steady_clock clock;
	int n = 1000 * 1000;
	std::vector<clock::time_point> tps(n);
	{
		printf("thread switch %d times, ", n);
		boost::timer::auto_cpu_timer timer;
		for (auto &tp : tps) {
			tp = clock::now();
			std::this_thread::yield();
		}
	}
	printf("time: %ld ns\n", (tps.back() - tps.front()).count());
	return;
	// sub topic partial match.
	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();

	Sleep(100ms);

	std::atomic<uint64_t> total_count(0);
	std::atomic<int64_t> last_time(NowSec() - 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) {
		DemoNode client("client_" + std::to_string(id), shm);
		MsgTopicList tlist;
		for (auto &t : topics) {
			tlist.add_topic_list(t);
		}
		MsgCommonReply reply_body;
		bool r = client.Subscribe(tlist, reply_body, timeout);
		if (!r) {
			printf("client subscribe failed.\n");
		}
		std::mutex mutex;
		std::condition_variable cv;

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

			auto cur = NowSec();
			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.SubscribeStartWorker(OnTopicData, 1);

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

	auto Pub = [&](const std::string &topic) {
		DemoNode provider("server_" + topic, shm);

		for (unsigned i = 0; i < nmsg; ++i) {
			std::string data = topic + std::to_string(i) + std::string(1000, '-');
			MsgPublish pub;
			pub.set_topic(topic);
			pub.set_data(data);
			bool r = provider.Publish(pub, 0);
			if (!r) {
				static std::atomic<int> an(0);
				int n = ++an;
				printf("pub %d ret: %s\n", 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;
	boost::timer::auto_cpu_timer pubsub_timer;
	for (size_t i = 0; i < topics.size(); ++i) {
		part.push_back(topics[i]);
		threads.Launch(Sub, i, topics);
	}
	Sleep(100ms);
	for (auto &topic : topics) {
		threads.Launch(Pub, topic);
	}
	threads.Launch(Pub, "some_else");

	threads.WaitAll();

	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 * 512);

	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) {
		DemoNode client(client_proc_id + topic, shm);

		std::atomic<int> count(0);
		std::string reply;
		auto onRecv = [&](const BHMsgHead &head, const MsgRequestTopicReply &msg) {
			reply = msg.data();
			if (++count >= nreq) {
				printf("count: %d\n", count.load());
			}
		};
		MsgRequestTopic req;
		req.set_topic(topic);
		req.set_data("data " + std::string(100, 'a'));

		client.ClientStartWorker(onRecv, 2);

		boost::timer::auto_cpu_timer timer;
		for (int i = 0; i < nreq; ++i) {
			std::string msg_id;
			if (!client.ClientAsyncRequest(req, msg_id)) {
				printf("client request failed\n");
				++count;
			}

			// std::string proc_id;
			// MsgRequestTopicReply reply;
			// if (!client.ClientSyncRequest(req, proc_id, reply, 1000)) {
			// 	printf("client request failed\n");
			// }
			// ++count;
		}
		do {
			std::this_thread::sleep_for(100ms);
		} while (count.load() < nreq);
		client.Stop();
		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) {
		DemoNode server(name, shm);

		auto onDataSync = [&](const std::string &proc_id, const MsgRequestTopic &request, MsgRequestTopicReply &reply) {
			++server_msg_count;
			reply.set_data(request.topic() + ':' + request.data());
			return true;
		};
		auto onDataAsync = [&](void *src, std::string &proc_id, MsgRequestTopic &request) {
			++server_msg_count;
			MsgRequestTopicReply reply;
			reply.set_data(request.topic() + ':' + request.data());
			server.ServerSendReply(src, reply);
		};
		server.ServerStart(onDataAsync);

		MsgTopicList rpc;
		for (auto &topic : topics) {
			rpc.add_topic_list(topic);
		}
		MsgCommonReply reply_body;
		if (!server.ServerRegisterRPC(rpc, reply_body, 100)) {
			printf("server register topic failed\n");
			return;
		}

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

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

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

	{

		DemoNode node("demo_node", shm);
		auto Check = [&]() {
			bool r = node.Heartbeat(100);
			printf("hearbeat ret : %s\n", r ? "ok" : "failed");
		};
		Check();
		for (int i = 0; i < 3; ++i) {
			Sleep(1s);
			Check();
		}
		Sleep(4s);
		for (int i = 0; i < 2; ++i) {
			Sleep(1s);
			Check();
		}
	}
	Sleep(8s);
}
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;
}