#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;

	memset(szFName, 0, MAXPATHLEN);
	snprintf(szFName, MAXPATHLEN, "%s/BLOB-XXXXXXXX", srv->srv_blob.dir);
	f = mkstemp(szFName);
	if (f == -1) {
		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 = strtol(strrchr(szFName, '-') + 1, NULL, 16);
	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;
	struct stat sb;
	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_RDONLY);
	if (f == -1) {
		LOGERR;
		return -1;
	}
	if (fstat(f, &sb) == -1) {
		LOGERR;
		close(f);
		return -1;
	}

	blob->blob_data = mmap(NULL, sb.st_size, PROT_READ, MAP_PRIVATE, f, 0);
	if (blob->blob_data == MAP_FAILED) {
		LOGERR;
		close(f);
		blob->blob_data = NULL;
		return -1;
	} else {
		blob->blob_len = sb.st_size;
		close(f);

		madvise(blob->blob_data, sb.st_size, 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;
		blob->blob_len = 0;
	}
}

/*
 * 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;
}