pd/src x_interface.c,1.3.6.1,1.3.6.2 - Pd-cvs

26 Nov 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);
  }