refactored x_net.c into netsend.c netreceive.c

svn path=/trunk/; revision=14598

1 files changed, 195 insertions, 0 deletions

diff --git a/externals/vanilla/netreceive.c b/externals/vanilla/netreceive.c
new file mode 100644
index 00000000..8e332f54
--- /dev/null
+++ b/externals/vanilla/netreceive.c
@@ -0,0 +1,195 @@
+/* Copyright (c) 1997-1999 Miller Puckette.
+* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
+
+/* network */
+
+#include "m_pd.h"
+#include "s_stuff.h"
+
+#include <sys/types.h>
+#include <string.h>
+#ifdef MSW
+#include <winsock.h>
+#else
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <netdb.h>
+#include <stdio.h>
+#define SOCKET_ERROR -1
+#endif
+
+static t_class *netreceive_class;
+
+typedef struct _netreceive
+{
+    t_object x_obj;
+    t_outlet *x_msgout;
+    t_outlet *x_connectout;
+    int x_connectsocket;
+    int x_nconnections;
+    int x_udp;
+} t_netreceive;
+
+static void netreceive_notify(t_netreceive *x)
+{
+    outlet_float(x->x_connectout, --x->x_nconnections);
+}
+
+static void netreceive_doit(void *z, t_binbuf *b)
+{
+    t_atom messbuf[1024];
+    t_netreceive *x = (t_netreceive *)z;
+    int msg, natom = binbuf_getnatom(b);
+    t_atom *at = binbuf_getvec(b);
+    for (msg = 0; msg < natom;)
+    {
+        int emsg;
+        for (emsg = msg; emsg < natom && at[emsg].a_type != A_COMMA
+            && at[emsg].a_type != A_SEMI; emsg++)
+                ;
+        if (emsg > msg)
+        {
+            int i;
+            for (i = msg; i < emsg; i++)
+                if (at[i].a_type == A_DOLLAR || at[i].a_type == A_DOLLSYM)
+            {
+                pd_error(x, "netreceive: got dollar sign in message");
+                goto nodice;
+            }
+            if (at[msg].a_type == A_FLOAT)
+            {
+                if (emsg > msg + 1)
+                    outlet_list(x->x_msgout, 0, emsg-msg, at + msg);
+                else outlet_float(x->x_msgout, at[msg].a_w.w_float);
+            }
+            else if (at[msg].a_type == A_SYMBOL)
+                outlet_anything(x->x_msgout, at[msg].a_w.w_symbol,
+                    emsg-msg-1, at + msg + 1);
+        }
+    nodice:
+        msg = emsg + 1;
+    }
+}
+
+static void netreceive_connectpoll(t_netreceive *x)
+{
+    int fd = accept(x->x_connectsocket, 0, 0);
+    if (fd < 0) post("netreceive: accept failed");
+    else
+    {
+        t_socketreceiver *y = socketreceiver_new((void *)x, 
+            (t_socketnotifier)netreceive_notify,
+                (x->x_msgout ? netreceive_doit : 0), 0);
+        sys_addpollfn(fd, (t_fdpollfn)socketreceiver_read, y);
+        outlet_float(x->x_connectout, ++x->x_nconnections);
+    }
+}
+
+static void *netreceive_new(t_symbol *compatflag,
+    t_floatarg fportno, t_floatarg udpflag)
+{
+    t_netreceive *x;
+    struct sockaddr_in server;
+    int sockfd, portno = fportno, udp = (udpflag != 0);
+    int old = !strcmp(compatflag->s_name , "old");
+    int intarg;
+        /* create a socket */
+    sockfd = socket(AF_INET, (udp ? SOCK_DGRAM : SOCK_STREAM), 0);
+#if 0
+    fprintf(stderr, "receive socket %d\n", sockfd);
+#endif
+    if (sockfd < 0)
+    {
+        sys_sockerror("socket");
+        return (0);
+    }
+    server.sin_family = AF_INET;
+    server.sin_addr.s_addr = INADDR_ANY;
+
+#if 1
+        /* ask OS to allow another Pd to repoen this port after we close it. */
+    intarg = 1;
+    if (setsockopt(sockfd, SOL_SOCKET, SO_REUSEADDR,
+        (char *)&intarg, sizeof(intarg)) < 0)
+            post("setsockopt (SO_REUSEADDR) failed\n");
+#endif
+#if 0
+    intarg = 0;
+    if (setsockopt(sockfd, SOL_SOCKET, SO_RCVBUF,
+        &intarg, sizeof(intarg)) < 0)
+            post("setsockopt (SO_RCVBUF) failed\n");
+#endif
+        /* Stream (TCP) sockets are set NODELAY */
+    if (!udp)
+    {
+        intarg = 1;
+        if (setsockopt(sockfd, IPPROTO_TCP, TCP_NODELAY,
+            (char *)&intarg, sizeof(intarg)) < 0)
+                post("setsockopt (TCP_NODELAY) failed\n");
+    }
+        /* assign server port number */
+    server.sin_port = htons((u_short)portno);
+
+        /* name the socket */
+    if (bind(sockfd, (struct sockaddr *)&server, sizeof(server)) < 0)
+    {
+        sys_sockerror("bind");
+        sys_closesocket(sockfd);
+        return (0);
+    }
+    x = (t_netreceive *)pd_new(netreceive_class);
+    if (old)
+    {
+        /* old style, nonsecure version */
+        x->x_msgout = 0;
+    }
+    else x->x_msgout = outlet_new(&x->x_obj, &s_anything);
+
+    if (udp)        /* datagram protocol */
+    {
+        t_socketreceiver *y = socketreceiver_new((void *)x, 
+            (t_socketnotifier)netreceive_notify,
+                (x->x_msgout ? netreceive_doit : 0), 1);
+        sys_addpollfn(sockfd, (t_fdpollfn)socketreceiver_read, y);
+        x->x_connectout = 0;
+    }
+    else        /* streaming protocol */
+    {
+        if (listen(sockfd, 5) < 0)
+        {
+            sys_sockerror("listen");
+            sys_closesocket(sockfd);
+            sockfd = -1;
+        }
+        else
+        {
+            sys_addpollfn(sockfd, (t_fdpollfn)netreceive_connectpoll, x);
+            x->x_connectout = outlet_new(&x->x_obj, &s_float);
+        }
+    }
+    x->x_connectsocket = sockfd;
+    x->x_nconnections = 0;
+    x->x_udp = udp;
+
+    return (x);
+}
+
+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 netreceive_setup(void)
+{
+    netreceive_class = class_new(gensym("netreceive"),
+        (t_newmethod)netreceive_new, (t_method)netreceive_free,
+        sizeof(t_netreceive), CLASS_NOINLET, A_DEFFLOAT, A_DEFFLOAT, 
+            A_DEFSYM, 0);
+}