/* LATER figure out how to make these efficient: */
static void inlet_bang(t_inlet *x)
{
if (x->i_symfrom == &s_bang)
pd_vmess(x->i_dest, x->i_symto, "");
else if (!x->i_symfrom) pd_bang(x->i_dest);
else inlet_wrong(x, &s_bang);
}
void outlet_bang(t_outlet *x)
{
t_outconnect *oc;
char c;
if (&c < stacklimit)
outlet_stackerror(x);
else for (oc = x->o_connections; oc; oc = oc->oc_next)
pd_bang(oc->oc_to);
}
static void dist_bang(t_dist *x)
{
int i;
for(i = 0; i <= x->x_rec; i++)
{
if (x->x_sym[i]->s_thing) pd_bang(x->x_sym[i]->s_thing);
}
}
void bang_mousedown(t_bang *x, t_object *patcherview, t_pt pt, long modifiers)
{
x->f_active = 1;
ebox_invalidate_layer((t_ebox *)x, gensym("background_layer"));
ebox_redraw((t_ebox *)x);
outlet_bang(x->f_out);
if(ebox_getsender((t_ebox *) x))
pd_bang(ebox_getsender((t_ebox *) x));
}
static void grab_bang(t_grab *x)
{
t_pd *grabbed;
grab_start(x);
while (grabbed = grab_next(x))
{
pd_bang(grabbed);
grab_restore(x);
}
}
void outlet_bang(t_outlet *x)
{
t_outconnect *oc;
if(++stackcount >= STACKITER)
outlet_stackerror(x);
else
for (oc = x->o_connections; oc; oc = oc->oc_next)
pd_bang(oc->oc_to);
--stackcount;
}
static void bindlist_bang(t_bindlist *x)
{
t_bindelem *e;
change_bindlist_via_graph = 1;
for (e = x->b_list; e; e = e->e_next)
if (e->e_who != NULL) pd_bang(e->e_who);
if (change_bindlist_via_graph > 1)
bindlist_cleanup(x);
change_bindlist_via_graph = 0;
}
void outlet_bang(t_outlet *x)
{
t_outconnect *oc;
if(++stackcount >= STACKITER)
outlet_stackerror(x);
else //02/23/2010 crashes at first iteration
for (oc = x->o_connections; oc; oc = oc->oc_next)
pd_bang(oc->oc_to);
--stackcount;
}
void bang_output(t_bang *x, t_symbol* s, long argc, t_atom* argv)
{
x->f_active = 1;
ebox_invalidate_layer((t_ebox *)x, gensym("background_layer"));
ebox_redraw((t_ebox *)x);
outlet_bang(x->f_out);
if(ebox_getsender((t_ebox *) x))
pd_bang(ebox_getsender((t_ebox *) x));
clock_delay(x->f_clock, 100);
}
static void maxmode_bang(t_maxmode *x)
{
if (maxmode_dproxy)
pd_bang(maxmode_dproxy);
else
post("no replacement abstractions");
if (maxmode_lastndx > maxmode_dummiesndx)
fragile_class_printnames("dummies are: ",
maxmode_dummiesndx, maxmode_lastndx);
else
post("no dummies");
}
int libpd_bang(const char *recv) {
void *obj;
sys_lock();
obj = get_object(recv);
if (obj == NULL)
{
sys_unlock();
return -1;
}
pd_bang(obj);
sys_unlock();
return 0;
}
static void new_inlet_bang(t_inlet *x)
{
if (x->i_symfrom == &s_bang)
pd_vmess(x->i_dest, x->i_un.iu_symto, "");
else if (!x->i_symfrom)
pd_bang(x->i_dest);
else if (x->i_symfrom == &s_list)
new_inlet_list(x, &s_bang, 0, 0);
else if (*x->i_dest == eproxy_class)
{
t_eproxy* proxy = (t_eproxy *)x->i_dest;
t_eobj *z = (t_eobj *)proxy->p_owner;
z->o_current_proxy = proxy->p_index;
pd_typedmess((t_pd *)proxy->p_owner, &s_bang, 0, NULL);
z->o_current_proxy = 0;
}
else inlet_wrong(x, &s_bang);
}
static void imagebang_bang(t_imagebang *x)
{
t_glist* glist = glist_getcanvas(x->glist);
if(x->flashing) {
sys_vgui(".x%lx.c itemconfigure %lximage -image %lx_imagebang \n", glist, x,x->image_a);
clock_delay(x->clock_brk, x->clockbrk);
//x->flashed = 1;
} else {
sys_vgui(".x%lx.c itemconfigure %lximage -image %lx_imagebang \n", glist, x,x->image_b);
x->flashing = 1;
}
clock_delay(x->clock_flash, x->clockflash);
outlet_bang(x->outlet);
if(x->send && x->send->s_thing ) pd_bang(x->send->s_thing);
}
static void send_bang(t_send *x)
{
if (x->x_sym->s_thing) pd_bang(x->x_sym->s_thing);
}
static void eproxy_bang(t_eproxy *x)
{
t_eobj *z = (t_eobj *)x->p_owner;
z->o_current_proxy = x->p_index;
pd_bang((t_pd *)x->p_owner);
}
static void iem_send_kernel_bang(t_iem_send_kernel *x)
{
if(x->x_sym->s_thing)
pd_bang(x->x_sym->s_thing);
}
static void bindlist_bang(t_bindlist *x)
{
t_bindelem *e;
for (e = x->b_list; e; e = e->e_next)
pd_bang(e->e_who);
}
static void iem_send_bang(t_iem_send *x)
{
if(x->x_send_label_sym)
if(x->x_send_label_sym->s_thing)
pd_bang(x->x_send_label_sym->s_thing);
}