This commit was generated by cvs2svn to compensate for changes in r1738,svn2git-root

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/iemlib/; revision=1739

1 files changed, 246 insertions, 0 deletions

diff --git a/src/iemlib2/list2send.c b/src/iemlib2/list2send.c
new file mode 100644
index 0000000..eb956d1
--- /dev/null
+++ b/src/iemlib2/list2send.c
@@ -0,0 +1,246 @@
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+
+/* ------------------------ list2send ---------------------------- */
+static t_class *list2send_class;
+
+typedef struct _list2send
+{
+	t_object		x_obj;
+	int					x_max;
+	char				*x_snd_able;
+	t_symbol		**x_send_entries;
+	t_symbol		*x_set;
+} t_list2send;
+
+static void list2send_list(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	if((ac >= 2) && (IS_A_FLOAT(av,0)))
+	{
+		int identifier_index = (int)atom_getintarg(0, ac, av);
+
+		if(identifier_index < x->x_max)
+		{
+			if(x->x_snd_able[identifier_index])
+			{
+				t_symbol *sender = x->x_send_entries[identifier_index];
+
+				if(sender->s_thing)
+				{
+					if(ac == 2)
+					{
+						if(IS_A_FLOAT(av, 1))
+							pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
+						else if(IS_A_SYMBOL(av, 1))
+							pd_symbol(sender->s_thing, atom_getsymbolarg(1, ac, av));
+					}
+					else
+						pd_list(sender->s_thing, &s_list, ac-1, av+1);
+				}
+			}
+		}
+	}
+}
+
+static void list2send_set(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	if((ac >= 2) && (IS_A_FLOAT(av,0)))
+	{
+		int identifier_index = (int)atom_getintarg(0, ac, av);
+
+		if(identifier_index < x->x_max)
+		{
+			if(x->x_snd_able[identifier_index])
+			{
+				t_symbol *sender = x->x_send_entries[identifier_index];
+
+				if(sender->s_thing)
+					typedmess(sender->s_thing, s, ac-1, av+1);
+			}
+		}
+	}
+}
+
+static void list2send_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	int i, n=x->x_max;
+
+	if(ac == n)
+	{
+		for(i=n-1; i>=0; i--)/*change*/
+		{
+			if(x->x_snd_able[i])
+			{
+				t_symbol *sender = x->x_send_entries[i];
+
+				if(sender->s_thing)
+				{
+					if(IS_A_FLOAT(av, i))
+						pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
+					else if(IS_A_SYMBOL(av, i))
+						pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
+				}
+			}
+		}
+	}
+}
+
+static void list2send_set_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	int i, n=x->x_max;
+
+	if(ac == n)
+	{
+		for(i=n-1; i>=0; i--)/*change*/
+		{
+			if(x->x_snd_able[i])
+			{
+				t_symbol *sender = x->x_send_entries[i];
+
+				if(sender->s_thing)
+					typedmess(sender->s_thing, x->x_set, 1, av+i);
+			}
+		}
+	}
+}
+
+static void list2send_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	int n=x->x_max;
+
+	if(ac >= 1)
+	{
+		int i, j, beg=(int)atom_getintarg(0, ac, av);
+
+		if((beg + ac - 1) <= n)
+		{
+			for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
+			{
+				if(x->x_snd_able[j])
+				{
+					t_symbol *sender = x->x_send_entries[j];
+
+					if(sender->s_thing)
+					{
+						if(IS_A_FLOAT(av, i))
+							pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
+						else if(IS_A_SYMBOL(av, i))
+							pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
+					}
+				}
+			}
+		}
+	}
+}
+
+static void list2send_set_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	int n=x->x_max;
+
+	if(ac >= 1)
+	{
+		int i, j, beg=(int)atom_getintarg(0, ac, av);
+
+		if((beg + ac - 1) <= n)
+		{
+			for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
+			{
+				if(x->x_snd_able[j])
+				{
+					t_symbol *sender = x->x_send_entries[j];
+
+					if(sender->s_thing)
+						typedmess(sender->s_thing, x->x_set, 1, av+i);
+				}
+			}
+		}
+	}
+}
+
+static void list2send_add(t_list2send *x, t_symbol *s, int ac, t_atom *av)
+{
+	if(ac == 2)
+	{
+		int identifier_index = (int)atom_getintarg(0, ac, av);
+
+		if(identifier_index < x->x_max)
+		{
+			if(IS_A_SYMBOL(av, 1))
+			{
+				x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
+				x->x_snd_able[identifier_index] = 1;
+			}
+			else if(IS_A_FLOAT(av, 1))
+			{
+				char str[100];
+
+				sprintf(str, "%g", atom_getfloatarg(1, ac, av));
+				x->x_send_entries[identifier_index] = gensym(str);
+				x->x_snd_able[identifier_index] = 1;
+			}
+		}
+	}
+}
+
+static void list2send_clear(t_list2send *x)
+{
+	int i, n=x->x_max;
+
+	for(i=0; i<n; i++)
+	{
+		if(x->x_snd_able[i])
+			x->x_snd_able[i] = 0;
+	}
+}
+
+static void list2send_free(t_list2send *x)
+{
+	freebytes(x->x_snd_able, x->x_max * sizeof(char));
+	freebytes(x->x_send_entries, x->x_max * sizeof(t_symbol *));
+}
+
+static void *list2send_new(t_float fmax)
+{
+	t_list2send *x = (t_list2send *)pd_new(list2send_class);
+	int i, max = (int)fmax;
+	t_atom *ap;
+
+	if(max <= 0)
+		max = 80;
+	x->x_max = max;
+	x->x_snd_able = (char *)getbytes(max * sizeof(char));
+	x->x_send_entries = (t_symbol **)getbytes(max * sizeof(t_symbol *));
+	for(i=0; i<max; i++)
+		x->x_snd_able[i] = 0;
+	x->x_set = gensym("set");
+	return (x);
+}
+
+void list2send_setup(void)
+{
+	list2send_class = class_new(gensym("list2send"), (t_newmethod)list2send_new,
+			(t_method)list2send_free, sizeof(t_list2send), 0, A_DEFFLOAT, 0);
+	class_addlist(list2send_class, list2send_list);
+	class_addmethod(list2send_class, (t_method)list2send_add, gensym("add"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_set, gensym("set"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_all, gensym("all"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_set_all, gensym("set_all"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_from, gensym("from"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_set_from, gensym("set_from"), A_GIMME, 0);
+	class_addmethod(list2send_class, (t_method)list2send_clear, gensym("clear"), 0);
+	class_sethelpsymbol(list2send_class, gensym("iemhelp/help-list2send"));
+}