Pd-cvs August 2007

pd-cvs@lists.iem.at

18 participants
618 discussions

pd/src valgrind3.supp,1.1.2.1,1.1.2.2
by Mathieu Bouchard 03 Aug '07

03 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9345 Modified Files: Tag: desiredata valgrind3.supp Log Message: another spurious warning at startup Index: valgrind3.supp =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/valgrind3.supp,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** valgrind3.supp 30 Jul 2007 20:49:16 -0000 1.1.2.1 --- valgrind3.supp 2 Aug 2007 22:12:26 -0000 1.1.2.2 *************** *** 72,74 **** --- 72,87 ---- fun:_Z14pd_typedmess_2P4t_pdP7_symboliP5_atom } + { + supp06 + Memcheck:Param + ioctl(arg) + obj:/lib/ld-2.3.6.so + fun:snd_pcm_start + fun:_Z15alsa_open_audioiPiiS_iS_iS_ii + fun:sys_open_audio + fun:sys_open_audio2 + fun:sys_reopen_audio + fun:sys_main + fun:main + }

1 0

pd/src makefile.in,1.4.4.2.2.21.2.32,1.4.4.2.2.21.2.33
by Mathieu Bouchard 03 Aug '07

03 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4909 Modified Files: Tag: desiredata makefile.in Log Message: added -Wextra Index: makefile.in =================================================================== RCS file: /cvsroot/pure-data/pd/src/makefile.in,v retrieving revision 1.4.4.2.2.21.2.32 retrieving revision 1.4.4.2.2.21.2.33 diff -C2 -d -r1.4.4.2.2.21.2.32 -r1.4.4.2.2.21.2.33 *** makefile.in 31 Jul 2007 01:10:19 -0000 1.4.4.2.2.21.2.32 --- makefile.in 2 Aug 2007 22:00:13 -0000 1.4.4.2.2.21.2.33 *************** *** 18,22 **** CPPFLAGS = -DDESIRE -DDONTUSESIMD -DPD @CPPFLAGS@ CFLAGS = $(CPPFLAGS) @CFLAGS@ $(MORECFLAGS) ! CFLAGS += -Wall -Wno-unused-parameter -I. CFLAGS += -DINSTALL_PREFIX=\"$(prefix)\" --- 18,22 ---- CPPFLAGS = -DDESIRE -DDONTUSESIMD -DPD @CPPFLAGS@ CFLAGS = $(CPPFLAGS) @CFLAGS@ $(MORECFLAGS) ! CFLAGS += -Wall -Wextra -Wno-unused-parameter -I. CFLAGS += -DINSTALL_PREFIX=\"$(prefix)\"

1 0

pd/src kernel.c,1.1.2.76,1.1.2.77
by Mathieu Bouchard 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18964 Modified Files: Tag: desiredata kernel.c Log Message: fix bugs in pd_free Index: kernel.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v retrieving revision 1.1.2.76 retrieving revision 1.1.2.77 diff -C2 -d -r1.1.2.76 -r1.1.2.77 *** kernel.c 31 Jul 2007 01:20:29 -0000 1.1.2.76 --- kernel.c 2 Aug 2007 21:12:54 -0000 1.1.2.77 *************** *** 148,155 **** /* convert an atom into a string, in the reverse sense of binbuf_text (q.v.) ! * special attention is paid to symbols containing the special characters ! * ';', ',', '$', and '\'; these are quoted with a preceding '\', except that ! * the '$' only gets quoted at the beginning of the string. ! */ //static int should_quote(char *s) {return strchr(";,\\{}\"",*s) || isspace(*s) || (*s=='$' && isdigit(s[1]));} --- 148,154 ---- /* convert an atom into a string, in the reverse sense of binbuf_text (q.v.) ! special attention is paid to symbols containing the special characters ! ';', ',', '$', and '\'; these are quoted with a preceding '\', except that ! the '$' only gets quoted at the beginning of the string. */ //static int should_quote(char *s) {return strchr(";,\\{}\"",*s) || isspace(*s) || (*s=='$' && isdigit(s[1]));} *************** *** 236,242 **** } /* schedule for deletion if need to keep the allocation around */ ! if (c->gobj && ((long)object_table->get(x)|2)) { ! gobj_changed((t_gobj *)x,""); object_table->set(x,object_table->get(x)&~1); } else pd_free_zombie(x); } --- 235,242 ---- } /* schedule for deletion if need to keep the allocation around */ ! if (c->gobj && (object_table->get(x)&2)) { object_table->set(x,object_table->get(x)&~1); + gobj_changed((t_gobj *)x,""); + //char *xx = (char *)x; for (int i=0; i<c->size; i++) xx[i]="\xde\xad\xbe\xef"[i&3]; } else pd_free_zombie(x); } *************** *** 381,386 **** as they count all threads together as if they're one, and they're especially incompatible with use of the desiredata-specific stack[] variable. */ - t_call pd_stack[STACKSIZE]; int pd_stackn = 0; /* how much of the stack is in use */ #define ENTER(SELECTOR) if(pd_stackn >= STACKSIZE) {stackerror(x); LEAVE; return;} \ --- 381,386 ---- as they count all threads together as if they're one, and they're especially incompatible with use of the desiredata-specific stack[] variable. */ int pd_stackn = 0; /* how much of the stack is in use */ + t_call pd_stack[STACKSIZE]; #define ENTER(SELECTOR) if(pd_stackn >= STACKSIZE) {stackerror(x); LEAVE; return;} \

1 0

