[PD-cvs] pd/src desire.c,1.1.2.53,1.1.2.54

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.c 
Log Message:
reformatting some of the struct/scalar code


Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.53
retrieving revision 1.1.2.54
diff -C2 -d -r1.1.2.53 -r1.1.2.54
*** desire.c	12 Nov 2005 19:46:33 -0000	1.1.2.53
--- desire.c	15 Nov 2005 18:49:58 -0000	1.1.2.54
***************
*** 5650,5655 ****
      {
          error("graph: empty bounds rectangle");
!         x1 = y1 = 0;
!         x2 = y2 = 1;
      }
      glist_redraw(x);
--- 5650,5655 ----
      {
          error("graph: empty bounds rectangle");
!         x->gl_x1 = x->gl_y1 = 0;
[...1856 lines suppressed...]
  static void sublist_setup(void)
--- 10780,10797 ----
      int onset, type;
      t_word *w;
!     if (!template) {pd_error(x, "sublist: couldn't find template %s", templatesym->s_name); return;}
!     if (!gpointer_check(gp, 0)) {pd_error(x, "get: stale or empty pointer"); return;}
!     if (!template_find_field(template, x->x_fieldsym, &onset, &type, &dummy)) {
          pd_error(x, "sublist: couldn't find field %s", x->x_fieldsym->s_name);
          return;
      }
!     if (type != DT_LIST) {pd_error(x, "sublist: field %s not of type list", x->x_fieldsym->s_name); return;}
      if (gs->gs_which == GP_ARRAY) w = gp->gp_un.gp_w;
      else w = gp->gp_un.gp_scalar->sc_vec;
      gpointer_setglist(&x->x_gp, *(t_glist **)(((char *)w) + onset), 0);
      outlet_pointer(x->x_obj.ob_outlet, &x->x_gp);
  }
  
! static void sublist_free(t_sublist *x, t_gpointer *gp) {gpointer_unset(&x->x_gp);}
  
  static void sublist_setup(void)