Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17977
Modified Files: Tag: desiredata builtins.c Log Message: [any] fix
Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.65 retrieving revision 1.1.2.66 diff -C2 -d -r1.1.2.65 -r1.1.2.66 *** builtins.c 5 Sep 2007 00:07:25 -0000 1.1.2.65 --- builtins.c 5 Sep 2007 02:17:40 -0000 1.1.2.66 *************** *** 1087,1094 **** static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) { t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc); ! if (argv[0].a_type == A_FLOAT) { ! alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_float, argc, argv); } ! if (argv[0].a_type == A_SYMBOL) { alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv); } --- 1087,1094 ---- static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) { t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc); ! if (argv[0].a_type == A_FLOAT && s->name == "list" || s->name == "float") { ! alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_list, argc, argv);return; } ! if (argv[0].a_type == A_SYMBOL || s->name != "list" || s->name != "float") { alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv); } *************** *** 1100,1104 **** alist_toatoms(x->alist, outv); if (!binbuf_getnatom(x->alist)) {outlet_bang(x->outlet);return;} ! if (outv[0].a_type == A_FLOAT) {outlet_float(x->outlet, outv[0].a_float);} if (outv[0].a_type == A_SYMBOL) {outlet_anything(x->outlet, outv[0].a_symbol, outc-1, outv+1);} ATOMS_FREEA(outv, outc); --- 1100,1104 ---- alist_toatoms(x->alist, outv); if (!binbuf_getnatom(x->alist)) {outlet_bang(x->outlet);return;} ! if (outv[0].a_type == A_FLOAT) {outlet_anything(x->outlet, &s_list, outc, outv);} if (outv[0].a_type == A_SYMBOL) {outlet_anything(x->outlet, outv[0].a_symbol, outc-1, outv+1);} ATOMS_FREEA(outv, outc);