Pd-cvs August 2006

pd-cvs@lists.iem.at

15 participants
462 discussions

pd/src desire.tk,1.1.2.376,1.1.2.377
by Mathieu Bouchard 19 Aug '06

19 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27061 Modified Files: Tag: devel_0_39 desire.tk Log Message: fix typo hairstate Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.376 retrieving revision 1.1.2.377 diff -C2 -d -r1.1.2.376 -r1.1.2.377 *** desire.tk 19 Aug 2006 16:26:37 -0000 1.1.2.376 --- desire.tk 19 Aug 2006 18:42:27 -0000 1.1.2.377 *************** *** 966,971 **** set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstaste) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------# proc read_ddrc {} { --- 966,972 ---- set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstate) 1 set crosshair(hairsnap) 1 + #-----------------------------------------------------------------------------------# proc read_ddrc {} { *************** *** 1424,1427 **** --- 1425,1429 ---- $c [list $axis]view scroll $diff units if {$crosshair(hairstate) && $@editmode} { + # this should be changed so that we don't need to recompute x,y here. set c .$self.c set x [expr [$c canvasx [expr [winfo pointerx $c] - [winfo rootx $c]]]/$@scale] *************** *** 3269,3273 **** global fields set orig [list $self properties_apply] ! foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var} [$@canvas history] add $orig set tosend {} --- 3271,3275 ---- global fields set orig [list $self properties_apply] ! foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var} [$@canvas history] add $orig set tosend {} *************** *** 3280,3285 **** set class $_($@of:class) set props {} ! foreach var [lrange $fields($class) 5 end] { ! set v $@$var ;# does $@$ really work or not? if not, fix objective.tcl ... if {[regexp -nocase {^[bfl]col$} $var]} {set v [unparse_color $v]} lappend props $v --- 3282,3287 ---- set class $_($@of:class) set props {} ! foreach var [lrange $fields($class) 5 end] { ! set v $@$var if {[regexp -nocase {^[bfl]col$} $var]} {set v [unparse_color $v]} lappend props $v

1 0

pd/src desire.tk,1.1.2.375,1.1.2.376
by chunlee 19 Aug '06

19 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8278 Modified Files: Tag: devel_0_39 desire.tk Log Message: leetspeak filter in proc say!!!! Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.375 retrieving revision 1.1.2.376 diff -C2 -d -r1.1.2.375 -r1.1.2.376 *** desire.tk 19 Aug 2006 15:35:02 -0000 1.1.2.375 --- desire.tk 19 Aug 2006 16:26:37 -0000 1.1.2.376 *************** *** 411,420 **** } proc say {k args} { ! global text if {[llength $args]} { set text($k) [lindex $args 0] } { ! if {[info exist text($k)]} {return $text($k)} {return "{{$k}}"} } } --- 411,428 ---- } + #temporary + set leet 1 + proc say {k args} { ! global text leet if {[llength $args]} { set text($k) [lindex $args 0] } { ! if {[info exist text($k)]} { ! if {$leet} { ! set l33t [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $text($k)] ! return $l33t} else {return $text($k)} ! #return $text($k) ! } else {return "{{$k}}"} } } *************** *** 957,963 **** default {concat 1}}] set look(minobjwidth) 21 - set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstate) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------# --- 965,970 ---- default {concat 1}}] set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstaste) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------#

1 0

pd/src/locale english.tcl,1.1.2.20,1.1.2.21
by chunlee 19 Aug '06

