Pd-cvs January 2006

pd-cvs@lists.iem.at

13 participants
285 discussions

externals/clr/pd - New directory
by dmorelli 14 Jan '06

14 Jan '06

Update of /cvsroot/pure-data/externals/clr/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27334/pd Log Message: Directory /cvsroot/pure-data/externals/clr/pd added to the repository

1 0

externals/clr/external External.cs,1.4,1.5 pd.cs,1.4,1.5
by dmorelli 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12601/external Modified Files: External.cs pd.cs Log Message: lists of atom working! still missing output Index: External.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/External.cs,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** External.cs 13 Jan 2006 13:02:22 -0000 1.4 --- External.cs 13 Jan 2006 19:02:37 -0000 1.5 *************** *** 31,37 **** pd.AddSelector(x, "selFloat", "SelFloat", ParametersType.Float); pd.AddSelector(x, "selString", "SelString", ParametersType.Symbol); - pd.AddSelector(x, "selList", "SelList", ParametersType.List); - pd.AddSelector(x, "selStringList", "SelStringList", ParametersType.List); - pd.AddSelector(x, "selFloatList", "SelFloatList", ParametersType.List); pd.AddSelector(x, "selGenericList", "SelGenericList", ParametersType.List); Console.WriteLine("selectors set"); --- 31,34 ---- *************** *** 50,53 **** --- 47,57 ---- { pd.PostMessage("Sel2 invoked!"); + + // testing outlets + Atom[] atoms = new Atom[2]; + atoms[0] = new Atom("ciao"); + atoms[1] = new Atom(1.5f); + pd.ToOutlet(x, 0, atoms.Length, atoms); + } *************** *** 55,127 **** { pd.PostMessage("SelFloat received " + f); - } - public void SelString(ref string s) - { - pd.PostMessage("SelString received " + s); - } - - public void SelList(int [] list) - { - pd.PostMessage("SelList received " + list.Length + " elements"); - for (int i = 0; i<list.Length; i++) - { - pd.PostMessage("int " + i + " = " + list[i]); - } - } - public void SelStringList(string [] list) - { - pd.PostMessage("SetStringList received a " + list.Length + " long list"); - for (int i = 0; i<list.Length; i++) - { - pd.PostMessage("string " + i + " = " + list[i]); - } } ! public void SelFloatList(float [] list) { ! pd.PostMessage("SetStringList received a " + list.Length + " long list"); ! for (int i = 0; i<list.Length; i++) ! { ! pd.PostMessage("float " + i + " = " + list[i]); ! } } - - public void SelGenericList(Atom a) - { - - Console.WriteLine("a is type " + a.type); - Console.WriteLine("float = " + a.float_value); - Console.WriteLine("stringa = " + a.string_value); - - } - - - /* public void SelGenericList(Atom [] list) { - pd.PostMessage("SetStringList received a " + list.Length + " long list"); for (int i = 0; i<list.Length; i++) { Atom a = (Atom) list[i]; ! Console.WriteLine("a is type " + a.type); ! Console.WriteLine("float = " + a.float_value); ! Console.WriteLine("stringa = " + a.string_value); ! pd.PostMessage("a is type " + a.type); ! pd.PostMessage("float = " + a.float_value); ! pd.PostMessage("stringa = " + a.string_value); } } - */ - public int test(int a) - { - - Console.WriteLine("test("+a+")"); - return a+1; - } } --- 59,98 ---- { pd.PostMessage("SelFloat received " + f); } ! public void SelString(ref string s) { ! pd.PostMessage("SelString received " + s); } public void SelGenericList(Atom [] list) { for (int i = 0; i<list.Length; i++) { Atom a = (Atom) list[i]; ! switch (a.type) ! { ! case (AtomType.Null): ! { ! pd.PostMessage("element null"); ! break; ! } ! case (AtomType.Float): ! { ! pd.PostMessage("" + a.float_value); ! break; ! } ! case (AtomType.Symbol): ! { ! pd.PostMessage(a.string_value); ! break; ! } ! } } } } Index: pd.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/pd.cs,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** pd.cs 13 Jan 2006 13:02:22 -0000 1.4 --- pd.cs 13 Jan 2006 19:02:37 -0000 1.5 *************** *** 21,25 **** // send stuff to an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] ! public extern static void ToOutlet (IntPtr x, int outlet, int type /*, ? array of values */); // create an outlet --- 21,29 ---- // send stuff to an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] ! public extern static void ToOutlet (IntPtr x, int outlet, int atoms_length, [In, Out] Atom [] atoms); ! public static void SendToOutlet (IntPtr x, int outlet, [In, Out] Atom [] atoms) ! { ! ToOutlet (x, outlet, atoms.Length, atoms); ! } // create an outlet *************** *** 48,199 **** } - - /* - // simplyfied atom - typedef struct atom_simple atom_simple; - typedef enum - { - A_S_NULL=0, - A_S_FLOAT=1, - A_S_SYMBOL=2, - } t_atomtype_simple; - typedef struct atom_simple - { - t_atomtype_simple a_type; - union{ - float float_value; - MonoString *string_value; - } stuff; - }; - */ - public enum AtomType {Null = 0, Float=1, Symbol=2, List=3}; ! ! [StructLayout (LayoutKind.Explicit)] ! // [StructLayout (LayoutKind.Sequential)] ! public class Atom2 { ! //[FieldOffset (0)] AtomType type; ! //[FieldOffset (0)] public int type; ! [FieldOffset (0)] ! public int type; ! ! [FieldOffset (4)] public float float_value; - - // [FieldOffset (4)] - [FieldOffset (8)] public string string_value; ! ! ! public Atom2() { ! this.type = 0; ! this.float_value = 0; ! this.string_value = ""; } ! ! public Atom2(string string_value) { ! this.type = 2; this.float_value = 0; ! this.string_value = string_value; ! } ! public Atom2(float float_value) ! { ! this.type = 1; ! this.string_value = ""; ! this.float_value = float_value; } } - - - - //[StructLayout (LayoutKind.Explicit)] - [StructLayout (LayoutKind.Sequential)] - public struct Atom - { - public int type; - public float float_value; - public string string_value; - } ! /* ! typedef float t_floatarg; ! ! typedef struct _symbol ! { ! char *s_name; ! struct _class **s_thing; ! struct _symbol *s_next; ! } t_symbol; ! EXTERN_STRUCT _array; ! #define t_array struct _array - #define GP_NONE 0 - #define GP_GLIST 1 - #define GP_ARRAY 2 ! typedef struct _gstub ! { ! union ! { ! struct _glist *gs_glist; ! struct _array *gs_array; ! } gs_un; ! int gs_which; ! int gs_refcount; ! } t_gstub; ! typedef struct _gpointer ! { ! union ! { ! struct _scalar *gp_scalar; ! union word *gp_w; ! } gp_un; ! int gp_valid; ! t_gstub *gp_stub; ! } t_gpointer; ! typedef union word { ! t_float w_float; ! t_symbol *w_symbol; ! t_gpointer *w_gpointer; ! t_array *w_array; ! struct _glist *w_list; ! int w_index; ! } t_word; ! typedef enum ! { ! A_NULL, ! A_FLOAT, ! A_SYMBOL, ! A_POINTER, ! A_SEMI, ! A_COMMA, ! A_DEFFLOAT, ! A_DEFSYM, ! A_DOLLAR, ! A_DOLLSYM, ! A_GIMME, ! A_CANT ! } t_atomtype; ! #define A_DEFSYMBOL A_DEFSYM ! typedef struct _atom ! { ! t_atomtype a_type; ! union word a_w; ! } t_atom; ! */ } --- 52,172 ---- + /* + // simplyfied atom + typedef struct atom_simple atom_simple; + typedef enum + { + A_S_NULL=0, + A_S_FLOAT=1, + A_S_SYMBOL=2, + } t_atomtype_simple; + typedef struct atom_simple + { + t_atomtype_simple a_type; + union{ + float float_value; + MonoString *string_value; + } stuff; + }; + */ } public enum AtomType {Null = 0, Float=1, Symbol=2, List=3}; ! //[StructLayout (LayoutKind.Explicit)] ! [StructLayout (LayoutKind.Sequential)] ! public struct Atom { ! public AtomType type; public float float_value; public string string_value; ! public Atom(float f) { ! this.type = AtomType.Float; ! this.float_value = f; ! this.string_value = "float"; } ! public Atom(string s) { ! this.type = AtomType.Symbol; this.float_value = 0; ! this.string_value = s; } } ! /* ! typedef float t_floatarg; ! typedef struct _symbol ! { ! char *s_name; ! struct _class **s_thing; ! struct _symbol *s_next; ! } t_symbol; + EXTERN_STRUCT _array; + #define t_array struct _array ! #define GP_NONE 0 ! #define GP_GLIST 1 ! #define GP_ARRAY 2 ! typedef struct _gstub ! { ! union ! { ! struct _glist *gs_glist; ! struct _array *gs_array; ! } gs_un; ! int gs_which; ! int gs_refcount; ! } t_gstub; ! typedef struct _gpointer { ! union ! { ! struct _scalar *gp_scalar; ! union word *gp_w; ! } gp_un; ! int gp_valid; ! t_gstub *gp_stub; ! } t_gpointer; ! typedef union word ! { ! t_float w_float; ! t_symbol *w_symbol; ! t_gpointer *w_gpointer; ! t_array *w_array; ! struct _glist *w_list; ! int w_index; ! } t_word; ! typedef enum ! { ! A_NULL, ! A_FLOAT, ! A_SYMBOL, ! A_POINTER, ! A_SEMI, ! A_COMMA, ! A_DEFFLOAT, ! A_DEFSYM, ! A_DOLLAR, ! A_DOLLSYM, ! A_GIMME, ! A_CANT ! } t_atomtype; ! #define A_DEFSYMBOL A_DEFSYM ! ! typedef struct _atom ! { ! t_atomtype a_type; ! union word a_w; ! } t_atom; ! */ }

1 0

externals/clr clr.c,1.4,1.5 test-clr.pd,1.3,1.4
by dmorelli 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12601 Modified Files: clr.c test-clr.pd Log Message: lists of atom working! still missing output Index: test-clr.pd =================================================================== RCS file: /cvsroot/pure-data/externals/clr/test-clr.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** test-clr.pd 12 Jan 2006 17:09:45 -0000 1.3 --- test-clr.pd 13 Jan 2006 19:02:36 -0000 1.4 *************** *** 1,3 **** ! #N canvas 0 0 738 486 12; #X obj 97 383 clr; #X obj 105 80 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --- 1,3 ---- ! #N canvas 0 0 742 490 12; #X obj 97 383 clr; #X obj 105 80 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 *************** *** 22,27 **** #X msg 239 342 selFloatList 1.1 2.2 3.3 4.4; #X msg 239 364 selFloatList 0.001 1000; - #X msg 239 387 selGenericList 0.001 abaco 1000; #X msg 238 409 selGenericList abaco 1.1; #X connect 0 0 14 0; #X connect 1 0 0 0; --- 22,27 ---- #X msg 239 342 selFloatList 1.1 2.2 3.3 4.4; #X msg 239 364 selFloatList 0.001 1000; #X msg 238 409 selGenericList abaco 1.1; + #X msg 239 387 selGenericList 0.001 abaco 1000 poroppoppero; #X connect 0 0 14 0; #X connect 1 0 0 0; Index: clr.c =================================================================== RCS file: /cvsroot/pure-data/externals/clr/clr.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** clr.c 13 Jan 2006 13:02:17 -0000 1.4 --- clr.c 13 Jan 2006 19:02:36 -0000 1.5 *************** *** 104,108 **** void createInlet(void *x1, MonoString *selectorString, int type); void createOutlet(void *x1, int type); ! void out2outlet(void *x, int outlet, int type, unsigned char *val /* TODO */); void post2pd(MonoString *mesString); void error2pd(MonoString *mesString); --- 104,108 ---- void createInlet(void *x1, MonoString *selectorString, int type); void createOutlet(void *x1, int type); ! void out2outlet(void *x1, int outlet, int atoms_length, atom_simple *atoms); void post2pd(MonoString *mesString); void error2pd(MonoString *mesString); *************** *** 141,144 **** --- 141,147 ---- printf("will load %s, random_name %s\n", file, random_name_str); + //mono_set_dirs (NULL, NULL); + //mono_config_parse (NULL); + x->domain = mono_jit_init (random_name_str); *************** *** 299,418 **** { gpointer args [1]; ! MonoString *strmono; t_symbol *strsymbol; ! float ftmp; ! char *str; ! char strtmp[265], strtmp2[256]; ! MonoArray * arystr; int j; ! atom_simple *atmp; ! atom_simple *atmp2, *atmp3; ! ! int *tipo; ! 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); ! /* for (j=0; j<argc; j++) { - atmp = malloc(sizeof(atom_simple)); switch ((argv+j)->a_type) { case A_FLOAT: ! post("setting type float in position %i", j); ! //atmp->a_type = 1; ! sprintf(strtmp, "1"); ! // atmp->a_type = mono_string_new (x->domain, strtmp); ! ftmp = atom_getfloat(argv+j); ! atmp->float_value = ftmp; break; case A_SYMBOL: ! post("setting type symbol in position %i", j); ! //atmp->a_type = 2; ! sprintf(strtmp, "2"); ! // atmp->a_type = mono_string_new (x->domain, strtmp); strsymbol = atom_getsymbol(argv+j); ! atmp->string_value = mono_string_new (x->domain, strsymbol->s_name); break; default: ! post("setting type null in position %i", j); ! //atmp->a_type = 0; ! sprintf(strtmp, "0"); ! // atmp->a_type = mono_string_new (x->domain, strtmp); } ! // mono_array_set (arystr, MonoString *, j, atmp->a_type); ! mono_array_set (arystr, atom_simple *, j, atmp); ! //int * ftmp = malloc(sizeof(int)); ! //*ftmp = j; ! //float ftmp = atom_getfloat(argv+j); ! //strsymbol = atom_getsymbol(argv+j); ! //MonoString *arg = mono_string_new (x->domain, strsymbol->s_name); ! //mono_array_set (arystr, MonoString *, j, arg); ! // gpointer ! ! //mono_array_set (arystr, gint32 , j, *ftmp); ! //mono_array_set (arystr, gint32 , j, ftmp); ! ! } ! */ ! ! // debug: ! // 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 ! for (j=0; j<argc; j++) ! { ! atmp2 = malloc(sizeof(atom_simple)); ! atmp2->a_type = 4; ! atmp2->float_value = atom_getfloat(argv+j); ! strsymbol = atom_getsymbol(argv+j); ! atmp2->string_value = mono_string_new (x->domain, strsymbol->s_name); ! mono_array_set (arystr, atom_simple *, j, atmp2); } - */ ! ! /* ! atmp3 = malloc(sizeof(atom_simple)); ! atmp3->a_type = 2; ! atmp3->float_value = 0.5; ! sprintf(strtmp2, "abracadabra"); ! atmp3->string_value = mono_string_new (x->domain, strtmp2); ! mono_array_set (arystr, atom_simple *, 1, atmp3); ! */ ! //args[0] = arystr; ! ! //args[0] = strings; mono_runtime_invoke (x->selectors[i].func, x->obj, args, NULL); break; } } - - //result = mono_runtime_invoke (x->selectors[i].func, x->obj, args, NULL); - //val = *(int*)mono_object_unbox (result); - //x->n = val; return; } --- 302,346 ---- { gpointer args [1]; ! MonoString *stringtmp; ! double *floattmp; ! t_atomtype_simple *typetmp; t_symbol *strsymbol; ! MonoArray *atoms; ! atom_simple *atom_array; int j; ! char strfloat[256], strnull[256]; ! sprintf(strfloat, "float"); ! sprintf(strnull, "null"); ! atom_array = malloc(sizeof(atom_simple)*argc); ! MonoClass *c = mono_class_from_name (x->image, "PureData", "Atom"); ! atoms = mono_array_new (x->domain, c, argc); for (j=0; j<argc; j++) { switch ((argv+j)->a_type) { case A_FLOAT: ! atom_array[j].a_type = A_S_FLOAT; ! atom_array[j].float_value = (double) atom_getfloat(argv+j); ! atom_array[j].string_value = mono_string_new (x->domain, strfloat); break; case A_SYMBOL: ! atom_array[j].a_type = A_S_SYMBOL; strsymbol = atom_getsymbol(argv+j); ! atom_array[j].string_value = mono_string_new (x->domain, strsymbol->s_name); ! atom_array[j].float_value = 0; break; default: ! atom_array[j].a_type = A_S_NULL; ! atom_array[j].float_value = 0; ! atom_array[j].string_value = mono_string_new (x->domain, strnull); } ! mono_array_set (atoms, atom_simple , j, atom_array[j]); } ! args[0] = atoms; mono_runtime_invoke (x->selectors[i].func, x->obj, args, NULL); break; } } return; } *************** *** 421,427 **** i = MAX_SELECTORS; } - error("clr: selector not recognized"); - } --- 349,353 ---- *************** *** 556,565 **** // out to outlet ! void out2outlet(void *x1, int outlet, int type, unsigned char *val /* TODO */) { t_clr *x; x = (t_clr *)x1; t_atom *lista; ! if ((outlet>MAX_OUTLETS) || (outlet<0)) { --- 482,493 ---- // out to outlet ! void out2outlet(void *x1, int outlet, int atoms_length, atom_simple *atoms) { t_clr *x; x = (t_clr *)x1; t_atom *lista; ! int n; ! printf("outlet = %i\n" + outlet); ! printf("atoms_length = %i\n" + atoms_length); if ((outlet>MAX_OUTLETS) || (outlet<0)) { *************** *** 572,585 **** return; } ! printf("ricevuto %i %i\n", val[0], val[1]); ! if (val[0]==0x01) ! printf("val[0]==0x00"); ! lista = (t_atom *) malloc(sizeof(t_atom) * 2); ! SETFLOAT(lista, (float) val[0]); ! SETFLOAT(lista+1, (float) val[1]); outlet_anything(x->outlets[outlet].outlet_pointer, gensym("list") , ! 2, lista); free(lista); --- 500,525 ---- return; } ! lista = (t_atom *) malloc(sizeof(t_atom) * atoms_length); ! for (n=0; n<atoms_length; n++) ! { ! char *mesCstring; ! switch (atoms[n].a_type) ! { ! case A_S_NULL: ! SETFLOAT(lista+n, (float) 0); ! break; ! case A_S_FLOAT: ! mesCstring = mono_string_to_utf8 (atoms[n].string_value); ! SETFLOAT(lista+n, (float) atoms[n].float_value); ! break; ! case A_S_SYMBOL: ! SETSYMBOL(lista+n, gensym(mesCstring)); ! break; ! } ! } outlet_anything(x->outlets[outlet].outlet_pointer, gensym("list") , ! atoms_length, lista); free(lista);

1 0

externals/clr clr.c,1.3,1.4
by dmorelli 13 Jan '06

13 Jan '06

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;

1 0

externals/clr/external External.cs,1.3,1.4 pd.cs,1.3,1.4
by dmorelli 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20621/external Modified Files: External.cs pd.cs Log Message: single atom ok, no luck with arrays Index: External.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/External.cs,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** External.cs 12 Jan 2006 17:09:45 -0000 1.3 --- External.cs 13 Jan 2006 13:02:22 -0000 1.4 *************** *** 42,46 **** - public void Sel1() { --- 42,45 ---- *************** *** 93,101 **** public void SelGenericList(Atom a) { ! Console.WriteLine("a is type " + a.type); ! Console.WriteLine("float = " + a.float_value); ! Console.WriteLine("stringa = " + a.string_value); } /* public void SelGenericList(Atom [] list) --- 92,103 ---- public void SelGenericList(Atom a) { ! ! Console.WriteLine("a is type " + a.type); ! Console.WriteLine("float = " + a.float_value); ! Console.WriteLine("stringa = " + a.string_value); ! } + /* public void SelGenericList(Atom [] list) *************** *** 111,119 **** pd.PostMessage("float = " + a.float_value); pd.PostMessage("stringa = " + a.string_value); ! ! } ! } ! */ public int test(int a) --- 113,119 ---- pd.PostMessage("float = " + a.float_value); pd.PostMessage("stringa = " + a.string_value); ! } } ! */ public int test(int a) Index: pd.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/pd.cs,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** pd.cs 12 Jan 2006 17:09:45 -0000 1.3 --- pd.cs 13 Jan 2006 13:02:22 -0000 1.4 *************** *** 69,77 **** */ ! public enum AtomType {Null = 0, Float=1, Symbol=2}; [StructLayout (LayoutKind.Explicit)] // [StructLayout (LayoutKind.Sequential)] ! public class Atom { //[FieldOffset (0)] AtomType type; --- 69,78 ---- */ ! public enum AtomType {Null = 0, Float=1, Symbol=2, List=3}; + [StructLayout (LayoutKind.Explicit)] // [StructLayout (LayoutKind.Sequential)] ! public class Atom2 { //[FieldOffset (0)] AtomType type; *************** *** 79,83 **** [FieldOffset (0)] public int type; ! /* union members */ [FieldOffset (4)] public float float_value; --- 80,84 ---- [FieldOffset (0)] public int type; ! [FieldOffset (4)] public float float_value; *************** *** 88,93 **** ! public Atom(string string_value) { this.type = 2; --- 89,100 ---- + public Atom2() + { + this.type = 0; + this.float_value = 0; + this.string_value = ""; + } ! public Atom2(string string_value) { this.type = 2; *************** *** 95,99 **** this.string_value = string_value; } ! public Atom(float float_value) { this.type = 1; --- 102,106 ---- this.string_value = string_value; } ! public Atom2(float float_value) { this.type = 1; *************** *** 102,107 **** --- 109,123 ---- } } + + //[StructLayout (LayoutKind.Explicit)] + [StructLayout (LayoutKind.Sequential)] + public struct Atom + { + public int type; + public float float_value; + public string string_value; + } /*

