[PD-cvs] pd/src desire.c,1.1.2.217.2.124,1.1.2.217.2.125

[Mathieu Bouchard]

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])",