Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25934
Modified Files: Tag: branch-v0-40-extended x_interface.c Log Message: made print use whatever arguments as the identifier in the Pd-window posts
Index: x_interface.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_interface.c,v retrieving revision 1.3.6.1 retrieving revision 1.3.6.2 diff -C2 -d -r1.3.6.1 -r1.3.6.2 *** x_interface.c 25 Nov 2007 03:31:05 -0000 1.3.6.1 --- x_interface.c 26 Nov 2007 05:53:29 -0000 1.3.6.2 *************** *** 18,27 **** static void *print_new(t_symbol *s, int argc, t_atom *argv) { t_print *x = (t_print *)pd_new(print_class); ! x->x_sym = atom_getsymbolarg(0,argc,argv); ! if (x->x_sym == &s_) ! x->x_sym = atom_getfloatarg(0,argc,argv); ! if (*s->s_name) x->x_sym = s; ! else x->x_sym = gensym("print"); return (x); } --- 18,36 ---- static void *print_new(t_symbol *s, int argc, t_atom *argv) { + int bufsize; + char *buf; t_print *x = (t_print *)pd_new(print_class); ! if (*s->s_name) ! { ! t_binbuf *bb = binbuf_new(); ! binbuf_add(bb, argc, argv); ! binbuf_gettext(bb, &buf, &bufsize); ! x->x_sym = gensym(buf); ! binbuf_free(bb); ! } ! else ! { ! x->x_sym = gensym("print"); ! } return (x); }