[PD-cvs] externals/iemlib/iemlib2/src iem_sel_any.c,1.1,1.2
musil
tmusil at users.sourceforge.net
Thu Nov 8 16:56:14 CET 2007
Update of /cvsroot/pure-data/externals/iemlib/iemlib2/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26377
Modified Files:
iem_sel_any.c
Log Message:
add old method set_item_name to make it compatible
Index: iem_sel_any.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/iemlib2/src/iem_sel_any.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_sel_any.c 9 Dec 2006 01:57:51 -0000 1.1
--- iem_sel_any.c 8 Nov 2007 15:56:12 -0000 1.2
***************
*** 69,72 ****
--- 69,95 ----
}
+ static void iem_sel_any_set_item_name(t_iem_sel_any *x, t_symbol *s, int ac, t_atom *av)
+ {
+ if((ac >= 2) && (IS_A_FLOAT(av, 1)))
+ {
+ int i = (int)atom_getintarg(1, ac, av);
+
+ if((i >= 0) && (i < x->x_max_ac))
+ {
+ if(IS_A_SYMBOL(av, 0))
+ x->x_any[i] = atom_getsymbolarg(0, ac, av);
+ else if(IS_A_FLOAT(av, 0))
+ {
+ char str[100];
+
+ sprintf(str, "%g", atom_getfloatarg(0, ac, av));
+ x->x_any[i] = gensym(str);
+ }
+ if(i >= x->x_ac)
+ x->x_ac = i+1;
+ }
+ }
+ }
+
static void iem_sel_any_clear(t_iem_sel_any *x)
{
***************
*** 103,106 ****
--- 126,130 ----
(t_method)iem_sel_any_free, sizeof(t_iem_sel_any), 0, A_DEFFLOAT, 0);
class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_add, gensym("add"), A_GIMME, 0);
+ class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_set_item_name, gensym("set_item_name"), A_GIMME, 0);
class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_clear, gensym("clear"), 0);
class_addfloat(iem_sel_any_class, (t_method)iem_sel_any_float);
More information about the Pd-cvs
mailing list