#include "global.h"


/*
 * rpc_srv_blobCreate() Create map blob to memory region and return object
 * @srv = RPC Server instance
 * @len = BLOB length object
 * return: NULL error or !=NULL allocated BLOB object
 */
inline rpc_blob_t *
rpc_srv_blobCreate(rpc_srv_t * __restrict srv, int len)
{
	rpc_blob_t *blob = NULL;
	char szFName[MAXPATHLEN];
	int f;
	u_int rnd;

	srandomdev();
again:
	rnd = random() % UINT_MAX;

	memset(szFName, 0, MAXPATHLEN);
	snprintf(szFName, MAXPATHLEN, BLOB_FILE, srv->srv_blob.dir, rnd);
	f = open(szFName, O_CREAT | O_EXCL | O_RDWR, 0600);
	if (f == -1) {
		if (errno == EEXIST)
			goto again;

		LOGERR;
		return NULL;
	}
	if (lseek(f, len - 1, SEEK_SET) == -1) {
		LOGERR;
		close(f);
		unlink(szFName);
		return NULL;
	} else
		write(f, "", 1);

	blob = malloc(sizeof(rpc_blob_t));
	if (!blob) {
		LOGERR;
		close(f);
		unlink(szFName);
		return NULL;
	}

	blob->blob_data = mmap(NULL, len, PROT_READ | PROT_WRITE, MAP_SHARED, f, 0);
	if (blob->blob_data == MAP_FAILED) {
		LOGERR;
		free(blob);
		close(f);
		unlink(szFName);
		return NULL;
	} else
		close(f);

	blob->blob_len = len;
	blob->blob_var = rnd;
	return blob;
}

/*
 * rpc_srv_blobMap() Map blob to memory region 
 * @srv = RPC Server instance
 * @blob = Map to this BLOB element
 * return: -1 error or 0 ok
 */
inline int
rpc_srv_blobMap(rpc_srv_t * __restrict srv, rpc_blob_t * __restrict blob)
{
	int f;
	char szFName[MAXPATHLEN];

	if (!blob) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	memset(szFName, 0, MAXPATHLEN);
	snprintf(szFName, MAXPATHLEN, BLOB_FILE, srv->srv_blob.dir, blob->blob_var);
	f = open(szFName, O_RDWR);
	if (f == -1) {
		LOGERR;
		return -1;
	}

	blob->blob_data = mmap(NULL, blob->blob_len, PROT_READ | PROT_WRITE, MAP_SHARED, f, 0);
	if (blob->blob_data == MAP_FAILED) {
		LOGERR;
		close(f);
		blob->blob_data = NULL;
		return -1;
	} else {
		close(f);

		madvise(blob->blob_data, blob->blob_len, MADV_SEQUENTIAL);
	}

	return 0;
}

/*
 * rpc_srv_blobUnmap() Unmap blob memory region 
 * @blob = Mapped BLOB element
 * return: none
 */
inline void
rpc_srv_blobUnmap(rpc_blob_t * __restrict blob)
{
	if (!blob || !blob->blob_data)
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
	else {
		munmap(blob->blob_data, blob->blob_len);
		blob->blob_data = NULL;
	}
}

/*
 * rpc_srv_blobFree() Free blob from disk & memory
 * @srv = RPC Server instance
 * @blob = Mapped BLOB element
 * return: -1 error or 0 ok
 */
inline int
rpc_srv_blobFree(rpc_srv_t * __restrict srv, rpc_blob_t * __restrict blob)
{
	char szFName[MAXPATHLEN];

	if (!blob) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	if (blob->blob_data)
		rpc_srv_blobUnmap(blob);

	memset(szFName, 0, MAXPATHLEN);
	snprintf(szFName, MAXPATHLEN, BLOB_FILE, srv->srv_blob.dir, blob->blob_var);
	if (remove(szFName) == -1) {
		LOGERR;
		return -1;
	}

	return 0;
}

// ------------------------------------------------------------

/*
 * rpc_srv_sendBLOB() Send mapped BLOB to client
 * @cli = Client instance
 * @blob = Mapped BLOB element
 * return: -1 error, 0 ok
 */
