static void pipe_list(t_pipe *x, t_symbol *s, int ac, t_atom *av)
{
t_hang *h = (t_hang *)
getbytes(sizeof(*h) + (x->x_n - 1) * sizeof(*h->h_vec));
t_gpointer *gp, *gp2;
t_pipeout *p;
int i, n = x->x_n;
t_atom *ap;
t_word *w;
h->h_gp = (t_gpointer *)getbytes(x->x_nptr * sizeof(t_gpointer));
if (ac > n)
{
if (av[n].a_type == A_FLOAT)
x->x_deltime = av[n].a_w.w_float;
else pd_error(x, "pipe: symbol or pointer in time inlet");
ac = n;
}
for (i = 0, gp = x->x_gp, p = x->x_vec, ap = av; i < ac;
i++, p++, ap++)
{
switch (p->p_atom.a_type)
{
case A_FLOAT:
p->p_atom.a_w.w_float = atom_getfloat(ap);
break;
case A_SYMBOL:
p->p_atom.a_w.w_symbol = atom_getsymbol(ap);
break;
case A_POINTER:
gpointer_unset(gp);
if (ap->a_type != A_POINTER)
pd_error(x, "pipe: bad pointer");
else
{
*gp = *(ap->a_w.w_gpointer);
if (gp->gp_stub) gp->gp_stub->gs_refcount++;
}
gp++;
}
}
for (i = 0, gp = x->x_gp, gp2 = h->h_gp, p = x->x_vec, w = h->h_vec;
i < n; i++, p++, w++)
{
if (p->p_atom.a_type == A_POINTER)
{
if (gp->gp_stub) gp->gp_stub->gs_refcount++;
w->w_gpointer = gp2;
*gp2++ = *gp++;
}
else *w = p->p_atom.a_w;
}
h->h_next = x->x_hang;
x->x_hang = h;
h->h_owner = x;
h->h_clock = clock_new(h, (t_method)hang_tick);
clock_delay(h->h_clock, (x->x_deltime >= 0 ? x->x_deltime : 0));
}
static void pack_free(t_pack *x)
{
t_gpointer *gp;
int i;
for (gp = x->x_gpointer, i = x->x_nptr; i--; gp++)
gpointer_unset(gp);
freebytes(x->x_vec, x->x_n * sizeof(*x->x_vec));
freebytes(x->x_outvec, x->x_n * sizeof(*x->x_outvec));
freebytes(x->x_gpointer, x->x_nptr * sizeof(*x->x_gpointer));
}
static void pack_pointer(t_pack *x, t_gpointer *gp)
{
if (x->x_vec->a_type == A_POINTER)
{
gpointer_unset(x->x_gpointer);
*x->x_gpointer = *gp;
if (gp->gp_stub) gp->gp_stub->gs_refcount++;
pack_bang(x);
}
else pd_error(x, "pack_pointer: wrong type");
}
static void hang_free(t_hang *h)
{
t_pipe *x = h->h_owner;
t_gpointer *gp;
int i;
for (gp = h->h_gp, i = x->x_nptr; i--; gp++)
gpointer_unset(gp);
freebytes(h->h_gp, x->x_nptr * sizeof(*h->h_gp));
clock_free(h->h_clock);
freebytes(h, sizeof(*h) + (x->x_n - 1) * sizeof(*h->h_vec));
}
static void alist_clear(t_alist *x)
{
int i;
for (i = 0; i < x->l_n; i++)
{
if (x->l_vec[i].l_a.a_type == A_POINTER)
gpointer_unset(x->l_vec[i].l_a.a_w.w_gpointer);
}
if (x->l_vec)
freebytes(x->l_vec, x->l_n * sizeof(*x->l_vec));
}
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");
}
void outlet_pointer(t_outlet *x, t_gpointer *gp)
{
t_outconnect *oc;
t_gpointer gpointer;
char c;
if (&c < stacklimit)
outlet_stackerror(x);
else
{
#if 0
gpointer_copy(gp, &gpointer);
for (oc = x->o_connections; oc; oc = oc->oc_next)
pd_pointer(oc->oc_to, &gpointer);
gpointer_unset(&gpointer);
#else
gpointer = *gp;
for (oc = x->o_connections; oc; oc = oc->oc_next)
pd_pointer(oc->oc_to, &gpointer);
#endif
}
}
static void pointerinlet_pointer(t_inlet *x, t_gpointer *gp)
{
gpointer_unset(x->i_pointerslot);
*(x->i_pointerslot) = *gp;
if (gp->gp_stub) gp->gp_stub->gs_refcount++;
}