From d41e58e6cd71fdacdca69ba78c29d42dc7d330d5 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 20 Nov 2002 17:46:33 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r224, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/maxlib/; revision=225
---
 src/remote.c | 84 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 src/remote.c

(limited to 'src/remote.c')

diff --git a/src/remote.c b/src/remote.c
new file mode 100644
index 0000000..6697113
--- /dev/null
+++ b/src/remote.c
@@ -0,0 +1,84 @@
+/* ------------------------  remote  ------------------------------------------ */
+/*                                                                              */
+/* Send data to receive obejct <name>.                                          */
+/* Written by Olaf Matthes (olaf.matthes@gmx.de)                                */
+/* Get source at http://www.akustische-kunst.org/puredata/maxlib/               */
+/*                                                                              */
+/* This program is free software; you can redistribute it and/or                */
+/* modify it under the terms of the GNU General Public License                  */
+/* as published by the Free Software Foundation; either version 2               */
+/* of the License, or (at your option) any later version.                       */
+/*                                                                              */
+/* This program is distributed in the hope that it will be useful,              */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of               */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                */
+/* GNU General Public License for more details.                                 */
+/*                                                                              */
+/* You should have received a copy of the GNU General Public License            */
+/* along with this program; if not, write to the Free Software                  */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  */
+/*                                                                              */
+/* Based on PureData by Miller Puckette and others.                             */
+/*                                                                              */
+/* ---------------------------------------------------------------------------- */
+
+#include "m_pd.h"
+
+#include <string.h>
+#include <stdio.h>
+
+#define MAX_REC 64		            /* maximum number of receive objects */
+#define MAX_ARG 32		            /* maximum number of arguments to pass on */
+
+static char *version = "remote v0.1, written by Olaf Matthes <olaf.matthes@gmx.de>";
+
+static t_class *remote_class;
+
+typedef struct _remote
+{
+    t_object x_obj;
+} t_remote;
+
+	/* send 'anything' to receiver */
+static void remote_anything(t_remote *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+	t_atom av[MAX_ARG];		/* the 'new' t_atom without first element */
+	t_int ac = argc - 1;    /* the 'new' number of arguments */
+
+	if(argc < 1)			/* need <name> <data> */
+	{
+		post("remote: too few arguments!");
+		return;
+	}
+	if(ac > MAX_ARG)
+	{
+		post("remote: too many arguments!");
+		return;
+	}
+
+	for(i = 1; i < argc; i++)
+	{
+		av[i - 1] = argv[i];	/* just copy, don't care about types */
+	}
+		/* send only argument-part to receivers */
+	if (s->s_thing) pd_forwardmess(s->s_thing, argc, argv);
+}
+
+static void *remote_new(void)
+{
+    t_remote *x = (t_remote *)pd_new(remote_class);
+
+#ifndef MAXLIB
+    post(version);
+#endif
+    return (x);
+}
+
+void remote_setup(void)
+{
+    remote_class = class_new(gensym("remote"), (t_newmethod)remote_new, 0,
+    	sizeof(t_remote), 0, 0);
+    class_addanything(remote_class, remote_anything);
+	class_sethelpsymbol(remote_class, gensym("maxlib/help-remote.pd"));
+}
-- 
cgit v1.2.1