int
rpc_srv_sendBLOB(rpc_cli_t * __restrict cli, rpc_blob_t * __restrict blob)
{
	int ret, len;
	uint8_t *pos;

	if (!cli || !blob || !blob->blob_data) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	for (ret = blob->blob_len, pos = blob->blob_data; ret > 0; ret -= len, pos += len)
		if ((len = send(cli->cli_sock, pos, ret > BLOBSIZ ? BLOBSIZ : ret, 0)) == -1) {
			LOGERR;
			return -1;
		}

	return ret;
}

/*
 * rpc_srv_recvBLOB() Receive BLOB from client
 * @cli = Client instance
 * @blob = Mapped BLOB element
 * return: -1 error, 0 ok, >0 unreceived data from client, may be error?
 */
int
rpc_srv_recvBLOB(rpc_cli_t * __restrict cli, rpc_blob_t * __restrict blob)
{
	int ret, len;
	uint8_t *pos;
	fd_set fds;
	struct timeval tv = { DEF_RPC_TIMEOUT, 0 };

	if (!cli || !blob || !blob->blob_data) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	for (ret = blob->blob_len, pos = blob->blob_data; ret > 0; ret -= len, pos += len) {
		FD_ZERO(&fds);
		FD_SET(cli->cli_sock, &fds);
		len = select(cli->cli_sock + 1, &fds, NULL, NULL, &tv);
		if (len < 1) {
			LOGERR;
			return -1;
		}

		if ((len = recv(cli->cli_sock, pos, BLOBSIZ, 0)) == -1) {
			LOGERR;
			return -1;
		}
	}

	return ret;
}

// ------------------------------------------------------------

/*
 * rpc_cli_sendBLOB() Send BLOB to server
 * @cli = Client instance
 * @var = BLOB variable
 * @data = BLOB data
 * return: -1 error, 0 ok, 1 remote error
 */
