Pd-cvs March 2006

pd-cvs@lists.iem.at

16 participants
280 discussions

pd/src s_loader.c,1.4.4.5.2.5,1.4.4.5.2.6
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32631/src Modified Files: Tag: devel_0_39 s_loader.c Log Message: fix loader code for DL_OPEN Index: s_loader.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_loader.c,v retrieving revision 1.4.4.5.2.5 retrieving revision 1.4.4.5.2.6 diff -C2 -d -r1.4.4.5.2.5 -r1.4.4.5.2.6 *** s_loader.c 30 Nov 2005 13:36:58 -0000 1.4.4.5.2.5 --- s_loader.c 6 Mar 2006 14:51:00 -0000 1.4.4.5.2.6 *************** *** 3,6 **** --- 3,12 ---- * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ + /* This would be a possibility, but we define it in the makefile for now + #if defined(__APPLE__) && !defined(DL_OPEN) + #define DL_OPEN 1 + #endif + */ + #ifdef DL_OPEN #include <dlfcn.h> *************** *** 94,98 **** *lastdot = 0; ! #ifdef __APPLE__ strcpy(symname, "_"); strcat(symname, nameptr); --- 100,104 ---- *lastdot = 0; ! #if defined(__APPLE__) && !defined(DL_OPEN) strcpy(symname, "_"); strcat(symname, nameptr); *************** *** 111,116 **** if(!makeout) post("%s: %s",filename,dlerror()); ! #endif ! #ifdef MSW sys_bashfilename(filename, filename); ntdll = LoadLibrary(filename); --- 117,121 ---- if(!makeout) post("%s: %s",filename,dlerror()); ! #elif defined(MSW) sys_bashfilename(filename, filename); ntdll = LoadLibrary(filename); *************** *** 122,127 **** } makeout = (t_xxx)GetProcAddress(ntdll, symname); ! #endif ! #ifdef __APPLE__ { NSObjectFileImage image; --- 127,131 ---- } makeout = (t_xxx)GetProcAddress(ntdll, symname); ! #elif defined(__APPLE__) { NSObjectFileImage image;

1 0

externals/zexy/src Makefile,1.8,1.9
by IOhannes m zmölnig 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv449 Modified Files: Makefile Log Message: better dependencies; regenerate z_zexy.{c,h} if necessary Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/Makefile,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Makefile 15 Dec 2005 16:06:56 -0000 1.8 --- Makefile 6 Mar 2006 11:44:59 -0000 1.9 *************** *** 5,12 **** install install-bin install-doc install-abs ! SOURCES=$(sort $(filter %.c, $(wildcard *.c))) ! ! Make.config: Make.config.in configure ! ./configure zexyconf.h: zexyconf.h.in configure --- 5,9 ---- install install-bin install-doc install-abs ! SOURCES=$(sort $(filter %.c, $(wildcard *.c)) z_zexy.c) zexyconf.h: zexyconf.h.in configure *************** *** 21,27 **** ifeq (,$(findstring clean, $(MAKECMDGOALS))) -include $(SOURCES:.c=.d) ! -include Make.config endif ## 2nd only generate depend-files when we have Make.config included ## and thus MAKEDEP_FLAGS defined --- 18,32 ---- ifeq (,$(findstring clean, $(MAKECMDGOALS))) -include $(SOURCES:.c=.d) ! ! Make.config: Make.config.in configure ! ./configure ! ! z_zexy.c z_zexy.h: ! ./makesource.sh endif + -include Make.config + + ## 2nd only generate depend-files when we have Make.config included ## and thus MAKEDEP_FLAGS defined *************** *** 44,48 **** cp $(LIBNAME).$(EXT) .. ! $(LIBNAME): $(TARGETS) $(LD) $(LFLAGS) -o $(LIBNAME).$(EXT) *.o $(LIBS) $(STRIP) $(STRIPFLAGS) $(LIBNAME).$(EXT) --- 49,53 ---- cp $(LIBNAME).$(EXT) .. ! $(LIBNAME): $(TARGETS) z_zexy.c z_zexy.h $(LD) $(LFLAGS) -o $(LIBNAME).$(EXT) *.o $(LIBS) $(STRIP) $(STRIPFLAGS) $(LIBNAME).$(EXT)

1 0

