Pd-cvs April 2006

pd-cvs@lists.iem.at

15 participants
271 discussions

externals/iemlib/src/iem_mp3 sigmp3play.c,1.4,1.5
by Hans-Christoph Steiner 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/externals/iemlib/src/iem_mp3 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20082 Modified Files: sigmp3play.c Log Message: I put in the wrong MACRO before, used _MSC_VER (MSVC) when I should have used _WIN32 Index: sigmp3play.c =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/sigmp3play.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** sigmp3play.c 11 Apr 2006 16:24:09 -0000 1.4 --- sigmp3play.c 26 Apr 2006 20:54:26 -0000 1.5 *************** *** 36,40 **** #include <math.h> ! #ifndef _MSC_VER #include <sys/signal.h> #include <unistd.h> --- 36,40 ---- #include <math.h> ! #ifndef _WIN32 #include <sys/signal.h> #include <unistd.h>

1 0

pd/src desire.tk,1.1.2.193,1.1.2.194
by chunlee 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14825 Modified Files: Tag: devel_0_39 desire.tk Log Message: adds some small codes to get complementary color for displaying the color names over the changing bg color Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.193 retrieving revision 1.1.2.194 diff -C2 -d -r1.1.2.193 -r1.1.2.194 *** desire.tk 26 Apr 2006 14:52:41 -0000 1.1.2.193 --- desire.tk 26 Apr 2006 15:32:04 -0000 1.1.2.194 *************** *** 3329,3334 **** global _ preset_colors set _($self:$name) $c .$self.$name configure \ ! -background [format #%6.6x $_($self:$name)] # somehow this hilites one more pixel outside of what it should be #-highlightbackground [format #%6.6x $_($self:$name)] --- 3329,3335 ---- global _ preset_colors set _($self:$name) $c + set fg_color [complement [format #%6.6x $c]] .$self.$name configure \ ! -background [format #%6.6x $_($self:$name)] -foreground $fg_color # somehow this hilites one more pixel outside of what it should be #-highlightbackground [format #%6.6x $_($self:$name)] *************** *** 3399,3403 **** #set c [expr $c & 0xFCFCFC] set c 0xFCFCFC ! button $f.color -text $look($name) -font {Courier 8} -width 10 -pady 2 \ -command [list iemgui_choose_col $w $name.color $look($name)] \ -relief sunken -background $look($name) \ --- 3400,3405 ---- #set c [expr $c & 0xFCFCFC] set c 0xFCFCFC ! set text_color [complement $look($name)] ! button $f.color -text $look($name) -font {Courier 8} -width 10 -pady 2 -fg $text_color \ -command [list iemgui_choose_col $w $name.color $look($name)] \ -relief sunken -background $look($name) \ *************** *** 3472,3483 **** } - proc color_popup2 {frame init_color} { - set color [tk_chooseColor -initialcolor $init_color -title "Choose color"] - puts "color :: $color" - $frame.color_chooser configure -bg $color -activebackground $color - - } ############ .pdrc editor proc dropmenu_set {frame name} { --- 3474,3512 ---- } ############ .pdrc editor + #Turns #rgb into 3 elem list of decimal vals. + proc rgb2dec c { + set c [string tolower $c] + if {[regexp -nocase {^#([0-9a-f])([0-9a-f])([0-9a-f])$} $c x r g b]} { + # double'ing the value make #9fc == #99ffcc + scan "$r$r $g$g $b$b" "%x %x %x" r g b + } else { + if {![regexp {^#([0-9a-f]+)$} $c junk hex] || \ + [set len [string length $hex]]>12 || $len%3 != 0} { + if {[catch {winfo rgb . $c} rgb]} { + return -code error "bad color value \"$c\"" + } else { + return $rgb + } + } + set len [expr {$len/3}] + scan $hex "%${len}x%${len}x%${len}x" r g b + } + return [list $r $g $b] + } + #Returns a complementary color + proc complement {orig {grays 1}} { + foreach {r g b} [rgb2dec $orig] {break} + set R [expr {(~$r)%256}] + set G [expr {(~$g)%256}] + set B [expr {(~$b)%256}] + if {$grays && abs($R-$r) < 32 && abs($G-$g) < 32 && abs($B-$b) < 32} { + set R [expr {($r+128)%256}] + set G [expr {($g+128)%256}] + set B [expr {($b+128)%256}] + } + return [format "\#%02x%02x%02x" $R $G $B] + } proc dropmenu_set {frame name} {

1 0

pd/src desire.tk,1.1.2.192,1.1.2.193
by chunlee 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18594 Modified Files: Tag: devel_0_39 desire.tk Log Message: ddrc editor now all uses iemgui_choose_col, still have small things needs to be fixed, but it worx. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.192 retrieving revision 1.1.2.193 diff -C2 -d -r1.1.2.192 -r1.1.2.193 *** desire.tk 26 Apr 2006 11:04:52 -0000 1.1.2.192 --- desire.tk 26 Apr 2006 14:52:41 -0000 1.1.2.193 *************** *** 3329,3338 **** global _ preset_colors set _($self:$name) $c ! .$self.$name.color configure \ ! -background [format #%6.6x $_($self:$name)] \ ! -highlightbackground [format #%6.6x $_($self:$name)] } proc color_popup {self w name i} { set old_w $w.$name set w $w.$name.popup --- 3329,3340 ---- global _ preset_colors set _($self:$name) $c ! .$self.$name configure \ ! -background [format #%6.6x $_($self:$name)] ! # somehow this hilites one more pixel outside of what it should be ! #-highlightbackground [format #%6.6x $_($self:$name)] } proc color_popup {self w name i} { + set self [string trimleft $self .] set old_w $w.$name set w $w.$name.popup *************** *** 3346,3355 **** -command [list color_popup_select $self $name [expr 0x$c]] } ! tk_popup $w [expr [winfo rootx $old_w.preset] + 30] [expr [winfo rooty $old_w.preset]] } proc iemgui_choose_col {id var title} { set self [string trimleft $id .] - puts "self ::: $self" global _ look #set c $_($self:$var) --- 3348,3356 ---- -command [list color_popup_select $self $name [expr 0x$c]] } ! tk_popup $w [expr [winfo rootx $old_w]] [expr [winfo rooty $old_w]] } proc iemgui_choose_col {id var title} { set self [string trimleft $id .] global _ look #set c $_($self:$var) *************** *** 3359,3362 **** --- 3360,3364 ---- # -initialcolor [format "#%6.6x" [expr $c&0xFFFFFF]]] set color [tk_chooseColor -title $title -initialcolor $title] + $id.$var configure -text $color if {$color != ""} { color_popup_select $self $var [expr [string replace $color 0 0 "0x"]&0xFFFFFF] *************** *** 3390,3394 **** } color { - puts "where ::: $f" frame $f label $f.label -text $label --- 3392,3395 ---- *************** *** 3399,3408 **** set c 0xFCFCFC button $f.color -text $look($name) -font {Courier 8} -width 10 -pady 2 \ ! -command [list iemgui_choose_col $w $name $label] \ ! -relief sunken -background [format #%6.6x $c] \ -highlightbackground [format #%6.6x $c] set i 10 ! puts "self : $self | w : $w | name : $name" ! button $f.preset -text "..." -pady 2 -font {Helvetica 8} -command [list color_popup $self $w $name $i] pack $f.label $f.color $f.preset -side left } --- 3400,3409 ---- set c 0xFCFCFC button $f.color -text $look($name) -font {Courier 8} -width 10 -pady 2 \ ! -command [list iemgui_choose_col $w $name.color $look($name)] \ ! -relief sunken -background $look($name) \ -highlightbackground [format #%6.6x $c] set i 10 ! #puts "self : $self | w : $w | name : $name" ! button $f.preset -text "..." -pady 2 -font {Helvetica 8} -command [list color_popup $w $w $name.color $i] pack $f.label $f.color $f.preset -side left } *************** *** 3424,3438 **** } - choice_color { - frame $f - pack [label $f.label -text $label] -side left - button $f.color_chooser -bg $look($name) -activebackground $look($name) -command "color_popup2 $f $look($name)" \ - -width 17 - pack $f.color_chooser -side left - - } subsection { #frame $f - puts "path ===== $f" label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold} #$self add_subsection $f $name --- 3425,3430 ---- *************** *** 3776,3780 **** color selrect section test - colors canvasbgedit } --- 3768,3771 ---- *************** *** 3863,3872 **** } color { - #properties_dialog $which_self $f.main.$section ClientPrefsDialog_ok client \ - # [list [lindex $name 0] "$desc" choice_color {}] - properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ - [list [lindex $name 0] [say $name] choice_color {}] - } - colors { properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ [list [lindex $name 0] [say $name] color {}] --- 3854,3857 ----

1 0

scripts load_every_object.sh,1.1,1.2
by IOhannes m zmölnig 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22144 Modified Files: load_every_object.sh Log Message: added some improvements ;-) that allow me adapt the script to my setup without (hopefully) breaking anything; Index: load_every_object.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/load_every_object.sh,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** load_every_object.sh 8 Feb 2006 04:59:10 -0000 1.1 --- load_every_object.sh 26 Apr 2006 14:13:51 -0000 1.2 *************** *** 11,18 **** --- 11,43 ---- TEST_PATCH=.____test_patch.pd + PRE_SLEEP=30 + helpdir=${PD_ROOT}/doc objectsdir=${PD_ROOT}/extra bindir=${PD_ROOT}/bin + #PDSEND=${bindir}/pdsend + #PD=${bindir}/pd + + # if ${PD} is not set, it will be set to ${bindir}/pd + # if ${PD} is already set, this value will be used + ## this way we can use a 'default' pd to test externals + ## that live not necessarily in ${PD_ROOT}/bin/../extra + if test "x${PD}" = "x" ; then + PD=${bindir}/pd + fi + if test "x${PDSEND}" = "x" ; then + PDSEND=${PDSEND:-${bindir}/pdsend} + fi + + # just imagine there is no [...]/extra directory + # because i want to test a bunch of "not installed" + # objects... + if test -d "${objectsdir}" ; then + : + else + objectsdir=${PD_ROOT} + fi + function make_netreceive_patch () *************** *** 36,40 **** { echo "OPENING: $1 $2" >> $LOG_FILE ! echo "; pd open $1 $2;" | ${bindir}/pdsend $PORT_NUMBER localhost tcp } --- 61,65 ---- { echo "OPENING: $1 $2" >> $LOG_FILE ! echo "; pd open $1 $2;" | ${PDSEND} $PORT_NUMBER localhost tcp } *************** *** 42,52 **** { echo "CLOSING: $1" >> $LOG_FILE ! echo "; pd-$1 menuclose;" | ${bindir}/pdsend $PORT_NUMBER localhost tcp } UNAME=`uname -s` ! if [ $UNAME == "Darwin" ]; then EXTENSION=pd_darwin ! elif [ $UNAME == "Linux" ]; then EXTENSION=pd_linux else --- 67,77 ---- { echo "CLOSING: $1" >> $LOG_FILE ! echo "; pd-$1 menuclose;" | ${PDSEND} $PORT_NUMBER localhost tcp } UNAME=`uname -s` ! if test "x$UNAME" == "xDarwin" ; then EXTENSION=pd_darwin ! elif test "x$UNAME" == "xLinux" ; then EXTENSION=pd_linux else *************** *** 54,69 **** fi ! echo "Searching for $EXTENSION" make_netreceive_patch $NETRECEIVE_PATCH touch $LOG_FILE ! ${bindir}/pd -nogui -stderr -open $NETRECEIVE_PATCH >> $LOG_FILE 2>&1 & #wait for pd to start ! sleep 30 ! for file in `find $objectsdir -name "*.${EXTENSION}"`; do echo $file filename=`echo $file|sed 's|.*/$.*\.[adilnpruwx_]*$$|\1|'` dir=`echo $file|sed 's|$.*$/.*\.[adilnpruwx_]*$|\1|'` --- 79,100 ---- fi ! echo "Searching for ${EXTENSION} in ${objectsdir}" make_netreceive_patch $NETRECEIVE_PATCH touch $LOG_FILE ! ${PD} -nogui -stderr -open $NETRECEIVE_PATCH -path ${objectsdir} >> $LOG_FILE 2>&1 & #wait for pd to start ! echo -n going to sleep for ${PRE_SLEEP} secs... ! sleep ${PRE_SLEEP} ! echo "ready to perform!" ! #for file in `find $objectsdir -name "*.${EXTENSION}"`; do ! find ${objectsdir} -name "*.${EXTENSION}" | while read file; do echo $file + #JMZ: wow, couldn't this be done with following? + # filename=${file##*/} + # dir=${file%/*} filename=`echo $file|sed 's|.*/$.*\.[adilnpruwx_]*$$|\1|'` dir=`echo $file|sed 's|$.*$/.*\.[adilnpruwx_]*$|\1|'` *************** *** 76,78 **** echo "COMPLETED!" >> $LOG_FILE ! echo "; pd quit;" | ${bindir}/pdsend $PORT_NUMBER localhost tcp --- 107,109 ---- echo "COMPLETED!" >> $LOG_FILE ! echo "; pd quit;" | ${PDSEND} $PORT_NUMBER localhost tcp

1 0

pd/src m_hash.c,1.1.2.7,1.1.2.8
by Thomas Grill 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11544/src Modified Files: Tag: devel_0_39 m_hash.c Log Message: now correct header for malloc... Index: m_hash.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/m_hash.c,v retrieving revision 1.1.2.7 retrieving revision 1.1.2.8 diff -C2 -d -r1.1.2.7 -r1.1.2.8 *** m_hash.c 25 Apr 2006 16:12:15 -0000 1.1.2.7 --- m_hash.c 26 Apr 2006 13:19:09 -0000 1.1.2.8 *************** *** 5,9 **** #include "m_pd.h" ! #include <string.h> #include <stdio.h> --- 5,9 ---- #include "m_pd.h" ! #include <stdlib.h> #include <stdio.h>

1 0

pd/src/locale english.tcl,1.1.2.8,1.1.2.9
by chunlee 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1185/locale Modified Files: Tag: devel_0_39 english.tcl Log Message: added bits for ddec color setting Index: english.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/english.tcl,v retrieving revision 1.1.2.8 retrieving revision 1.1.2.9 diff -C2 -d -r1.1.2.8 -r1.1.2.9 *** english.tcl 23 Apr 2006 09:47:17 -0000 1.1.2.8 --- english.tcl 26 Apr 2006 11:05:28 -0000 1.1.2.9 *************** *** 272,276 **** } ! # phase 4 (pdrc) say section_audio "Audio" --- 272,276 ---- } ! # phase 4 (pdrc & ddrc) say section_audio "Audio" *************** *** 322,325 **** --- 322,350 ---- say -realtime "use real-time priority (needs root privilege)" + # ddrc + + say section_color "colors" + say canvas_color "canvas" + say canvasbgedit "canvas background (edit mode)" + say canvasbgrun "canvas background (run mode)" + say object_color "object" + say objectframe1 "objectbox color" + say objectframe2 "objectbox color" + say objectframe3 "objectbox color" + say objectframe4 "objectbox highlight color" + say objectbg "object background" + say objectfg "object foreground" + say wire_color "wire" + say wirefg "wire color" + say wirefg2 "wire highlight" + say wiredash "wire dash" + say others_color "others" + say inletfg "inlet color" + say outletfg "outlet color" + say selrect "selection box" + say test "poo" + say canvasbgedit "canvas_test" + + # phase 5

