[PD-cvs] SF.net SVN: pure-data: [9770] trunk/externals/zexy

[zmoelnig at users.sourceforge.net]

Revision: 9770
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9770&view=rev
Author:   zmoelnig
Date:     2008-05-07 05:18:17 -0700 (Wed, 07 May 2008)

Log Message:
-----------
don't output the list in the DSP-cycle

Modified Paths:
--------------
    trunk/externals/zexy/reference/pack~-help.pd
    trunk/externals/zexy/src/pack~.c

Modified: trunk/externals/zexy/reference/pack~-help.pd
===================================================================
(Binary files differ)

Modified: trunk/externals/zexy/src/pack~.c
===================================================================
--- trunk/externals/zexy/src/pack~.c	2008-05-07 09:56:06 UTC (rev 9769)
+++ trunk/externals/zexy/src/pack~.c	2008-05-07 12:18:17 UTC (rev 9770)
@@ -28,9 +28,15 @@
 
   int vector_length;
   t_atom *buffer;
-
+  t_clock*x_clock;
+  int x_outputindsp;
 } t_sigpack;
 
+static void *sigpack_tick(t_sigpack*x)
+{
+  outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer);
+}
+
 static t_int *sigpack_perform(t_int *w)
 {
   t_sample *in = (t_sample *)(w[1]);
@@ -43,10 +49,11 @@
     SETFLOAT(&buf[i], f);
     i++;
   }
-#ifdef __GNUC__
-# warning defer list-output to next block with a clock!
-#endif
-  outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer);
+  if(x->x_outputindsp) {
+    sigpack_tick(x);
+  } else {
+    clock_delay(x->x_clock, 0);
+  }
 
   return (w+4);
 }
@@ -61,13 +68,21 @@
   dsp_add(sigpack_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
 }
 
+static void *sigpack_free(t_sigpack*x)
+{
+  clock_free(x->x_clock);
+}
+
 static void *sigpack_new(void)
 {
   t_sigpack *x = (t_sigpack *)pd_new(sigpack_class);
   x->vector_length = 0;
   x->buffer = 0;
   outlet_new(&x->x_obj, gensym("list"));
+  x->x_clock=clock_new(x, (t_method)sigpack_tick);
 
+  x->x_outputindsp=0;
+
   return (x);
 }
 
@@ -78,7 +93,7 @@
 
 void pack_tilde_setup(void)
 {
-  sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, 0,
+  sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, (t_method)sigpack_free,
                             sizeof(t_sigpack), 0, A_DEFFLOAT, 0);
   class_addmethod(sigpack_class, nullfn, gensym("signal"), 0);
   class_addmethod(sigpack_class, (t_method)sigpack_dsp, gensym("dsp"), 0);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.