//
// Copyright 2017 Garrett D'Amore <garrett@damore.org>
// Copyright 2017 Capitar IT Group BV <info@capitar.com>
//
// This software is supplied under the terms of the MIT License, a
// copy of which should be located in the distribution where this
// file was obtained (LICENSE.txt).  A copy of the license may also be
// found online at https://opensource.org/licenses/MIT.
//

#include "convey.h"
#include "nng.h"

#include <string.h>

static int nclients = 200;

static char *addr = "inproc:///atscale";

void
serve(void *arg)
{
	nng_socket rep = *(nng_socket *) arg;
	nng_msg *  msg;

	for (;;) {
		if (nng_recvmsg(rep, &msg, 0) != 0) {
			nng_close(rep);
			return;
		}

		if (nng_sendmsg(rep, msg, 0) != 0) {
			nng_close(rep);
			return;
		}
	}
}

int
openclients(nng_socket *clients, int num)
{
	int      rv;
	int      i;
	uint64_t t;
	for (i = 0; i < num; i++) {
		if ((rv = nng_req_open(&clients[i])) != 0) {
			printf("open #%d: %s\n", i, nng_strerror(rv));
			return (rv);
		}
		t  = 100000; // 100ms
		rv = nng_setopt(clients[i], NNG_OPT_RCVTIMEO, &t, sizeof(t));
		if (rv != 0) {
			printf(
			    "setopt(RCVTIMEO) #%d: %s\n", i, nng_strerror(rv));
			return (rv);
		}
		t  = 100000; // 100ms
		rv = nng_setopt(clients[i], NNG_OPT_SNDTIMEO, &t, sizeof(t));
		if (rv != 0) {
			printf(
			    "setopt(SNDTIMEO) #%d: %s\n", i, nng_strerror(rv));
			return (rv);
		}
		rv = nng_dial(clients[i], addr, NULL, NNG_FLAG_SYNCH);
		if (rv != 0) {
			printf("dial #%d: %s\n", i, nng_strerror(rv));
			return (rv);
		}
	}
	return (0);
}

int
transact(nng_socket *clients, int num)
{
	nng_msg *msg;
	int      rv;
	int      i;
	for (i = 0; i < num; i++) {

		if ((rv = nng_msg_alloc(&msg, 0)) != 0) {
			printf("alloc #%d: %s\n", i, nng_strerror(rv));
			return (rv);
		}

		if ((rv = nng_sendmsg(clients[i], msg, 0)) != 0) {
			nng_msg_free(msg);
			printf("sendmsg #%d: %s", i, nng_strerror(rv));
			return (rv);
		}

		if ((rv = nng_recvmsg(clients[i], &msg, 0)) != 0) {
			printf("recvmsg #%d: %s", i, nng_strerror(rv));
			return (rv);
		}
		nng_msg_free(msg);
	}
	return (0);
}

void
closeclients(nng_socket *clients, int num)
{
	int i;
	nng_usleep(1000);
	for (i = 0; i < num; i++) {
		if (clients[i] > 0) {
			nng_close(clients[i]);
		}
	}
}

Main({
	nng_socket *clients;
	void *      server;
	int *       results;
	int         depth = 256;
	nng_socket  rep;

	clients = calloc(nclients, sizeof(nng_socket));
	results = calloc(nclients, sizeof(int));

	if ((nng_rep_open(&rep) != 0) ||
	    (nng_setopt(rep, NNG_OPT_RCVBUF, &depth, sizeof(depth)) != 0) ||
	    (nng_setopt(rep, NNG_OPT_SNDBUF, &depth, sizeof(depth)) != 0) ||
	    (nng_listen(rep, addr, NULL, NNG_FLAG_SYNCH) != 0) ||
	    (nng_thread_create(&server, serve, &rep) != 0)) {
		fprintf(stderr, "Unable to set up server!\n");
		exit(1);
	}

	Test("Scalability", {
		Convey("We can handle many many clients", {
			int i;
			So(openclients(clients, nclients) == 0);
			So(transact(clients, nclients) == 0);
			for (i = 0; i < nclients; i++) {
				So(nng_close(clients[i]) == 0);
			}
		});
	});
});