pd/src desire.tk,1.1.2.600.2.268,1.1.2.600.2.269
by chunlee 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31226 Modified Files: Tag: desiredata desire.tk Log Message: adding arrowkeys and mouse clicks to KeyboardDialog Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.268 retrieving revision 1.1.2.600.2.269 diff -C2 -d -r1.1.2.600.2.268 -r1.1.2.600.2.269 *** desire.tk 2 Aug 2007 20:07:54 -0000 1.1.2.600.2.268 --- desire.tk 2 Aug 2007 20:22:11 -0000 1.1.2.600.2.269 *************** *** 8181,8184 **** --- 8181,8193 ---- } + set keyboard_layout2 { + {" " " " 98 " "} + {100 " " 102} + {" " " " 104 " "} + {" "} + {" " 1 2 3} + } + + foreach {k v} { 9 5 *************** *** 8188,8191 **** --- 8197,8201 ---- 50 8 62 8 37 4 115 4 64 4 65 24 113 4 116 4 117 4 109 4 + 1 1 2 1 3 1 } {set keyboard_width_of($k) $v} *************** *** 8209,8212 **** --- 8219,8230 ---- namekey 116 Sup Menu namekey 109 Ctrl + namekey 98 U + namekey 100 L + namekey 102 R + namekey 104 D + #mouse clicks + namekey 1 1 + namekey 2 2 + namekey 3 3 def KeyboardDialog init {history} { *************** *** 8216,8233 **** wm title .$self "Keyboard View" ;# say set i 0; set j 0 foreach row $::keyboard_layout { ! frame .$self.$i foreach key $row { ! if {$key==" "} {pack [label .$self.$i.shim$j -image icon_empty] -side left; incr j; continue} set ::keyboard_row_of($key) $i #pack [button .$self.$i.key$key -text "$key"] -side left if {[info exists ::keyboard_width_of($key)]} {set width $::keyboard_width_of($key)} {set width 3} if {[info exists ::keyboard_text_of($key)]} {set text $::keyboard_text_of($key)} {set text $key} ! pack [label .$self.$i.key$key -text " $text " -relief raise -border 4 -bg "#dddddd" -width $width] -side left } ! pack .$self.$i -fill x ! if {$i==0} {pack [label .$self.shim -image icon_empty]} incr i } $@history subscribe $self $self fade --- 8234,8272 ---- wm title .$self "Keyboard View" ;# say set i 0; set j 0 + frame .$self.board + frame .$self.board.key + frame .$self.board.misc foreach row $::keyboard_layout { ! frame .$self.board.key.$i foreach key $row { ! if {$key==" "} {pack [label .$self.board.key.$i.shim$j -image icon_empty] -side left; incr j; continue} set ::keyboard_row_of($key) $i #pack [button .$self.$i.key$key -text "$key"] -side left if {[info exists ::keyboard_width_of($key)]} {set width $::keyboard_width_of($key)} {set width 3} if {[info exists ::keyboard_text_of($key)]} {set text $::keyboard_text_of($key)} {set text $key} ! pack [label .$self.board.key.$i.key$key -text " $text " -relief raise -border 4 -bg "#dddddd" -width $width] -side left } ! pack .$self.board.key.$i -fill x ! if {$i==0} {pack [label .$self.board.key.shim -image icon_empty]} incr i } + set @row_division $i + foreach row $::keyboard_layout2 { + frame .$self.board.misc.$i + foreach key $row { + if {$key==" "} {pack [label .$self.board.misc.$i.shim$j -image icon_empty] -side left; incr j; continue} + set ::keyboard_row_of($key) $i + if {[info exists ::keyboard_width_of($key)]} {set width $::keyboard_width_of($key)} {set width 3} + if {[info exists ::keyboard_text_of($key)]} {set text $::keyboard_text_of($key)} {set text $key} + pack [label .$self.board.misc.$i.key$key -text " $text " -relief raise -border 4 -bg "#dddddd" -width $width] -side left + } + pack .$self.board.misc.$i -fill x + + incr i + } + + pack .$self.board.key -side left + pack .$self.board.misc -side right + pack .$self.board $@history subscribe $self $self fade *************** *** 8238,8244 **** if {![info exists ::keyboard_row_of($k)]} {puts "unknown key $k"; return} set i $::keyboard_row_of($k) ! switch -- $type { ! KeyPress {if { [dict exists $@fade $k]} {dict unset @fade $k}; .$self.$i.key$k configure -bg "#ff0000"} ! KeyRelease {if {![dict exists $@fade $k]} {dict set @fade $k 255}; puts $@fade} } } --- 8277,8287 ---- if {![info exists ::keyboard_row_of($k)]} {puts "unknown key $k"; return} set i $::keyboard_row_of($k) ! if {$i<$@row_division} {set section "key"} else {set section "misc"} ! switch -regexp -- $type { ! ^KeyPress|ButtonPress$ { ! if { [dict exists $@fade $k]} {dict unset @fade $k} ! .$self.board.$section.$i.key$k configure -bg "#ff0000" ! } ! ^KeyRelease|ButtonRelease$ {if {![dict exists $@fade $k]} {dict set @fade $k 255}; puts $@fade} } } *************** *** 8251,8255 **** set g [expr 221-$v*13/15] set i $::keyboard_row_of($k) ! .$self.$i.key$k configure -bg [format #%02x%02x%02x $r $g $g] if {$v} {dict set @fade $k $v} {dict unset @fade $k} } --- 8294,8299 ---- set g [expr 221-$v*13/15] set i $::keyboard_row_of($k) ! if {$i<$@row_division} {set section "key"} else {set section "misc"} ! .$self.board.$section.$i.key$k configure -bg [format #%02x%02x%02x $r $g $g] if {$v} {dict set @fade $k $v} {dict unset @fade $k} }