19 Aug '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20146/locale Modified Files: Tag: devel_0_39 english.tcl Log Message: small fixes to ddrc and ddrc editor, adding toggles to enable/disable buttonbar and status bar Index: english.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/english.tcl,v retrieving revision 1.1.2.20 retrieving revision 1.1.2.21 diff -C2 -d -r1.1.2.20 -r1.1.2.21 *** english.tcl 18 Aug 2006 04:47:16 -0000 1.1.2.20 --- english.tcl 19 Aug 2006 15:35:02 -0000 1.1.2.21 *************** *** 421,424 **** --- 421,430 ---- say objectbg "object background" say objectfg "object foreground" + say commentbg "comment background" + say commentfg "comment forground" + say commentframe1 "comment frame" + say commentframe2 "comment frame" + say commentframe3 "comment frame" + say selectframe "hilight box" say wire_color "wire" say wirefg "wire color" *************** *** 430,434 **** say selrect "selection box" say keys "keys" ! --- 436,444 ---- say selrect "selection box" say keys "keys" ! say others "others" ! say hairstate "Activate crosshair" ! say hairsnap "Crosshair snap to object" ! say statusbar "Activate statusbar" ! say buttonbar "Activate buttonbar"

1 0

pd/src desire.tk,1.1.2.374,1.1.2.375
by chunlee 19 Aug '06