externals/zexy/src z_zexy.h,1.10,1.11 z_zexy.c,1.10,1.11
by IOhannes m zmölnig 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32412 Modified Files: z_zexy.h z_zexy.c Log Message: reordering of the setup-functions (weird...) Index: z_zexy.h =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z_zexy.h,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** z_zexy.h 10 Feb 2006 15:16:24 -0000 1.10 --- z_zexy.h 6 Mar 2006 11:43:59 -0000 1.11 *************** *** 13,18 **** void setup_0x7c0x7c0x7e(void); /* 0x7c0x7c0x7e */ void a2l_setup(void); /* a2l */ - void absgn_tilde_setup(void); /* absgn~ */ void abs_tilde_setup(void); /* abs~ */ void atoi_setup(void); /* atoi */ void avg_tilde_setup(void); /* avg~ */ --- 13,18 ---- void setup_0x7c0x7c0x7e(void); /* 0x7c0x7c0x7e */ void a2l_setup(void); /* a2l */ void abs_tilde_setup(void); /* abs~ */ + void absgn_tilde_setup(void); /* absgn~ */ void atoi_setup(void); /* atoi */ void avg_tilde_setup(void); /* avg~ */ *************** *** 20,25 **** void blockswap_tilde_setup(void); /* blockswap~ */ void date_setup(void); /* date */ - void demultiplex_setup(void); /* demultiplex */ void demultiplex_tilde_setup(void); /* demultiplex~ */ void dfreq_tilde_setup(void); /* dfreq~ */ void dirac_tilde_setup(void); /* dirac~ */ --- 20,25 ---- void blockswap_tilde_setup(void); /* blockswap~ */ void date_setup(void); /* date */ void demultiplex_tilde_setup(void); /* demultiplex~ */ + void demultiplex_setup(void); /* demultiplex */ void dfreq_tilde_setup(void); /* dfreq~ */ void dirac_tilde_setup(void); /* dirac~ */ *************** *** 41,52 **** void msgfile_setup(void); /* msgfile */ void multiline_tilde_setup(void); /* multiline~ */ - void multiplex_setup(void); /* multiplex */ void multiplex_tilde_setup(void); /* multiplex~ */ void niagara_setup(void); /* niagara */ void noish_tilde_setup(void); /* noish~ */ void noisi_tilde_setup(void); /* noisi~ */ void operating_system_setup(void); /* operating_system */ - void packel_setup(void); /* packel */ void pack_tilde_setup(void); /* pack~ */ void pdf_tilde_setup(void); /* pdf~ */ void prime_setup(void); /* prime */ --- 41,52 ---- void msgfile_setup(void); /* msgfile */ void multiline_tilde_setup(void); /* multiline~ */ void multiplex_tilde_setup(void); /* multiplex~ */ + void multiplex_setup(void); /* multiplex */ void niagara_setup(void); /* niagara */ void noish_tilde_setup(void); /* noish~ */ void noisi_tilde_setup(void); /* noisi~ */ void operating_system_setup(void); /* operating_system */ void pack_tilde_setup(void); /* pack~ */ + void packel_setup(void); /* packel */ void pdf_tilde_setup(void); /* pdf~ */ void prime_setup(void); /* prime */ Index: z_zexy.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z_zexy.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** z_zexy.c 10 Feb 2006 15:16:24 -0000 1.10 --- z_zexy.c 6 Mar 2006 11:43:59 -0000 1.11 *************** *** 15,20 **** setup_0x7c0x7c0x7e(); /* 0x7c0x7c0x7e */ a2l_setup(); /* a2l */ - absgn_tilde_setup(); /* absgn~ */ abs_tilde_setup(); /* abs~ */ atoi_setup(); /* atoi */ avg_tilde_setup(); /* avg~ */ --- 15,20 ---- setup_0x7c0x7c0x7e(); /* 0x7c0x7c0x7e */ a2l_setup(); /* a2l */ abs_tilde_setup(); /* abs~ */ + absgn_tilde_setup(); /* absgn~ */ atoi_setup(); /* atoi */ avg_tilde_setup(); /* avg~ */ *************** *** 22,27 **** blockswap_tilde_setup(); /* blockswap~ */ date_setup(); /* date */ - demultiplex_setup(); /* demultiplex */ demultiplex_tilde_setup(); /* demultiplex~ */ dfreq_tilde_setup(); /* dfreq~ */ dirac_tilde_setup(); /* dirac~ */ --- 22,27 ---- blockswap_tilde_setup(); /* blockswap~ */ date_setup(); /* date */ demultiplex_tilde_setup(); /* demultiplex~ */ + demultiplex_setup(); /* demultiplex */ dfreq_tilde_setup(); /* dfreq~ */ dirac_tilde_setup(); /* dirac~ */ *************** *** 43,54 **** msgfile_setup(); /* msgfile */ multiline_tilde_setup(); /* multiline~ */ - multiplex_setup(); /* multiplex */ multiplex_tilde_setup(); /* multiplex~ */ niagara_setup(); /* niagara */ noish_tilde_setup(); /* noish~ */ noisi_tilde_setup(); /* noisi~ */ operating_system_setup(); /* operating_system */ - packel_setup(); /* packel */ pack_tilde_setup(); /* pack~ */ pdf_tilde_setup(); /* pdf~ */ prime_setup(); /* prime */ --- 43,54 ---- msgfile_setup(); /* msgfile */ multiline_tilde_setup(); /* multiline~ */ multiplex_tilde_setup(); /* multiplex~ */ + multiplex_setup(); /* multiplex */ niagara_setup(); /* niagara */ noish_tilde_setup(); /* noish~ */ noisi_tilde_setup(); /* noisi~ */ operating_system_setup(); /* operating_system */ pack_tilde_setup(); /* pack~ */ + packel_setup(); /* packel */ pdf_tilde_setup(); /* pdf~ */ prime_setup(); /* prime */

1 0

externals/clr/external Counter.cs,1.4,1.5
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11843/clr/external Modified Files: Counter.cs Log Message: avoid memory allocation look up virtual methods Index: Counter.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/Counter.cs,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Counter.cs 6 Mar 2006 00:35:40 -0000 1.4 --- Counter.cs 6 Mar 2006 01:10:36 -0000 1.5 *************** *** 9,13 **** public Counter(PureData.AtomList args) { ! Post("Count.ctor"); // pd.AddInlet(x, "init", ParametersType.Float); --- 9,13 ---- public Counter(PureData.AtomList args) { ! Post("Count.ctor "+args.ToString()); // pd.AddInlet(x, "init", ParametersType.Float);

1 0

externals/clr/pd PureData.cs,1.3,1.4
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11843/clr/pd Modified Files: PureData.cs Log Message: avoid memory allocation look up virtual methods Index: PureData.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/PureData.cs,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PureData.cs 6 Mar 2006 00:35:40 -0000 1.3 --- PureData.cs 6 Mar 2006 01:10:36 -0000 1.4 *************** *** 34,48 **** private readonly void *ptr; ! protected virtual void MethodBang() { Post("No bang handler"); } ! protected virtual void MethodFloat(float f) { Post("No float handler"); } ! protected virtual void MethodSymbol(Symbol s) { Post("No symbol handler"); } ! protected virtual void MethodPointer(Pointer p) { Post("No pointer handler");} ! protected virtual void MethodList(AtomList lst) { Post("No list handler"); } ! protected virtual void MethodAnything(Symbol tag,AtomList lst) { Post("No anything handler"); } } } --- 34,48 ---- private readonly void *ptr; ! protected virtual void MethodBang() { throw new System.NotImplementedException("Bang handler not defined"); } ! protected virtual void MethodFloat(float f) { throw new System.NotImplementedException("Float handler not defined"); } ! protected virtual void MethodSymbol(Symbol s) { throw new System.NotImplementedException("Symbol handler not defined"); } ! protected virtual void MethodPointer(Pointer p) { throw new System.NotImplementedException("Pointer handler not defined"); } ! protected virtual void MethodList(AtomList lst) { throw new System.NotImplementedException("List handler not defined"); } ! protected virtual void MethodAnything(Symbol tag,AtomList lst) { throw new System.NotImplementedException("Anything handler not defined"); } } }