int
rpc_cli_sendBLOB(rpc_cli_t * __restrict cli, rpc_val_t * __restrict var, void * __restrict data)
{
	int ret, len;
	uint8_t *pos;
	struct tagBLOBHdr hdr;
	fd_set fds;
	struct timeval tv = { DEF_RPC_TIMEOUT, 0 };

	if (!cli || !var || !data) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	memcpy(&hdr.hdr_session, cli->cli_parent, sizeof(rpc_sess_t));
	hdr.hdr_cmd = set;
	hdr.hdr_var = 0;
	hdr.hdr_ret = 0;
	hdr.hdr_len = var->val_len;
	if (send(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		return -1;
	}

	for (ret = var->val_len, pos = data; ret > 0; ret -= len, pos += len)
		if ((len = send(cli->cli_sock, pos, ret > BLOBSIZ ? BLOBSIZ : ret, 0)) == -1) {
			LOGERR;
			return -1;
		}

	FD_ZERO(&fds);
	FD_SET(cli->cli_sock, &fds);
	switch (select(cli->cli_sock + 1, &fds, NULL, NULL, &tv)) {
		case -1:
			LOGERR;
			return -1;
		case 0:
			rpc_SetErr(ETIMEDOUT, "Error:: Timeout reached! Server not responde ...\n");
			return -1;
	}
	if (recv(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		return -1;
	}
	if (hdr.hdr_cmd != error) {
		if (hdr.hdr_len != var->val_len) {
			rpc_SetErr(EBADMSG, "Error:: Bad return length packet ...\n");
			return -1;
		}

		var->val.blob = hdr.hdr_var;
	}

	return hdr.hdr_cmd == error;
}

/*
 * rpc_cli_recvBLOB() Receive BLOB from server
 * @cli = Client instance
 * @var = BLOB variable
 * @data = BLOB data, must be free after use!
 * return: -1 error, 0 ok, 1 remote error
 */
int
rpc_cli_recvBLOB(rpc_cli_t * __restrict cli, rpc_val_t * __restrict var, void ** data)
{
	int ret, len;
	uint8_t *pos;
	fd_set fds;
	struct timeval tv = { DEF_RPC_TIMEOUT, 0 };
	struct tagBLOBHdr hdr;

	if (!cli || !var || !data) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	*data = malloc(var->val_len);
	if (!*data) {
		LOGERR;
		return -1;
	} else
		memset(*data, 0, var->val_len);

	memcpy(&hdr.hdr_session, cli->cli_parent, sizeof(rpc_sess_t));
	hdr.hdr_cmd = get;
	hdr.hdr_var = (uint32_t) RPC_GET_BLOB(var);
	hdr.hdr_ret = 0;
	hdr.hdr_len = 0;
	if (send(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		free(*data);
		*data = NULL;
		return -1;
	}

	for (ret = var->val_len, pos = *data; ret > 0; ret -= len, pos += len) {
		FD_ZERO(&fds);
		FD_SET(cli->cli_sock, &fds);
		len = select(cli->cli_sock + 1, &fds, NULL, NULL, &tv);
		if (len < 1) {
			LOGERR;
			free(*data);
			*data = NULL;
			return -1;
		}

		if ((len = recv(cli->cli_sock, pos, BLOBSIZ, 0)) == -1) {
			LOGERR;
			free(*data);
			*data = NULL;
			return -1;
		}
	}

	FD_ZERO(&fds);
	FD_SET(cli->cli_sock, &fds);
	switch (select(cli->cli_sock + 1, &fds, NULL, NULL, &tv)) {
		case -1:
			LOGERR;
			free(*data);
			*data = NULL;
			return -1;
		case 0:
			rpc_SetErr(ETIMEDOUT, "Error:: Timeout reached! Server not responde ...\n");
			free(*data);
			*data = NULL;
			return -1;
	}
	if (recv(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		free(*data);
		*data = NULL;
		return -1;
	}
	if (hdr.hdr_cmd != error) {
		if (hdr.hdr_len != var->val_len) {
			rpc_SetErr(EBADMSG, "Error:: Bad return length packet ...\n");
			free(*data);
			*data = NULL;
			return -1;
		}
	}

	return hdr.hdr_cmd == error;
}

/*
 * rpc_cli_delBLOB() Delete BLOB from server
 * @cli = Client instance
 * @var = BLOB variable
 * return: -1 error, 0 ok, 1 remote error
 */
int
rpc_cli_delBLOB(rpc_cli_t * __restrict cli, rpc_val_t * __restrict var)
{
	struct tagBLOBHdr hdr;
	fd_set fds;
	struct timeval tv = { DEF_RPC_TIMEOUT, 0 };

	if (!cli || !var) {
		rpc_SetErr(EINVAL, "Error:: invalid arguments ...\n");
		return -1;
	}

	memcpy(&hdr.hdr_session, cli->cli_parent, sizeof(rpc_sess_t));
	hdr.hdr_cmd = unset;
	hdr.hdr_var = (uint32_t) RPC_GET_BLOB(var);
	hdr.hdr_ret = 0;
	hdr.hdr_len = 0;
	if (send(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		return -1;
	}

	FD_ZERO(&fds);
	FD_SET(cli->cli_sock, &fds);
	switch (select(cli->cli_sock + 1, &fds, NULL, NULL, &tv)) {
		case -1:
			LOGERR;
			return -1;
		case 0:
			rpc_SetErr(ETIMEDOUT, "Error:: Timeout reached! Server not responde ...\n");
			return -1;
	}
	if (recv(cli->cli_sock, &hdr, sizeof hdr, 0) == -1) {
		LOGERR;
		return -1;
	}

	return hdr.hdr_cmd == error;
}

/*
 * rpc_cli_getBLOB() Receive BLOB from server and Delete after that
 * @cli = Client instance
 * @var = BLOB variable
 * @data = BLOB data, must be free after use!
 * return: -1 error, 0 ok, 1 remote error
 */
inline int
rpc_cli_getBLOB(rpc_cli_t * __restrict cli, rpc_val_t * __restrict var, void ** data)
{
	int ret;

	ret = rpc_cli_recvBLOB(cli, var, data);
	ret |= rpc_cli_delBLOB(cli, var) > 0 ? 2 : 0;

	return ret;
}