[PD-cvs] pd/src desire.c, 1.1.2.217.2.215, 1.1.2.217.2.216 desire.h, 1.1.2.49.2.44, 1.1.2.49.2.45 kernel.c, 1.1.2.85, 1.1.2.86

Mathieu Bouchard matju at users.sourceforge.net
Fri Aug 17 10:23:44 CEST 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16044

Modified Files:
      Tag: desiredata
	desire.c desire.h kernel.c 
Log Message:
introducing gstack_empty()


Index: kernel.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v
retrieving revision 1.1.2.85
retrieving revision 1.1.2.86
diff -C2 -d -r1.1.2.85 -r1.1.2.86
*** kernel.c	15 Aug 2007 19:22:14 -0000	1.1.2.85
--- kernel.c	17 Aug 2007 08:23:42 -0000	1.1.2.86
***************
*** 247,253 ****
  }
  
! /* deal with several objects bound to the same symbol.  If more than one, we
! actually bind a collection object to the symbol, which forwards messages sent
! to the symbol. */
  
  static t_class *bindlist_class;
--- 247,252 ----
  }
  
! /* deal with several objects bound to the same symbol.  If more than one,
!    we actually bind a collection object to the symbol, which forwards messages sent to the symbol. */
  
  static t_class *bindlist_class;
***************
*** 263,278 ****
  
  #define bind_each(e,x) for (t_bindelem *e = x->list; e; e = e->next)
! static void bindlist_bang(t_bindlist *x) {
!     bind_each(e,x) pd_bang(e->who);}
! static void bindlist_float(t_bindlist *x, t_float f) {
!     bind_each(e,x) pd_float(e->who, f);}
! static void bindlist_symbol(t_bindlist *x, t_symbol *s) {
!     bind_each(e,x) pd_symbol(e->who, s);}
! static void bindlist_pointer(t_bindlist *x, t_gpointer *gp) {
!     bind_each(e,x) pd_pointer(e->who, gp);}
! static void bindlist_list(t_bindlist *x, t_symbol *s, int argc, t_atom *argv) {
!     bind_each(e,x) pd_list(e->who, s, argc, argv);}
! static void bindlist_anything(t_bindlist *x, t_symbol *s, int argc, t_atom *argv) {
!     bind_each(e,x) pd_typedmess(e->who, s, argc, argv);}
  
  static t_bindelem *bindelem_new(t_pd *who, t_bindelem *next) {
--- 262,271 ----
  
  #define bind_each(e,x) for (t_bindelem *e = x->list; e; e = e->next)
! static void bindlist_bang    (t_bindlist *x)              {bind_each(e,x)   pd_bang(e->who);}
! static void bindlist_float   (t_bindlist *x, t_float f)   {bind_each(e,x)  pd_float(e->who,f);}
! static void bindlist_symbol  (t_bindlist *x, t_symbol *s) {bind_each(e,x) pd_symbol(e->who,s);}
! static void bindlist_pointer (t_bindlist *x, t_gpointer *gp)                      {bind_each(e,x)   pd_pointer(e->who, gp);}
! static void bindlist_list    (t_bindlist *x, t_symbol *s, int argc, t_atom *argv) {bind_each(e,x)      pd_list(e->who, s,argc,argv);}
! static void bindlist_anything(t_bindlist *x, t_symbol *s, int argc, t_atom *argv) {bind_each(e,x) pd_typedmess(e->who, s,argc,argv);}
  
  static t_bindelem *bindelem_new(t_pd *who, t_bindelem *next) {
***************
*** 356,361 ****
      return 0;
  }
  
! long canvas_base_o_index(void) {
      return gstack_head ? gstack_head->base_o_index : 0;
  }
--- 349,356 ----
      return 0;
  }
+  
+ int gstack_empty() {return !gstack_head;}
  
! long canvas_base_o_index() {
      return gstack_head ? gstack_head->base_o_index : 0;
  }

Index: desire.h
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.h,v
retrieving revision 1.1.2.49.2.44
retrieving revision 1.1.2.49.2.45
diff -C2 -d -r1.1.2.49.2.44 -r1.1.2.49.2.45
*** desire.h	15 Aug 2007 23:34:07 -0000	1.1.2.49.2.44
--- desire.h	17 Aug 2007 08:23:42 -0000	1.1.2.49.2.45
***************
*** 351,353 ****
--- 351,355 ----
  EXTERN int pd_stackn;
  
+ EXTERN int gstack_empty(); /* that's a completely different stack: see pd_pushsym,pd_popsym */
+ 
  #endif /* __DESIRE_H */

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.215
retrieving revision 1.1.2.217.2.216
diff -C2 -d -r1.1.2.217.2.215 -r1.1.2.217.2.216
*** desire.c	17 Aug 2007 07:49:09 -0000	1.1.2.217.2.215
--- desire.c	17 Aug 2007 08:23:38 -0000	1.1.2.217.2.216
***************
*** 663,667 ****
  }
  
! int canvas_isvisible(t_canvas *x) {return !x->loading && canvas_getcanvas(x)->havewindow;}
  
  /* we consider a graph "toplevel" if it has its own window or if it appears as a box in its parent window
--- 663,667 ----
  }
  
! int canvas_isvisible(t_canvas *x) {return gstack_empty() && canvas_getcanvas(x)->havewindow;}
  
  /* we consider a graph "toplevel" if it has its own window or if it appears as a box in its parent window
***************
*** 2083,2092 ****
  static t_inlet *canvas_addinlet(t_canvas *x, t_pd *who, t_symbol *s, t_symbol* h) {
      t_inlet *ip = inlet_new(x,who,s,0); inlet_settip(ip,h);
!     if (!x->loading) canvas_resortinlets(x);
      gobj_changed(x,0); return ip;
  }
  static t_outlet *canvas_addoutlet(t_canvas *x, t_pd *who, t_symbol *s) {
      t_outlet *op = outlet_new(x,s);
!     if (!x->loading) canvas_resortoutlets(x);
      gobj_changed(x,0); return op;
  }
--- 2083,2092 ----
  static t_inlet *canvas_addinlet(t_canvas *x, t_pd *who, t_symbol *s, t_symbol* h) {
      t_inlet *ip = inlet_new(x,who,s,0); inlet_settip(ip,h);
!     if (gstack_empty()) canvas_resortinlets(x);
      gobj_changed(x,0); return ip;
  }
  static t_outlet *canvas_addoutlet(t_canvas *x, t_pd *who, t_symbol *s) {
      t_outlet *op = outlet_new(x,s);
!     if (gstack_empty()) canvas_resortoutlets(x);
      gobj_changed(x,0); return op;
  }





More information about the Pd-cvs mailing list