19 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20146 Modified Files: Tag: devel_0_39 desire.tk Log Message: small fixes to ddrc and ddrc editor, adding toggles to enable/disable buttonbar and status bar Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.374 retrieving revision 1.1.2.375 diff -C2 -d -r1.1.2.374 -r1.1.2.375 *** desire.tk 18 Aug 2006 16:16:29 -0000 1.1.2.374 --- desire.tk 19 Aug 2006 15:35:02 -0000 1.1.2.375 *************** *** 948,953 **** set look(sliderbg) #ccebff #set look(sliderbg) #ffeedd ! set look(buttonbar) 1 ! set look(statusbar) 1 set look(showcomp) 10 set look(tooltip) 1 --- 948,953 ---- set look(sliderbg) #ccebff #set look(sliderbg) #ffeedd ! set bar(buttonbar) 1 ! set bar(statusbar) 1 set look(showcomp) 10 set look(tooltip) 1 *************** *** 963,967 **** #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global look crosshair set file [open "~/.ddrc" "RDONLY CREAT"] set dd_config [read $file] --- 963,967 ---- #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global look crosshair bar set file [open "~/.ddrc" "RDONLY CREAT"] set dd_config [read $file] *************** *** 978,982 **** crosshair { set crosshair($word2) $word3 ! #puts "look($word2) $word3" } font { --- 978,984 ---- crosshair { set crosshair($word2) $word3 ! } ! bar { ! set bar($word2) $word3 } font { *************** *** 1299,1307 **** def Canvas init_window {} { set win .$self set c .$self.c toplevel $win -menu $win.m # turn buttonbar on/off ! if {[look buttonbar]} { if {[catch {pack [[ButtonBar new $self] widget] -side top -fill x -expand no}]} { global errorInfo --- 1301,1311 ---- def Canvas init_window {} { + global bar + puts " --- butt:: $bar(buttonbar) status::: $bar(statusbar)" set win .$self set c .$self.c toplevel $win -menu $win.m # turn buttonbar on/off ! if {$bar(buttonbar)} { if {[catch {pack [[ButtonBar new $self] widget] -side top -fill x -expand no}]} { global errorInfo *************** *** 1311,1315 **** set @statusbar [StatusBar new $self] # turn statusbar on/off ! if {[look statusbar]} {pack [$@statusbar widget] -side bottom -fill x} pack [scrollbar $win.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x pack [scrollbar $win.yscroll -command "$c yview" ] -side right -fill y --- 1315,1319 ---- set @statusbar [StatusBar new $self] # turn statusbar on/off ! if {$bar(statusbar)} {pack [$@statusbar widget] -side bottom -fill x} pack [scrollbar $win.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x pack [scrollbar $win.yscroll -command "$c yview" ] -side right -fill y *************** *** 2675,2679 **** def Canvas decr_zoom {} {$self zoom "out"} def Canvas zoom {mode} { ! global scale set spinbox .$self.bbar.scale set val [string trimright [$spinbox get] %] --- 2679,2683 ---- def Canvas decr_zoom {} {$self zoom "out"} def Canvas zoom {mode} { ! global scale bar set spinbox .$self.bbar.scale set val [string trimright [$spinbox get] %] *************** *** 2688,2691 **** --- 2692,2696 ---- set @scale [expr $per/100.0] ;# @scale must be float, not int $self redraw + } *************** *** 4723,4727 **** class_new Dialog {Thing} ! def Dialog add {w args} { set no_max_label 0 foreach row $args { --- 4728,4732 ---- class_new Dialog {Thing} ! def* Dialog add {w args} { set no_max_label 0 foreach row $args { *************** *** 4732,4735 **** --- 4737,4741 ---- set label "[say $name]: " set k [lsearch $options -choices] + puts " name: $name | type: $type | option: $options | k: $k" if {$k>=0} { set choices [lindex $options [expr $k+1]] *************** *** 4799,4803 **** set text "" set n 0 ! foreach item $choices { if {$n != 0} {append text " & " [say $item]} else {set text [say $item]} incr n --- 4805,4813 ---- set text "" set n 0 ! #foreach item $choices { ! # if {$n != 0} {append text " & " [say $item]} else {set text [say $item]} ! # incr n ! #} ! foreach item $name { if {$n != 0} {append text " & " [say $item]} else {set text [say $item]} incr n *************** *** 5257,5261 **** libraries {incr i; lappend @$name [lindex $contents $i]} files {incr i; lappend @$name [lindex $contents $i]} ! choice { set @$name [lsearch $name [lindex $contents $i]} void { set @$name 1} default {incr i; set @$name [lindex $contents $i]} --- 5267,5271 ---- libraries {incr i; lappend @$name [lindex $contents $i]} files {incr i; lappend @$name [lindex $contents $i]} ! choice { set @$name [lsearch $name [lindex $contents $i]]} void { set @$name 1} default {incr i; set @$name [lindex $contents $i]} *************** *** 5385,5388 **** --- 5395,5400 ---- crosshair hairstate crosshair hairsnap + bar buttonbar + bar statusbar } *************** *** 5391,5395 **** def* ClientPrefsDialog read {} { ! global ddrc_options ddrc_options_h cmdline look key crosshair set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] #set contents [split [string map {"\n" " "} [read $fd]] " "] --- 5403,5407 ---- def* ClientPrefsDialog read {} { ! global ddrc_options ddrc_options_h cmdline look key crosshair bar set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] #set contents [split [string map {"\n" " "} [read $fd]] " "] *************** *** 5417,5420 **** --- 5429,5433 ---- key {set key($item) $value} crosshair {set crosshair($item) $value; set _($self:crosshair($item)) $value} + bar {set bar($item) $value; set _($self:bar($item)) $value} default {incr i; set @$name [lindex $contents $i]} } *************** *** 5463,5466 **** --- 5476,5483 ---- puts $fd "$type $name $crosshair($name)" } + bar { + set bar($name) $_($self:$name) + puts $fd "$type $name $bar($name)" + } } } *************** *** 5470,5474 **** } def ClientPrefsDialog init {} { ! global ddrc_options look key crosshair $self read super reset cancel apply ok --- 5487,5491 ---- } def ClientPrefsDialog init {} { ! global ddrc_options look key crosshair bar $self read super reset cancel apply ok *************** *** 5522,5525 **** --- 5539,5543 ---- set @$var $which_section.[string tolower [lindex $name 0]].[string tolower $item] } + puts " name::: $name" $self add $which_section [list $name $type] } *************** *** 5531,5534 **** --- 5549,5558 ---- $self add $which_section [list [lindex $name 0] toggle] } + bar { + set var ${name}path + set @$var $which_section.$name.color + set @$name $bar($name) + $self add $which_section [list [lindex $name 0] toggle] + } default { $self add $which_section [list $name $type]

1 0

pd/src s_audio_portaudio.c, 1.1.2.19, 1.1.2.20 SConscript, 1.1.4.52, 1.1.4.53
by Tim Blechmann 19 Aug '06

