Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15346
Modified Files: Tag: desiredata desire.c Log Message: pd object_table also shows number of observers
Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.124 retrieving revision 1.1.2.217.2.125 diff -C2 -d -r1.1.2.217.2.124 -r1.1.2.217.2.125 *** desire.c 11 Jan 2007 19:00:57 -0000 1.1.2.217.2.124 --- desire.c 11 Jan 2007 19:29:37 -0000 1.1.2.217.2.125 *************** *** 7671,7675 **** extern t_hash *object_table;
! static void glob_object_table(void) { t_symbol *s_inlet = gensym("inlet"); t_symbol *s___list = gensym("__list"); --- 7671,7675 ---- extern t_hash *object_table;
! static void glob_object_table() { t_symbol *s_inlet = gensym("inlet"); t_symbol *s___list = gensym("__list"); *************** *** 7682,7695 **** if (x->_class->name == s_inlet) {inlets++; continue;} if (x->_class->name == s___list) {lists++; continue;} ! if (x->_class->patchable) { ! t_binbuf *b = ((t_text *)x)->binbuf; ! if (b) { ! char *buf; int bufn; ! binbuf_gettext(b,&buf,&bufn); ! post(" %p %ld %s [%.*s]",k,(long)v,x->_class->name->name,bufn,buf); ! continue; ! } ! } ! post(" %p %ld %s",k,(long)v,x->_class->name->name); } post("} (%d non-omitted objects, plus %d [inlet], plus %d [__list])", --- 7682,7692 ---- if (x->_class->name == s_inlet) {inlets++; continue;} if (x->_class->name == s___list) {lists++; continue;} ! int nobs = x->_class->gobj ? ((t_gobj *)x)->dix->nobs : 0; ! t_binbuf *b; ! if (x->_class->patchable && (b = ((t_text *)x)->binbuf)) { ! char *buf; int bufn; ! binbuf_gettext(b,&buf,&bufn); ! post(" %p %ld (%dobs) %s [%.*s]",k,(long)v,nobs,x->_class->name->name,bufn,buf); ! } else post(" %p %ld (%dobs) %s",k,(long)v,nobs,x->_class->name->name); } post("} (%d non-omitted objects, plus %d [inlet], plus %d [__list])",