1 0

externals/clr clr.cpp,1.5,1.6 test-clr.pd,1.8,1.9
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11843/clr Modified Files: clr.cpp test-clr.pd Log Message: avoid memory allocation look up virtual methods Index: test-clr.pd =================================================================== RCS file: /cvsroot/pure-data/externals/clr/test-clr.pd,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** test-clr.pd 27 Jan 2006 22:53:18 -0000 1.8 --- test-clr.pd 6 Mar 2006 01:10:36 -0000 1.9 *************** *** 1,12 **** ! #N canvas 0 0 454 304 12; ! #X obj 114 183 Counter; ! #X floatatom 35 70 5 0 0 0 - - -; ! #X msg 91 67 bang; ! #X msg 145 69 1 2 3; ! #X symbolatom 204 72 10 0 0 0 - - -; ! #X msg 209 111 msg one 2 three; ! #X connect 1 0 0 0; ! #X connect 2 0 0 0; ! #X connect 3 0 0 0; ! #X connect 4 0 0 0; ! #X connect 5 0 0 0; --- 1,12 ---- ! #N canvas 0 0 458 308 12; ! #X floatatom 35 70 5 0 0 0 - - -; ! #X msg 91 67 bang; ! #X msg 145 69 1 2 3; ! #X symbolatom 204 72 10 0 0 0 - - -; ! #X msg 209 111 msg one 2 three; ! #X obj 114 183 Counter a b 5; ! #X connect 0 0 5 0; ! #X connect 1 0 5 0; ! #X connect 2 0 5 0; ! #X connect 3 0 5 0; ! #X connect 4 0 5 0; Index: clr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/clr/clr.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** clr.cpp 6 Mar 2006 00:35:39 -0000 1.5 --- clr.cpp 6 Mar 2006 01:10:36 -0000 1.6 *************** *** 30,36 **** static MonoDomain *monodomain; ! static MonoClass *clr_symbol,*clr_pointer,*clr_atom,*clr_atomlist; static MonoMethodDesc *clr_desc_main,*clr_desc_ctor; static MonoMethodDesc *clr_desc_bang,*clr_desc_float,*clr_desc_symbol,*clr_desc_pointer,*clr_desc_list,*clr_desc_anything; typedef std::map<t_symbol *,MonoMethod *> ClrMethodMap; --- 30,37 ---- static MonoDomain *monodomain; ! static MonoClass *clr_symbol,*clr_pointer,*clr_atom,*clr_atomlist,*clr_external; static MonoMethodDesc *clr_desc_main,*clr_desc_ctor; static MonoMethodDesc *clr_desc_bang,*clr_desc_float,*clr_desc_symbol,*clr_desc_pointer,*clr_desc_list,*clr_desc_anything; + static MonoMethod *ext_method_bang,*ext_method_float,*ext_method_symbol,*ext_method_list,*ext_method_pointer,*ext_method_anything; typedef std::map<t_symbol *,MonoMethod *> ClrMethodMap; *************** *** 45,49 **** MonoClassField *mono_obj_field; MonoMethod *mono_ctor; - MonoMethod *method_bang,*method_float, *method_symbol,*method_list,*method_pointer,*method_anything; // ClrMethodMap *methods; } t_clr_class; --- 46,49 ---- *************** *** 68,74 **** static void clr_method_bang(t_clr *x) { ! assert(x && x->clr_clss && x->clr_clss->method_bang); MonoObject *exc; ! mono_runtime_invoke(x->clr_clss->method_bang,x->mono_obj,NULL,&exc); if(exc) { error("Exception raised"); --- 68,76 ---- static void clr_method_bang(t_clr *x) { ! assert(x && x->clr_clss); ! MonoMethod *m = mono_object_get_virtual_method(x->mono_obj,ext_method_bang); ! assert(m); MonoObject *exc; ! mono_runtime_invoke(m,x->mono_obj,NULL,&exc); if(exc) { error("Exception raised"); *************** *** 78,85 **** static void clr_method_float(t_clr *x,t_float f) { ! assert(x && x->clr_clss && x->clr_clss->method_float); gpointer args = &f; MonoObject *exc; ! mono_runtime_invoke(x->clr_clss->method_float,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); --- 80,89 ---- static void clr_method_float(t_clr *x,t_float f) { ! assert(x && x->clr_clss); ! MonoMethod *m = mono_object_get_virtual_method(x->mono_obj,ext_method_float); ! assert(m); gpointer args = &f; MonoObject *exc; ! mono_runtime_invoke(m,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); *************** *** 89,98 **** static void clr_method_symbol(t_clr *x,t_symbol *s) { ! assert(x && x->clr_clss && x->clr_clss->method_symbol); MonoObject *symobj = mono_value_box(monodomain,clr_symbol,&s); MonoObject *o = (MonoObject *)mono_object_unbox(symobj); gpointer args = o; MonoObject *exc; ! mono_runtime_invoke(x->clr_clss->method_symbol,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); --- 93,108 ---- static void clr_method_symbol(t_clr *x,t_symbol *s) { ! assert(x && x->clr_clss); ! MonoMethod *m = mono_object_get_virtual_method(x->mono_obj,ext_method_symbol); ! assert(m); ! #if 0 MonoObject *symobj = mono_value_box(monodomain,clr_symbol,&s); MonoObject *o = (MonoObject *)mono_object_unbox(symobj); gpointer args = o; + #else + gpointer args = &s; + #endif MonoObject *exc; ! mono_runtime_invoke(m,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); *************** *** 104,114 **** int argc; t_atom *argv; }; static MonoObject *new_AtomList(int argc,t_atom *argv) { ! AtomList al; ! al.argc = argc; ! al.argv = argv; MonoObject *lstobj = mono_value_box(monodomain,clr_atomlist,&al); MonoObject *o = (MonoObject *)mono_object_unbox(lstobj); --- 114,124 ---- int argc; t_atom *argv; + + AtomList(int c,t_atom *v): argc(c),argv(v) {} }; static MonoObject *new_AtomList(int argc,t_atom *argv) { ! AtomList al(argc,argv); MonoObject *lstobj = mono_value_box(monodomain,clr_atomlist,&al); MonoObject *o = (MonoObject *)mono_object_unbox(lstobj); *************** *** 126,141 **** static void clr_method_list(t_clr *x,t_symbol *l, int argc, t_atom *argv) { ! assert(x && x->clr_clss && x->clr_clss->method_list); ! #if 1 // make PureData.AtomList value type ! MonoObject *lstobj = new_AtomList(argc,argv); #else // make PureData.Atom[] array - copy data MonoArray *lstobj = new_Atoms(argc,argv); - #endif gpointer args = lstobj; MonoObject *exc; ! mono_runtime_invoke(x->clr_clss->method_list,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); --- 136,155 ---- static void clr_method_list(t_clr *x,t_symbol *l, int argc, t_atom *argv) { ! assert(x && x->clr_clss); ! MonoMethod *m = mono_object_get_virtual_method(x->mono_obj,ext_method_list); ! assert(m); #if 1 // make PureData.AtomList value type ! // MonoObject *lstobj = new_AtomList(argc,argv); ! // gpointer args = lstobj; ! AtomList al(argc,argv); ! gpointer args = &al; #else // make PureData.Atom[] array - copy data MonoArray *lstobj = new_Atoms(argc,argv); gpointer args = lstobj; + #endif MonoObject *exc; ! mono_runtime_invoke(m,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); *************** *** 145,154 **** static void clr_method_pointer(t_clr *x,t_gpointer *p) { ! assert(x && x->clr_clss && x->clr_clss->method_pointer); MonoObject *ptrobj = mono_value_box(monodomain,clr_pointer,&p); MonoObject *o = (MonoObject *)mono_object_unbox(ptrobj); gpointer args = o; MonoObject *exc; ! mono_runtime_invoke(x->clr_clss->method_pointer,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); --- 159,174 ---- static void clr_method_pointer(t_clr *x,t_gpointer *p) { ! assert(x && x->clr_clss); ! MonoMethod *m = mono_object_get_virtual_method(x->mono_obj,ext_method_pointer); ! assert(m); ! #if 0 MonoObject *ptrobj = mono_value_box(monodomain,clr_pointer,&p); MonoObject *o = (MonoObject *)mono_object_unbox(ptrobj); gpointer args = o; + #else + gpointer args = &p; + #endif MonoObject *exc; ! mono_runtime_invoke(m,x->mono_obj,&args,&exc); if(exc) { error("Exception raised"); *************** *** 174,178 **** post("CLR - no method for %s found",sl->s_name); #else ! assert(x && x->clr_clss && x->clr_clss->method_anything); #endif } --- 194,198 ---- post("CLR - no method for %s found",sl->s_name); #else ! assert(x && x->clr_clss); #endif } *************** *** 303,308 **** --- 323,333 ---- // ok, we have an object - look for constructor if(clss->mono_ctor) { + #if 1 + AtomList al(argc,argv); + gpointer args = &al; + #else MonoObject *lstobj = new_AtomList(argc,argv); gpointer args = lstobj; + #endif MonoObject *exc; *************** *** 412,415 **** --- 437,441 ---- clr_class->mono_ctor = mono_method_desc_search_in_class(clr_desc_ctor,clr_class->mono_class); + #if 0 // find && register methods if((clr_class->method_bang = mono_method_desc_search_in_class(clr_desc_bang,clr_class->mono_class)) != NULL) *************** *** 425,429 **** if((clr_class->method_anything = mono_method_desc_search_in_class(clr_desc_anything,clr_class->mono_class)) != NULL) class_addanything(clr_class->pd_class,clr_method_anything); ! // put into map --- 451,469 ---- if((clr_class->method_anything = mono_method_desc_search_in_class(clr_desc_anything,clr_class->mono_class)) != NULL) class_addanything(clr_class->pd_class,clr_method_anything); ! #else ! // register methods ! if(ext_method_bang) ! class_addbang(clr_class->pd_class,clr_method_bang); ! if(ext_method_float) ! class_addfloat(clr_class->pd_class,clr_method_float); ! if(ext_method_symbol) ! class_addsymbol(clr_class->pd_class,clr_method_symbol); ! if(ext_method_pointer) ! class_addpointer(clr_class->pd_class,clr_method_pointer); ! if(ext_method_list) ! class_addlist(clr_class->pd_class,clr_method_list); ! if(ext_method_anything) ! class_addanything(clr_class->pd_class,clr_method_anything); ! #endif // put into map *************** *** 498,501 **** --- 538,543 ---- clr_atomlist = mono_class_from_name(image,"PureData","AtomList"); assert(clr_atomlist); + clr_external = mono_class_from_name(image,"PureData","External"); + assert(clr_external); clr_desc_main = mono_method_desc_new("::Main()",FALSE); *************** *** 517,520 **** --- 559,570 ---- assert(clr_desc_anything); + // find abstract methods + ext_method_bang = mono_method_desc_search_in_class(clr_desc_bang,clr_external); + ext_method_float = mono_method_desc_search_in_class(clr_desc_float,clr_external); + ext_method_symbol = mono_method_desc_search_in_class(clr_desc_symbol,clr_external); + ext_method_pointer = mono_method_desc_search_in_class(clr_desc_pointer,clr_external); + ext_method_list = mono_method_desc_search_in_class(clr_desc_list,clr_external); + ext_method_anything = mono_method_desc_search_in_class(clr_desc_anything,clr_external); + // install loader hook sys_loader(classloader);