1 0

externals/pureunity/doc Makefile,NONE,1.1
by Mathieu Bouchard 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/pureunity/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25377 Added Files: Makefile Log Message: . --- NEW FILE: Makefile --- PureUnity.txt: PureUnity.lyx # please go in LyX and export to text yourself...

1 0

externals/pureunity/doc PureUnity.txt,NONE,1.1
by Mathieu Bouchard 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/pureunity/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25074 Added Files: PureUnity.txt Log Message: LyX file exported as txt --- NEW FILE: PureUnity.txt --- PureUnity Mathieu Bouchard <matju(a)artengine.ca> January 13th, 2006 Abstract This paper covers the theory behind PureUnity, PureData's test framework. Table of Contents 1 What is testing? 1.1 a test tests something that gets tested 1.2 a triad of testing 2 Methodologies of Testing 2.1 test-by-Proof 2.2 test-by-Use 2.3 test-by-Rule 2.4 test-by-Example 3 Quelques cossins 3.1 Protocol 3.2 Preconditions 3.3 Postconditions 3.4 Wrapconditions 3.5 Inheritance 3.6 Aspect-programming and stuff 3.7 Meta-abstractions 3.8 Float-Signal Polymorphism 3.9 Unit-Tests 3.10 Algebraic Properties 3.11 Temporal Logic 3.12 TODO 1 What is testing? 1.1 a test tests something that gets tested (write ontological nonsense here) 1.2 a triad of testing I've thought of a triad: A. "the real thing" B. what it's documented as C. a way to verify that (1) and (2) agree and another one: changing A to match B+C: programming changing B to match A+C: the scientific method (aka reverse engineering) changing C to match A+B: unit-tests and contracts and scientific experiments 2 Methodologies of Testing I once called unit-tests "test-by-example" and contracts "test-by-rule". I think that those names are preferable to the more common names. I also hadlisted "test-by-use" which is to use the software in practice: this may include testing a component A using the unit tests for B because B uses A.The last I had listed was "test-by-proof", which is rarer and is the only one that requires analysing the implementation. 2.1 test-by-Proof 2.2 test-by-Use 2.3 test-by-Rule 2.4 test-by-Example 3 Quelques cossins 3.1 Protocol 3.2 Preconditions 3.3 Postconditions 3.4 Wrapconditions 3.5 Inheritance 3.6 Aspect-programming and stuff 3.7 Meta-abstractions 3.8 Float-Signal Polymorphism 3.9 Unit-Tests 3.10 Algebraic Properties 3.11 Temporal Logic 3.12 TODO

