externals/clr clr.c,1.3,1.4 - Pd-cvs

13 Jan 2006


      Update of /cvsroot/pure-data/externals/clr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20621
Modified Files:
    clr.c 
Log Message:
single atom ok, no luck with arrays
Index: clr.c
===================================================================
RCS file: /cvsroot/pure-data/externals/clr/clr.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** clr.c	12 Jan 2006 17:09:45 -0000	1.3
--- clr.c	13 Jan 2006 13:02:17 -0000	1.4
***************
*** 50,53 ****
--- 50,54 ----
      A_S_SYMBOL=2,
  }  t_atomtype_simple;
+ 
  typedef struct atom_simple
  {
***************
*** 61,64 ****
--- 62,72 ----
  };
+ /*
+ typedef struct atom_simple
+ {
+ 	int a;
+ 	int b;
+ };
+ */
static t_class *clr_class;
***************
*** 304,308 ****
    						float *fp;
! 						MonoClass *c = mono_class_from_name (x->image, "PureData", "Atom");
    					arystr = mono_array_new (x->domain, c /*mono_get_string_class ()*/, argc);
    					//arystr = mono_array_new (x->domain, c, 2);
--- 312,319 ----
    						float *fp;
! 						MonoClass *c = mono_class_from_name (x->image, "PureData", "Atom2");
! 			if (!c)
! 				error("----> can't find Atom");
! 						//arystr = mono_array_new (x->domain, atom_simple, argc);
    					arystr = mono_array_new (x->domain, c /*mono_get_string_class ()*/, argc);
    					//arystr = mono_array_new (x->domain, c, 2);
***************
*** 354,365 ****
    					// send just 1 atom
    					
- 							atmp2 = malloc(sizeof(atom_simple));
- 							atmp2->a_type = 121;
- 							atmp2->float_value = atom_getfloat(argv);
- 							strsymbol = atom_getsymbol(argv);
- 							atmp2->string_value = mono_string_new (x->domain, strsymbol->s_name);
- 						args[0] = atmp2;
    					
    					
    					/*
    					// a list of atoms
--- 365,385 ----
    					// send just 1 atom
    					
    					
+ 						atmp2 = malloc(sizeof(atom_simple));
+ 						atmp2->a_type = 121;
+ 						atmp2->float_value = atom_getfloat(argv);
+ 						strsymbol = atom_getsymbol(argv);
+ printf("strsymbol->s_name = %s\n", strsymbol->s_name);
+ 						atmp2->string_value = mono_string_new (x->domain, strsymbol->s_name);
+ 						args[0] = atmp2;
    					
+ 
+ 						/*
+ 						atmp2 = malloc(sizeof(atom_simple));
+ 						atmp2->a = 121;
+ 						atmp2->b = 1;
+ 						args[0] = atmp2;
+ 						*/
+ 
    					/*
    					// a list of atoms
***************
*** 384,388 ****
    					mono_array_set (arystr, atom_simple *, 1, atmp3);
    					*/
! 					//	args[0] = arystr;
    					
    					//args[0] = strings;
--- 404,408 ----
    					mono_array_set (arystr, atom_simple *, 1, atmp3);
    					*/
! 						//args[0] = arystr;
    					
    					//args[0] = strings;