static void array_define_bang(t_glist *x)
{
t_glist *gl = (x->gl_list ? pd_checkglist(&x->gl_list->g_pd) : 0);
if (gl && gl->gl_list && pd_class(&gl->gl_list->g_pd) == garray_class)
{
t_gpointer gp;
gpointer_init(&gp);
gpointer_setglist(&gp, gl,
garray_getscalar((t_garray *)gl->gl_list));
outlet_pointer(x->gl_obj.ob_outlet, &gp);
gpointer_unset(&gp);
}
else bug("array_define_bang");
}
/* send a pointer to the scalar that owns this array to
whomever is bound to the given symbol */
static void array_define_send(t_glist *x, t_symbol *s)
{
t_glist *gl = (x->gl_list ? pd_checkglist(&x->gl_list->g_pd) : 0);
if (!s->s_thing)
pd_error(x, "array_define_send: %s: no such object", s->s_name);
else if (gl && gl->gl_list && pd_class(&gl->gl_list->g_pd) == garray_class)
{
t_gpointer gp;
gpointer_init(&gp);
gpointer_setglist(&gp, gl,
garray_getscalar((t_garray *)gl->gl_list));
pd_pointer(s->s_thing, &gp);
gpointer_unset(&gp);
}
else bug("array_define_send");
}
static void *pack_new(t_symbol *s, int argc, t_atom *argv)
{
#ifdef ROCKBOX
(void) s;
#endif
t_pack *x = (t_pack *)pd_new(pack_class);
t_atom defarg[2], *ap, *vec, *vp;
t_gpointer *gp;
int nptr = 0;
int i;
if (!argc)
{
argv = defarg;
argc = 2;
SETFLOAT(&defarg[0], 0);
SETFLOAT(&defarg[1], 0);
}
x->x_n = argc;
vec = x->x_vec = (t_atom *)getbytes(argc * sizeof(*x->x_vec));
x->x_outvec = (t_atom *)getbytes(argc * sizeof(*x->x_outvec));
for (i = argc, ap = argv; i--; ap++)
if (ap->a_type == A_SYMBOL && *ap->a_w.w_symbol->s_name == 'p')
nptr++;
gp = x->x_gpointer = (t_gpointer *)t_getbytes(nptr * sizeof (*gp));
x->x_nptr = nptr;
for (i = 0, vp = x->x_vec, ap = argv; i < argc; i++, ap++, vp++)
{
if (ap->a_type == A_FLOAT)
{
*vp = *ap;
if (i) floatinlet_new(&x->x_obj, &vp->a_w.w_float);
}
else if (ap->a_type == A_SYMBOL)
{
char c = *ap->a_w.w_symbol->s_name;
if (c == 's')
{
SETSYMBOL(vp, &s_symbol);
if (i) symbolinlet_new(&x->x_obj, &vp->a_w.w_symbol);
}
else if (c == 'p')
{
vp->a_type = A_POINTER;
vp->a_w.w_gpointer = gp;
gpointer_init(gp);
if (i) pointerinlet_new(&x->x_obj, gp);
gp++;
}
else
{
if (c != 'f') pd_error(x, "pack: %s: bad type",
ap->a_w.w_symbol->s_name);
SETFLOAT(vp, 0);
if (i) floatinlet_new(&x->x_obj, &vp->a_w.w_float);
}
}
}
outlet_new(&x->x_obj, &s_list);
return (x);
}
static void *pipe_new(t_symbol *s, int argc, t_atom *argv)
{
t_pipe *x = (t_pipe *)pd_new(pipe_class);
t_atom defarg, *ap;
t_pipeout *vec, *vp;
t_gpointer *gp;
int nptr = 0;
int i;
t_float deltime;
if (argc)
{
if (argv[argc-1].a_type != A_FLOAT)
{
char stupid[80];
atom_string(&argv[argc-1], stupid, 79);
pd_error(x, "pipe: %s: bad time delay value", stupid);
deltime = 0;
}
else deltime = argv[argc-1].a_w.w_float;
argc--;
}
else deltime = 0;
if (!argc)
{
argv = &defarg;
argc = 1;
SETFLOAT(&defarg, 0);
}
x->x_n = argc;
vec = x->x_vec = (t_pipeout *)getbytes(argc * sizeof(*x->x_vec));
for (i = argc, ap = argv; i--; ap++)
if (ap->a_type == A_SYMBOL && *ap->a_w.w_symbol->s_name == 'p')
nptr++;
gp = x->x_gp = (t_gpointer *)t_getbytes(nptr * sizeof (*gp));
x->x_nptr = nptr;
for (i = 0, vp = vec, ap = argv; i < argc; i++, ap++, vp++)
{
if (ap->a_type == A_FLOAT)
{
vp->p_atom = *ap;
vp->p_outlet = outlet_new(&x->x_obj, &s_float);
if (i) floatinlet_new(&x->x_obj, &vp->p_atom.a_w.w_float);
}
else if (ap->a_type == A_SYMBOL)
{
char c = *ap->a_w.w_symbol->s_name;
if (c == 's')
{
SETSYMBOL(&vp->p_atom, &s_symbol);
vp->p_outlet = outlet_new(&x->x_obj, &s_symbol);
if (i) symbolinlet_new(&x->x_obj, &vp->p_atom.a_w.w_symbol);
}
else if (c == 'p')
{
vp->p_atom.a_type = A_POINTER;
vp->p_atom.a_w.w_gpointer = gp;
gpointer_init(gp);
vp->p_outlet = outlet_new(&x->x_obj, &s_pointer);
if (i) pointerinlet_new(&x->x_obj, gp);
gp++;
}
else
{
if (c != 'f') pd_error(x, "pipe: %s: bad type",
ap->a_w.w_symbol->s_name);
SETFLOAT(&vp->p_atom, 0);
vp->p_outlet = outlet_new(&x->x_obj, &s_float);
if (i) floatinlet_new(&x->x_obj, &vp->p_atom.a_w.w_float);
}
}
}
floatinlet_new(&x->x_obj, &x->x_deltime);
x->x_hang = 0;
x->x_deltime = deltime;
return (x);
}