zexy-2.0:

- use of abstractions for objects that allow it
- some objects are build both as externals and abstractions (as slower fallbacks)
- code-layout is now 1:1 c-file<->object (this should allow for building of zexy as  a collection of externals instead as a big library)
- matrix-objects have moved to iemmatrix !!

svn path=/trunk/externals/zexy/; revision=2641

1 files changed, 182 insertions, 0 deletions

diff --git a/src/repack.c b/src/repack.c
new file mode 100644
index 0000000..c7b527b
--- /dev/null
+++ b/src/repack.c
@@ -0,0 +1,182 @@
+/******************************************************
+ *
+ * zexy - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   1999:forum::für::umläute:2004
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+/* 3108:forum::für::umläute:2000 */
+
+/* objects for manipulating packages*/
+
+/*
+  repack    : (re)pack floats/symbols/pointers to fixed-length packages
+*/
+
+#include "zexy.h"
+#include <string.h>
+#include <memory.h>
+
+
+/* -------------------- repack ------------------------------ */
+
+/*
+(re)pack a sequence of (packages of) atoms into a package of given length
+
+"bang" gives out the current package immediately
+the second inlet lets you change the default package size
+*/
+
+static t_class *repack_class;
+
+typedef struct _repack
+{
+  t_object x_obj;
+  t_atom  *buffer;
+  int      bufsize;
+
+  int      outputsize;
+  int      current;
+} t_repack;
+
+
+static void repack_set(t_repack *x, t_float f)
+{
+  /* set the new default size */
+  int n = f;
+
+  if (n > 0) {
+
+    /* flush all the newsized packages that are in the buffer */
+    t_atom *dumbuf = x->buffer;
+    int     dumcur = x->current;
+
+    while (n <= dumcur) {
+      outlet_list(x->x_obj.ob_outlet, gensym("list"), n, dumbuf);
+      dumcur -= n;
+      dumbuf += n;
+    }
+
+    if (dumcur < 0) error("this should never happen :: dumcur = %d < 0", dumcur);
+    else {
+      memcpy(x->buffer, dumbuf, dumcur * sizeof(t_atom));
+      x->current = dumcur;
+    }
+	 
+    if (n > x->bufsize) {
+      dumbuf = (t_atom *)getbytes(n * sizeof(t_atom));
+      memcpy(dumbuf, x->buffer, x->current * sizeof(t_atom));
+      freebytes(x->buffer, x->bufsize * sizeof(t_atom));
+      x->buffer =  dumbuf;
+      x->bufsize = n;
+    }
+    
+    x->outputsize = n;
+  }
+}
+
+static void repack_bang(t_repack *x)
+{
+  /* output the list as far as we are now */
+  outlet_list(x->x_obj.ob_outlet, gensym("list"), x->current, x->buffer);
+  x->current = 0;
+}
+
+static void repack_float(t_repack *x, t_float f)
+{
+  /* add a float-atom to the list */
+  SETFLOAT(&x->buffer[x->current], f);
+  x->current++;
+  if (x->current >= x->outputsize) repack_bang(x);
+}
+
+static void repack_symbol(t_repack *x, t_symbol *s)
+{
+  /* add a sym-atom to the list */
+  SETSYMBOL(&x->buffer[x->current], s);
+  x->current++;
+  if (x->current >= x->outputsize) repack_bang(x);
+}
+static void repack_pointer(t_repack *x, t_gpointer *p)
+{
+  /* add a pointer-atom to the list */
+  SETPOINTER(&x->buffer[x->current], p);
+  x->current++;
+  if (x->current >= x->outputsize) repack_bang(x);
+}
+static void repack_list(t_repack *x, t_symbol *s, int argc, t_atom *argv)
+{
+  int remain = x->outputsize - x->current;
+  t_atom *ap = argv;
+
+  if (argc >= remain) {
+    memcpy(x->buffer+x->current, ap, remain * sizeof(t_atom));
+    ap   += remain;
+    argc -= remain;
+    outlet_list(x->x_obj.ob_outlet, gensym("list"), x->outputsize, x->buffer);
+    x->current = 0;
+  }
+
+  while (argc >= x->outputsize) {
+    outlet_list(x->x_obj.ob_outlet, gensym("list"), x->outputsize, ap);
+    ap += x->outputsize;
+    argc -= x->outputsize;
+  }
+
+  memcpy(x->buffer + x->current, ap, argc * sizeof(t_atom));
+  x->current += argc;
+}
+static void repack_anything(t_repack *x, t_symbol *s, int argc, t_atom *argv)
+{
+  SETSYMBOL(&x->buffer[x->current], s);
+  x->current++;
+
+  if (x->current >= x->outputsize) {
+    repack_bang(x);
+  }
+  repack_list(x, gensym("list"), argc, argv);
+}
+
+static void *repack_new(t_floatarg f)
+{
+  t_repack *x = (t_repack *)pd_new(repack_class);
+
+
+
+  x->outputsize = x->bufsize = (f>0.f)?f:2 ;
+  x->current = 0;
+
+
+  x->buffer = (t_atom *)getbytes(x->bufsize * sizeof(t_atom));
+
+  inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym(""));
+  outlet_new(&x->x_obj, 0);
+
+  return (x);
+}
+
+void repack_setup(void)
+{
+  repack_class = class_new(gensym("repack"), (t_newmethod)repack_new, 
+			   0, sizeof(t_repack), 0, A_DEFFLOAT, 0);
+  
+  class_addbang    (repack_class, repack_bang);
+  class_addfloat   (repack_class, repack_float);
+  class_addsymbol  (repack_class, repack_symbol);
+  class_addpointer (repack_class, repack_pointer);
+  class_addlist    (repack_class, repack_list);
+  class_addanything(repack_class, repack_anything);
+  class_addmethod  (repack_class, (t_method)repack_set, gensym(""), A_DEFFLOAT, 0);
+
+  class_sethelpsymbol(repack_class, gensym("zexy/repack"));
+  zexy_register("repack");
+}