[PD-cvs] externals/arraysize arraysize-help.pd, 1.2, 1.3 arraysize.c, 1.3, 1.4

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/externals/arraysize
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4032

Modified Files:
	arraysize-help.pd arraysize.c 
Log Message:
added cold inlet to set array name

Index: arraysize-help.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/arraysize/arraysize-help.pd,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** arraysize-help.pd	16 Jul 2005 05:44:23 -0000	1.2
--- arraysize-help.pd	31 Jul 2006 00:51:36 -0000	1.3
***************
*** 1,18 ****
! #N canvas 359 162 460 292 10;
  #N canvas 0 22 450 300 graph1 0;
  #X array test 100 float 0;
  #X coords 0 1 99 -1 200 140 1;
! #X restore 197 38 graph;
! #X obj 22 49 arraysize test;
! #X floatatom 22 73 5 0 0 0 - - -;
! #X msg 22 26 bang;
! #X text 24 205 arraysize returns the size of an array when banged.
! ;
! #X floatatom 22 173 5 0 0 0 - - -;
! #X msg 22 122 bang;
! #X obj 22 149 arraysize;
! #X msg 65 122 set test;
! #X obj 228 244 pddp_open all_about_arrays;
! #X text 124 243 For more info:;
  #X connect 1 0 2 0;
  #X connect 3 0 1 0;
--- 1,21 ----
! #N canvas 359 162 464 296 10;
  #N canvas 0 22 450 300 graph1 0;
  #X array test 100 float 0;
  #X coords 0 1 99 -1 200 140 1;
! #X restore 193 76 graph;
! #X obj 22 54 arraysize test;
! #X floatatom 22 78 5 0 0 0 - - -;
! #X msg 22 31 bang;
! #X text 24 5 arraysize returns the size of an array when banged.;
! #X floatatom 22 163 5 0 0 0 - - -;
! #X msg 22 112 bang;
! #X obj 22 139 arraysize;
! #X msg 65 112 set test;
! #X obj 228 264 pddp_open all_about_arrays;
! #X text 124 263 For more info:;
! #X floatatom 22 245 5 0 0 0 - - -;
! #X msg 22 194 bang;
! #X obj 22 221 arraysize;
! #X msg 80 197 symbol test;
  #X connect 1 0 2 0;
  #X connect 3 0 1 0;
***************
*** 20,21 ****
--- 23,27 ----
  #X connect 7 0 5 0;
  #X connect 8 0 7 0;
+ #X connect 12 0 13 0;
+ #X connect 13 0 11 0;
+ #X connect 14 0 13 1;

Index: arraysize.c
===================================================================
RCS file: /cvsroot/pure-data/externals/arraysize/arraysize.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** arraysize.c	9 Mar 2003 11:10:53 -0000	1.3
--- arraysize.c	31 Jul 2006 00:51:36 -0000	1.4
***************
*** 42,45 ****
--- 42,46 ----
    t_arraysize *x = (t_arraysize *)pd_new(arraysize_class);
  
+   symbolinlet_new(&x->x_obj, &x->array_name);
    outlet_new(&x->x_obj, gensym("float"));
  
***************
*** 53,57 ****
    arraysize_class = class_new(gensym("arraysize"), (t_newmethod)arraysize_new, 0, sizeof(t_arraysize), CLASS_DEFAULT, A_DEFSYMBOL, 0);
    
!   class_addmethod(arraysize_class,(t_method)arraysize_set,gensym("set"), A_DEFSYM, 0);
    class_addbang(arraysize_class,arraysize_bang);
  }
--- 54,58 ----
    arraysize_class = class_new(gensym("arraysize"), (t_newmethod)arraysize_new, 0, sizeof(t_arraysize), CLASS_DEFAULT, A_DEFSYMBOL, 0);
    
!   class_addmethod(arraysize_class,(t_method)arraysize_set,gensym("set"), A_DEFSYMBOL, 0);
    class_addbang(arraysize_class,arraysize_bang);
  }