static void tcpserver_socketreceiver_read(t_tcpserver_socketreceiver *x, int fd)
{
int readto = (x->sr_inhead >= x->sr_intail ? INBUFSIZE : x->sr_intail-1);
int ret, i;
t_tcpserver *y = x->sr_owner;
y->x_sock_fd = fd;
/* the input buffer might be full. If so, drop the whole thing */
if (readto == x->sr_inhead)
{
post("%s: dropped message", objName);
x->sr_inhead = x->sr_intail = 0;
readto = INBUFSIZE;
}
else
{
ret = recv(fd, x->sr_inbuf + x->sr_inhead,
readto - x->sr_inhead, 0);
if (ret < 0)
{
sys_sockerror("tcpserver: recv");
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else if (ret == 0)
{
post("%s: connection closed on socket %d", objName, fd);
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else
{
#ifdef DEBUG
post ("%s_socketreceiver_read: ret = %d", objName, ret);
#endif
x->sr_inhead += ret;
if (x->sr_inhead >= INBUFSIZE) x->sr_inhead = 0;
/* output client's IP and socket no. */
for(i = 0; i < y->x_nconnections; i++) /* search for corresponding IP */
{
if(y->x_sr[i]->sr_fd == y->x_sock_fd)
{
// outlet_symbol(x->x_connectionip, x->x_sr[i].sr_host);
/* find sender's ip address and output it */
y->x_addrbytes[0].a_w.w_float = (y->x_sr[i]->sr_addr & 0xFF000000)>>24;
y->x_addrbytes[1].a_w.w_float = (y->x_sr[i]->sr_addr & 0x0FF0000)>>16;
y->x_addrbytes[2].a_w.w_float = (y->x_sr[i]->sr_addr & 0x0FF00)>>8;
y->x_addrbytes[3].a_w.w_float = (y->x_sr[i]->sr_addr & 0x0FF);
outlet_list(y->x_addrout, &s_list, 4L, y->x_addrbytes);
break;
}
}
outlet_float(y->x_sockout, y->x_sock_fd); /* the socket number */
tcpserver_socketreceiver_doread(x);
}
}
static void netrec_socketreceiver_read(t_netrec_socketreceiver *x, int fd)
{
if (x->sr_udp) /* UDP ("datagram") socket protocol */
netrec_socketreceiver_getudp(x, fd);
else /* TCP ("streaming") socket protocol */
{
char *semi;
int readto =
(x->sr_inhead >= x->sr_intail ? INBUFSIZE : x->sr_intail-1);
int ret;
t_netrec *y = x->sr_owner;
y->x_sock_fd = fd;
/* the input buffer might be full. If so, drop the whole thing */
if (readto == x->sr_inhead)
{
fprintf(stderr, "netrec: dropped message");
x->sr_inhead = x->sr_intail = 0;
readto = INBUFSIZE;
}
else
{
ret = recv(fd, x->sr_inbuf + x->sr_inhead,
readto - x->sr_inhead, 0);
if (ret < 0)
{
sys_sockerror("recv");
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else if (ret == 0)
{
post("netrec: connection closed on socket %d", fd);
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else
{
x->sr_inhead += ret;
if (x->sr_inhead >= INBUFSIZE) x->sr_inhead = 0;
while (netrec_socketreceiver_doread(x))
{
outlet_setstacklim();
if (x->sr_socketreceivefn)
(*x->sr_socketreceivefn)(x->sr_owner, inbinbuf);
else binbuf_eval(inbinbuf, 0, 0, 0);
}
}
}
}
}
static void netserver_socketreceiver_read(t_netserver_socketreceiver *x, int fd)
{
char *semi;
int readto = (x->sr_inhead >= x->sr_intail ? INBUFSIZE : x->sr_intail-1);
int ret;
t_netserver *y = x->sr_owner;
y->x_sock_fd = fd;
/* the input buffer might be full. If so, drop the whole thing */
if (readto == x->sr_inhead)
{
if (y->x_log_pri >= LOG_ERR)
post("netserver: dropped message");
x->sr_inhead = x->sr_intail = 0;
readto = INBUFSIZE;
}
else
{
ret = recv(fd, x->sr_inbuf + x->sr_inhead,
readto - x->sr_inhead, 0);
if (ret < 0)
{
sys_sockerror("recv");
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else if (ret == 0)
{
if (y->x_log_pri >= LOG_NOTICE)
post("netserver: << connection closed on socket %d", fd);
if (x->sr_notifier) (*x->sr_notifier)(x->sr_owner);
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else
{
x->sr_inhead += ret;
if (x->sr_inhead >= INBUFSIZE) x->sr_inhead = 0;
while (netserver_socketreceiver_doread(x))
{
outlet_setstacklim();
if (x->sr_socketreceivefn)
(*x->sr_socketreceivefn)(x->sr_owner, inbinbuf);
else binbuf_eval(inbinbuf, 0, 0, 0);
}
}
}
}
static void netserver_free(t_netserver *x)
{
int i;
for(i = 0; i < x->x_nconnections; i++)
{
sys_rmpollfn(x->x_fd[i]);
sys_closesocket(x->x_fd[i]);
}
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
binbuf_free(inbinbuf);
}
/* remove all pollfunctions and close socket */
static void udpreceive_tilde_closesocket(t_udpreceive_tilde* x)
{
sys_rmpollfn(x->x_socket);
outlet_float(x->x_outlet1, 0);
CLOSESOCKET(x->x_socket);
x->x_socket = -1;
}
static void netsend_readbin(t_netsend *x, int fd)
{
unsigned char inbuf[MAXPDSTRING];
int ret = recv(fd, inbuf, MAXPDSTRING, 0), i;
if (!x->x_msgout)
{
bug("netsend_readbin");
return;
}
if (ret <= 0)
{
if (ret < 0)
sys_sockerror("recv");
sys_rmpollfn(fd);
sys_closesocket(fd);
if (x->x_obj.ob_pd == netreceive_class)
netreceive_notify((t_netreceive *)x, fd);
}
else if (x->x_protocol == SOCK_DGRAM)
{
t_atom *ap = (t_atom *)alloca(ret * sizeof(t_atom));
for (i = 0; i < ret; i++)
SETFLOAT(ap+i, inbuf[i]);
outlet_list(x->x_msgout, 0, ret, ap);
}
else
{
for (i = 0; i < ret; i++)
outlet_float(x->x_msgout, inbuf[i]);
}
}
static void udpreceive_free(t_udpreceive *x)
{
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
}
static void netreceive_closeall(t_netreceive *x)
{
int i;
for (i = 0; i < x->x_nconnections; i++)
{
sys_rmpollfn(x->x_connections[i]);
sys_closesocket(x->x_connections[i]);
}
x->x_connections = (int *)t_resizebytes(x->x_connections,
x->x_nconnections * sizeof(int), 0);
x->x_nconnections = 0;
if (x->x_ns.x_sockfd >= 0)
{
sys_rmpollfn(x->x_ns.x_sockfd);
sys_closesocket(x->x_ns.x_sockfd);
}
x->x_ns.x_sockfd = -1;
}
static void netreceive_free(t_netreceive *x)
{
/* LATER make me clean up open connections */
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
}
static void netsend_disconnect(t_netsend *x)
{
if (x->x_sockfd >= 0)
{
sys_rmpollfn(x->x_sockfd);
sys_closesocket(x->x_sockfd);
x->x_sockfd = -1;
outlet_float(x->x_obj.ob_outlet, 0);
}
}
static void popen_close(t_popen *x)
{
if(x->x_ropened) {
sys_rmpollfn(fileno(x->x_file));
//fflush(x->x_file);
}
if(x->x_file) pclose(x->x_file);
x->x_file=0;
x->x_ropened=0;
}
static void oudpreceive_free(t_oudpreceive *x)
{
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
critical_free(x->lock);
}
static void netreceive_free(t_netreceive *x)
{
#ifdef ROCKBOX
if(receiver && receiver == x)
receiver = NULL;
#else /* ROCKBOX */
/* LATER make me clean up open connections */
if (x->x_connectsocket >= 0)
{
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
#endif /* ROCKBOX */
}
static void netrec_socketreceiver_getudp(t_netrec_socketreceiver *x, int fd)
{
char buf[INBUFSIZE+1];
int ret = recv(fd, buf, INBUFSIZE, 0);
if (ret < 0)
{
sys_sockerror("recv");
sys_rmpollfn(fd);
sys_closesocket(fd);
}
else if (ret > 0)
{
buf[ret] = 0;
#if 0
post("%s", buf);
#endif
if (buf[ret-1] != '\n')
{
#if 0
buf[ret] = 0;
error("dropped bad buffer %s\n", buf);
#endif
}
else
{
char *semi = strchr(buf, ';');
if (semi)
*semi = 0;
binbuf_text(inbinbuf, buf, strlen(buf));
outlet_setstacklim();
if (x->sr_socketreceivefn)
(*x->sr_socketreceivefn)(x->sr_owner, inbinbuf);
else bug("netrec_socketreceiver_getudp");
}
}
}
static int udpreceive_new_socket(t_udpreceive *x, char *address, int port)
{
// return nonzero if successful in creating and binding a socket
int sockfd;
int intarg;
int multicast_joined = 0;
struct sockaddr_in6 server;
struct hostent *hp;
#if defined __APPLE__ || defined _WIN32
struct ipv6_mreq mreq;
#else
struct ipv6_mreqn mreq;
#endif
if (x->x_connectsocket >= 0)
{
// close the existing socket first
sys_rmpollfn(x->x_connectsocket);
sys_closesocket(x->x_connectsocket);
}
/* create a socket */
sockfd = socket(AF_INET6, SOCK_DGRAM, 0);
#ifdef DEBUG
post("udpreceive_new: socket %d port %d", sockfd, portno);
#endif
if (sockfd < 0)
{
udpreceive_sock_err(x, "udpreceive: socket");
return 0;
}
server.sin6_family = AF_INET6;
if (address[0] == 0)
server.sin6_addr = in6addr_any;
else
{
hp = gethostbyname2(address, AF_INET6);
if (hp == 0)
{
pd_error(x, "udpreceive: bad host?\n");
return 0;
}
//memcpy((char *)&server.sin_addr, (char *)hp->h_addr, hp->h_length);
inet_pton(AF_INET6, address, &server.sin6_addr);
}
/* enable delivery of all multicast or broadcast (but not unicast)
* UDP datagrams to all sockets bound to the same port */
intarg = 1;
if (setsockopt(sockfd, SOL_SOCKET, SO_REUSEADDR,
(char *)&intarg, sizeof(intarg)) < 0)
{
udpreceive_sock_err(x, "udpreceive: setsockopt (SO_REUSEADDR) failed");
return 0;
}
/* assign server port number */
server.sin6_port = htons((u_short)port);
if(IN6_IS_ADDR_MULTICAST(&server.sin6_addr))
post("need to impletment mulitcast");
/* if a multicast address was specified, join the multicast group */
/* hop count defaults to 1 so we won't leave the subnet*/
/*
if (0xE0000000 == (ntohl(server.sin_addr.s_addr) & 0xF0000000))
{
server.sin_addr.s_addr = INADDR_ANY;
// first bind the socket to INADDR_ANY
if (bind(sockfd, (struct sockaddr *)&server, sizeof(server)) < 0)
{
udpreceive_sock_err(x, "udpreceive: bind");
sys_closesocket(sockfd);
return 0;
}
// second join the multicast group
memcpy((char *)&server.sin_addr, (char *)hp->h_addr, hp->h_length);
#if defined __APPLE__ || defined _WIN32
mreq.imr_multiaddr.s_addr = server.sin_addr.s_addr;
mreq.imr_interface.s_addr = INADDR_ANY;// can put a specific local IP address here if host is multihomed
#else
mreq.imr_multiaddr.s_addr = server.sin_addr.s_addr;
mreq.imr_address.s_addr = INADDR_ANY;
mreq.imr_ifindex = 0;
#endif //__APPLE__ || _WIN32
if (setsockopt(sockfd, IPPROTO_IP, IP_ADD_MEMBERSHIP,
(char *)&mreq, sizeof(mreq)) < 0)
udpreceive_sock_err(x, "udpreceive: setsockopt IP_ADD_MEMBERSHIP");
else
{
multicast_joined = 1;
post ("udpreceive: added to multicast group");
}
}
else
{*/
/* name the socket */
if (bind(sockfd, (struct sockaddr *)&server, sizeof(server)) < 0)
{
udpreceive_sock_err(x, "udpreceive: bind");
sys_closesocket(sockfd);
return 0;
}
// }
x->x_multicast_joined = multicast_joined;
x->x_connectsocket = sockfd;
x->x_total_received = 0L;
sys_addpollfn(x->x_connectsocket, (t_fdpollfn)udpreceive_read, x);
return 1;
}
