aboutsummaryrefslogtreecommitdiff
path: root/modules/pdp_del.c
diff options
context:
space:
mode:
authorTom Schouten <doelie@users.sourceforge.net>2003-01-21 10:27:33 +0000
committerTom Schouten <doelie@users.sourceforge.net>2003-01-21 10:27:33 +0000
commit9b8745d5250c9d0b60c9aa5a77f58a3fcddf1076 (patch)
tree8372b6a414a7124cec57efc9c80845e2bc1b157d /modules/pdp_del.c
This commit was generated by cvs2svn to compensate for changes in r352,svn2git-root
which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/pdp/; revision=353
Diffstat (limited to 'modules/pdp_del.c')
-rw-r--r--modules/pdp_del.c196
1 files changed, 196 insertions, 0 deletions
diff --git a/modules/pdp_del.c b/modules/pdp_del.c
new file mode 100644
index 0000000..97e47fd
--- /dev/null
+++ b/modules/pdp_del.c
@@ -0,0 +1,196 @@
+/*
+ * Pure Data Packet module.
+ * Copyright (c) by Tom Schouten <pdp@zzz.kotnet.org>
+ *
+ * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ */
+
+
+
+#include "pdp.h"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+typedef struct pdp_del_struct
+{
+ t_object x_obj;
+ t_float x_f;
+
+ t_outlet *x_outlet0;
+
+ int *x_packet;
+ int x_order;
+ int x_head;
+ int x_delay;
+} t_pdp_del;
+
+
+
+
+
+static void pdp_del_input_0(t_pdp_del *x, t_symbol *s, t_floatarg f)
+{
+ int in;
+ int out;
+ int packet;
+
+
+ /* if this is a register_ro message or register_rw message, register with packet factory */
+ /* if this is a process message, start the processing + propagate stuff to outputs */
+
+ if (s == gensym("register_ro")){
+ in = (x->x_head & (x->x_order-1));
+ //post("pdp_del: marking unused packed id=%d on loc %d", x->x_packet[0], in);
+ pdp_packet_mark_unused(x->x_packet[in]);
+ packet = pdp_packet_copy_ro((int)f);
+ x->x_packet[in] = packet;
+ //post("pdp_del: writing packed id=%d on loc %d", packet, in);
+ }
+ else if (s == gensym("process")){
+ out = ((x->x_head + x->x_delay) & (x->x_order-1));
+ packet = x->x_packet[out];
+
+ if (-1 != packet){
+ //post("pdp_del: packet %d has id %d", out, packet);
+ pdp_packet_mark_unused(packet);
+ outlet_pdp(x->x_outlet0, packet);
+ x->x_packet[out] = -1;
+ }
+ else {
+ //post("pdp_del: packet %d is empty", out);
+ }
+ x->x_head--;
+ }
+
+
+}
+
+
+
+
+
+static void pdp_del_delay(t_pdp_del *x, t_floatarg fdel)
+{
+ int del = (int)fdel;
+ if (del < 0) del = 0;
+ if (del >= x->x_order) del = x->x_order - 1;
+
+ x->x_delay = del;
+
+}
+
+static void pdp_del_reset(t_pdp_del *x)
+{
+ int i;
+ for (i=0; i<x->x_order; i++) {
+ pdp_packet_mark_unused(x->x_packet[i]);
+ x->x_packet[i] = -1;
+ }
+ x->x_head = 0;
+
+}
+
+static void pdp_del_free(t_pdp_del *x)
+{
+ pdp_del_reset(x);
+ free (x->x_packet);
+}
+
+t_class *pdp_del_class;
+
+
+
+void *pdp_del_new(t_floatarg forder, t_floatarg fdel)
+{
+ int order = (int)forder;
+ int del;
+ int logorder;
+ int i;
+ t_pdp_del *x = (t_pdp_del *)pd_new(pdp_del_class);
+
+
+ del = order;
+ order++;
+
+ if (del < 0) del = 0;
+
+
+ if (order <= 2) order = 2;
+ else {
+
+ order--;
+ logorder = 1;
+
+
+ while ((order | 1) != 1) {
+ order >>= 1;
+ logorder++;
+ }
+
+ order = 1 << logorder;
+ }
+
+ post("pdp_del: order = %d", order);
+
+ x->x_order = order;
+ x->x_packet = (int *)malloc(sizeof(int)*order);
+ for(i=0; i<order; i++) x->x_packet[i] = -1;
+
+ x->x_delay = del;
+
+
+ inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("delay"));
+
+ x->x_outlet0 = outlet_new(&x->x_obj, &s_anything);
+
+
+ return (void *)x;
+}
+
+
+#ifdef __cplusplus
+extern "C"
+{
+#endif
+
+
+void pdp_del_setup(void)
+{
+
+
+ pdp_del_class = class_new(gensym("pdp_del"), (t_newmethod)pdp_del_new,
+ (t_method)pdp_del_free, sizeof(t_pdp_del), 0, A_DEFFLOAT, A_NULL);
+
+ class_addmethod(pdp_del_class, (t_method)pdp_del_input_0, gensym("pdp"), A_SYMBOL, A_DEFFLOAT, A_NULL);
+ class_addmethod(pdp_del_class, (t_method)pdp_del_delay, gensym("delay"), A_DEFFLOAT, A_NULL);
+ class_addmethod(pdp_del_class, (t_method)pdp_del_reset, gensym("reset"), A_NULL);
+
+}
+
+#ifdef __cplusplus
+}
+#endif