1 0

pd/src desire.tk,1.1.2.600.2.267,1.1.2.600.2.268
by Mathieu Bouchard 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25883 Modified Files: Tag: desiredata desire.tk Log Message: fix Escape key in keyboard view Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.267 retrieving revision 1.1.2.600.2.268 diff -C2 -d -r1.1.2.600.2.267 -r1.1.2.600.2.268 *** desire.tk 2 Aug 2007 19:37:39 -0000 1.1.2.600.2.267 --- desire.tk 2 Aug 2007 20:07:54 -0000 1.1.2.600.2.268 *************** *** 8173,8177 **** set keyboard_layout { ! {1 " " 67 68 69 70 " " 71 72 73 74 " " 75 76 95 96} {49 10 11 12 13 14 15 16 17 18 19 20 21 22} {23 24 25 26 27 28 29 30 31 32 33 34 35 51} --- 8173,8177 ---- set keyboard_layout { ! {9 " " 67 68 69 70 " " 71 72 73 74 " " 75 76 95 96} {49 10 11 12 13 14 15 16 17 18 19 20 21 22} {23 24 25 26 27 28 29 30 31 32 33 34 35 51} *************** *** 8182,8186 **** foreach {k v} { ! 1 5 22 5 23 4 51 4 --- 8182,8186 ---- foreach {k v} { ! 9 5 22 5 23 4 51 4 *************** *** 8191,8195 **** proc namekey {i args} {foreach name $args {set ::keyboard_text_of($i) $name; incr i}} ! namekey 1 Esc namekey 67 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 namekey 95 F11 F12 --- 8191,8195 ---- proc namekey {i args} {foreach name $args {set ::keyboard_text_of($i) $name; incr i}} ! namekey 9 Esc namekey 67 F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 namekey 95 F11 F12

1 0

pd/src desire.tk,1.1.2.600.2.266,1.1.2.600.2.267
by Mathieu Bouchard 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14339 Modified Files: Tag: desiredata desire.tk Log Message: fix for crosshair Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.266 retrieving revision 1.1.2.600.2.267 diff -C2 -d -r1.1.2.600.2.266 -r1.1.2.600.2.267 *** desire.tk 2 Aug 2007 18:01:21 -0000 1.1.2.600.2.266 --- desire.tk 2 Aug 2007 19:37:39 -0000 1.1.2.600.2.267 *************** *** 6439,6443 **** def Crosshair draw {} { set c [$@canvas widget] ! set z $@[$@canvas zoom] mset {type id detail} $@target mset {cx1 cy1 cx2 cy2} [$@canvas get_bbox] --- 6439,6443 ---- def Crosshair draw {} { set c [$@canvas widget] ! set z [$@canvas zoom] mset {type id detail} $@target mset {cx1 cy1 cx2 cy2} [$@canvas get_bbox] *************** *** 6445,6467 **** set y $@y if {[$@canvas look hairsnap]} { ! switch -regexp -- $type { ! ^object|outlet|inlet$ { ! mset {x y x3 y3} [$id bbox] ! set @follow $id ! } ! ^move|edit$ {mset {x y x3 y3} [$@follow bbox]} ! } } mset {l r} [$c xview] mset {t b} [$c yview] set width [winfo width $c]; set height [winfo height $c] ! set w [expr (1 / ($r - $l)) * $width] ! set h [expr (1 / ($b - $t)) * $height] set x1 [expr ($w*$l+$cx1+7)/$z] set y1 [expr ($h*$t+$cy1+7)/$z] ! set x2 [expr $x1+$width-14] set y2 [expr $height+$y1-14] set h1 [list $x1 $y $x2 $y] ! set v1 [list $x $y1 $x $y2] $self item VHAIR1 line $v1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} $self item HHAIR1 line $h1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} --- 6445,6461 ---- set y $@y if {[$@canvas look hairsnap]} { ! switch -regexp -- $type {^object|outlet|inlet$ {mset {x y x3 y3} [$id bbox]}} } mset {l r} [$c xview] mset {t b} [$c yview] set width [winfo width $c]; set height [winfo height $c] ! set w [expr (1 / ($r-$l)) * $width] ! set h [expr (1 / ($b-$t)) * $height] set x1 [expr ($w*$l+$cx1+7)/$z] set y1 [expr ($h*$t+$cy1+7)/$z] ! set x2 [expr $width+$x1-14] set y2 [expr $height+$y1-14] set h1 [list $x1 $y $x2 $y] ! set v1 [list $x $y1 $x $y2] $self item VHAIR1 line $v1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} $self item HHAIR1 line $h1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4}

1 0

pd/src TODO,1.1.2.28.2.53,1.1.2.28.2.54
by Mathieu Bouchard 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21955 Modified Files: Tag: desiredata TODO Log Message: . Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.28.2.53 retrieving revision 1.1.2.28.2.54 diff -C2 -d -r1.1.2.28.2.53 -r1.1.2.28.2.54 *** TODO 2 Aug 2007 01:31:33 -0000 1.1.2.28.2.53 --- TODO 2 Aug 2007 18:32:19 -0000 1.1.2.28.2.54 *************** *** 73,77 **** [ ] graphical array rendering optimization [ ] fix double delete of [pd]. ! [ ] added "version 2" syntax parser (optional), which has nested lists, extended quoting, extended float syntax (some ex-symbols now parsed as floats: +1 +1.0 +1e8 0x10 and so on.) --- 73,77 ---- [ ] graphical array rendering optimization [ ] fix double delete of [pd]. ! [s] added "version 2" syntax parser (optional), which has nested lists, extended quoting, extended float syntax (some ex-symbols now parsed as floats: +1 +1.0 +1e8 0x10 and so on.) *************** *** 94,98 **** [operator2-rule] [operator2-test] ! [ ] those are the externs that have to be recompiled if I want to trap calls to return values of getfn. ./externals/olafmatt/clone/clone.c:544: mess1(&cv->gl_pd, gensym("dsp"), sp); ./externals/grill/dynext/src/main.cpp:952: mess1((t_pd *)canvas,const_cast<t_symbol *>(sym_dsp),NULL); --- 94,98 ---- [operator2-rule] [operator2-test] ! [s] those are the externs that have to be recompiled if I want to trap calls to return values of getfn. ./externals/olafmatt/clone/clone.c:544: mess1(&cv->gl_pd, gensym("dsp"), sp); ./externals/grill/dynext/src/main.cpp:952: mess1((t_pd *)canvas,const_cast<t_symbol *>(sym_dsp),NULL); *************** *** 131,141 **** [c] array button doesn't work (menuarray) [ ] implement timeout in def Manager call ! [ ] finish merging 0.40 (wasn't it finished?) ! [ ] merge 0.41 (no?) ! [ ] proper symbol quoting ! [ ] refcounted symbols ! [ ] patching-in-tongues follow-up ! [ ] def def ! [ ] take care of needless "save changes?" [ ] make List objects, to manage children, visible_children, wires, selection, selection_wires. [ ] skip unneeded motion events inside client (do we need this?) --- 131,141 ---- [c] array button doesn't work (menuarray) [ ] implement timeout in def Manager call ! [s] finish merging 0.40 (wasn't it finished?) ! [s] merge 0.41 (no?) ! [s] proper symbol quoting ! [s] refcounted symbols ! [c] patching-in-tongues follow-up ! [c] def def ! [c] take care of needless "save changes?" [ ] make List objects, to manage children, visible_children, wires, selection, selection_wires. [ ] skip unneeded motion events inside client (do we need this?) *************** *** 144,157 **** [ ] kill global tooltip variable ? [c] iemprops: min,max labels broken ! [ ] futurewire should be able to deal with wires that are not connected to outlet, but connected to a inlet. ! it's for future ctrl+click ! [ ] fix the [key] and [keyup] and [mouse] (?) classes ! [ ] fix all issues with backslashes and braces. ! [ ] write an installer in Tcl/Tk. ! [ ] canvas_object_insert() [ ] simplify def Dialog add [ ] devlist isn't supposed to be like a choice, rather like several choices. ! [ ] implement def Canvas tidy ! [ ] set tk::mac::useCGDrawing 1 [s] differential upload [c] differential redraw --- 144,155 ---- [ ] kill global tooltip variable ? [c] iemprops: min,max labels broken ! [b] fix the [key] and [keyup] and [mouse] (?) classes ! [s] fix all issues with backslashes and braces. ! [-] write an installer in Tcl/Tk. ! [s] canvas_object_insert() [ ] simplify def Dialog add [ ] devlist isn't supposed to be like a choice, rather like several choices. ! [c] implement def Canvas tidy ! [c] set tk::mac::useCGDrawing 1 [s] differential upload [c] differential redraw *************** *** 251,256 **** [ ] inlet inspector to show what are the message types expected by an inlet that could read like "int: set left operand; bang: do it" ! [ ] custom buttonbars (including premade objects with args like a [t b f] and such) ! [ ] with configurable hotkeys [ ] colored wires [ ] insert_object makes error with multiple selection. --- 249,254 ---- [ ] inlet inspector to show what are the message types expected by an inlet that could read like "int: set left operand; bang: do it" ! [c] custom buttonbars (including premade objects with args like a [t b f] and such) ! [c] with configurable hotkeys [ ] colored wires [ ] insert_object makes error with multiple selection. *************** *** 264,269 **** [ ] [t a] could be a very small GUI object (called "null object") [ ] all the [t] could be GUI objects ! [ ] GUI objects for [inlet] and [outlet] and [pd] ([page]) ! [ ] subpatcherize selection [ ] make a sort of pd-extended, call it DesireData Express or (gasp) Extraordinaire. --- 262,266 ---- [ ] [t a] could be a very small GUI object (called "null object") [ ] all the [t] could be GUI objects ! [b] GUI objects for [inlet] and [outlet] and [pd] ([page]) [ ] make a sort of pd-extended, call it DesireData Express or (gasp) Extraordinaire. *************** *** 274,282 **** at least we can reduce the difference between strings and symbols to a minimum.) ! [ ] server-side IEMGUI could be turned into Tcl-based externs OR EVEN become abstractions. it's possible to make a DesireData GUI for any Pd class, including abstractions. to turn IEMGUI into an abstraction, what's missing is the savefn/saveargs/scanargs business. ! [ ] I would like to know how much it is feasible to compress the t_atom structure so that even with 64-bit pointers the t_atom still stays 8 bytes instead of 16. I think it's possible, but not necessarily in a --- 271,279 ---- at least we can reduce the difference between strings and symbols to a minimum.) ! [b] server-side IEMGUI could be turned into Tcl-based externs OR EVEN become abstractions. it's possible to make a DesireData GUI for any Pd class, including abstractions. to turn IEMGUI into an abstraction, what's missing is the savefn/saveargs/scanargs business. ! [s] I would like to know how much it is feasible to compress the t_atom structure so that even with 64-bit pointers the t_atom still stays 8 bytes instead of 16. I think it's possible, but not necessarily in a *************** *** 297,316 **** [c] objectbox history: also store the most recently typed text; see whether ddrc should have a history count entry; think about saving history; matju thought that it could be turned into a dynamic button bar that you can drag from. ! [ ] send to front, send to back ! [ ] make windows not get auto-resized to the width of the toolbar, so that people can have tiny windows. ! [ ] <Dossy> fconfigure -encoding binary ... [s] implement the stuff that is in iostreams.txt ! [ ] Luke Iannini suggests some OSX bindings: Command-` to switch between different windows within the application. Command-, to bring up preferences (though this one is more difficult since there are multiple preference windows...) Command-m to minimize the window (this currently brings up the "send message" dialogue box) ! [ ] Claude: Sending a message to vline~ creates a t_vseg, which are stored in a sorted linear linked list, which means the time taken to add each new line segment would be O(n), where n is the number of existing line segments. ! [ ] look at some object sync protocols that we can think of: NFS for folders, palm sync for calendars, rsync for file contents Marius Schebella: --- 294,313 ---- [c] objectbox history: also store the most recently typed text; see whether ddrc should have a history count entry; think about saving history; matju thought that it could be turned into a dynamic button bar that you can drag from. ! [?] send to front, send to back ! [c] make windows not get auto-resized to the width of the toolbar, so that people can have tiny windows. ! [c] <Dossy> fconfigure -encoding binary ... [s] implement the stuff that is in iostreams.txt ! [c] Luke Iannini suggests some OSX bindings: Command-` to switch between different windows within the application. Command-, to bring up preferences (though this one is more difficult since there are multiple preference windows...) Command-m to minimize the window (this currently brings up the "send message" dialogue box) ! [s] Claude: Sending a message to vline~ creates a t_vseg, which are stored in a sorted linear linked list, which means the time taken to add each new line segment would be O(n), where n is the number of existing line segments. ! [-] look at some object sync protocols that we can think of: NFS for folders, palm sync for calendars, rsync for file contents Marius Schebella: *************** *** 335,341 **** Pd from /home/me it will search in /home/me//usr/local/lib/pd/extra/iemmatrix ! Is this a feature or a bug of Pd ?" -- Holzi ! "I don't quite understand how this explains why wrap~ of -1 returns 1." -- steffen ! there's a [wrap~] but no [wrap]. there's a [>] but no [>~] (without externals). -- matju dmotd about converting patches to postscript: --- 332,338 ---- Pd from /home/me it will search in /home/me//usr/local/lib/pd/extra/iemmatrix ! Is this a feature or a bug of Pd ?" -- Holzi ! [s] "I don't quite understand how this explains why wrap~ of -1 returns 1." -- steffen ! [s] there's a [wrap~] but no [wrap]. there's a [>] but no [>~] (without externals). -- matju dmotd about converting patches to postscript: *************** *** 395,400 **** ------------------8<--------cut-here--------8<------------------ ! <arjen> matju, you may be interested in "Jim" - that does have closures and on the Wiki you can find several attempts and experiments regarding closures ! http://wiki.tcl.tk/closures <matju> is there something like listbox but which works as a popup menu ? --- 392,397 ---- ------------------8<--------cut-here--------8<------------------ ! <arjen> matju, you may be interested in "Jim" - that does have closures and on the Wiki you can find several attempts and ! experiments regarding closures: http://wiki.tcl.tk/closures <matju> is there something like listbox but which works as a popup menu ? *************** *** 436,449 **** http://www.tomsawyer.com/gallery/index.php ! to atwood: ! If I had automatic positioning in DesireData, it would be as an option: ! e.g. objects could default to "floating around" (that is, automatic ! positioning), but be pinned down into specific positions. ! In that case, an exception has to be done for [inlet] and [outlet] objects ! mostly. (the DS subsystem should be skipped over as well...) ! I could also have a use for some semi-automatic repositionings: for ! example, there could be a keyboard shortcut to reposition a non-"floating" ! object wherever it would go if it were floating, and if the user doesn't ! want it s/he can Ctrl+z it. http://www.graphdrawing.org/ --- 433,442 ---- http://www.tomsawyer.com/gallery/index.php ! [ ] matju to atwood: ! If I had automatic positioning in DesireData, it would be as an option: e.g. objects could default to "floating around" ! (that is, automatic positioning), but be pinned down into specific positions. In that case, an exception has to be done ! for [inlet] and [outlet] objects mostly. (the DS subsystem should be skipped over as well...) I could also have a use ! for some semi-automatic repositionings: for example, there could be a keyboard shortcut to reposition a non-"floating" ! object wherever it would go if it were floating, and if the user doesn't want it s/he can Ctrl+z it. http://www.graphdrawing.org/

