converted to new library template and debianized

svn path=/trunk/externals/ekext/; revision=13835

1 files changed, 216 insertions, 0 deletions

diff --git a/maskxor.c b/maskxor.c
new file mode 100644
index 0000000..bf14560
--- /dev/null
+++ b/maskxor.c
@@ -0,0 +1,216 @@
+#include "m_pd.h"
+
+static t_class *maskxor_class;
+
+typedef struct _maskxor
+{
+  t_object x_obj;
+  t_atom *maskl, *maskr, *maskxor;
+  int lengthl, lengthr, lengthm;
+  t_float suml, sumr;
+  t_float f_in, yes;
+  t_float mode;
+  t_outlet *thru, *bool, *maskout;
+} t_maskxor;
+
+void maskxor_float(t_maskxor *x, t_floatarg fin)
+{
+  int input = (int)fin;
+  if (input >= 0 && input < x->lengthm) {
+    if(x->mode == 0)
+      {
+	x->f_in = fin;
+	x->yes = atom_getfloatarg(input, x->lengthm, x->maskxor);
+	outlet_float(x->bool, x->yes);
+	if(x->yes != 0)
+	  {
+	    outlet_float(x->thru, x->f_in);
+	  }
+      }
+    else if(x->sumr>x->suml)
+      {
+	x->f_in = fin;
+	x->yes = atom_getfloatarg(input, x->lengthm, x->maskxor);
+	outlet_float(x->bool, x->yes);
+	if(x->yes != 0)
+	  {
+	    outlet_float(x->thru, x->f_in);
+	  }
+      }
+  }
+}
+
+void maskxor_bang(t_maskxor *x, t_symbol *s)
+{
+  outlet_list(x->maskout, &s_list, x->lengthm, x->maskxor);
+  outlet_float(x->bool, x->yes);
+  if(x->yes != 0)
+    {
+      outlet_float(x->thru, x->f_in);
+    }
+}
+
+void maskxor_listl(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int i;
+  x->suml = 0;
+  float listr_element, listl_element, xor_element;
+  if (x->maskl) {
+    freebytes(x->maskl, x->lengthl * sizeof(t_atom));
+    x->maskl = 0;
+    x->lengthl = 0;
+  }
+
+  x->maskl = copybytes(argv, argc * sizeof(t_atom));
+  x->lengthl = argc;
+
+  if (x->maskxor) {
+    freebytes(x->maskxor, x->lengthm * sizeof(t_atom));
+    x->maskxor = 0;
+    x->lengthm = 0;
+  }
+  x->lengthm = x->lengthr > x->lengthl ? x->lengthr : x->lengthl;
+  x->maskxor = getbytes(x->lengthm * sizeof(t_atom));
+
+  for(i=0;i<x->lengthm;i++)
+    {
+      if(i>=x->lengthm)
+	{
+	  listl_element = 0;
+	}
+      else
+	{
+	  listl_element = atom_getfloat(argv+i);
+	}
+      if(listl_element != 0) 
+	{
+	  x->suml++;
+	}
+      if(i>=x->lengthr) 
+	{
+	  listr_element = 0;
+	}
+      else 
+	{
+	  listr_element = atom_getfloatarg(i,x->lengthr,x->maskr);
+	}
+      xor_element = (float)((int)listl_element ^ (int)listr_element);
+      SETFLOAT(&x->maskxor[i], xor_element);
+    }
+  outlet_list(x->maskout, &s_list, x->lengthm, x->maskxor);
+}
+
+void maskxor_listr(t_maskxor *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int i;
+  x->sumr = 0;
+
+  if (x->maskr) {
+    freebytes(x->maskr, x->lengthr * sizeof(t_atom));
+    x->maskr = 0;
+    x->lengthr = 0;
+  }
+
+  x->maskr = copybytes(argv, argc * sizeof(t_atom));
+  x->lengthr = argc;
+
+
+  float listr_element;
+  for(i=0;i<argc;i++) {
+    listr_element = atom_getfloat(argv+i);
+    if(listr_element != 0)
+      {
+	x->sumr++;
+      }
+  }
+}
+
+void maskxor_mode(t_maskxor *x, t_floatarg fmode)
+{
+  x->mode = fmode;
+}
+
+void maskxor_clear(t_maskxor *x)
+{
+  int i;
+  if (x->maskl) {
+    freebytes(x->maskl, x->lengthl * sizeof(t_atom));
+    x->maskl = 0;
+    x->lengthl = 0;
+  }
+  if (x->maskr) {
+    freebytes(x->maskr, x->lengthr * sizeof(t_atom));
+    x->maskr = 0;
+    x->lengthr = 0;
+  }
+  if (x->maskxor) {
+    freebytes(x->maskxor, x->lengthm * sizeof(t_atom));
+    x->maskxor = 0;
+    x->lengthm = 0;
+  }
+
+  x->yes = x->f_in = 0;
+}
+
+void maskxor_print(t_maskxor *x)
+{
+  int i;
+  float element;
+  if (x->maskl) {
+    for(i=0;i<x->lengthl;i++) {
+      element = atom_getfloatarg(i, x->lengthl, x->maskl);
+      post("maskl element %d = %f",i,element);
+    }
+  }
+  if (x->maskr) {
+    for(i=0;i<x->lengthr;i++) {
+      element = atom_getfloatarg(i, x->lengthr, x->maskr);
+      post("maskr element %d = %f",i,element);
+    }
+  }
+  if (x->maskxor) {
+    for(i=0;i<x->lengthm;i++) {
+      element = atom_getfloatarg(i, x->lengthm, x->maskxor);
+      post("maskxor element %d = %f",i,element);
+    }
+  }
+  post("mode = %f, lengthl = %d, lengthr = %d, lengthm = %d",x->mode,x->lengthl,x->lengthr,x->lengthm);
+}
+
+void *maskxor_new(t_symbol *s, t_floatarg fmode)
+{
+  int i;
+  t_maskxor *x = (t_maskxor *)pd_new(maskxor_class);
+  x->mode = fmode != 0 ? 1 : 0;
+
+  x->maskl = 0;
+  x->lengthl = 0;
+  x->maskr = 0;
+  x->lengthr = 0;
+  x->maskxor = 0;
+  x->lengthm = 0;
+
+  x->thru = outlet_new(&x->x_obj, &s_float);
+  x->bool = outlet_new(&x->x_obj, &s_float);
+  x->maskout = outlet_new(&x->x_obj, &s_list);
+  return (void *)x;
+}
+
+void maskxor_setup(void) 
+{
+  maskxor_class = class_new(gensym("maskxor"),
+  (t_newmethod)maskxor_new,
+  0, sizeof(t_maskxor),
+  CLASS_DEFAULT, A_DEFFLOAT, 0);
+  post("|..-.--.-..-maskxor.-...--.-..|");
+  post("|    exclusive-or mask-map    |");
+  post("|.--.- Edward Kelly 2006 ---.-|");
+
+  class_addfloat(maskxor_class, maskxor_float);
+  class_addmethod(maskxor_class, (t_method)maskxor_listl, gensym("listl"), A_GIMME, 0, 0);
+  class_addmethod(maskxor_class, (t_method)maskxor_listr, gensym("listr"), A_GIMME, 0, 0);
+  class_addbang(maskxor_class, (t_method)maskxor_bang);
+  class_addmethod(maskxor_class, (t_method)maskxor_mode, gensym("mode"), A_DEFFLOAT, 0);
+  class_addmethod(maskxor_class, (t_method)maskxor_clear, gensym("clear"), A_DEFFLOAT, 0);
+  class_addmethod(maskxor_class, (t_method)maskxor_print, gensym("print"), A_DEFFLOAT, 0);
+}