1 0

externals/pureunity/doc PureUnity.lyx,NONE,1.1
by Mathieu Bouchard 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/pureunity/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20870 Added Files: PureUnity.lyx Log Message: blah --- NEW FILE: PureUnity.lyx --- #LyX 1.3 created this file. For more info see http://www.lyx.org/ \lyxformat 221 \textclass article \language english \inputencoding auto \fontscheme default \graphics default \paperfontsize default \papersize Default \paperpackage a4 \use_geometry 0 \use_amsmath 0 \use_natbib 0 \use_numerical_citations 0 \paperorientation portrait \secnumdepth 3 \tocdepth 3 \paragraph_separation indent \defskip medskip \quotes_language english \quotes_times 2 \papercolumns 1 \papersides 1 \paperpagestyle default \layout Title PureUnity \layout Author Mathieu Bouchard <matju(a)artengine.ca> \layout Date January 13th, 2006 \layout Abstract This paper covers the theory behind PureUnity, PureData's test framework. \layout Standard \begin_inset LatexCommand \tableofcontents{} \end_inset \layout Section What is testing? \layout Subsection a test tests something that gets tested \layout Standard (write ontological nonsense here) \layout Subsection a triad of testing \layout Standard I've thought of a triad: \layout Standard A. "the real thing" \layout Standard B. what it's documented as \layout Standard C. a way to verify that (1) and (2) agree \layout Standard and another one: \layout Standard changing A to match B+C: programming \layout Standard changing B to match A+C: the scientific method (aka reverse engineering) \layout Standard changing C to match A+B: unit-tests and contracts and scientific experiments \layout Section Methodologies of Testing \layout Standard I once called unit-tests "test-by-example" and contracts "test-by-rule". I think that those names are preferable to the more common names. I also hadlisted "test-by-use" which is to use the software in practice: this may include testing a component A using the unit tests for B because B uses A.The last I had listed was "test-by-proof", which is rarer and is the only one that requires analysing the implementation. \layout Subsection test-by-Proof \layout Subsection test-by-Use \layout Subsection test-by-Rule \layout Subsection test-by-Example \layout Section Quelques cossins \layout Subsection Protocol \layout Subsection Preconditions \layout Subsection Postconditions \layout Subsection Wrapconditions \layout Subsection Inheritance \layout Subsection Aspect-programming and stuff \layout Subsection Meta-abstractions \layout Subsection Float-Signal Polymorphism \layout Subsection Unit-Tests \layout Subsection Algebraic Properties \layout Subsection TODO \layout Standard \the_end