1 0

pd/src/locale english.tcl,1.1.2.34.2.18,1.1.2.34.2.19
by chunlee 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9815/locale Modified Files: Tag: desiredata english.tcl Log Message: new feature: background grid in edit mode Index: english.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/english.tcl,v retrieving revision 1.1.2.34.2.18 retrieving revision 1.1.2.34.2.19 diff -C2 -d -r1.1.2.34.2.18 -r1.1.2.34.2.19 *** english.tcl 31 Jul 2007 00:43:26 -0000 1.1.2.34.2.18 --- english.tcl 2 Aug 2007 18:01:25 -0000 1.1.2.34.2.19 *************** *** 562,563 **** --- 562,566 ---- say no_matches "(no matches)" say preset "preset" + say canvasgrid "Grid color" + say grid_size "grid size" + say gridstate "Activate background grid" \ No newline at end of file

1 0

pd/src desire.tk, 1.1.2.600.2.265, 1.1.2.600.2.266 defaults.ddrc, 1.1.2.10.2.14, 1.1.2.10.2.15
by chunlee 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9815 Modified Files: Tag: desiredata desire.tk defaults.ddrc Log Message: new feature: background grid in edit mode Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.265 retrieving revision 1.1.2.600.2.266 diff -C2 -d -r1.1.2.600.2.265 -r1.1.2.600.2.266 *** desire.tk 2 Aug 2007 03:08:54 -0000 1.1.2.600.2.265 --- desire.tk 2 Aug 2007 18:01:21 -0000 1.1.2.600.2.266 *************** *** 1548,1551 **** --- 1548,1554 ---- [$self window].bbar.edit configure -image $im if {[$self look hairstate] && !$@editmode} {$@crosshair erase} + if {[$self look gridstate]} { + if {$@editmode} {$@grid draw} else {$@grid erase} + } } # comment's look depends on the value of @editmode *************** *** 1625,1628 **** --- 1628,1632 ---- set @xmargin 0 set @ymargin 0 + #set @grid 1 } *************** *** 1762,1765 **** --- 1766,1771 ---- set @active [Active new $self] set @sense [Sense new $self] + set @grid [Grid new $self] + #if {[info exists @grid]} {$@grid draw} } *************** *** 1938,1941 **** --- 1944,1955 ---- $self bind <Unmap> unmap $self bind <Leave> leave + $self bind <Configure> configure %h %w + } + + def Canvas configure {h w} { + if {[$self look gridstate]} { + $@grid update $h $w + if {$@editmode} {$@grid draw} else {$@grid erase} + } } *************** *** 2226,2229 **** --- 2240,2244 ---- } } + def Canvas popup_properties {} {CanvasPropertiesDialog new $self} *************** *** 6424,6428 **** def Crosshair draw {} { set c [$@canvas widget] ! set z [$@canvas zoom] mset {type id detail} $@target mset {cx1 cy1 cx2 cy2} [$@canvas get_bbox] --- 6439,6443 ---- def Crosshair draw {} { set c [$@canvas widget] ! set z $@[$@canvas zoom] mset {type id detail} $@target mset {cx1 cy1 cx2 cy2} [$@canvas get_bbox] *************** *** 6482,6485 **** --- 6497,6545 ---- } + class_new Grid {View} + + def Grid init {canvas} { + super + set @canvas $canvas + set c [$@canvas widget] + set @width [winfo width $c] + set @height [winfo height $c] + set @size [$@canvas look grid_size] + set @col [$@canvas look grid] + } + + def Grid update {h w} {set @width $w; set @height $h} + def Grid size= {size} {set @size $size} + + def Grid draw {} { + set c [$@canvas widget] + set lowest [$@canvas lowest_item] + for {set i 1} {$i < $@width} {incr i} { + if {![expr $i % $@size]} { + set line [list $i 0 $i $@height] + $self item HL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} + } + } + for {set i 1} {$i < $@height} {incr i} { + if {![expr $i % $@size]} { + set line [list 0 $i $@width $i] + $self item VL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} + } + } + $c lower $self $lowest + } + + def Canvas lowest_item {} { + set c [$self widget] + set all [$c find all] + set lowest [lindex [$c gettags [lindex $all 0]] 0] + return $lowest + } + + #def Canvas grid_size {} {return [$self look grid_size]} + def Canvas grid_size= {size} { + set ::look(Canvas:grid_size) $size + if {[$self editmode]} {$@grid size= $size; $@grid erase; after 0 $@grid draw} + } ############ tooltips (only those that are drawn as canvas items) *************** *** 7677,7680 **** --- 7737,7741 ---- color Canvas bgedit color Canvas bgrun + color Canvas grid subsection Client object_color color View bg *************** *** 7747,7750 **** --- 7808,7813 ---- toggle Canvas hairstate toggle Canvas hairsnap + toggle Canvas gridstate + integer Canvas grid_size toggle Canvas buttonbar toggle Canvas statusbar *************** *** 7890,7893 **** --- 7953,7957 ---- console {set @$name $look(Client:console)} pointer_sense {set @$name $look(Canvas:pointer_sense)} + grid_size {set @$name $look(Canvas:grid_size)} default {} } Index: defaults.ddrc =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/defaults.ddrc,v retrieving revision 1.1.2.10.2.14 retrieving revision 1.1.2.10.2.15 diff -C2 -d -r1.1.2.10.2.14 -r1.1.2.10.2.15 *** defaults.ddrc 15 Jul 2007 13:16:25 -0000 1.1.2.10.2.14 --- defaults.ddrc 2 Aug 2007 18:01:24 -0000 1.1.2.10.2.15 *************** *** 16,19 **** --- 16,20 ---- bgedit #dddddd bgrun #ffffff + grid #ffffff buttonbar 1 compbg #ffffff *************** *** 24,27 **** --- 25,30 ---- hairsnap 1 hairstate 1 + gridstate 1 + grid_size 10 showcomp 10 statusbar 1

