Example #1
0
static void pack_list(t_pack *x, t_symbol *s, int ac, t_atom *av)
{
	if (ac==0)
		pack_bang(x);
	else
	    obj_list(&x->x_obj, 0, ac, av);
}
Example #2
0
static void pack_symbol(t_pack *x, t_symbol *s)
{
    if (x->x_vec->a_type == A_SYMBOL)
    {
    	x->x_vec->a_w.w_symbol = s;
    	pack_bang(x);
    }
    else pd_error(x, "pack_symbol: wrong type");
}
Example #3
0
static void pack_float(t_pack *x, t_float f)
{
    if (x->x_vec->a_type == A_FLOAT)
    {
    	x->x_vec->a_w.w_float = f;
    	pack_bang(x);
    }
    else pd_error(x, "pack_float: wrong type");
}
Example #4
0
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");
}