void hoa_scope_deprecated(t_hoa_scope* x, t_symbol *s, long ac, t_atom* av)
{
if(atoms_has_attribute(ac, av, gensym("@drawcircle")) || (s && s == gensym("drawcircle")))
object_error(x, "%s attribute @drawcircle is deprecated.", eobj_getclassname(x)->s_name);
if(atoms_has_attribute(ac, av, gensym("@drawangles")) || (s && s == gensym("drawangles")))
object_error(x, "%s attribute @drawangles is deprecated.", eobj_getclassname(x)->s_name);
if(atoms_has_attribute(ac, av, gensym("@drawcontrib")) || (s && s == gensym("drawcontrib")))
object_error(x, "%s attribute @drawcontrib is deprecated.", eobj_getclassname(x)->s_name);
}
t_pd_err binbuf_has_attribute(t_binbuf *d, t_symbol *key)
{
if(d)
return atoms_has_attribute(binbuf_getnatom(d), binbuf_getvec(d), key);
else
return -1;
}
void hoa_meter_deprecated(t_hoa_meter* x, t_symbol *s, long ac, t_atom* av)
{
t_atom* argv;
long argc;
if(s && s == gensym("loudspeakers") && ac && av)
{
object_error(x, "%s attribute @loudspeakers is deprecated, please use @channels.", eobj_getclassname(x)->s_name);
channels_set(x, NULL, ac, av);
}
if(s && s == gensym("bordercolor") && ac && av)
{
object_attr_setvalueof((t_object *)x, gensym("bdcolor"), ac, av);
object_error(x, "%s attribute @bordercolor is deprecated, please use @bdcolor.", eobj_getclassname(x)->s_name);
}
atoms_get_attribute(ac, av, gensym("@loudspeakers"), &argc, &argv);
if(argc && argv)
{
object_error(x, "%s attribute @loudspeakers is deprecated, please use @channels.", eobj_getclassname(x)->s_name);
channels_set(x, NULL, argc, argv);
argc = 0;free(argv);argv = NULL;
}
atoms_get_attribute(ac, av, gensym("@bordercolor"), &argc, &argv);
if(argc && argv)
{
object_attr_setvalueof((t_object *)x, gensym("bdcolor"), argc, argv);
object_error(x, "%s attribute @bordercolor is deprecated, please use @bdcolor.", eobj_getclassname(x)->s_name);
argc = 0;free(argv);argv = NULL;
}
if((s && s == gensym("mbgcolor")) || atoms_has_attribute(ac, av, gensym("@mbgcolor")))
{
object_error(x, "%s attribute @mbgcolor is deprecated.", eobj_getclassname(x)->s_name);
argc = 0;free(argv);argv = NULL;
}
}