19 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16603/src Modified Files: Tag: devel_0_39 s_audio_portaudio.c SConscript Log Message: opening portaudio backend with higher blocksize to force some latency fixing scons build system for linux Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v retrieving revision 1.1.4.52 retrieving revision 1.1.4.53 diff -C2 -d -r1.1.4.52 -r1.1.4.53 *** SConscript 12 Aug 2006 09:56:33 -0000 1.1.4.52 --- SConscript 19 Aug 2006 15:23:40 -0000 1.1.4.53 *************** *** 44,48 **** ) ! opt.Update(pdenv) --- 44,48 ---- ) ! opt.Update(pdenv) *************** *** 65,69 **** s_audio.c s_file.c s_inter.c s_loader.c ! s_main.c s_midi.c s_path.c x_acoustics.c x_arithmetic.c x_connective.c x_gui.c x_interface.c --- 65,69 ---- s_audio.c s_file.c s_inter.c s_loader.c ! s_main.c s_midi.c s_path.c x_acoustics.c x_arithmetic.c x_connective.c x_gui.c x_interface.c *************** *** 102,106 **** print "libdl not found. dynamic loading of externals disabled" ! jack = conf.CheckLib('jack','jack_activate') alsa = conf.CheckLib('asound','snd_pcm_info') --- 102,106 ---- print "libdl not found. dynamic loading of externals disabled" ! jack = conf.CheckLib('jack','jack_activate') alsa = conf.CheckLib('asound','snd_pcm_info') *************** *** 135,142 **** print "Please enter path to ASIO SDK" Exit(1) ! pdenv.Append(CPPPATH=[path_pthread+'/include',path_tcl+'/include']) pdenv.Append(LIBPATH=[path_pthread+'/lib',path_tcl+'/lib']) ! pdenv.Append(CPPPATH=[path_asio+'/common',path_asio+'/host',path_asio+'/host/pc']) pdenv.Append(LIBPATH=[path_asio]) --- 135,142 ---- print "Please enter path to ASIO SDK" Exit(1) ! pdenv.Append(CPPPATH=[path_pthread+'/include',path_tcl+'/include']) pdenv.Append(LIBPATH=[path_pthread+'/lib',path_tcl+'/lib']) ! pdenv.Append(CPPPATH=[path_asio+'/common',path_asio+'/host',path_asio+'/host/pc']) pdenv.Append(LIBPATH=[path_asio]) *************** *** 154,163 **** if pdenv['PLATFORM'] == 'darwin': portaudio = True ! if conf.CheckLib('dl', 'dlopen'): defs.append('DL_OPEN') else: print "libdl not found. dynamic loading of externals disabled" ! if conf.CheckLib('jack','jack_activate'): jack = True --- 154,163 ---- if pdenv['PLATFORM'] == 'darwin': portaudio = True ! if conf.CheckLib('dl', 'dlopen'): defs.append('DL_OPEN') else: print "libdl not found. dynamic loading of externals disabled" ! if conf.CheckLib('jack','jack_activate'): jack = True *************** *** 186,190 **** print "can't find Math library" # Exit(1) ! if pdenv['PLATFORM'] != 'darwin': if not conf.CheckLib('tcl','Tcl_Init'): --- 186,190 ---- print "can't find Math library" # Exit(1) ! if pdenv['PLATFORM'] != 'darwin': if not conf.CheckLib('tcl','Tcl_Init'): *************** *** 205,209 **** if not (conf.CheckHeader('tcl.h') or conf.CheckHeader('tcl/tcl.h') ! ): for i in range (0,10): if conf.CheckHeader('tcl8.%d/tcl.h' % i): --- 205,209 ---- if not (conf.CheckHeader('tcl.h') or conf.CheckHeader('tcl/tcl.h') ! ): for i in range (0,10): if conf.CheckHeader('tcl8.%d/tcl.h' % i): *************** *** 376,381 **** # split pd to pd.exe and pd.dll ! pdenv['pdlib'] = True ! ###################################################################### # --- 376,381 ---- # split pd to pd.exe and pd.dll ! pdenv['pdlib'] = True ! ###################################################################### # *************** *** 406,412 **** linux_defs.append("PA_USE_ALSA") if pdenv['simd']: linux_sources.append(simd_sse_gcc_sources) ! if alsa: linux_sources.append(alsa_sources) --- 406,418 ---- linux_defs.append("PA_USE_ALSA") + if jack: + linux_defs.append("PA_USE_JACK") + linux_sources.append(File('src/hostapi/jack/pa_jack.c', papath)) + + pdenv.Append(CPPPATH=Dir('src/os/unix', papath)) + if pdenv['simd']: linux_sources.append(simd_sse_gcc_sources) ! if alsa: linux_sources.append(alsa_sources) *************** *** 414,418 **** linux_libs.append('asound') linux_sources.append(['s_midi_alsa.c']) ! if jack: linux_sources.append(jack_sources) --- 420,424 ---- linux_libs.append('asound') linux_sources.append(['s_midi_alsa.c']) ! if jack: linux_sources.append(jack_sources) *************** *** 454,458 **** osx_defs = Split("UNISTD PA_USE_COREAUDIO MACOSX") ! # if pdenv['portaudio']: # osx_sources += pa_sources --- 460,464 ---- osx_defs = Split("UNISTD PA_USE_COREAUDIO MACOSX") ! # if pdenv['portaudio']: # osx_sources += pa_sources *************** *** 463,467 **** osx_defs.append("USEAPI_JACK") pdenv.Append(LINKFLAGS=" -weak_framework Jack") ! osx_sources.append(papath+'/src/hostapi/jack/pa_jack.c') --- 469,473 ---- osx_defs.append("USEAPI_JACK") pdenv.Append(LINKFLAGS=" -weak_framework Jack") ! osx_sources.append(papath+'/src/hostapi/jack/pa_jack.c') *************** *** 532,536 **** cflags += " /Ox" else: ! if True or pdenv['PLATFORM'] != 'darwin': cflags += " -O3" else: --- 538,542 ---- cflags += " /Ox" else: ! if pdenv['PLATFORM'] != 'darwin': cflags += " -O3" else: *************** *** 550,554 **** else: cflags += " -mtune=" + optarch ! if pdenv['simd']: if pdenv['PLATFORM'] != 'darwin': --- 556,560 ---- else: cflags += " -mtune=" + optarch ! if pdenv['simd']: if pdenv['PLATFORM'] != 'darwin': *************** *** 569,573 **** if pdenv['lockfree']: cflags += " -fnested-functions -fasm-blocks" ! ###################################################################### # --- 575,579 ---- if pdenv['lockfree']: cflags += " -fnested-functions -fasm-blocks" ! ###################################################################### # *************** *** 583,587 **** else: cflags += " -msse2" ! if conf.TryCompile("""#include \"stdlib.h\" int main() --- 589,593 ---- else: cflags += " -msse2" ! if conf.TryCompile("""#include \"stdlib.h\" int main() *************** *** 651,655 **** pdlib = envint.SharedLibrary('../bin/pd', sources) ! pd = pdenv.Program('../bin/pd', 's_entry.c', LIBS=['./bin/pd']) Default(pdsend, pdreceive, pdgui, pdlib, pd, pdtk) else: --- 657,661 ---- pdlib = envint.SharedLibrary('../bin/pd', sources) ! pd = pdenv.Program('../bin/pd', 's_entry.c', LIBS=pdlib) Default(pdsend, pdreceive, pdgui, pdlib, pd, pdtk) else: Index: s_audio_portaudio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/s_audio_portaudio.c,v retrieving revision 1.1.2.19 retrieving revision 1.1.2.20 diff -C2 -d -r1.1.2.19 -r1.1.2.20 *** s_audio_portaudio.c 12 Aug 2006 11:54:47 -0000 1.1.2.19 --- s_audio_portaudio.c 19 Aug 2006 15:23:40 -0000 1.1.2.20 *************** *** 162,165 **** --- 162,172 ---- blocksize=64; + while ((float)blocksize / (float)rate * 1000 * 2 <advance) + { + if (blocksize == 1024) + break; + else + blocksize *= 2; + } pa_blocksize = blocksize; *************** *** 312,316 **** } ! for (i = 0; i != frameCount / sys_dacblocksize; ++i) { int j; --- 319,323 ---- } ! for (i = 0; i < frameCount / sys_dacblocksize; ++i) { int j;

