[PD-cvs] pd/src x_interface.c,1.3.6.1,1.3.6.2
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Mon Nov 26 06:53:31 CET 2007
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);
}
More information about the Pd-cvs
mailing list