1 0

externals/pureunity README,1.1,1.2
by Mathieu Bouchard 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23562 Modified Files: README Log Message: adding today's correspondence to ruby-core Index: README =================================================================== RCS file: /cvsroot/pure-data/externals/pureunity/README,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** README 9 Jan 2006 05:04:19 -0000 1.1 --- README 13 Jan 2006 04:54:08 -0000 1.2 *************** *** 306,307 **** --- 306,482 ---- fading out. + +-+-+--+---+-----+--------+-------------+---------------------+ + + Date: Fri, 13 Jan 2006 04:07:59 +0900 + From: Mathieu Bouchard <matju(a)artengine.ca> + Reply-To: ruby-core(a)ruby-lang.org + To: ruby-core(a)ruby-lang.org + Subject: Re: Design contracts and refactoring (was Re: mathn: ugly warnings) + + On Fri, 13 Jan 2006, mathew wrote: + + > *Dean Wampler *<deanwampler gmail.com> writes: + > > Let me suggest an XP-style alternative; make thorough unit tests + > > required and make sure they "document" - and test! - the design + > > "contract". + > Unit tests are not an alternative. They are an additional requirement. + + I find unit-tests to be often decomposable like this. Start with something + like this: + + raise if Blah.new(666) != Blah.new(666) + raise if Blah.new(747) != Blah.new(747) + raise if Blah.new(242) != Blah.new(242) + raise if Blah.new(69) != Blah.new(69) + raise if Blah.new(37) != Blah.new(37) + + then generalize it ("equality is defined based on the arg of .new"): + + for x in [666,747,242,69,37] do + raise if Blah.new(x) != Blah.new(x) + end + + then extract a contract from it: + + class CheckedBlah < Blah + def self.new(x) + r = super(x) + raise if r != super(x) + r + end + end + + so now all Blah object creation may be checked throughout actual uses of a + program and not just unit tests. The unit test now reduces to: + + for x in [666,747,242,69,37] do Blah.new(x) end + + so for many unit tests, all you have to do is just do things and discard + the results, and the contract will do the job of checking. + + _ _ __ ___ _____ ________ _____________ _____________________ ... + | Mathieu Bouchard - tél:+1.514.383.3801 - http://artengine.ca/matju + | Freelance Digital Arts Engineer, Montréal QC Canada + + +-+-+--+---+-----+--------+-------------+---------------------+ + + Date: Fri, 13 Jan 2006 05:05:19 +0900 + From: Mathieu Bouchard <matju(a)artengine.ca> + Reply-To: ruby-core(a)ruby-lang.org + To: ruby-core(a)ruby-lang.org + Subject: Re: Design contracts and refactoring (was Re: mathn: ugly warnings) + + On Fri, 13 Jan 2006, mathew wrote: + + > For example, consider a simple vector addition routine in a 3D library. + > The unit tests might test its behavior with Float and Integer vectors, + > since that's why it was written. + + Here's another way to factor unit-tests that I haven't mentioned in the + last mail. + + suppose you test for + using: + + class IntegerTest + def test; 2+2==4 or raise; end + end + class FloatTest + def test; 2.0+2.0==4.0 or raise; end + end + class RationalTest + def test; Rational(2,1)+Rational(2,1)==Rational(4,1) or raise; end + end + + you can refactor those tests like this: + + class NumericTest + def initialize nt; @nt; end + def make x; raise "abstract class" end + def test; make(2)+make(2)==make(4) or raise; end + end + class IntegerTest; def make x; Integer(x) end end + class FloatTest; def make x; Float(x) end end + class RationalTest; def make x; Rational(x,1) end end + + > However, to do that you need to know whether the feature of supporting + > (say) Complex vectors or BigDecimal vectors is intended or not. The unit + > tests won't tell you this. + + I once called unit-tests "test-by-example" and contracts "test-by-rule". I + think that those names are preferable to the more common names. I also had + listed "test-by-use" which is to use the software in practice: this may + include testing a component A using the unit tests for B because B uses A. + The last I had listed was "test-by-proof", which is rarer and is the only + one that requires analysing the implementation. + + > > One limitation of documentation is that it has no enforcement power, + > > so you have to write tests anyway to test conformance. + > Unit tests have no enforcement power either, because you can just change the + > test. Indeed, I've already had to do this once when it turned out that the + > unit test was wrong. (In net/ftp.) + + That was a pretty bad case of strawman argument. Dean was assuming that + your documentation was not executable when you had quite clearly stated + that it was the contracts that acted as documentation! + + I've thought of a triad: + + A. "the real thing" + B. what it's documented as + C. a way to verify that (1) and (2) agree + + and another one: + + changing A to match B+C: + programming + + changing B to match A+C: + the scientific method (aka reverse engineering) + + changing C to match A+B: + unit-tests and contracts and scientific experiments + + _ _ __ ___ _____ ________ _____________ _____________________ ... + | Mathieu Bouchard - tél:+1.514.383.3801 - http://artengine.ca/matju + | Freelance Digital Arts Engineer, Montréal QC Canada + + +-+-+--+---+-----+--------+-------------+---------------------+ + + Date: Fri, 13 Jan 2006 07:36:36 +0900 + From: Mathieu Bouchard <matju(a)artengine.ca> + Reply-To: ruby-core(a)ruby-lang.org + To: ruby-core(a)ruby-lang.org + Subject: Re: Design contracts and refactoring (was Re: mathn: ugly warnings) + + On Fri, 13 Jan 2006, mathew wrote: + + > > The XP view is + > > that you should eliminate the redundancy. + > Except it's not redundancy. + > Unit tests define a set of functionality that is required. Documentation tells + > you the functionality that is supported, which is generally a superset of the + > functionality required by the unit tests. + + Let's follow the argument of both of you to the end. + + 1. Unit-tests often match inputs with outputs on a case-by-case basis. + + 2. Redundancy should be eliminated. + + (1) suggests that there is a shorter way to express the unit-tests. + Suppose you are able to find a formula for generating output-validators + from inputs. Then that formula is a postcondition of a contract, and the + explicit output-validators of the unit-tests are redundant. + + (2) because part of the unit-tests are redundant, part of the unit-tests + should be eliminated. This causes the postconditions to become an + essential part of unit-testing. + + Unit-tests vs contracts is a false debate. + + _ _ __ ___ _____ ________ _____________ _____________________ ... + | Mathieu Bouchard - tél:+1.514.383.3801 - http://artengine.ca/matju + | Freelance Digital Arts Engineer, Montréal QC Canada + + + +-+-+--+---+-----+--------+-------------+---------------------+

1 0

externals/pureunity/doc - New directory
by Mathieu Bouchard 13 Jan '06

13 Jan '06

Update of /cvsroot/pure-data/externals/pureunity/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20503/doc Log Message: Directory /cvsroot/pure-data/externals/pureunity/doc added to the repository

1 0

← Newer
1
...
17
18
19
20
21
22
23
...
29
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2006