1 0

pd/portmidi/pm_mac pmmacosxcm.c,1.8,1.9
by Miller Puckette 18 Aug '06

18 Aug '06

Update of /cvsroot/pure-data/pd/portmidi/pm_mac In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27163/pd/portmidi/pm_mac Modified Files: pmmacosxcm.c Log Message: put m_pd.h, s_stuff.h in quotes instead of brackets on s_audio_jack.c

1 0

pd/portaudio/pablio ringbuffer.c, 1.7, 1.8 ringbuffer.h, 1.8, 1.9
by Miller Puckette 18 Aug '06

18 Aug '06

Update of /cvsroot/pure-data/pd/portaudio/pablio In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27163/pd/portaudio/pablio Modified Files: ringbuffer.c ringbuffer.h Log Message: put m_pd.h, s_stuff.h in quotes instead of brackets on s_audio_jack.c

1 0

pd/portaudio/pa_win_wdmks pa_win_wdmks.c,1.8,1.9
by Miller Puckette 18 Aug '06

18 Aug '06

Update of /cvsroot/pure-data/pd/portaudio/pa_win_wdmks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27163/pd/portaudio/pa_win_wdmks Modified Files: pa_win_wdmks.c Log Message: put m_pd.h, s_stuff.h in quotes instead of brackets on s_audio_jack.c