1 0

externals/clr/pd Atom.cs, 1.5, 1.6 PureData.cs, 1.2, 1.3 pd.csproj, 1.2, 1.3
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28852/clr/pd Modified Files: Atom.cs PureData.cs pd.csproj Log Message: many improvements: - efficient symbol and atom list handling - better control over function arguments Index: PureData.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/PureData.cs,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PureData.cs 28 Jan 2006 10:36:25 -0000 1.2 --- PureData.cs 6 Mar 2006 00:35:40 -0000 1.3 *************** *** 1,9 **** using System; using System.Runtime.CompilerServices; // for extern import namespace PureData { // PD core functions ! public class Core { [MethodImplAttribute (MethodImplOptions.InternalCall)] --- 1,10 ---- using System; using System.Runtime.CompilerServices; // for extern import + using System.Runtime.InteropServices; // for structures namespace PureData { // PD core functions ! public unsafe class Core { [MethodImplAttribute (MethodImplOptions.InternalCall)] *************** *** 20,35 **** [MethodImplAttribute (MethodImplOptions.InternalCall)] ! public extern static IntPtr GenSym(string sym); [MethodImplAttribute (MethodImplOptions.InternalCall)] ! public extern static string EvalSym(Symbol sym); } // This is the base class for a PD/CLR external ! public class External : Core { ! private readonly IntPtr ptr; ! protected virtual void MethodBang() { Post("No bang handler"); } --- 21,37 ---- [MethodImplAttribute (MethodImplOptions.InternalCall)] ! internal extern static void *SymGen(string sym); [MethodImplAttribute (MethodImplOptions.InternalCall)] ! internal extern static string SymEval(void *sym); } // This is the base class for a PD/CLR external ! public unsafe class External : Core { ! // PD object pointer ! private readonly void *ptr; ! protected virtual void MethodBang() { Post("No bang handler"); } *************** *** 40,46 **** protected virtual void MethodPointer(Pointer p) { Post("No pointer handler");} ! protected virtual void MethodList(Atom[] lst) { Post("No list handler"); } ! protected virtual void MethodAnything(Atom[] lst) { Post("No list handler"); } } } --- 42,48 ---- protected virtual void MethodPointer(Pointer p) { Post("No pointer handler");} ! protected virtual void MethodList(AtomList lst) { Post("No list handler"); } ! protected virtual void MethodAnything(Symbol tag,AtomList lst) { Post("No anything handler"); } } } Index: pd.csproj =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/pd.csproj,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** pd.csproj 27 Jan 2006 22:50:00 -0000 1.2 --- pd.csproj 6 Mar 2006 00:35:40 -0000 1.3 *************** *** 1,105 **** ! <VisualStudioProject> ! <CSHARP ! ProjectType = "Local" ! ProductVersion = "7.10.3077" ! SchemaVersion = "2.0" ! ProjectGuid = "{FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}" ! > ! <Build> ! <Settings ! ApplicationIcon = "" ! AssemblyKeyContainerName = "" ! AssemblyName = "PureData" ! AssemblyOriginatorKeyFile = "" ! DefaultClientScript = "JScript" ! DefaultHTMLPageLayout = "Grid" ! DefaultTargetSchema = "IE50" ! DelaySign = "false" ! OutputType = "Library" ! PreBuildEvent = "" ! PostBuildEvent = "" ! RootNamespace = "PureData" ! RunPostBuildEvent = "OnBuildSuccess" ! StartupObject = "" ! > ! <Config ! Name = "Debug" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "DEBUG;TRACE" ! DocumentationFile = "" ! DebugSymbols = "true" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "false" ! OutputPath = "..\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! <Config ! Name = "Release" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "TRACE" ! DocumentationFile = "" ! DebugSymbols = "false" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "true" ! OutputPath = "bin\Release\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! </Settings> ! <References> ! <Reference ! Name = "System" ! AssemblyName = "System" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.dll" ! /> ! <Reference ! Name = "System.Data" ! AssemblyName = "System.Data" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.Data.dll" ! /> ! <Reference ! Name = "System.XML" ! AssemblyName = "System.Xml" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.XML.dll" ! /> ! </References> ! </Build> ! <Files> ! <Include> ! <File ! RelPath = "AssemblyInfo.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "Atom.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "PureData.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! </Include> ! </Files> ! </CSHARP> ! </VisualStudioProject> ! --- 1,105 ---- ! <VisualStudioProject> ! <CSHARP ! ProjectType = "Local" ! ProductVersion = "7.10.3077" ! SchemaVersion = "2.0" ! ProjectGuid = "{FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}" ! > ! <Build> ! <Settings ! ApplicationIcon = "" ! AssemblyKeyContainerName = "" ! AssemblyName = "PureData" ! AssemblyOriginatorKeyFile = "" ! DefaultClientScript = "JScript" ! DefaultHTMLPageLayout = "Grid" ! DefaultTargetSchema = "IE50" ! DelaySign = "false" ! OutputType = "Library" ! PreBuildEvent = "" ! PostBuildEvent = "" ! RootNamespace = "PureData" ! RunPostBuildEvent = "OnBuildSuccess" ! StartupObject = "" ! > ! <Config ! Name = "Debug" ! AllowUnsafeBlocks = "true" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "DEBUG;TRACE" ! DocumentationFile = "" ! DebugSymbols = "true" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "false" ! OutputPath = "..\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! <Config ! Name = "Release" ! AllowUnsafeBlocks = "true" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "TRACE" ! DocumentationFile = "" ! DebugSymbols = "false" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "true" ! OutputPath = "bin\Release\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! </Settings> ! <References> ! <Reference ! Name = "System" ! AssemblyName = "System" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.dll" ! /> ! <Reference ! Name = "System.Data" ! AssemblyName = "System.Data" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.Data.dll" ! /> ! <Reference ! Name = "System.XML" ! AssemblyName = "System.Xml" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.XML.dll" ! /> ! </References> ! </Build> ! <Files> ! <Include> ! <File ! RelPath = "AssemblyInfo.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "Atom.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "PureData.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! </Include> ! </Files> ! </CSHARP> ! </VisualStudioProject> ! Index: Atom.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/pd/Atom.cs,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Atom.cs 28 Jan 2006 10:36:25 -0000 1.5 --- Atom.cs 6 Mar 2006 00:35:40 -0000 1.6 *************** *** 1,61 **** using System; using System.Runtime.InteropServices; // for structures namespace PureData { - public enum AtomType {Null = 0, Float = 1, Symbol = 2, Pointer = 3}; - [StructLayout (LayoutKind.Sequential)] ! sealed public class Symbol { ! // this should NOT be public ! readonly private IntPtr ptr; ! ! public Symbol(IntPtr p) ! { ! ptr = p; ! } ! ! public Symbol(Symbol s) ! { ! ptr = s.ptr; ! } public Symbol(string s) { ! ptr = Core.GenSym(s); } ! ! override public string ToString() { ! return Core.EvalSym(this); } } [StructLayout (LayoutKind.Sequential)] ! sealed public class Pointer { ! public IntPtr ptr; ! } ! [StructLayout (LayoutKind.Explicit)] ! public struct Word ! { ! [FieldOffset(0)] public float w_float; ! [FieldOffset(0)] public Symbol w_symbol; ! [FieldOffset(0)] public Pointer w_pointer; } - //[StructLayout (LayoutKind.Explicit)] [StructLayout (LayoutKind.Sequential)] ! sealed public class Atom { ! ! public AtomType type; ! public Word word; public Atom(float f) { type = AtomType.Float; word.w_float = f; } --- 1,62 ---- using System; using System.Runtime.InteropServices; // for structures + using System.Collections; + #if NET_2_0 + using System.Collections.Generic; + #endif namespace PureData { [StructLayout (LayoutKind.Sequential)] ! public unsafe struct Symbol { ! // this should NOT be public (or at least read only) ! private readonly void *sym; public Symbol(string s) { ! sym = Core.SymGen(s); } ! ! public override string ToString() { ! return Core.SymEval(sym); } } [StructLayout (LayoutKind.Sequential)] ! public unsafe struct Pointer { ! private readonly void *ptr; ! public override string ToString() ! { ! if(sizeof(void *) == 4) ! return ((int)ptr).ToString(); ! else ! return ((long)ptr).ToString(); ! } } [StructLayout (LayoutKind.Sequential)] ! public unsafe struct Atom { ! private enum AtomType {Null = 0, Float = 1, Symbol = 2, Pointer = 3}; ! ! [StructLayout (LayoutKind.Explicit)] ! private struct Word ! { ! [FieldOffset(0)] public float w_float; ! [FieldOffset(0)] public Symbol w_sym; ! [FieldOffset(0)] public Pointer w_ptr; ! } ! ! private AtomType type; ! private Word word; public Atom(float f) { type = AtomType.Float; + word = new Word(); word.w_float = f; } *************** *** 64,67 **** --- 65,69 ---- { type = AtomType.Float; + word = new Word(); word.w_float = (float)i; } *************** *** 70,74 **** { type = AtomType.Symbol; ! word.w_symbol = s; } --- 72,77 ---- { type = AtomType.Symbol; ! word = new Word(); ! word.w_sym = s; } *************** *** 76,104 **** { type = AtomType.Symbol; ! word.w_symbol = new Symbol(s); } ! } ! ! // 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; ! }; ! */ ! } \ No newline at end of file --- 79,270 ---- { type = AtomType.Symbol; ! word = new Word(); ! word.w_sym = new Symbol(s); } ! ! public Atom(Pointer p) ! { ! type = AtomType.Pointer; ! word = new Word(); ! word.w_ptr = p; ! } ! ! public bool IsFloat { get { return type == AtomType.Float; } } ! public bool IsSymbol { get { return type == AtomType.Symbol; } } ! public bool IsPointer { get { return type == AtomType.Pointer; } } ! ! public float ToFloat() ! { ! if(IsFloat) ! return word.w_float; ! else ! throw new System.InvalidCastException("Can't be cast to float."); ! } ! ! public Symbol ToSymbol() ! { ! if(IsSymbol) ! return word.w_sym; ! else ! throw new System.InvalidCastException("Can't be cast to Symbol."); ! } ! ! public Pointer ToPointer() ! { ! if(IsPointer) ! return word.w_ptr; ! else ! throw new System.InvalidCastException("Can't be cast to Pointer."); ! } ! ! override public string ToString() ! { ! if(IsFloat) ! return word.w_float.ToString(); ! else if(IsSymbol) ! return word.w_sym.ToString(); ! else if(IsPointer) ! return word.w_ptr.ToString(); ! else ! // should never happen ! throw new System.InvalidProgramException("Internal error."); ! } ! ! public static explicit operator float(Atom a) ! { ! return a.ToFloat(); ! } ! ! public static explicit operator Symbol(Atom a) ! { ! return a.ToSymbol(); ! } ! ! public static explicit operator Pointer(Atom a) ! { ! return a.ToPointer(); ! } ! } ! public class AtomListEnum ! : IEnumerator ! { ! public AtomList list; ! // Enumerators are positioned before the first element ! // until the first MoveNext() call. ! int position = -1; ! public AtomListEnum(AtomList l) ! { ! list = l; ! } ! ! public bool MoveNext() ! { ! return ++position < list.Count; ! } ! ! public void Reset() ! { ! position = -1; ! } ! ! public object Current ! { ! get ! { ! try ! { ! return list[position]; ! } ! catch (IndexOutOfRangeException) ! { ! throw new InvalidOperationException(); ! } ! } ! } ! } ! ! ! // attention: this is dangerous, because we could do the following ! // AtomList l2 = l; ! // with l also being an AtomList... the two private memebers will get copied, although atoms is only a temporary reference ! ! [StructLayout (LayoutKind.Sequential)] ! unsafe public struct AtomList ! #if NET_2_0 ! : ICollection<Atom> ! #else ! : ICollection ! #endif ! { ! private readonly int len; ! private readonly Atom *atoms; ! ! public int Count { get { return len; } } ! #if NET_2_0 ! public bool IsReadOnly { get { return false; } } // member of generic.ICollection<Atom> (C# 2.0) ! #endif ! public bool IsSynchronized { get { return false; } } ! public Object SyncRoot { get { return null; } } ! ! // protect this from being used ! private AtomList(AtomList a) { len = 0; atoms = null; } ! ! #if NET_2_0 ! public void CopyTo(Atom[] array,int start) ! #else ! public void CopyTo(Array array,int start) ! #endif ! { ! if(len > array.GetUpperBound(0)+1-start) ! throw new System.ArgumentException("Destination array is not long enough."); ! int i; ! for(i = 0; i < len-start; ++i) ! array.SetValue(atoms[start+i],i); ! } ! ! public IEnumerator GetEnumerator() ! { ! return new AtomListEnum(this); ! } ! ! public Atom this[int i] ! { ! get ! { ! if(i < 0 || i >= len) ! throw new System.IndexOutOfRangeException("Index outside array bounds."); ! return atoms[i]; ! } ! set ! { ! if(i < 0 || i >= len) ! throw new System.IndexOutOfRangeException("Index outside array bounds."); ! atoms[i] = value; ! } ! } ! ! #if !NET_2_0 ! public static explicit operator Atom[](AtomList l) ! { ! Atom[] ret = new Atom[l.Count]; ! int i; ! for(i = 0; i < l.Count; ++i) ret[i] = l.atoms[i]; ! return ret; ! } ! #endif ! ! override public string ToString() ! { ! string n = "{"; ! if(len > 0) { ! int i; ! for(i = 0; i < len-1; ++i) n += atoms[i].ToString()+","; ! n += atoms[i].ToString(); ! } ! return n+"}"; ! } ! } ! }

