aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/packel.c99
1 files changed, 74 insertions, 25 deletions
diff --git a/src/packel.c b/src/packel.c
index ce4a185..f56f2c8 100644
--- a/src/packel.c
+++ b/src/packel.c
@@ -34,19 +34,27 @@ static t_class *packel_class;
typedef struct _packel
{
t_object x_obj;
- t_float position;
+ t_float *position;
+ int count;
+
+ t_inlet**x_inlet;
+ t_outlet**x_outlet;
+
+ int x_warningflag;
} t_packel;
-static void packel_list(t_packel *x, t_symbol *s, int argc, t_atom *argv)
-{
- int mypos = x->position;
- if (mypos) {
+static void packel_outelement(t_packel*x, int id, t_symbol*s,int argc, t_atom*argv)
+{
+ t_outlet*out=x->x_outlet[id];
+ int index= x->position[id];
+
+ if (index) {
t_atom *current;
- int pos = (mypos < 0)?(argc+mypos):(mypos-1);
+ int pos = (index < 0)?(argc+index):(index-1);
if(argc==0){
- if (pos==0||pos==-1)outlet_bang(x->x_obj.ob_outlet);
+ if (pos==0||pos==-1)outlet_bang(out);
return;
}
@@ -55,21 +63,20 @@ static void packel_list(t_packel *x, t_symbol *s, int argc, t_atom *argv)
current = &(argv[pos]);
switch (current->a_type) {
- case A_FLOAT:
- outlet_float(x->x_obj.ob_outlet, atom_getfloat(current));
- break;
- case A_SYMBOL:
- outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(current));
- break;
- case A_POINTER:
- outlet_pointer(x->x_obj.ob_outlet, current->a_w.w_gpointer);
- break;
case A_NULL:
- outlet_bang(x->x_obj.ob_outlet);
+ outlet_bang(out);
default:
- ;
+ outlet_list(out, gensym("list"), 1, current);
}
- } else outlet_list(x->x_obj.ob_outlet, s, argc, argv);
+ } else outlet_list(out, s, argc, argv);
+}
+
+static void packel_list(t_packel *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int c=x->count;
+ while(--c>=0) {
+ packel_outelement(x, c, s, argc, argv);
+ }
}
static void packel_anything(t_packel *x, t_symbol *s, int argc, t_atom *argv)
@@ -77,6 +84,11 @@ static void packel_anything(t_packel *x, t_symbol *s, int argc, t_atom *argv)
t_atom *av2 = (t_atom *)getbytes((argc + 1) * sizeof(t_atom));
int i;
+ if(x->x_warningflag){
+ pd_error(x, "deprecation warning: you should only use lists for list data");
+ x->x_warningflag=0;
+ }
+
for (i = 0; i < argc; i++)
av2[i + 1] = argv[i];
SETSYMBOL(av2, s);
@@ -84,20 +96,57 @@ static void packel_anything(t_packel *x, t_symbol *s, int argc, t_atom *argv)
freebytes(av2, (argc + 1) * sizeof(t_atom));
}
-static void *packel_new(t_floatarg f)
+
+static void packel_free(t_packel *x)
+{
+ int i=0;
+
+ for(i=0; i<x->count; i++) {
+ if(x->x_inlet &&x->x_inlet [i])inlet_free (x->x_inlet [i]);
+ if(x->x_outlet&&x->x_outlet[i])outlet_free(x->x_outlet[i]);
+ }
+
+ if(x->position)freebytes(x->position, x->count*sizeof(t_float));
+ if(x->x_inlet) freebytes(x->x_inlet, x->count*sizeof(t_inlet*));
+ if(x->x_outlet) freebytes(x->x_outlet, x->count*sizeof(t_outlet*));
+
+}
+
+
+static void *packel_new(t_symbol*s, int argc, t_atom*argv)
{
t_packel *x = (t_packel *)pd_new(packel_class);
- outlet_new(&x->x_obj, 0);
- floatinlet_new(&x->x_obj, &x->position);
- x->position = (int) f;
+
+ x->count=(argc>0)?argc:1;
+
+ x->position=(t_float*)getbytes(x->count*sizeof(t_float));
+ x->x_inlet=(t_inlet**)getbytes(x->count*sizeof(t_inlet*));
+ x->x_outlet=(t_outlet**)getbytes(x->count*sizeof(t_outlet*));
+
+ if(argc<1) {
+ x->position[0]=0.f;
+ x->x_inlet[0]=floatinlet_new(&x->x_obj, x->position);
+ x->x_outlet[0]=outlet_new(&x->x_obj, 0);
+ } else {
+ int i=0;
+ for(i=0; i<x->count; i++) {
+ x->position[i]=atom_getfloat(argv+i);
+ x->x_inlet [i]=floatinlet_new(&x->x_obj, x->position+i);
+ x->x_outlet [i]=outlet_new(&x->x_obj, 0);
+ }
+ }
+ x->x_warningflag=1;
+
return (x);
}
void packel_setup(void)
{
- packel_class = class_new(gensym("packel"), (t_newmethod)packel_new,
- 0, sizeof(t_packel), 0, A_DEFFLOAT, 0);
+ packel_class = class_new(gensym("packel"),
+ (t_newmethod)packel_new, (t_method)packel_free,
+ sizeof(t_packel), 0,
+ A_GIMME, 0);
class_addlist (packel_class, packel_list);
class_addanything(packel_class, packel_anything);