1 0

[PD-cvs] pd/src m_binbuf.c, 1.10, 1.11 m_pd.h, 1.10, 1.11 notes.txt, 1.27, 1.28 s_audio_jack.c, 1.5, 1.6 s_audio_pablio.h, 1.6, 1.7 s_audio_paring.c, 1.6, 1.7 s_audio_paring.h, 1.6, 1.7
by Miller Puckette 18 Aug '06

18 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27163/pd/src Modified Files: m_binbuf.c m_pd.h notes.txt s_audio_jack.c s_audio_pablio.h s_audio_paring.c s_audio_paring.h Log Message: put m_pd.h, s_stuff.h in quotes instead of brackets on s_audio_jack.c Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** m_pd.h 15 Aug 2006 04:54:15 -0000 1.10 --- m_pd.h 18 Aug 2006 19:00:59 -0000 1.11 *************** *** 12,16 **** #define PD_MINOR_VERSION 40 #define PD_BUGFIX_VERSION 0 ! #define PD_TEST_VERSION "test02" /* old name for "MSW" flag -- we have to take it for the sake of many old --- 12,16 ---- #define PD_MINOR_VERSION 40 #define PD_BUGFIX_VERSION 0 ! #define PD_TEST_VERSION "test03" /* old name for "MSW" flag -- we have to take it for the sake of many old Index: s_audio_pablio.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_pablio.h,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** s_audio_pablio.h 15 Aug 2006 21:57:29 -0000 1.6 --- s_audio_pablio.h 18 Aug 2006 19:00:59 -0000 1.7 *************** *** 8,12 **** /* - * $Id$ * PABLIO.h * Portable Audio Blocking read/write utility. --- 8,11 ---- Index: m_binbuf.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_binbuf.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** m_binbuf.c 15 Aug 2006 21:57:29 -0000 1.10 --- m_binbuf.c 18 Aug 2006 19:00:59 -0000 1.11 *************** *** 529,533 **** } done: - post("realize %s->%s", s->s_name, buf2); return (gensym(buf2)); } --- 529,532 ---- Index: s_audio_jack.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_jack.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** s_audio_jack.c 6 Sep 2004 20:20:35 -0000 1.5 --- s_audio_jack.c 18 Aug 2006 19:00:59 -0000 1.6 *************** *** 7,12 **** #include <stdlib.h> #include <string.h> ! #include <m_pd.h> ! #include <s_stuff.h> #include <jack/jack.h> #include <regex.h> --- 7,12 ---- #include <stdlib.h> #include <string.h> ! #include "m_pd.h" ! #include "s_stuff.h" #include <jack/jack.h> #include <regex.h> Index: notes.txt =================================================================== RCS file: /cvsroot/pure-data/pd/src/notes.txt,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** notes.txt 15 Aug 2006 04:54:15 -0000 1.27 --- notes.txt 18 Aug 2006 19:00:59 -0000 1.28 *************** *** 26,29 **** --- 26,30 ---- doc: + -x flag for curves object list document env~ second argument (and why is it no less than 1/10 of first???) Index: s_audio_paring.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_paring.h,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** s_audio_paring.h 15 Aug 2006 21:57:29 -0000 1.6 --- s_audio_paring.h 18 Aug 2006 19:00:59 -0000 1.7 *************** *** 7,11 **** /* - * $Id$ * ringbuffer.h * Ring Buffer utility.. --- 7,10 ---- Index: s_audio_paring.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_paring.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** s_audio_paring.c 15 Aug 2006 21:57:29 -0000 1.6 --- s_audio_paring.c 18 Aug 2006 19:00:59 -0000 1.7 *************** *** 1,4 **** /* - * $Id$ * ringbuffer.c * Ring Buffer utility.. --- 1,3 ----

