Pd-cvs January 2006

pd-cvs@lists.iem.at

13 participants
285 discussions

externals/pdogg/oggamp~ oggamp~.libs,NONE,1.1
by Hans-Christoph Steiner 17 Jan '06

17 Jan '06

Update of /cvsroot/pure-data/externals/pdogg/oggamp~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3930/oggamp~ Added Files: oggamp~.libs Log Message: added files to specify libraries for the linker in the externals build system, i.e. externals/Makefile --- NEW FILE: oggamp~.libs --- -logg -lvorbis

1 0

packages/patches help_browser-0.38.4.patch,1.1,1.2
by Hans-Christoph Steiner 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/packages/patches In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23750 Modified Files: help_browser-0.38.4.patch Log Message: changed menu wording to be shorter and similar to Miller's Index: help_browser-0.38.4.patch =================================================================== RCS file: /cvsroot/pure-data/packages/patches/help_browser-0.38.4.patch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** help_browser-0.38.4.patch 29 Dec 2005 01:00:28 -0000 1.1 --- help_browser-0.38.4.patch 16 Jan 2006 19:58:46 -0000 1.2 *************** *** 268,274 **** - - $mbar.$helpmenuname add command -label {1 manual...} \ ! + $mbar.help add command -label {Pure Documentation Browser} \ + -command {menu_doc_browser $help_top_directory} ! + $mbar.help add command -label {Pd Manual} \ -command {menu_doc_open doc/1.manual index.htm} - doc_submenu $mbar.$helpmenuname 2.control.examples --- 268,274 ---- - - $mbar.$helpmenuname add command -label {1 manual...} \ ! + $mbar.help add command -label {Browser} \ + -command {menu_doc_browser $help_top_directory} ! + $mbar.help add command -label {Manual} \ -command {menu_doc_open doc/1.manual index.htm} - doc_submenu $mbar.$helpmenuname 2.control.examples

1 0