1 0

[PD-cvs] externals/clr/external Counter.cs, 1.3, 1.4 external.csproj, 1.5, 1.6
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr/external In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28852/clr/external Modified Files: Counter.cs external.csproj Log Message: many improvements: - efficient symbol and atom list handling - better control over function arguments Index: external.csproj =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/external.csproj,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** external.csproj 27 Jan 2006 22:51:15 -0000 1.5 --- external.csproj 6 Mar 2006 00:35:40 -0000 1.6 *************** *** 1,106 **** ! <VisualStudioProject> ! <CSHARP ! ProjectType = "Local" ! ProductVersion = "7.10.3077" ! SchemaVersion = "2.0" ! ProjectGuid = "{FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}" ! > ! <Build> ! <Settings ! ApplicationIcon = "" ! AssemblyKeyContainerName = "" ! AssemblyName = "External" ! AssemblyOriginatorKeyFile = "" ! DefaultClientScript = "JScript" ! DefaultHTMLPageLayout = "Grid" ! DefaultTargetSchema = "IE50" ! DelaySign = "false" ! OutputType = "Library" ! PreBuildEvent = "" ! PostBuildEvent = "" ! RootNamespace = "PureData" ! RunPostBuildEvent = "OnBuildSuccess" ! StartupObject = "" ! > ! <Config ! Name = "Debug" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "DEBUG;TRACE" ! DocumentationFile = "" ! DebugSymbols = "true" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "false" ! OutputPath = "..\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! <Config ! Name = "Release" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "TRACE" ! DocumentationFile = "" ! DebugSymbols = "false" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "true" ! OutputPath = "bin\Release\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! </Settings> ! <References> ! <Reference ! Name = "System" ! AssemblyName = "System" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.dll" ! /> ! <Reference ! Name = "System.Data" ! AssemblyName = "System.Data" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.Data.dll" ! /> ! <Reference ! Name = "System.XML" ! AssemblyName = "System.Xml" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.XML.dll" ! /> ! <Reference ! Name = "PureData" ! AssemblyName = "PureData" ! HintPath = "..\PureData.dll" ! Private = "False" ! /> ! </References> ! </Build> ! <Files> ! <Include> ! <File ! RelPath = "AssemblyInfo.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "Counter.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! </Include> ! </Files> ! </CSHARP> ! </VisualStudioProject> ! --- 1,106 ---- ! <VisualStudioProject> ! <CSHARP ! ProjectType = "Local" ! ProductVersion = "7.10.3077" ! SchemaVersion = "2.0" ! ProjectGuid = "{FFBC9D2E-1FB7-4E82-B5DC-46B31F8A58A2}" ! > ! <Build> ! <Settings ! ApplicationIcon = "" ! AssemblyKeyContainerName = "" ! AssemblyName = "Counter" ! AssemblyOriginatorKeyFile = "" ! DefaultClientScript = "JScript" ! DefaultHTMLPageLayout = "Grid" ! DefaultTargetSchema = "IE50" ! DelaySign = "false" ! OutputType = "Library" ! PreBuildEvent = "" ! PostBuildEvent = "" ! RootNamespace = "PureData" ! RunPostBuildEvent = "OnBuildSuccess" ! StartupObject = "" ! > ! <Config ! Name = "Debug" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "DEBUG;TRACE" ! DocumentationFile = "" ! DebugSymbols = "true" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "false" ! OutputPath = "..\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! <Config ! Name = "Release" ! AllowUnsafeBlocks = "false" ! BaseAddress = "285212672" ! CheckForOverflowUnderflow = "false" ! ConfigurationOverrideFile = "" ! DefineConstants = "TRACE" ! DocumentationFile = "" ! DebugSymbols = "false" ! FileAlignment = "4096" ! IncrementalBuild = "false" ! NoStdLib = "false" ! NoWarn = "" ! Optimize = "true" ! OutputPath = "bin\Release\" ! RegisterForComInterop = "false" ! RemoveIntegerChecks = "false" ! TreatWarningsAsErrors = "false" ! WarningLevel = "4" ! /> ! </Settings> ! <References> ! <Reference ! Name = "System" ! AssemblyName = "System" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.dll" ! /> ! <Reference ! Name = "System.Data" ! AssemblyName = "System.Data" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.Data.dll" ! /> ! <Reference ! Name = "System.XML" ! AssemblyName = "System.Xml" ! HintPath = "..\..\..\..\..\WINDOWS\Microsoft.NET\Framework\v1.1.4322\System.XML.dll" ! /> ! <Reference ! Name = "PureData" ! AssemblyName = "PureData" ! HintPath = "..\PureData.dll" ! Private = "False" ! /> ! </References> ! </Build> ! <Files> ! <Include> ! <File ! RelPath = "AssemblyInfo.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! <File ! RelPath = "Counter.cs" ! SubType = "Code" ! BuildAction = "Compile" ! /> ! </Include> ! </Files> ! </CSHARP> ! </VisualStudioProject> ! Index: Counter.cs =================================================================== RCS file: /cvsroot/pure-data/externals/clr/external/Counter.cs,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Counter.cs 28 Jan 2006 10:36:25 -0000 1.3 --- Counter.cs 6 Mar 2006 00:35:40 -0000 1.4 *************** *** 7,20 **** PureData.External { ! public Counter() ! { ! Post("Count"); ! ! // EventFloat += new MethodFloat(MyFloat); ! } ! ! public Counter(PureData.Atom[] args) { ! Post("Count with args"); // pd.AddInlet(x, "init", ParametersType.Float); --- 7,13 ---- PureData.External { ! public Counter(PureData.AtomList args) { ! Post("Count.ctor"); // pd.AddInlet(x, "init", ParametersType.Float); *************** *** 54,57 **** --- 47,55 ---- } + protected override void MethodList(PureData.AtomList l) + { + Post("Count-LIST "+l.ToString()); + } + /* public void Init(float f)

1 0

externals/clr clr.cpp,1.4,1.5
by Thomas Grill 06 Mar '06

06 Mar '06

Update of /cvsroot/pure-data/externals/clr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28852/clr Modified Files: clr.cpp Log Message: many improvements: - efficient symbol and atom list handling - better control over function arguments Index: clr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/clr/clr.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** clr.cpp 28 Jan 2006 10:36:06 -0000 1.4 --- clr.cpp 6 Mar 2006 00:35:39 -0000 1.5 *************** *** 28,722 **** #include <map> - #if 0 - - ////////////////////////////////////////////////////////////////////////////////////////////////////////////////// - //// OLD VERSION - ////////////////////////////////////////////////////////////////////////////////////////////////////////////////// - - - #include <time.h> [...980 lines suppressed...] ! clr_desc_pointer = mono_method_desc_new("::MethodPointer(Pointer)",FALSE); assert(clr_desc_pointer); ! clr_desc_list = mono_method_desc_new("::MethodList(AtomList)",FALSE); assert(clr_desc_list); ! clr_desc_anything = mono_method_desc_new("::MethodAnything(Symbol,AtomList)",FALSE); assert(clr_desc_anything); *************** *** 1145,1149 **** // ready! ! post("CLR - (c) Davide Morelli, Thomas Grill"); } else --- 521,525 ---- // ready! ! post("CLR - (c)2006 Davide Morelli, Thomas Grill"); } else

1 0

externals/hardware/arduino/examples/Pd_Input Pd_Input.pde, NONE, 1.1
by Hans-Christoph Steiner 05 Mar '06

05 Mar '06

Update of /cvsroot/pure-data/externals/hardware/arduino/examples/Pd_Input In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20865/Pd_Input Added Files: Pd_Input.pde Log Message: some example patches for the existing puredata firmwares, and the start of firmware for getting all inputs into Pd as fast as possible. Some clean-up needed before a real release --- NEW FILE: Pd_Input.pde --- /* Pd_Input * ------------------ * * This program reads all of the Analog inputs * and sends the data to the computer as fast as * possible. It was designed to work with the Pd * patch of the same name in: * Help -> Browser -> examples -> hardware * * (cleft) 2006 Hans-Christoph Steiner * @author: Hans-Christoph Steiner * @date: 2006-03-04 * @location: Polytechnic University, Brooklyn, New York, USA */ /* * CAUTION!! Do not turn on the Serial Monitor, it could freeze * your computer with this firmware running! It outputs data * without a delay() so its very fast. */ int potPin = 0; void setup() { beginSerial(19200); } void loop() { printByte(potPin + 65); // add 65 to get ASCII chars starting with A printInteger(analogRead(potPin)); potPin = potPin + 1; if (potPin > 5) potPin = 0; }

1 0

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 March 2006