--- libaitrpc/src/blob.c 2010/06/23 15:07:15 1.1.2.1 +++ libaitrpc/src/blob.c 2011/05/02 23:12:08 1.2 @@ -1,3 +1,482 @@ +/************************************************************************* +* (C) 2010 AITNET ltd - Sofia/Bulgaria - +* by Michael Pounov +* +* $Author: misho $ +* $Id: blob.c,v 1.2 2011/05/02 23:12:08 misho Exp $ +* +************************************************************************** +The ELWIX and AITNET software is distributed under the following +terms: + +All of the documentation and software included in the ELWIX and AITNET +Releases is copyrighted by ELWIX - Sofia/Bulgaria + +Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 + by Michael Pounov . All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. +3. All advertising materials mentioning features or use of this software + must display the following acknowledgement: +This product includes software developed by Michael Pounov +ELWIX - Embedded LightWeight unIX and its contributors. +4. Neither the name of AITNET nor the names of its contributors + may be used to endorse or promote products derived from this software + without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY AITNET AND CONTRIBUTORS ``AS IS'' AND +ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE +FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +SUCH DAMAGE. +*/ #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; + +#ifdef HAVE_SRANDOMDEV + srandomdev(); +#else + time_t tim; + + srandom((time(&tim) ^ getpid())); +#endif +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(ECANCELED, "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(ECANCELED, "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; +}