--- libaitio/src/sock.c	2013/12/03 18:58:22	1.11
+++ libaitio/src/sock.c	2013/12/12 15:23:44	1.11.2.2
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: sock.c,v 1.11 2013/12/03 18:58:22 misho Exp $
+* $Id: sock.c,v 1.11.2.2 2013/12/12 15:23:44 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -572,4 +572,21 @@ ioBridgeProg2Socket(sock_t * __restrict s, const char 
 
 	schedRead(s->sock_root, io_bridgeClient, s, s->sock_fd, (void*) prgname, 0);
 	return schedRun(s->sock_root, &s->sock_kill);
+}
+
+/*
+ * ioSetupProg2Socket() - Setup program pool to socket server
+ *
+ * @s = Socket
+ * @p = Program pool
+ * return: -1 error or 0 ok
+ */
+int
+ioSetupProg2Socket(sock_t * __restrict s, prog_t * __restrict p)
+{
+	if (!s)
+		return -1;
+
+	s->sock_prog = p;
+	return 0;
 }