#include "stdafx.h"
#include "util.h"

static int __threads_exit = 0;
static acl::string __cmd("del");
static acl::atomic_long __count;

class redis_command {
public:
	redis_command(acl::redis_client_pipeline& pipeline)
	: cmd_(&pipeline)  // Must set pipeline before calling cmd_.get_pipeline_message()
	, msg_(cmd_.get_pipeline_message())
	{
		cmd_.set_pipeline(&pipeline);
		msg_.set_option(cmd_.get_dbuf(), 1, NULL);

		long long id = __count.fetch_add(1);
		acl::string key;
		key.format("key-%lld", id);
		argv_[0] = __cmd.c_str();
		argv_[1] = key.c_str();
		lens_[0] = strlen(argv_[0]);
		lens_[1] = strlen(argv_[1]);

		if (__cmd == "set") {
			argc_ = 3;
			argv_[2] = "value";
			lens_[2] = strlen(argv_[2]);
		} else {
			argc_ = 2;
		}

		if (id == 0) {
			printf("first key=%s\r\n", key.c_str());
		}

		// computer the hash slot for redis cluster node
		cmd_.hash_slot(argv_[1]);

		// build redis request command with the given args.
		cmd_.build_request(argc_, argv_, lens_);
	}

	~redis_command(void) {}

	acl::redis_pipeline_message& get_message(void) {
		return msg_;
	}

	void clear(void) {
		// we want to reuse the hash slot in next operation,
		// so the parameter save_slot was set to true.
		cmd_.clear(true);
	}

private:
	acl::redis  cmd_;
	acl::redis_pipeline_message& msg_;
	size_t argc_;
	const char* argv_[4];
	size_t lens_[4];

};

class test_thread : public acl::thread {
public:
	test_thread(acl::locker& locker,
		acl::redis_client_pipeline& pipeline,
		int once_count, int count)
	: locker_(locker)
	, pipeline_(pipeline)
	, once_count_(once_count)
	, count_(count)
	{
	}

	~test_thread(void) {}

protected:
	// @override
	void* run(void) {
		for (size_t i = 0; i < (size_t) count_; i++) {
			run_once();
		}

		locker_.lock();
		__threads_exit++;
		locker_.unlock();
		return NULL;
	}

	void run_once(void) {
		// parepare for a lot of redis commands in one request
		std::vector<redis_command*> commands;
		for (size_t i = 0; i < (size_t) once_count_; i++) {
			redis_command* command = new redis_command(pipeline_);
			commands.push_back(command);
		}

		request(commands);

		// free all requests commands
		for (std::vector<redis_command*>::iterator it = commands.begin();
			    it != commands.end(); ++it) {
			delete *it;
		}
	}

private:
	void request(std::vector<redis_command*>& commands) {
		// send all request commands
		for (std::vector<redis_command*>::iterator it = commands.begin();
			it != commands.end(); ++it) {
			acl::redis_pipeline_message& msg = (*it)->get_message();
			pipeline_.push(&msg);
		}

		// wait for all results
		for (std::vector<redis_command*>::iterator it = commands.begin();
			it != commands.end(); ++it) {
			acl::redis_pipeline_message& msg = (*it)->get_message();
			const acl::redis_result* result = msg.wait();
			if (result == NULL) {
				printf("wait result error\r\n");
				break;
			}

			// clear the temp memroy internal allocated by dbuf
			(*it)->clear();
		}
	}

private:
	acl::locker& locker_;
	acl::redis_client_pipeline& pipeline_;
	acl::string cmd_;
	int once_count_;
	int count_;
};

static void usage(const char* procname) {
	printf("usage: %s -h[help]\r\n"
		"-s one_redis_addr[127.0.0.1:6379]\r\n"
		"-N once_count[default: 10]\r\n"
		"-n loop_count[default: 10]\r\n"
		"-t max_threads[default: 10]\r\n"
		"-w wait_for_cluster_resume[default: 500 ms]\r\n"
		"-r retry_for_cluster_resnum[default: 10]\r\n"
		"-p password [set the password of redis cluster]\r\n"
		"-a cmd[set|get|expire|ttl|exists|type|del]\r\n",
		procname);
}

int main(int argc, char* argv[]) {
	int  ch, count = 10, once_count = 10;
	int  max_threads = 10;
	acl::string addr("127.0.0.1:6379"), passwd;

	while ((ch = getopt(argc, argv, "ha:s:N:n:t:p:")) > 0) {
		switch (ch) {
		case 'h':
			usage(argv[0]);
			return 0;
		case 'a':
			__cmd = optarg;
			break;
		case 's':
			addr = optarg;
			break;
		case 'N':
			once_count = atoi(optarg);
			break;
		case 'n':
			count = atoi(optarg);
			break;
		case 't':
			max_threads = atoi(optarg);
			break;
		case 'p':
			passwd = optarg;
			break;;
		default:
			break;
		}
	}

	acl::acl_cpp_init();
	acl::log::stdout_open(true);

	acl::redis_client_pipeline pipeline(addr);
	if (!passwd.empty()) {
		pipeline.set_password(passwd);
	}
	pipeline.start_thread();

	struct timeval begin;
	gettimeofday(&begin, NULL);

	acl::locker locker;

	std::vector<test_thread*> threads;
	for (int i = 0; i < max_threads; i++) {
		test_thread* thread = new test_thread(locker, pipeline,
			once_count, count);
		threads.push_back(thread);
		thread->set_detachable(true);
		thread->start();
	}

	while (true) {
		locker.lock();
		if (__threads_exit == max_threads) {
			locker.unlock();
			printf("All threads over now!\r\n");
			break;
		}
		locker.unlock();

		//printf("max_threads: %d, threads_exit: %d\r\n",
		//	max_threads, __threads_exit);
		sleep(1);
	}

	std::vector<test_thread*>::iterator it = threads.begin();
	for (; it != threads.end(); ++it) {
		//(*it)->wait();
		delete (*it);
	}

	struct timeval end;
	gettimeofday(&end, NULL);

	long long int total = max_threads * once_count * count;
	double inter = util::stamp_sub(&end, &begin);
	printf("total %s: %lld, spent: %0.2f ms, speed: %0.2f\r\n", __cmd.c_str(),
		total, inter, (total * 1000) /(inter > 0 ? inter : 1));

	pipeline.stop_thread();
#ifdef WIN32
	printf("enter any key to exit\r\n");
	getchar();
#endif
	return 0;
}