1 0

pd/src desire.tk,1.1.2.191,1.1.2.192
by chunlee 26 Apr '06

26 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv422 Modified Files: Tag: devel_0_39 desire.tk Log Message: changed ddrc_options so that its like pdrc_options, which uses the say method Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.191 retrieving revision 1.1.2.192 diff -C2 -d -r1.1.2.191 -r1.1.2.192 *** desire.tk 25 Apr 2006 13:57:27 -0000 1.1.2.191 --- desire.tk 26 Apr 2006 11:04:52 -0000 1.1.2.192 *************** *** 3351,3355 **** proc iemgui_choose_col {id var title} { set self [string trimleft $id .] ! global _ #set c $_($self:$var) set c 0xFFFFFF --- 3351,3356 ---- proc iemgui_choose_col {id var title} { set self [string trimleft $id .] ! puts "self ::: $self" ! global _ look #set c $_($self:$var) set c 0xFFFFFF *************** *** 3357,3362 **** #set color [tk_chooseColor -title $title \ # -initialcolor [format "#%6.6x" [expr $c&0xFFFFFF]]] ! set color [tk_chooseColor -title $title \ ! -initialcolor [format "#%6.6x" $c]] if {$color != ""} { color_popup_select $self $var [expr [string replace $color 0 0 "0x"]&0xFFFFFF] --- 3358,3362 ---- #set color [tk_chooseColor -title $title \ # -initialcolor [format "#%6.6x" [expr $c&0xFFFFFF]]] ! set color [tk_chooseColor -title $title -initialcolor $title] if {$color != ""} { color_popup_select $self $var [expr [string replace $color 0 0 "0x"]&0xFFFFFF] *************** *** 3394,3402 **** label $f.label -text $label # wtf, %6.6x sometimes gives me _8_ chars !?! ! set c $_($self:$name) ! switch -regexp -- $c { ^# { set c 0x[string trimleft $c #] } } #set c [expr $c & 0xFCFCFC] set c 0xFCFCFC ! button $f.color -text "text" -font {Courier 8} -width 10 -pady 2 \ -command [list iemgui_choose_col $w $name $label] \ -relief sunken -background [format #%6.6x $c] \ --- 3394,3402 ---- label $f.label -text $label # wtf, %6.6x sometimes gives me _8_ chars !?! ! #set c $_($self:$name) ! #switch -regexp -- $c { ^# { set c 0x[string trimleft $c #] } } #set c [expr $c & 0xFCFCFC] set c 0xFCFCFC ! button $f.color -text $look($name) -font {Courier 8} -width 10 -pady 2 \ -command [list iemgui_choose_col $w $name $label] \ -relief sunken -background [format #%6.6x $c] \ *************** *** 3756,3783 **** set ddrc_options { ! section "" "look" ! subsection "canvas" "canvas" ! color canvasbgedit "canvas background (edit mode)" ! color canvasbgrun "canvas background (run mode)" ! subsection "object" "object" ! color objectframe1 "objectbox color" ! color objectframe2 "objectbox color" ! color objectframe3 "objectbox color" ! color objectframe4 "objectbox highlight color" ! color objectbg "object background" ! color objectfg "object foreground" ! subsection "wire" "wire" ! color wirefg "wire color" ! color wirefg2 "wire highlight" ! color wiredash "wire dash" ! subsection "others" "others" ! color inletfg "inlet color" ! color outletfg "outlet color" ! color selrect "selection box" ! section "" "poo" ! colors "iem" "col" } - class_new ClientPrefsDialog {PagedDialog} def ClientPrefsDialog cancel {} {$self _delete} --- 3756,3782 ---- set ddrc_options { ! section section_color ! subsection canvas_color ! color canvasbgedit ! color canvasbgrun ! subsection object_color ! color objectframe1 ! color objectframe2 ! color objectframe3 ! color objectframe4 ! color objectbg ! color objectfg ! subsection wire_color ! color wirefg ! color wirefg2 ! color wiredash ! subsection others_color ! color inletfg ! color outletfg ! color selrect ! section test ! colors canvasbgedit } class_new ClientPrefsDialog {PagedDialog} def ClientPrefsDialog cancel {} {$self _delete} *************** *** 3837,3845 **** set section 0 set subsection 0 ! foreach {type name desc} $ddrc_options { switch $type { void { set type toggle }} switch $type { section { ! $self add_section [incr section] $desc set which_section $f.main.$section set which_self $self --- 3836,3845 ---- set section 0 set subsection 0 ! foreach {type names} $ddrc_options { ! set name [lindex [split $names |] 0] switch $type { void { set type toggle }} switch $type { section { ! $self add_section [incr section] [say $name] set which_section $f.main.$section set which_self $self *************** *** 3850,3854 **** set subself $self.1.main.$section.subsections if {!$subsection} {SubPagedDialog new_as $subself} ! $subself add_section [incr subsection] $name $subself page_select 1 set which_section .$subself.main.$subsection --- 3850,3854 ---- set subself $self.1.main.$section.subsections if {!$subsection} {SubPagedDialog new_as $subself} ! $subself add_section [incr subsection] [say $name] $subself page_select 1 set which_section .$subself.main.$subsection *************** *** 3866,3874 **** # [list [lindex $name 0] "$desc" choice_color {}] properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list [lindex $name 0] "$desc" choice_color {}] } colors { properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list [lindex $name 0] "$desc" color {}] } default { --- 3866,3874 ---- # [list [lindex $name 0] "$desc" choice_color {}] properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list [lindex $name 0] [say $name] choice_color {}] } colors { properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list [lindex $name 0] [say $name] color {}] } default { *************** *** 3876,3880 **** # [list $name "$name: $desc" $type {}] properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list $name $desc $type {}] } } --- 3876,3880 ---- # [list $name "$name: $desc" $type {}] properties_dialog $which_self $which_section ClientPrefsDialog_ok client \ ! [list $name [say $name] $type {}] } }

1 0

pd/src m_hash.c,1.1.2.6,1.1.2.7
by Thomas Grill 25 Apr '06

25 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12911/src Modified Files: Tag: devel_0_39 m_hash.c Log Message: fix for standard c Index: m_hash.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/m_hash.c,v retrieving revision 1.1.2.6 retrieving revision 1.1.2.7 diff -C2 -d -r1.1.2.6 -r1.1.2.7 *** m_hash.c 23 Apr 2006 11:54:13 -0000 1.1.2.6 --- m_hash.c 25 Apr 2006 16:12:15 -0000 1.1.2.7 *************** *** 74,81 **** void hash_set(t_hash *self, hashkey k, hashvalue v) { long h = hash_hash(self,k); ! t_hashentry *e; // fprintf(stderr,"hash_set %p %s %p\n",self,((t_symbol*)k)->s_name,v); for (e=self->tab[h]; e; e=e->next) {if (e->k==k) {e->v=v; return;}} ! t_hashentry *nu = (t_hashentry *)malloc(sizeof(t_hashentry)); self->size++; nu->k=k; --- 74,81 ---- void hash_set(t_hash *self, hashkey k, hashvalue v) { long h = hash_hash(self,k); ! t_hashentry *e,*nu; // fprintf(stderr,"hash_set %p %s %p\n",self,((t_symbol*)k)->s_name,v); for (e=self->tab[h]; e; e=e->next) {if (e->k==k) {e->v=v; return;}} ! nu = (t_hashentry *)malloc(sizeof(t_hashentry)); self->size++; nu->k=k;

1 0

doc Makefile,1.20,1.21
by Hans-Christoph Steiner 25 Apr '06

25 Apr '06

Update of /cvsroot/pure-data/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20271 Modified Files: Makefile Log Message: added messageoddness colection of patches to the manuals section Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/doc/Makefile,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Makefile 13 Apr 2006 05:48:07 -0000 1.20 --- Makefile 25 Apr 2006 15:40:13 -0000 1.21 *************** *** 27,31 **** #==============================================================================# ! DOC_TARGETS = externals-howto media pd_fileformat pd-msg pddp tutorials # clean up after everything is installed --- 27,32 ---- #==============================================================================# ! DOC_TARGETS = externals-howto media messageoddness pd_fileformat pd-msg pddp \ ! tutorials # clean up after everything is installed *************** *** 109,112 **** --- 110,130 ---- + + + #------------------------------------------------------------------------------# + # MESSAGEODDNESS + MESSAGEODDNESS_NAME = MessageOddness + messageoddness_install: $(manualsdir) + install -d $(manualsdir)/$(MESSAGEODDNESS_NAME) + install -p $(doc_src)/additional/messageoddness/*.* \ + $(manualsdir)/$(MESSAGEODDNESS_NAME) + + messageoddness_clean: + -rm -f -- $(manualsdir)/$(MESSAGEODDNESS_NAME)/*.* + -rmdir -- $(manualsdir)/$(MESSAGEODDNESS_NAME) + + + + #------------------------------------------------------------------------------# # PD-MSG

1 0

pd/src desire.tk,1.1.2.190,1.1.2.191
by Mathieu Bouchard 25 Apr '06

25 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7339 Modified Files: Tag: devel_0_39 desire.tk Log Message: accents in -lang are troublesome; removing. fixed $ox in Canvas move. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.190 retrieving revision 1.1.2.191 diff -C2 -d -r1.1.2.190 -r1.1.2.191 *** desire.tk 25 Apr 2006 00:26:08 -0000 1.1.2.190 --- desire.tk 25 Apr 2006 13:57:27 -0000 1.1.2.191 *************** *** 304,314 **** switch -regexp -- $cmdline(lang) { ! en|english|C {source locale/english.tcl} ! fr|fran[cç]ais {source locale/francais.tcl} ! de|deutsch {source locale/deutsch.tcl} ! ca|catal[aà] {source locale/catala.tcl} ! es|espa[nñ]ol {source locale/espanol.tcl} ! pt|portugu[eê]s {source locale/portugues.tcl} ! nb|norsk|bokm[aå]l {source locale/bokmal.tcl} default {error huh??? unknown lang (locale)} } --- 304,314 ---- switch -regexp -- $cmdline(lang) { ! en|english|C {source locale/english.tcl} ! fr|francais {source locale/francais.tcl} ! de|deutsch {source locale/deutsch.tcl} ! ca|catala {source locale/catala.tcl} ! es|espanol {source locale/espanol.tcl} ! pt|portugues {source locale/portugues.tcl} ! nb|norsk|bokmal {source locale/bokmal.tcl} default {error huh??? unknown lang (locale)} } *************** *** 1607,1610 **** --- 1607,1611 ---- switch $@action { move { + mset {ox oy} $oldpos foreach obj $@selection {$obj move [expr $x-$ox] [expr $y-$oy]} return

1 0

← Newer
1
2
3
4
5
6
7
8
...
28
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 April 2006