externals/clr/external AssemblyInfo.cs, NONE, 1.1 Counter.cs, NONE, 1.1 external.sln, NONE, 1.1
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7461 Added Files: AssemblyInfo.cs Counter.cs external.sln Log Message: checking in the second example: Counter --- NEW FILE: Counter.cs --- using System; namespace PureData { /// <summary> /// Descrizione di riepilogo per Counter. /// </summary> public class Counter { private IntPtr x; int curr = 0; public Counter() { curr = 0; } public Counter(float f) { curr = (int) f; } // this function MUST exist public void SetUp() { pd.AddSelector(x, "init", new pd.DelegateFloat(Init)); pd.AddSelector(x, new pd.DelegateWithoutArguments(SendOut)); pd.AddSelector(x, new pd.DelegateFloat(Sum)); pd.AddInlet(x, "init", ParametersType.Float); pd.AddOutlet(x, ParametersType.Float); } public void Init(float f) { curr = (int) f; } public void SendOut() { pd.SendToOutlet(x, 0, new Atom(curr)); } public void Sum(float f) { curr += (int) f; pd.SendToOutlet(x, 0, new Atom(curr)); } } } --- NEW FILE: external.sln --- Microsoft Visual Studio Solution File, Format Version 8.00 Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "external", "external.csproj", "{FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}" ProjectSection(ProjectDependencies) = postProject EndProjectSection EndProject Global GlobalSection(SolutionConfiguration) = preSolution Debug = Debug Release = Release EndGlobalSection GlobalSection(ProjectConfiguration) = postSolution {FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}.Debug.ActiveCfg = Debug|.NET {FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}.Debug.Build.0 = Debug|.NET {FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}.Release.ActiveCfg = Release|.NET {FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}.Release.Build.0 = Release|.NET EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution EndGlobalSection GlobalSection(ExtensibilityAddIns) = postSolution EndGlobalSection EndGlobal --- NEW FILE: AssemblyInfo.cs --- using System.Reflection; using System.Runtime.CompilerServices; // // Le informazioni generali relative a un assembly sono controllate dal seguente // insieme di attributi. Per modificare le informazioni associate a un assembly // occorre quindi modificare i valori di questi attributi. // [assembly: AssemblyTitle("")] [assembly: AssemblyDescription("")] [assembly: AssemblyConfiguration("")] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("")] [assembly: AssemblyCopyright("")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] // // Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori: // // Numero di versione principale // Numero di versione secondario // Numero revisione // Numero build // // È possibile specificare tutti i valori o impostare come predefiniti i valori Numero revisione e Numero build // utilizzando l'asterisco (*) come illustrato di seguito: [assembly: AssemblyVersion("1.0.*")] // // Per firmare l'assembly è necessario specificare una chiave da utilizzare. // Fare riferimento alla documentazione di Microsoft .NET Framework per ulteriori informazioni sulla firma degli assembly. // // Utilizzare gli attributi elencati di seguito per verificare la chiave utilizzata per la firma. // // Note: // (*) Se non è specificata alcuna chiave, non sarà possibile firmare l'assembly. // (*) KeyName fa riferimento a una chiave installata nel provider di servizi di // crittografia (CSP) sul computer in uso. KeyFile fa riferimento a un file che contiene // una chiave. // (*) Se entrambi i valori KeyFile e KeyName sono specificati, si // verificherà il seguente processo: // (1) Se KeyName è presente in CSP, verrà utilizzata tale chiave. // (2) Se KeyName non esiste e KeyFile esiste, la chiave // di KeyFile verrà installata nel CSP e utilizzata. // (*) Per creare un KeyFile, è possibile utilizzare l'utilità sn.exe (Strong Name). // Quando si specifica il KeyFile, il percorso dovrà essere // relativo alla directory di output del progetto, ovvero // %Project Directory%\obj\<configuration>. Se ad esempio il KeyFile si // trova nella directory del progetto, occorre specificare l'attributo AssemblyKeyFile // come [assembly: AssemblyKeyFile("..\\..\\mykey.snk")] // (*) La firma ritardata è un'opzione avanzata. Vedere la documentazione di Microsoft // .NET Framework per ulteriori informazioni. // [assembly: AssemblyDelaySign(false)] [assembly: AssemblyKeyFile("")] [assembly: AssemblyKeyName("")]

1 0

externals/clr/external External.cs,1.8,1.9
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2201/external Modified Files: External.cs Log Message: now selectors take delegates instead of function names, lists without selectors ok, added the PureData.dll assembly to let people compile externals without having to compile the pd project Index: External.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/External.cs,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** External.cs 16 Jan 2006 13:02:33 -0000 1.8 --- External.cs 16 Jan 2006 16:26:58 -0000 1.9 *************** *** 18,30 **** Console.WriteLine("pointer set!"); Console.WriteLine("setting selectors.."); ! pd.AddSelector(x, "sel1", "Sel1", ParametersType.None); ! pd.AddSelector(x, "sel2", "Sel2", ParametersType.None); ! pd.AddSelector(x, "selFloat", "SelFloat", ParametersType.Float); ! pd.AddSelector(x, "selString", "SelString", ParametersType.Symbol); ! pd.AddSelector(x, "selGenericList", "SelGenericList", ParametersType.List); ! pd.AddSelector(x, "", "GetBang", ParametersType.Bang); ! pd.AddSelector(x, "", "GetFloat", ParametersType.Float); ! pd.AddSelector(x, "", "GetSymbol", ParametersType.Symbol); Console.WriteLine("selectors set"); --- 18,31 ---- Console.WriteLine("pointer set!"); Console.WriteLine("setting selectors.."); ! pd.AddSelector(x, "sel1", new pd.DelegateWithoutArguments(Sel1)); ! pd.AddSelector(x, "sel2", new pd.DelegateWithoutArguments(Sel2)); ! pd.AddSelector(x, "selFloat", new pd.DelegateFloat(SelFloat)); ! pd.AddSelector(x, "selString", new pd.DelegateString(SelString)); ! pd.AddSelector(x, "selGenericList", new pd.DelegateArray(SelGenericList)); ! pd.AddSelector(x, new pd.DelegateArray(SelGenericList)); ! pd.AddSelector(x, new pd.DelegateWithoutArguments(GetBang)); ! pd.AddSelector(x, new pd.DelegateFloat(GetFloat)); ! pd.AddSelector(x, new pd.DelegateString(GetSymbol)); Console.WriteLine("selectors set"); *************** *** 35,39 **** public void GetBang() { ! pd.PostMessage("GetBang invoked!"); } --- 36,40 ---- public void GetBang() { ! pd.PostMessage("GetBang invoked!"); } *************** *** 102,106 **** case (AtomType.Symbol): { ! ret[i] = new Atom(a.string_value + "-lo-giuro"); pd.PostMessage(a.string_value); break; --- 103,107 ---- case (AtomType.Symbol): { ! ret[i] = new Atom(a.string_value + "-edited"); pd.PostMessage(a.string_value); break; *************** *** 112,115 **** --- 113,117 ---- + }

1 0

externals/clr/pd Atom.cs,1.2,1.3 pd.cs,1.2,1.3
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2201/pd Modified Files: Atom.cs pd.cs Log Message: now selectors take delegates instead of function names, lists without selectors ok, added the PureData.dll assembly to let people compile externals without having to compile the pd project Index: pd.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/pd.cs,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** pd.cs 16 Jan 2006 12:44:45 -0000 1.2 --- pd.cs 16 Jan 2006 16:26:58 -0000 1.3 *************** *** 10,22 **** public class pd { [MethodImplAttribute (MethodImplOptions.InternalCall)] private extern static void RegisterSelector (IntPtr x, string sel, string met, int type); // function called by the user ! public static void AddSelector(IntPtr x, string sel, string met, ParametersType type) { ! RegisterSelector (x, sel, met, (int) type); } - // TODO // send stuff to an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] --- 10,54 ---- public class pd { + public delegate void DelegateWithoutArguments(); + public delegate void DelegateFloat(float f); + public delegate void DelegateString(ref string s); + public delegate void DelegateArray(Atom [] atoms); + [MethodImplAttribute (MethodImplOptions.InternalCall)] private extern static void RegisterSelector (IntPtr x, string sel, string met, int type); // function called by the user ! public static void AddSelector(IntPtr x, string sel, DelegateWithoutArguments func) { ! RegisterSelector (x, sel, func.Method.Name, (int) ParametersType.None); ! } ! public static void AddSelector(IntPtr x, string sel, DelegateFloat func) ! { ! RegisterSelector (x, sel, func.Method.Name, (int) ParametersType.Float); ! } ! public static void AddSelector(IntPtr x, string sel, DelegateString func) ! { ! RegisterSelector (x, sel, func.Method.Name, (int) ParametersType.Symbol); ! } ! public static void AddSelector(IntPtr x, string sel, DelegateArray func) ! { ! RegisterSelector (x, sel, func.Method.Name, (int) ParametersType.List); ! } ! public static void AddSelector(IntPtr x, DelegateWithoutArguments func) ! { ! RegisterSelector (x, "", func.Method.Name, (int) ParametersType.None); ! } ! public static void AddSelector(IntPtr x, DelegateFloat func) ! { ! RegisterSelector (x, "", func.Method.Name, (int) ParametersType.Float); ! } ! public static void AddSelector(IntPtr x, DelegateString func) ! { ! RegisterSelector (x, "", func.Method.Name, (int) ParametersType.Symbol); ! } ! public static void AddSelector(IntPtr x, DelegateArray func) ! { ! RegisterSelector (x, "", func.Method.Name, (int) ParametersType.List); } // send stuff to an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] *************** *** 32,35 **** --- 64,86 ---- ToOutlet (x, outlet, atoms.Length, atoms); } + public static void SendToOutlet (IntPtr x, int outlet, float f) + { + Atom [] atoms = new Atom[1]; + atoms[0] = new Atom(f); + ToOutlet (x, outlet, atoms.Length, atoms); + } + public static void SendToOutlet (IntPtr x, int outlet, int i) + { + Atom [] atoms = new Atom[1]; + atoms[0] = new Atom((float) i); + ToOutlet (x, outlet, atoms.Length, atoms); + } + public static void SendToOutlet (IntPtr x, int outlet, string s) + { + Atom [] atoms = new Atom[1]; + atoms[0] = new Atom(s); + ToOutlet (x, outlet, atoms.Length, atoms); + } + // create an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] *************** *** 56,156 **** public extern static void ErrorMessage (string message); - - /* - // 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; - }; - */ } ! /* ! 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; ! */ } --- 107,114 ---- public extern static void ErrorMessage (string message); } ! } Index: Atom.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/Atom.cs,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Atom.cs 16 Jan 2006 12:44:45 -0000 1.2 --- Atom.cs 16 Jan 2006 16:26:58 -0000 1.3 *************** *** 32,34 **** } } ! } \ No newline at end of file --- 32,54 ---- } } ! // this struct is relative to this c struct, see clr.c ! ! /* ! // 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; ! }; ! */ ! }

1 0

externals/clr PureData.dll, NONE, 1.1 clr.c, 1.8, 1.9 test-clr.pd, 1.6, 1.7
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2201 Modified Files: clr.c test-clr.pd Added Files: PureData.dll Log Message: now selectors take delegates instead of function names, lists without selectors ok, added the PureData.dll assembly to let people compile externals without having to compile the pd project --- NEW FILE: PureData.dll --- (This appears to be a binary file; contents omitted.) Index: test-clr.pd =================================================================== RCS file: /cvsroot/pure-data/externals/clr/test-clr.pd,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** test-clr.pd 16 Jan 2006 13:02:33 -0000 1.6 --- test-clr.pd 16 Jan 2006 16:26:58 -0000 1.7 *************** *** 1,3 **** ! #N canvas 73 31 756 564 12; #X obj 49 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; --- 1,3 ---- ! #N canvas 73 31 760 568 12; #X obj 49 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; *************** *** 14,19 **** -1 -1 0 1; #X text 224 242 mapped to selFloat; ! #X msg 99 216 selGenericList 12 a 0.5 b; ! #X text 98 194 complex list; #X obj 82 297 print; #X text 43 329 arguments: Class name \, Filename; --- 14,19 ---- -1 -1 0 1; #X text 224 242 mapped to selFloat; ! #X msg 94 210 selGenericList 12 a 0.5 b; ! #X text 93 188 complex list; #X obj 82 297 print; #X text 43 329 arguments: Class name \, Filename; *************** *** 35,38 **** --- 35,39 ---- ; #X text 37 477 NB: a class corresponding constructor must exist; + #X msg 309 210 1 2 3 a b c; #X connect 0 0 16 0; #X connect 1 0 16 0; *************** *** 50,51 **** --- 51,53 ---- #X connect 24 0 15 1; #X connect 26 0 15 0; + #X connect 29 0 16 0; Index: clr.c =================================================================== RCS file: /cvsroot/pure-data/externals/clr/clr.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** clr.c 16 Jan 2006 12:44:44 -0000 1.8 --- clr.c 16 Jan 2006 16:26:58 -0000 1.9 *************** *** 356,361 **** int i; - // first i extract the first atom which should be a symbol - post("clr_manage_list, got symbol = %s", sl->s_name); if (x->loaded == 0) { --- 356,359 ---- *************** *** 363,366 **** --- 361,418 ---- return; } + + // check if a selector is present ! + //printf("clr_manage_list, got symbol = %s\n", sl->s_name); + if (strcmp("list", sl->s_name) == 0) + { + printf("lista senza selector"); + if (x->manageList) + { + 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->imagePureData, "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->manageList, x->obj, args, NULL); + return; + } else + { + error("you did not specified a function to call for lists without selectors"); + return; + } + } for (i=0; i<MAX_SELECTORS; i++) {

1 0

externals/clr/external External.cs, 1.7, 1.8 external.csproj, 1.3, 1.4
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19138/external Modified Files: External.cs external.csproj Log Message: updating examples Index: External.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/External.cs,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** External.cs 16 Jan 2006 12:44:45 -0000 1.7 --- External.cs 16 Jan 2006 13:02:33 -0000 1.8 *************** *** 116,120 **** - - } --- 116,118 ---- Index: external.csproj =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/external.csproj,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** external.csproj 16 Jan 2006 11:30:26 -0000 1.3 --- external.csproj 16 Jan 2006 13:02:33 -0000 1.4 *************** *** 95,98 **** --- 95,103 ---- /> <File + RelPath = "Counter.cs" + SubType = "Code" + BuildAction = "Compile" + /> + <File RelPath = "External.cs" SubType = "Code"

1 0

externals/clr test-clr.pd,1.5,1.6
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19138 Modified Files: test-clr.pd Log Message: updating examples Index: test-clr.pd =================================================================== RCS file: /cvsroot/pure-data/externals/clr/test-clr.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** test-clr.pd 14 Jan 2006 02:34:17 -0000 1.5 --- test-clr.pd 16 Jan 2006 13:02:33 -0000 1.6 *************** *** 1,30 **** ! #N canvas 73 31 623 538 12; ! #X obj 115 402 clr External External.dll; ! #X obj 122 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X floatatom 138 70 5 0 0 0 - - -; ! #X symbolatom 153 93 10 0 0 0 - - -; ! #X text 219 66 simple messages; ! #X msg 200 130 sel1; ! #X msg 214 153 sel2; ! #X text 261 142 selectors; ! #X msg 223 196 selFloat \$1; ! #X obj 226 177 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; ! #X obj 325 354 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; ! #X text 322 333 mapped to selFloat; ! #X msg 245 274 selGenericList 12 a 0.5 b; ! #X text 244 252 complex list; ! #X obj 114 432 print; ! #X text 204 433 arguments: Class name \, Filename; ! #X connect 0 0 14 0; ! #X connect 1 0 0 0; ! #X connect 2 0 0 0; ! #X connect 3 0 0 0; ! #X connect 5 0 0 0; ! #X connect 6 0 0 0; ! #X connect 8 0 0 0; ! #X connect 9 0 8 0; ! #X connect 10 0 0 1; ! #X connect 12 0 0 0; --- 1,51 ---- ! #N canvas 73 31 756 564 12; ! #X obj 49 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X floatatom 65 70 5 0 0 0 - - -; ! #X symbolatom 80 93 10 0 0 0 - - -; ! #X text 146 66 simple messages; ! #X msg 221 95 sel1; ! #X msg 235 118 sel2; ! #X text 282 107 selectors; ! #X msg 244 161 selFloat \$1; ! #X obj 247 142 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; ! #X obj 227 263 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; ! #X text 224 242 mapped to selFloat; ! #X msg 99 216 selGenericList 12 a 0.5 b; ! #X text 98 194 complex list; ! #X obj 82 297 print; ! #X text 43 329 arguments: Class name \, Filename; ! #X obj 438 353 clr Counter External.dll 2; ! #X obj 83 267 clr External; ! #X text 43 345 you omit filename if is the same as classname; ! #X text 40 411 you can pass arguments; ! #X text 39 431 in this case you must provide filename too; ! #X floatatom 438 392 5 0 0 0 - - -; ! #X floatatom 438 302 5 0 0 0 - - -; ! #X msg 510 299 init 0; ! #X text 36 453 the parameter is the initial value of the counter; ! #X floatatom 641 320 5 0 0 0 - - -; ! #X text 408 244 this external sums the value passed in the left inlet ! with the stored one; ! #X obj 411 305 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X text 287 3 more than one class can be compiled in the same assembly ! ; ! #X text 37 477 NB: a class corresponding constructor must exist; ! #X connect 0 0 16 0; ! #X connect 1 0 16 0; ! #X connect 2 0 16 0; ! #X connect 4 0 16 0; ! #X connect 5 0 16 0; ! #X connect 7 0 16 0; ! #X connect 8 0 7 0; ! #X connect 9 0 16 1; ! #X connect 11 0 16 0; ! #X connect 15 0 20 0; ! #X connect 16 0 13 0; ! #X connect 21 0 15 0; ! #X connect 22 0 15 0; ! #X connect 24 0 15 1; ! #X connect 26 0 15 0;

1 0

externals/clr/pd Atom.cs,1.1,1.2 pd.cs,1.1,1.2
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15459/pd Modified Files: Atom.cs pd.cs Log Message: added arguments at initialization time Index: pd.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/pd.cs,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** pd.cs 14 Jan 2006 02:34:17 -0000 1.1 --- pd.cs 16 Jan 2006 12:44:45 -0000 1.2 *************** *** 26,30 **** ToOutlet (x, outlet, atoms.Length, atoms); } ! // create an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] --- 26,35 ---- ToOutlet (x, outlet, atoms.Length, atoms); } ! public static void SendToOutlet (IntPtr x, int outlet, Atom atom) ! { ! Atom [] atoms = new Atom[1]; ! atoms[0] = atom; ! ToOutlet (x, outlet, atoms.Length, atoms); ! } // create an outlet [MethodImplAttribute (MethodImplOptions.InternalCall)] Index: Atom.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/Atom.cs,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Atom.cs 14 Jan 2006 02:34:17 -0000 1.1 --- Atom.cs 16 Jan 2006 12:44:45 -0000 1.2 *************** *** 19,22 **** --- 19,28 ---- this.string_value = "float"; } + public Atom(int i) + { + this.type = AtomType.Float; + this.float_value = (float) i; + this.string_value = "float"; + } public Atom(string s) {

1 0

externals/clr clr.c,1.7,1.8
by dmorelli 16 Jan '06

16 Jan '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15459 Modified Files: clr.c Log Message: added arguments at initialization time Index: clr.c =================================================================== RCS file: /cvsroot/pure-data/externals/clr/clr.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** clr.c 16 Jan 2006 11:30:26 -0000 1.7 --- clr.c 16 Jan 2006 12:44:44 -0000 1.8 *************** *** 107,111 **** // load the variables and init mono ! static void mono_load(t_clr *x) { // const char *file="D:\\Davide\\cygwin\\home\\Davide\\externalTest1.dll"; --- 107,111 ---- // load the variables and init mono ! static void mono_load(t_clr *x, int argc, t_atom *argv) { // const char *file="D:\\Davide\\cygwin\\home\\Davide\\externalTest1.dll"; *************** *** 113,121 **** MonoMethod *m = NULL, *ctor = NULL, *fail = NULL, *mvalues; gpointer iter; ! gpointer args [1]; int val; ! int i; ! if (x->loaded == 0) --- 113,124 ---- MonoMethod *m = NULL, *ctor = NULL, *fail = NULL, *mvalues; + MonoClassField *classPointer; gpointer iter; ! gpointer *args; int val; ! int i,j; ! int params; ! t_symbol *strsymbol; ! atom_simple *listparams; if (x->loaded == 0) *************** *** 168,172 **** } x->obj = mono_object_new (x->domain, x->klass); ! mono_runtime_object_init (x->obj); /* retrieve all the methods we need */ --- 171,181 ---- } x->obj = mono_object_new (x->domain, x->klass); ! ! //mono_runtime_object_init (x->obj); ! ! if (argc>2) ! params = argc - 2; ! else ! params = 0; /* retrieve all the methods we need */ *************** *** 186,203 **** */ MonoMethodSignature * sig = mono_method_signature (m); ! if (mono_signature_get_param_count (sig) == 2) { ctor = m; } } } ! // call the base functions if (x->setUp) { ! val = x; ! args [0] = &val; ! mono_runtime_invoke (x->setUp, x->obj, args, NULL); post("SetUp() invoked"); - } else { --- 195,220 ---- */ MonoMethodSignature * sig = mono_method_signature (m); ! if (mono_signature_get_param_count (sig) == params) { ctor = m; } } } ! // set the pointer ! classPointer = 0; ! classPointer = mono_class_get_field_from_name (x->klass, "x"); ! if (classPointer) ! { ! mono_field_set_value (x->obj, classPointer, &x); ! ! } else ! { ! error("could not find the x field in %s, it is needed!", x->assemblyname->s_name); ! return; ! } // call the base functions if (x->setUp) { ! mono_runtime_invoke (x->setUp, x->obj, NULL, NULL); post("SetUp() invoked"); } else { *************** *** 205,208 **** --- 222,255 ---- return; } + // now call the class constructor + if (ctor) + { + args = malloc(sizeof(gpointer)*params); + listparams = malloc(sizeof(atom_simple)*params); + for (j=2; j<argc; j++) + { + switch ((argv+j)->a_type) + { + case A_FLOAT: + listparams[j-2].a_type = A_S_FLOAT; + listparams[j-2].float_value = (double) atom_getfloat(argv+j); + args[j-2] = &(listparams[j-2].float_value); + break; + case A_SYMBOL: + listparams[j-2].a_type = A_S_SYMBOL; + strsymbol = atom_getsymbol(argv+j); + listparams[j-2].string_value = mono_string_new (x->domain, strsymbol->s_name); + args[j-2] = listparams[j-2].string_value; + break; + } + } + mono_runtime_invoke (ctor, x->obj, args, NULL); + free(listparams); + free(args); + } else + { + error("%s doesn't have a constructor with %i parameters!",x->assemblyname->s_name, params); + } + // all done without errors x->loaded = 1; *************** *** 670,674 **** // load mono, init the needed vars ! mono_load(x); return (x); --- 717,721 ---- // load mono, init the needed vars ! mono_load(x, argc, argv); return (x);

1 0

← Newer
1
...
13
14
15
16
17
18
19
...
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