1 0

externals/mrpeach/net tcpserver.c, 1.6, 1.7 tcpserver-help.pd, 1.3, 1.4
by Martin Peach 02 Aug '07

02 Aug '07

Update of /cvsroot/pure-data/externals/mrpeach/net In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28120 Modified Files: tcpserver.c tcpserver-help.pd Log Message: Added disconnectclient and disconnectsocket methods so server can close connections too. Index: tcpserver-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mrpeach/net/tcpserver-help.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** tcpserver-help.pd 20 Jun 2007 21:10:31 -0000 1.3 --- tcpserver-help.pd 2 Aug 2007 15:56:10 -0000 1.4 *************** *** 1,61 **** ! #N canvas 74 160 1119 648 12; ! #X msg 18 -6 print; ! #X obj 136 109 tcpserver 9997; ! #X floatatom 171 237 5 0 0 0 - - -; ! #X floatatom 286 191 5 0 0 0 - - -; ! #X obj 324 138 unpack 0 0 0 0; ! #X floatatom 324 161 3 0 0 0 - - -; ! #X floatatom 359 161 3 0 0 0 - - -; ! #X floatatom 395 161 3 0 0 0 - - -; ! #X floatatom 431 161 3 0 0 0 - - -; ! #X text 281 160 from; ! #X text 224 236 connections; ! #X obj 43 161 print received; ! #X msg 118 45 client 1 1 2 3; ! #X msg 86 20 broadcast 1 2 3; ! #X text 69 -6 list of connections; ! #X text 226 19 send to all clients; ! #X text 249 45 send to client 1; ! #X text 199 191 on socket; ! #X msg 140 71 send 504 1 2 3; ! #X text 273 71 send to client on socket 504; ! #X msg 564 -365 client 1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19; ! #X msg 563 -340 client 1 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39; ! #X msg 563 -297 client 1 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59; ! #X msg 563 -255 client 1 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79; ! #X msg 561 -213 client 1 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99; ! #X msg 560 -170 client 1 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119; ! #X msg 559 -127 client 1 120 121 122 123 124 125 126 127 138 139 140 141 142 143 144 145 146 147 148 149; ! #X msg 559 -84 client 1 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169; ! #X msg 559 -39 client 1 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189; ! #X msg 558 5 client 1 190 191 192 193 194 195 196 197 198 199 200 201 ! 202 203 204 205 206 207 208 209; ! #X msg 558 47 client 1 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229; ! #X msg 558 89 client 1 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249; ! #X msg 558 134 client 1 250 251 252 253 254 255; ! #X obj 91 -216 openpanel; ! #X obj 91 -235 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198 -241291 -1; ! #X text 391 -262 send a file; ! #X text 173 -217 ...any file; ! #X msg 58 -261 client 1 ../doc/5.reference/test.txt; ! #X msg 91 -192 client 1 \$1; ! #X msg 160 -89 10 1 2 43; ! #X text 252 -88 'send' prefix is optional; ! #X text 167 -68 (the first number is socket number); ! #X text 347 254 2007/06/20 Martin Peach; #X connect 0 0 1 0; ! #X connect 1 0 11 0; #X connect 1 1 2 0; #X connect 1 2 3 0; --- 1,82 ---- ! #N canvas 54 184 1138 623 12; ! #X msg 173 7 print; ! #X obj 136 144 tcpserver 9997; ! #X floatatom 176 236 5 0 0 0 - - -; ! #X floatatom 216 171 5 0 0 0 - - -; ! #X obj 257 190 unpack 0 0 0 0; ! #X floatatom 257 213 3 0 0 0 - - -; ! #X floatatom 297 213 3 0 0 0 - - -; ! #X floatatom 337 213 3 0 0 0 - - -; ! #X floatatom 378 213 3 0 0 0 - - -; ! #X text 214 212 from; ! #X text 229 235 connections; ! #X obj 29 240 print received; ! #X msg 173 61 client 1 1 2 3; ! #X msg 173 34 broadcast 1 2 3; ! #X text 225 8 list of connections; ! #X text 315 34 send to all clients; ! #X text 306 61 send to client 1; ! #X text 129 171 on socket; ! #X msg 173 88 send 504 1 2 3; ! #X text 306 88 send to client on socket 504; ! #X msg 589 -278 client 1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19; ! #X msg 589 -255 client 1 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39; ! #X msg 589 -217 client 1 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59; ! #X msg 589 -179 client 1 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79; ! #X msg 589 -141 client 1 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99; ! #X msg 589 -103 client 1 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119; ! #X msg 589 -65 client 1 120 121 122 123 124 125 126 127 138 139 140 141 142 143 144 145 146 147 148 149; ! #X msg 589 -27 client 1 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169; ! #X msg 589 11 client 1 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189; ! #X msg 589 49 client 1 190 191 192 193 194 195 196 197 198 199 200 ! 201 202 203 204 205 206 207 208 209; ! #X msg 589 87 client 1 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229; ! #X msg 589 125 client 1 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249; ! #X msg 589 163 client 1 250 251 252 253 254 255; ! #X obj 24 -245 openpanel; ! #X obj 24 -264 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198 -241291 -1; ! #X text 324 -291 send a file; ! #X text 106 -246 ...any file; ! #X msg -9 -290 client 1 ../doc/5.reference/test.txt; ! #X msg 24 -221 client 1 \$1; ! #X msg 166 -54 10 1 2 43; ! #X text 256 -53 'send' prefix is optional; ! #X text 187 -32 (the first number is socket number); ! #X msg 194 -115 disconnectsocket \$1; ! #X msg 91 -88 disconnectclient \$1; ! #X obj 589 188 s toserver; ! #X obj 157 121 r toserver; ! #X floatatom 113 -156 5 0 0 0 - - -; ! #X obj 91 -137 f; ! #X obj 91 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 ! -241291 -1; ! #X floatatom 216 -156 5 0 0 0 - - -; ! #X obj 194 -137 f; ! #X obj 194 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 ! -241291 -1; ! #X text 62 -175 disconnect by socket or client number; ! #X text 589 -303 tcpserver sends and receives bytes on [0...255]; ! #X text 610 246 2007/08/02 Martin Peach; ! #X text 269 143 argument is port number; ! #X text 27 263 Received messages are output as lists of bytes; ! #X text 26 281 ***WARNING*** Attempting to print long messages can ! hang pd!; ! #X obj 29 218 spigot; ! #X obj 78 198 tgl 15 0 empty empty enable_print 17 7 0 10 -24198 -258699 ! -258699 1 1; #X connect 0 0 1 0; ! #X connect 1 0 58 0; #X connect 1 1 2 0; #X connect 1 2 3 0; *************** *** 68,84 **** #X connect 13 0 1 0; #X connect 18 0 1 0; ! #X connect 20 0 1 0; ! #X connect 21 0 1 0; ! #X connect 22 0 1 0; ! #X connect 23 0 1 0; ! #X connect 24 0 1 0; ! #X connect 25 0 1 0; ! #X connect 26 0 1 0; ! #X connect 27 0 1 0; ! #X connect 28 0 1 0; ! #X connect 29 0 1 0; ! #X connect 30 0 1 0; ! #X connect 31 0 1 0; ! #X connect 32 0 1 0; #X connect 33 0 38 0; #X connect 34 0 33 0; --- 89,105 ---- #X connect 13 0 1 0; #X connect 18 0 1 0; ! #X connect 20 0 44 0; ! #X connect 21 0 44 0; ! #X connect 22 0 44 0; ! #X connect 23 0 44 0; ! #X connect 24 0 44 0; ! #X connect 25 0 44 0; ! #X connect 26 0 44 0; ! #X connect 27 0 44 0; ! #X connect 28 0 44 0; ! #X connect 29 0 44 0; ! #X connect 30 0 44 0; ! #X connect 31 0 44 0; ! #X connect 32 0 44 0; #X connect 33 0 38 0; #X connect 34 0 33 0; *************** *** 86,87 **** --- 107,119 ---- #X connect 38 0 1 0; #X connect 39 0 1 0; + #X connect 42 0 1 0; + #X connect 43 0 1 0; + #X connect 45 0 1 0; + #X connect 46 0 47 1; + #X connect 47 0 43 0; + #X connect 48 0 47 0; + #X connect 49 0 50 1; + #X connect 50 0 42 0; + #X connect 51 0 50 0; + #X connect 58 0 11 0; + #X connect 59 0 58 1; Index: tcpserver.c =================================================================== RCS file: /cvsroot/pure-data/externals/mrpeach/net/tcpserver.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** tcpserver.c 23 Jul 2007 16:48:29 -0000 1.6 --- tcpserver.c 2 Aug 2007 15:56:10 -0000 1.7 *************** *** 105,108 **** --- 105,110 ---- static void tcp_server_send_bytes(int sockfd, t_tcpserver *x, int argc, t_atom *argv); static void tcpserver_client_send(t_tcpserver *x, t_symbol *s, int argc, t_atom *argv); + static void tcpserver_client_disconnect(t_tcpserver *x, t_floatarg fclient); + static void tcpserver_socket_disconnect(t_tcpserver *x, t_floatarg fsocket); static void tcpserver_broadcast(t_tcpserver *x, t_symbol *s, int argc, t_atom *argv); static void tcpserver_notify(t_tcpserver *x); *************** *** 405,408 **** --- 407,446 ---- } + /* disconnect a client by socket */ + static void tcpserver_socket_disconnect(t_tcpserver *x, t_floatarg fsocket) + { + int sock = (int)fsocket; + + if(x->x_nconnections < 0) + { + post("%s: no clients connected", objName); + return; + } + x->x_sock_fd = sock; + tcpserver_notify(x); + } + + + /* disconnect a client by number */ + static void tcpserver_client_disconnect(t_tcpserver *x, t_floatarg fclient) + { + int client = (int)fclient; + + if(x->x_nconnections < 0) + { + post("%s: no clients connected", objName); + return; + } + if (!((client > 0) && (client < MAX_CONNECT))) + { + post("%s: client %d out of range [1..%d]", objName, client, MAX_CONNECT); + return; + } + --client;/* zero based index*/ + x->x_sock_fd = x->x_fd[client]; + tcpserver_notify(x); + } + + /* send message to client using client number note that the client numbers might change in case a client disconnects! */ *************** *** 638,641 **** --- 676,681 ---- class_addmethod(tcpserver_class, (t_method)tcpserver_send, gensym("send"), A_GIMME, 0); class_addmethod(tcpserver_class, (t_method)tcpserver_client_send, gensym("client"), A_GIMME, 0); + class_addmethod(tcpserver_class, (t_method)tcpserver_client_disconnect, gensym("disconnectclient"), A_DEFFLOAT, 0); + class_addmethod(tcpserver_class, (t_method)tcpserver_socket_disconnect, gensym("disconnectsocket"), A_DEFFLOAT, 0); class_addmethod(tcpserver_class, (t_method)tcpserver_broadcast, gensym("broadcast"), A_GIMME, 0); class_addlist(tcpserver_class, (t_method)tcpserver_send);

1 0

← Newer
1
...
54
55
56
57
58
59
60
61
62
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 August 2007