Pd-cvs November 2005

pd-cvs@lists.iem.at

17 participants
497 discussions

pd/src desire.tk,1.1.2.126,1.1.2.127
by chunlee 25 Nov '05

25 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31186 Modified Files: Tag: devel_0_39 desire.tk Log Message: got wire to render (it doesn't update yet), but not yet to clean up the code yet Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.126 retrieving revision 1.1.2.127 diff -C2 -d -r1.1.2.126 -r1.1.2.127 *** desire.tk 23 Nov 2005 16:48:51 -0000 1.1.2.126 --- desire.tk 25 Nov 2005 09:54:37 -0000 1.1.2.127 *************** *** 67,74 **** --- 67,76 ---- def* observable changed {args} { + puts "____ subscribers:$@subscribers ____" foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } def* observable child_changed {origin args} { + #puts "==== [concat [list $x notice $origin] $args] ====" foreach x $@subscribers {eval [concat [list $x notice $origin] $args]} } *************** *** 1322,1325 **** --- 1324,1328 ---- # think of the children!!! set born [lwithout $children $@children]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} + puts "---------------- born:$born" set dead [lwithout $@children $children]; foreach x $dead {$x unsubscribe $self; $x erase} set @children $children *************** *** 1342,1348 **** def* canvas wires= {wires2} { set wires {} ! set born [lwithout $wires $@wires]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} ! set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} ! set @wires $wires foreach x $wires2 { if {[llength $x]==4} { --- 1345,1354 ---- def* canvas wires= {wires2} { set wires {} ! #set born [lwithout $wires $@wires]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} ! #puts "===== born:$born" ! #set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} ! #set @wires $wires ! #puts "===== [concat [list wire_new $self]]" ! foreach x $wires2 { if {[llength $x]==4} { *************** *** 1352,1356 **** --- 1358,1371 ---- } } + + set born [lwithout $wires $@wires]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} + puts "===== born:$born" + set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} + set @wires $wires + puts "===== [concat [list wire_new $self]]" + + puts "==== self:$self wires:$wires" $self changed + #$wires changed } *************** *** 1961,1965 **** $@canvas deselect_all set _($@canvas:selection) $self ! set _($@canvas:action) move } --- 1976,1981 ---- $@canvas deselect_all set _($@canvas:selection) $self ! #set _($@canvas:action) move ! set _($@canvas:action) edit } *************** *** 1987,2008 **** class_new wire {view} ! def* wire init {children from outno to inno} { super ! set from_obj [lindex $children $from] ! set to_obj [lindex $children $to] ! puts "......from:$from_obj outlet:$outno to:$to_obj inlet:$inno" # no time to carry on for now...... } ! def wire draw {} { global look ! set bbox1 [$canvas bbox [join [list "$@obj1" o "$@port1"] ""]] ! set bbox2 [$canvas bbox [join [list "$@obj2" i "$@port2"] ""]] if {[llength $bbox1] < 4} {puts stderr "wire_draw: crap ($@obj1 outlet)"; return} if {[llength $bbox2] < 4} {puts stderr "wire_draw: crap ($@obj2 inlet)"; return} mset {x1 y1} [l/2 [l+ [lrange $bbox1 0 1] [lrange $bbox1 2 3]]] mset {x2 y2} [l/2 [l+ [lrange $bbox2 0 1] [lrange $bbox2 2 3]]] ! wire_draw $self 1 $x1 $y1 $x2 $y2 set xys [list $x1 $y1 $x2 $y2] set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))] --- 2003,2032 ---- class_new wire {view} ! def* wire init {canvas from outno to inno} { super ! global _ ! #puts "------ children:$_($canvas:children)" ! #hack ! set children $_($canvas:children) ! set @obj1 [lindex $children $from] ! set @obj2 [lindex $children $to] ! set @port1 $outno ! set @port2 $inno ! #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" # no time to carry on for now...... } ! def* wire draw {} { global look ! set thick 2 ! puts "------- from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" ! set bbox1 [.$(a)canvas.c bbox [join [list "$@obj1" o "$@port1"] ""]] ! set bbox2 [.$(a)canvas.c bbox [join [list "$@obj2" i "$@port2"] ""]] if {[llength $bbox1] < 4} {puts stderr "wire_draw: crap ($@obj1 outlet)"; return} if {[llength $bbox2] < 4} {puts stderr "wire_draw: crap ($@obj2 inlet)"; return} mset {x1 y1} [l/2 [l+ [lrange $bbox1 0 1] [lrange $bbox1 2 3]]] mset {x2 y2} [l/2 [l+ [lrange $bbox2 0 1] [lrange $bbox2 2 3]]] ! #wire_draw $self 1 $x1 $y1 $x2 $y2 set xys [list $x1 $y1 $x2 $y2] set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))] *************** *** 2190,2193 **** --- 2214,2218 ---- incr i } + puts "==== x:$x" $x changed }

1 0

pd/src desire.c,1.1.2.60,1.1.2.61
by Thomas Grill 25 Nov '05

25 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19474/src Modified Files: Tag: devel_0_39 desire.c Log Message: fixes for Windows Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.60 retrieving revision 1.1.2.61 diff -C2 -d -r1.1.2.60 -r1.1.2.61 *** desire.c 24 Nov 2005 21:36:03 -0000 1.1.2.60 --- desire.c 24 Nov 2005 23:18:02 -0000 1.1.2.61 *************** *** 24,35 **** #include "m_simd.h" #define L fprintf(stderr,"%s:%d in %s\n",__FILE__,__LINE__,__PRETTY_FUNCTION__); #define LS fprintf(stderr,"%s:%d in %s (self=%lx\n",__FILE__,__LINE__,__PRETTY_FUNCTION__,(long)self);\ fprintf(stderr,"class=%s)\n",((t_gobj *)self)->g_pd->c_name->s_name); - #ifdef _MSC_VER - // we don't have macro varargs here.... - #define sys_vgui - #else #define sys_vgui(args...) do { \ fprintf(stderr,"\e[0;1;31m"); \ --- 24,40 ---- #include "m_simd.h" + #ifdef _MSC_VER + /* + #define L fprintf(stderr,"%s:%d\n",__FILE__,__LINE__); + #define LS fprintf(stderr,"%s:%d (self=%lx\n",__FILE__,__LINE__,(long)self);\ + fprintf(stderr,"class=%s)\n",((t_gobj *)self)->g_pd->c_name->s_name); + */ + /* no sys_vgui logging for MSVC... we have no vararg macros */ + + #else #define L fprintf(stderr,"%s:%d in %s\n",__FILE__,__LINE__,__PRETTY_FUNCTION__); #define LS fprintf(stderr,"%s:%d in %s (self=%lx\n",__FILE__,__LINE__,__PRETTY_FUNCTION__,(long)self);\ fprintf(stderr,"class=%s)\n",((t_gobj *)self)->g_pd->c_name->s_name); #define sys_vgui(args...) do { \ fprintf(stderr,"\e[0;1;31m"); \ *************** *** 161,169 **** void manager_call (void *foo) { t_manager *self = (t_manager *)foo; ! //if (self->q->len) post("manager_call: %d notices",self->q->len); while (!queue_empty(self->q)) { t_gobj *o = (t_gobj *)queue_get(self->q); if (!o->g_adix->dirtyc) continue; ! //post("UPLOADING a %s",o->g_pd->c_name->s_name); pd_upload(o); o->g_adix->dirtyc = 0; --- 166,174 ---- void manager_call (void *foo) { t_manager *self = (t_manager *)foo; ! if (self->q->len) post("manager_call: %d notices",self->q->len); while (!queue_empty(self->q)) { t_gobj *o = (t_gobj *)queue_get(self->q); if (!o->g_adix->dirtyc) continue; ! post("UPLOADING a %s",o->g_pd->c_name->s_name); pd_upload(o); o->g_adix->dirtyc = 0; *************** *** 174,179 **** void manager_notice (t_gobj *self_, t_gobj *origin, int argc, t_atom *argv) { t_manager *self = (t_manager *)self_; - //post("manager_notice(%p,%p,%d,...)",self,origin,argc); t_appendix *a = (t_appendix *)origin->g_adix; if (!a->dirtyc) { queue_put(self->q,origin); --- 179,184 ---- void manager_notice (t_gobj *self_, t_gobj *origin, int argc, t_atom *argv) { t_manager *self = (t_manager *)self_; t_appendix *a = (t_appendix *)origin->g_adix; + post("manager_notice(%p,%p,%d,...)",self,origin,argc); if (!a->dirtyc) { queue_put(self->q,origin);

1 0

pd/src desire.c,1.1.2.59,1.1.2.60
by Thomas Grill 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29577/src Modified Files: Tag: devel_0_39 desire.c Log Message: post-Matju fixes for MSVC Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.59 retrieving revision 1.1.2.60 diff -C2 -d -r1.1.2.59 -r1.1.2.60 *** desire.c 24 Nov 2005 21:28:34 -0000 1.1.2.59 --- desire.c 24 Nov 2005 21:36:03 -0000 1.1.2.60 *************** *** 11546,11553 **** void g_text_setup(void) { text_class = class_new(gensym("text"), 0, 0, sizeof(t_text), CLASS_NOINLET | CLASS_PATCHABLE, 0); ! t_class *c = message_class = class_new(gensym("message"), 0,0, sizeof(t_message), CLASS_PATCHABLE, 0); class_addbang(c, message_bang); --- 11546,11554 ---- void g_text_setup(void) { + t_class *c; text_class = class_new(gensym("text"), 0, 0, sizeof(t_text), CLASS_NOINLET | CLASS_PATCHABLE, 0); ! c = message_class = class_new(gensym("message"), 0,0, sizeof(t_message), CLASS_PATCHABLE, 0); class_addbang(c, message_bang); *************** *** 11970,11975 **** static void *bng_new(t_symbol *s, int argc, t_atom *argv) { - post("@@@@@@@ bng_new @@@@@@"); t_bng *x = (t_bng *)iemgui_new(bng_class); x->ftbreak = 250; x->fthold = 50; --- 11971,11976 ---- static void *bng_new(t_symbol *s, int argc, t_atom *argv) { t_bng *x = (t_bng *)iemgui_new(bng_class); + post("@@@@@@@ bng_new @@@@@@"); x->ftbreak = 250; x->fthold = 50; *************** *** 12790,12795 **** static void *wire_new(t_symbol *s, int argc, t_atom *argv) { - post ("----- wire_new -----"); t_wire *x = (t_wire *)iemgui_new(wire_class); x->from = 0; x->outport = 0; --- 12791,12796 ---- static void *wire_new(t_symbol *s, int argc, t_atom *argv) { t_wire *x = (t_wire *)iemgui_new(wire_class); + post ("----- wire_new -----"); x->from = 0; x->outport = 0;

1 0

pd/src desire.c,1.1.2.58,1.1.2.59
by Mathieu Bouchard 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28045 Modified Files: Tag: devel_0_39 desire.c Log Message: disabling canvas_reflecttitle for now Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.58 retrieving revision 1.1.2.59 diff -C2 -d -r1.1.2.58 -r1.1.2.59 *** desire.c 24 Nov 2005 15:25:45 -0000 1.1.2.58 --- desire.c 24 Nov 2005 21:28:34 -0000 1.1.2.59 *************** *** 679,683 **** void canvas_reflecttitle(t_canvas *x) ! { char namebuf[MAXPDSTRING]; char foo[MAXPDSTRING]; --- 679,683 ---- void canvas_reflecttitle(t_canvas *x) ! {/* char namebuf[MAXPDSTRING]; char foo[MAXPDSTRING]; *************** *** 702,706 **** canvas_getdir(x)->s_name); sys_mgui(x,"window_title","s",gensym(foo)); ! } void canvas_dirty(t_canvas *x, t_int n) --- 702,706 ---- canvas_getdir(x)->s_name); sys_mgui(x,"window_title","s",gensym(foo)); ! */} void canvas_dirty(t_canvas *x, t_int n)

1 0

pd/src desire.c,1.1.2.57,1.1.2.58
by chunlee 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13527 Modified Files: Tag: devel_0_39 desire.c Log Message: added somemore stuff for the wire Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.57 retrieving revision 1.1.2.58 diff -C2 -d -r1.1.2.57 -r1.1.2.58 *** desire.c 24 Nov 2005 11:41:01 -0000 1.1.2.57 --- desire.c 24 Nov 2005 15:25:45 -0000 1.1.2.58 *************** *** 11970,11973 **** --- 11970,11974 ---- static void *bng_new(t_symbol *s, int argc, t_atom *argv) { + post("@@@@@@@ bng_new @@@@@@"); t_bng *x = (t_bng *)iemgui_new(bng_class); x->ftbreak = 250; *************** *** 12759,12766 **** //---------- // wire /* void wire_notice(t_gobj *x, struct _gobj *origin, int argc, t_atom *argv) { t_canvas *self = (t_canvas *)x; ! post("canvas_notice(%p,%p,%d,...): havewindow=%d mapped=%d",x,origin,argc,self->gl_havewindow,self->gl_mapped); gobj_changed3(self,origin,argc,argv); } --- 12760,12775 ---- //---------- // wire + typedef struct { IEMGUI_FIELDS + int from; + int outport; + int to; + int inport; + } t_wire; + + /* void wire_notice(t_gobj *x, struct _gobj *origin, int argc, t_atom *argv) { t_canvas *self = (t_canvas *)x; ! post("(%p,%p,%d,...): havewindow=%d mapped=%d",x,origin,argc,self->gl_havewindow,self->gl_mapped); gobj_changed3(self,origin,argc,argv); } *************** *** 12779,12786 **** } static void g_wire_setup(void) { ! t_class *c = wire_class = class_new(gensym("wire"), 0, ! (t_method)wire_free, sizeof(t_object), CLASS_NOINLET, 0); iemgui_subclass(c); //class_setnotice(c, wire_notice); --- 12788,12809 ---- } + static void *wire_new(t_symbol *s, int argc, t_atom *argv) + { + post ("----- wire_new -----"); + t_wire *x = (t_wire *)iemgui_new(wire_class); + x->from = 0; + x->outport = 0; + x->to = 0; + x->inport = 0; + //bng_check_minmax(x); + //outlet_new((t_text *)x, &s_bang); + //bng_reload(x,0,argc,argv); + return x; + } + static void g_wire_setup(void) { ! t_class *c = wire_class = class_new(gensym("connect"), (t_newmethod)wire_new, ! (t_method)iemgui_free, sizeof(t_wire),0, A_GIMME, 0); iemgui_subclass(c); //class_setnotice(c, wire_notice); *************** *** 12910,12914 **** S(g_array) S(g_canvas) S(g_guiconnect) S(g_scalar) S(g_template) S(g_traversal) S(g_text) S(g_bang) S(g_toggle) S(g_radio) ! S(g_slider) S(g_numbox) S(g_mycanvas) S(g_vumeter) S(g_dropper) #undef S } --- 12933,12937 ---- S(g_array) S(g_canvas) S(g_guiconnect) S(g_scalar) S(g_template) S(g_traversal) S(g_text) S(g_bang) S(g_toggle) S(g_radio) ! S(g_slider) S(g_numbox) S(g_mycanvas) S(g_vumeter) S(g_dropper) S(g_wire) #undef S }

1 0

pd/src desire.c,1.1.2.56,1.1.2.57
by chunlee 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29440 Modified Files: Tag: devel_0_39 desire.c Log Message: attempts in making g_wire_setup, Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.56 retrieving revision 1.1.2.57 diff -C2 -d -r1.1.2.56 -r1.1.2.57 *** desire.c 23 Nov 2005 08:59:15 -0000 1.1.2.56 --- desire.c 24 Nov 2005 11:41:01 -0000 1.1.2.57 *************** *** 828,832 **** x->gl_havewindow = 1; canvas_updatewindowlist(); ! post("subscribe %lx",(long)x); gobj_subscribe((t_gobj *)x,(t_gobj *)manager); gobj_changed(x,""); --- 828,832 ---- x->gl_havewindow = 1; canvas_updatewindowlist(); ! post("******subscribe %lx",(long)x); gobj_subscribe((t_gobj *)x,(t_gobj *)manager); gobj_changed(x,""); *************** *** 12757,12760 **** --- 12757,12794 ---- } + //---------- + // wire + /* + void wire_notice(t_gobj *x, struct _gobj *origin, int argc, t_atom *argv) { + t_canvas *self = (t_canvas *)x; + post("canvas_notice(%p,%p,%d,...): havewindow=%d mapped=%d",x,origin,argc,self->gl_havewindow,self->gl_mapped); + gobj_changed3(self,origin,argc,argv); + } + */ + static t_class *wire_class; + void wire_free(t_canvas *x) + { + t_gobj *y; + + if (x->gl_env) + { + freebytes(x->gl_env->ce_argv, x->gl_env->ce_argc * sizeof(t_atom)); + freebytes(x->gl_env, sizeof(*x->gl_env)); + } + + } + + static void g_wire_setup(void) + { + t_class *c = wire_class = class_new(gensym("wire"), 0, + (t_method)wire_free, sizeof(t_object), CLASS_NOINLET, 0); + iemgui_subclass(c); + //class_setnotice(c, wire_notice); + } + + static void canvas_wire (void) { + + post ("boohoo"); + } //----------- *************** *** 12797,12800 **** --- 12831,12835 ---- class_addmethod3(c,canvas_mycnv,"mycnv","*"); class_addmethod3(c,canvas_numbox,"numbox","*"); + //class_addmethod3(c,canvas_wire,"wire","*"); class_addmethod3(c,canvas_pop,"pop","F"); *************** *** 12864,12867 **** --- 12899,12904 ---- } + + void desire_setup(void) { manager_class = class_new(gensym("__manager"), (t_newmethod)manager_new,

1 0

pd/src m_pd.h, 1.4.4.11.2.14, 1.4.4.11.2.15 s_loader.c, 1.4.4.5.2.2, 1.4.4.5.2.3
by Thomas Grill 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24902/src Modified Files: Tag: devel_0_39 m_pd.h s_loader.c Log Message: class loader hook mechanism Index: s_loader.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_loader.c,v retrieving revision 1.4.4.5.2.2 retrieving revision 1.4.4.5.2.3 diff -C2 -d -r1.4.4.5.2.2 -r1.4.4.5.2.3 *** s_loader.c 14 Jul 2005 23:17:33 -0000 1.4.4.5.2.2 --- s_loader.c 24 Nov 2005 11:14:43 -0000 1.4.4.5.2.3 *************** *** 47,51 **** void class_set_extern_dir(t_symbol *s); ! int sys_load_lib(char *dirname, char *classname) { char symname[MAXPDSTRING], filename[MAXPDSTRING], dirbuf[MAXPDSTRING], --- 47,51 ---- void class_set_extern_dir(t_symbol *s); ! static int sys_load_lib_internal(char *dirname, char *classname) { char symname[MAXPDSTRING], filename[MAXPDSTRING], dirbuf[MAXPDSTRING], *************** *** 54,58 **** t_xxx makeout = NULL; int fd; - int dspstate = canvas_suspend_dsp(); #ifdef MSW HINSTANCE ntdll; --- 54,57 ---- *************** *** 74,78 **** dirbuf, &nameptr, MAXPDSTRING, 1)) < 0) { - canvas_resume_dsp(dspstate); return (0); } --- 73,76 ---- *************** *** 121,125 **** post("%s: couldn't load", filename); class_set_extern_dir(&s_); - canvas_resume_dsp(dspstate); return (0); } --- 119,122 ---- *************** *** 147,151 **** post("%s: couldn't load (%s)", filename,errcode); class_set_extern_dir(&s_); - canvas_resume_dsp(dspstate); return 0; } --- 144,147 ---- *************** *** 161,165 **** NSLinkEditError(&c, &err, &fname, &errt); post("link error %d %s %s", err, fname, errt); - canvas_resume_dsp(dspstate); return 0; } --- 157,160 ---- *************** *** 175,193 **** post("load_object: Symbol \"%s\" not found", symname); class_set_extern_dir(&s_); - canvas_resume_dsp(dspstate); return 0; } (*makeout)(); class_set_extern_dir(&s_); - canvas_resume_dsp(dspstate); return (1); } ! --- 170,231 ---- post("load_object: Symbol \"%s\" not found", symname); class_set_extern_dir(&s_); return 0; } + #if _MSC_VER + __try { + #endif (*makeout)(); + #if _MSC_VER + } + __except(EXCEPTION_EXECUTE_HANDLER) { + // EXCEPTION_POINTERS *ep = GetExceptionInformation(); + post("an exception occurred loading %s", classname); + class_set_extern_dir(&s_); + return 0; + } + #endif class_set_extern_dir(&s_); return (1); } + /* callback type definition */ + typedef int (*loader_t)(char *dirname, char *classname); + /* linked list of loaders */ + typedef struct loader_queue { + loader_t loader; + struct loader_queue *next; + } loader_queue_t; + static loader_queue_t loaders = {sys_load_lib_internal,NULL}; + /* register class loader function */ + void sys_loader(loader_t loader) + { + loader_queue_t *q = &loaders; + for(;;) { + if(q->next) + q = q->next; + else { + q->next = (loader_queue_t *)getbytes(sizeof(loader_queue_t)); + q->next->loader = loader; + q->next->next = NULL; + break; + } + } + } + /* this is the "classic" pd loader function */ + int sys_load_lib(char *dirname, char *classname) + { + int dspstate = canvas_suspend_dsp(); + int ok = 0; + loader_queue_t *q; + for(q = &loaders; q; q = q->next) + if(ok = q->loader(dirname,classname)) break; ! canvas_resume_dsp(dspstate); ! return ok; ! } Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.14 retrieving revision 1.4.4.11.2.15 diff -C2 -d -r1.4.4.11.2.14 -r1.4.4.11.2.15 *** m_pd.h 15 Nov 2005 23:30:59 -0000 1.4.4.11.2.14 --- m_pd.h 24 Nov 2005 11:14:42 -0000 1.4.4.11.2.15 *************** *** 498,501 **** --- 498,504 ---- EXTERN int class_getfieldindex(t_class *x, const char *s); + /* grrrr: register class loader */ + EXTERN void sys_loader(int (*callback) (char *dirname,char *classname)); + /* ------------ printing --------------------------------- */ EXTERN void post(const char *fmt, ...);

1 0

extensions/gui/ix osc.tcl,NONE,1.1
by carmen rocco 24 Nov '05

24 Nov '05

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23840 Added Files: osc.tcl Log Message: tcl's first OSC implementation? pathetic! --- NEW FILE: osc.tcl --- #OSC tcl 2005 ix package require udp namespace eval osc { proc encode {type data} { switch $type { i {set format I } f {set format R } s {set len [string length $data] set format a[expr $len + 4 - $len % 4]} } return [binary format $format $data] } proc message {args} { set path [encode s [lindex $args 0]] set typetags "," set body "" foreach arg [lrange $args 1 end] { if [string is integer $arg] { set type i } elseif [string is double $arg] { set type f } else { set type s } append typetags $type append body [encode $type $arg] } set typetags [encode s $typetags] return $path$typetags$body } proc connect {host port} { set s [udp_open] fconfigure $s -remote [list $host $port] -buffering none -translation binary return $s } proc disconnect {socket} { close $socket } proc send {socket msg} { puts -nonewline $socket $msg } }

1 0

packages/win32_inno TODO,1.3,1.4 pd-inno.iss.in,1.1,1.2
by Hans-Christoph Steiner 23 Nov '05

23 Nov '05

Update of /cvsroot/pure-data/packages/win32_inno In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv635 Modified Files: TODO pd-inno.iss.in Log Message: notes and fixes from josh's test session Index: TODO =================================================================== RCS file: /cvsroot/pure-data/packages/win32_inno/TODO,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TODO 22 Nov 2005 21:38:20 -0000 1.3 --- TODO 23 Nov 2005 21:42:19 -0000 1.4 *************** *** 1,12 **** ! - in generate-pd.inno.sh, don't add dirs with no files in them (doc, 7.stuff, etc). - - fix PD_VERSION, the sed patterns aren't working - make Pd.exe using MinGW's "start.exe" like MacOSX's "open" ! - figure out why MinGW-compiled "unauthorized" externals don't work ! - get Windows Makefiles for cyclone, toxy, zexy, Gem, unauthorized ! - change license file to GPL --- 1,20 ---- ! - add Gem to noncvs ! ! - get Pd compiling on MinGW:. From Carmen: ! ! - "theres a SConscript in devel_0_39 and theres also a makefile.mingw maybe ! in devel_0_38. just ./configure && make && make install the deps like tk ! and such first, although you can use a static path to MSVC-generated .libs ! if you dont feel like doing that.." - make Pd.exe using MinGW's "start.exe" like MacOSX's "open" ! - menu_openhtml on Win32 with rundll should be able to open other filetypes like open on MACOSX. ! - fix PD_VERSION, the sed patterns aren't working ! - figure out why MinGW-compiled "unauthorized" externals don't work ! ! - get Windows Makefiles for Gem, unauthorized Index: pd-inno.iss.in =================================================================== RCS file: /cvsroot/pure-data/packages/win32_inno/pd-inno.iss.in,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** pd-inno.iss.in 22 Nov 2005 21:38:20 -0000 1.1 --- pd-inno.iss.in 23 Nov 2005 21:42:19 -0000 1.2 *************** *** 33,38 **** Name: {group}\puredata.org; Filename: {app}\pd.url Name: {group}\Uninstall Pure Data; Filename: {uninstallexe} ! Name: {userdesktop}\Pure Data; Filename: {app}\pd.exe; Tasks: desktopicon; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} ! Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Pure Data; Filename: {app}\pd.exe; Tasks: quicklaunchicon; WorkingDir: {app}; IconFilename: {app}\lib\pd.ico; IconIndex: 0 ;Name: {group}\Pure Data (no video); Filename: {app}\pd-novideo.bat; IconFilename: {app}\lib\pd.ico; IconIndex: 0; Tasks: quicklaunchicon desktopicon; WorkingDir: {app} --- 33,38 ---- Name: {group}\puredata.org; Filename: {app}\pd.url Name: {group}\Uninstall Pure Data; Filename: {uninstallexe} ! Name: {userdesktop}\Pure Data; Filename: {app}\bin\pd.exe; Tasks: desktopicon; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} ! Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Pure Data; Filename: {app}\bin\pd.exe; Tasks: quicklaunchicon; WorkingDir: {app}; IconFilename: {app}\lib\pd.ico; IconIndex: 0 ;Name: {group}\Pure Data (no video); Filename: {app}\pd-novideo.bat; IconFilename: {app}\lib\pd.ico; IconIndex: 0; Tasks: quicklaunchicon desktopicon; WorkingDir: {app}

1 0

pd/src desire.tk,1.1.2.125,1.1.2.126
by Mathieu Bouchard 23 Nov '05

23 Nov '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20576 Modified Files: Tag: devel_0_39 desire.tk Log Message: added def canvas wires= Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.125 retrieving revision 1.1.2.126 diff -C2 -d -r1.1.2.125 -r1.1.2.126 *** desire.tk 17 Nov 2005 18:52:43 -0000 1.1.2.125 --- desire.tk 23 Nov 2005 16:48:51 -0000 1.1.2.126 *************** *** 36,39 **** --- 36,46 ---- } + proc lwithout {a b} { + set r {} + foreach x $b {set c($x) {}} + foreach x $a {if {![info exists c($x)]} {lappend r $x}} + return $r + } + #-----------------------------------------------------------------------------------# # Observer pattern *************** *** 888,899 **** def* canvas ninlets= {n} {} def* canvas noutlets= {n} {} - #how can canvas_wires= know which list in $n is new? - #i mean, new connection does not seem to be added to the end or the beginning - #of $n, but ordered according the the wire_from order id - def* canvas wires= {n} {} - #so, maybe like this would work? - def* canvas wires_new {whoout outno whoin inno} { - wire_new $@children $whoout $outno $whoin $inno - } def canvas focus {} {return $@focus} --- 895,898 ---- *************** *** 961,965 **** def canvas new_menubar {editable} { set name .$self ! global pd_opendir pd_tearoff OS cmdline canvasmenu _ set m $name.m menu $m --- 960,964 ---- def canvas new_menubar {editable} { set name .$self ! global pd_opendir pd_tearoff OS cmdline canvasmenu set m $name.m menu $m *************** *** 1320,1336 **** #def* canvas del {i} {lset @children $i ""} - proc lwithout {a b} { - set r {} - foreach x $b {set c($x) {}} - foreach x $a {if {![info exists c($x)]} {lappend r $x}} - return $r - } - def* canvas children= {children} { # think of the children!!! ! set born [lwithout $children $@children]; post %s "BORN: $born" ! set dead [lwithout $@children $children]; post %s "DEAD: $dead" ! foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} ! foreach x $dead {$x unsubscribe $self; $x erase} set @children $children $self changed --- 1319,1326 ---- #def* canvas del {i} {lset @children $i ""} def* canvas children= {children} { # think of the children!!! ! set born [lwithout $children $@children]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} ! set dead [lwithout $@children $children]; foreach x $dead {$x unsubscribe $self; $x erase} set @children $children $self changed *************** *** 1350,1353 **** --- 1340,1364 ---- } + def* canvas wires= {wires2} { + set wires {} + set born [lwithout $wires $@wires]; foreach x $born {$x subscribe $self; $x changed; $x canvas= $self} + set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} + set @wires $wires + foreach x $wires2 { + if {[llength $x]==4} { + lappend wires [eval [concat [list wire_new $self] $x]] + } { + lappend wires $x + } + } + $self changed + } + + def* canvas wires_new {whoout outno whoin inno} { + # post %s BOO + } + + def* canvas wires {} {return $@wires} + def canvas delete_selection {} { foreach obj $@selection {$obj erase}

1 0

← Newer
1
...
14
15
16
17
18
19
20
...
50
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 November 2005