1 0

pd/src objective.tcl,1.1.2.15,1.1.2.16
by Mathieu Bouchard 18 Aug '06

18 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7762 Modified Files: Tag: devel_0_39 objective.tcl Log Message: streamlining. also not checking for null pointer anymore (not too useful). Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.15 retrieving revision 1.1.2.16 diff -C2 -d -r1.1.2.15 -r1.1.2.16 *** objective.tcl 17 Aug 2006 07:40:24 -0000 1.1.2.15 --- objective.tcl 18 Aug 2006 16:35:37 -0000 1.1.2.16 *************** *** 83,87 **** } ! rename unknown _original_unknown # TODO: remove duplicates in lookup # TODO: cache lookup for greater speed --- 83,87 ---- } ! rename unknown unknown2 # TODO: remove duplicates in lookup # TODO: cache lookup for greater speed *************** *** 89,95 **** global _ __ set self [lindex $args 0] - if {"$self" == ""} {error "null pointer error"} if {[llength [array names _ $self:_class]] == 0} { ! return [uplevel 1 [linsert $args 0 _original_unknown]] } set methods {} --- 89,94 ---- global _ __ set self [lindex $args 0] if {[llength [array names _ $self:_class]] == 0} { ! return [uplevel 1 [linsert $args 0 unknown2]] } set methods {} *************** *** 108,114 **** error "no such method '$selector' for object '$self'\nwith ancestors {$ancestors}" } ! set name [lindex $methods $i] ! set r [eval [concat [list $name $self] [lrange $args 2 end]]] ! return $r } --- 107,111 ---- error "no such method '$selector' for object '$self'\nwith ancestors {$ancestors}" } ! eval [concat [list [lindex $methods $i] $self] [lrange $args 2 end]] } *************** *** 117,122 **** set i [expr 1+$oi] if {[llength $methods] < $i} {error "no more supermethods"} ! set name [lindex $methods $i] ! set r [eval [concat [list $name $self] $args]] } --- 114,118 ---- set i [expr 1+$oi] if {[llength $methods] < $i} {error "no more supermethods"} ! eval [concat [list [lindex $methods $i] $self] $args] }

1 0

← Newer
1
...
15
16
17
18
19
20
21
...
47
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 2006