--- libaitrpc/src/builtin.c	2012/05/16 16:36:10	1.7.2.5
+++ libaitrpc/src/builtin.c	2012/05/17 07:53:03	1.7.2.6
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@openbsd-bg.org>
 *
 * $Author: misho $
-* $Id: builtin.c,v 1.7.2.5 2012/05/16 16:36:10 misho Exp $
+* $Id: builtin.c,v 1.7.2.6 2012/05/17 07:53:03 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -60,10 +60,7 @@ rpcServerClients(rpc_func_t *call, int ic, array_t *iv
 	ait_val_t v;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	len = io_arraySize(srv->srv_clients) * STRSIZ;
 	if (!(val = malloc(len))) {
@@ -86,7 +83,7 @@ rpcServerClients(rpc_func_t *call, int ic, array_t *iv
 		AIT_FREE_VAL(&v);
 	}
 
-	AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), val);
+	AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), val);
 	free(val);
 	return 0;
 }
@@ -101,10 +98,7 @@ rpcServerCalls(rpc_func_t *call, int ic, array_t *iv)
 	char *val, str[MAXPATHLEN];
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	TAILQ_FOREACH(f, &srv->srv_funcs, func_node)
 		i++;
@@ -120,11 +114,11 @@ rpcServerCalls(rpc_func_t *call, int ic, array_t *iv)
 		if (AIT_ADDR(&f->func_name)) {
 			memset(str, 0, sizeof str);
 			snprintf(str, sizeof str, "/%hu/0x%p(%d); ", AIT_KEY(&f->func_name), 
-					AIT_ADDR(&f->func_name), io_arraySize(f->func_vars));
+					AIT_ADDR(&f->func_name), io_arraySize(RPC_FUNC_RETVARS(f)));
 			strlcat(val, str, len);
 		}
 
-	AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), val);
+	AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), val);
 	free(val);
 	return 0;
 }
@@ -136,18 +130,15 @@ rpcServerSessions(rpc_func_t *call, int ic, array_t *i
 	ait_val_t *v;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
-	v = io_array(call->func_vars, 0, ait_val_t*);
+	v = io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*);
 	AIT_SET_U8(v, srv->srv_session.sess_version);
-	v = io_array(call->func_vars, 1, ait_val_t*);
+	v = io_array(RPC_FUNC_RETVARS(call), 1, ait_val_t*);
 	AIT_SET_U32(v, srv->srv_session.sess_program);
-	v = io_array(call->func_vars, 2, ait_val_t*);
+	v = io_array(RPC_FUNC_RETVARS(call), 2, ait_val_t*);
 	AIT_SET_U8(v, srv->srv_session.sess_process);
-	v = io_array(call->func_vars, 3, ait_val_t*);
+	v = io_array(RPC_FUNC_RETVARS(call), 3, ait_val_t*);
 	AIT_SET_I32(v, io_arraySize(srv->srv_clients));
 
 	return 0;
@@ -159,16 +150,23 @@ rpcServerShutdown(rpc_func_t *call, int ic, array_t *i
 	rpc_srv_t *srv;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	srv->srv_kill = 1;
 
 	return 0;
 }
 
+static int
+rpcServerPing(rpc_func_t *call, int ic, array_t *iv)
+{
+	rpc_srv_t *srv;
+
+	srv = RPC_FUNC_SERVER(call);
+
+	return 0;
+}
+
 /* ---------------------------------------------------- */
 
 static int
@@ -177,10 +175,7 @@ rpcBLOBServerShutdown(rpc_func_t *call, int ic, array_
 	rpc_srv_t *srv;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	srv->srv_blob.kill = 1;
 
@@ -197,13 +192,10 @@ rpcBLOBServerVars(rpc_func_t *call, int ic, array_t *i
 	int len;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	if (srv->srv_blob.kill) {
-		AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), "BLOB Server is killed");
+		AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), "BLOB Server is killed");
 		return 1;
 	}
 
@@ -212,7 +204,7 @@ rpcBLOBServerVars(rpc_func_t *call, int ic, array_t *i
 	len = i * sizeof str;
 
 	if (!len) {
-		AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), "");
+		AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), "");
 		return 0;
 	}
 
@@ -228,7 +220,7 @@ rpcBLOBServerVars(rpc_func_t *call, int ic, array_t *i
 		strlcat(val, str, len);
 	}
 
-	AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), val);
+	AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), val);
 	free(val);
 	return 0;
 }
@@ -245,13 +237,10 @@ rpcBLOBServerClients(rpc_func_t *call, int ic, array_t
 	ait_val_t v;
 
 	RPC_CALLBACK_CHECK_INPUT(call);
-	if (!call->func_parent)
-		return -1;
-	else
-		srv = call->func_parent;
+	srv = RPC_FUNC_SERVER(call);
 
 	if (srv->srv_blob.kill) {
-		AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), "BLOB Server is killed");
+		AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), "BLOB Server is killed");
 		return 1;
 	}
 
@@ -276,7 +265,7 @@ rpcBLOBServerClients(rpc_func_t *call, int ic, array_t
 		AIT_FREE_VAL(&v);
 	}
 
-	AIT_SET_STR(io_array(call->func_vars, 0, ait_val_t*), val);
+	AIT_SET_STR(io_array(RPC_FUNC_RETVARS(call), 0, ait_val_t*), val);
 	free(val);
 	return 0;
 }