Pd-cvs April 2006

pd-cvs@lists.iem.at

15 participants
271 discussions

[PD-cvs] pd/src objective.tcl, 1.1.2.5, 1.1.2.6 desire.tk, 1.1.2.155, 1.1.2.156
by Mathieu Bouchard 16 Apr '06

16 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21064 Modified Files: Tag: devel_0_39 objective.tcl desire.tk Log Message: thing -> Thing Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.155 retrieving revision 1.1.2.156 diff -C2 -d -r1.1.2.155 -r1.1.2.156 *** desire.tk 16 Apr 2006 06:15:33 -0000 1.1.2.155 --- desire.tk 16 Apr 2006 06:18:04 -0000 1.1.2.156 *************** *** 73,77 **** array unset poolset foo ! class_new Manager {thing} def* Manager init {} { --- 73,77 ---- array unset poolset foo ! class_new Manager {Thing} def* Manager init {} { *************** *** 757,761 **** #-----------------------------------------------------------------------------------# ! class_new view {Observable thing} # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough --- 757,761 ---- #-----------------------------------------------------------------------------------# ! class_new view {Observable Thing} # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough *************** *** 2482,2486 **** } ! def thing == {other} {return [expr ![string compare $self $other]]} def* numbox draw {} { --- 2482,2486 ---- } ! def Thing == {other} {return [expr ![string compare $self $other]]} def* numbox draw {} { *************** *** 3146,3150 **** set buttons_loaded 0 ! class_new button_bar {thing} def button_bar init {canvas} { --- 3146,3150 ---- set buttons_loaded 0 ! class_new button_bar {Thing} def button_bar init {canvas} { *************** *** 3649,3653 **** } ! post_hierarchy thing --- 3649,3653 ---- } ! post_hierarchy Thing Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.5 retrieving revision 1.1.2.6 diff -C2 -d -r1.1.2.5 -r1.1.2.6 *** objective.tcl 5 Dec 2005 01:08:11 -0000 1.1.2.5 --- objective.tcl 16 Apr 2006 06:18:04 -0000 1.1.2.6 *************** *** 15,19 **** set nextid 0 set _(class:_class) class ! set _(class:_super) {thing} proc proc* {name args body} { --- 15,19 ---- set nextid 0 set _(class:_class) class ! set _(class:_super) {Thing} proc proc* {name args body} { *************** *** 43,47 **** } ! proc class_new {self {super {thing}}} { global _ set _($self:_class) class --- 43,47 ---- } ! proc class_new {self {super {Thing}}} { global _ set _($self:_class) class *************** *** 106,115 **** } ! class_new thing ! set _(thing:_super) {} ! def* thing init {} {} # virtual destructor ! def* thing _delete {} {} #-----------------------------------------------------------------------------------# --- 106,117 ---- } ! class_new Thing {} ! #set _(Thing:_super) {} ! def* Thing init {} {} # virtual destructor ! def* Thing _delete {} {} ! ! class_new Class #-----------------------------------------------------------------------------------#

1 0

pd/src desire.tk,1.1.2.154,1.1.2.155
by Mathieu Bouchard 16 Apr '06

16 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19571 Modified Files: Tag: devel_0_39 desire.tk Log Message: class names should be uppercased Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.154 retrieving revision 1.1.2.155 diff -C2 -d -r1.1.2.154 -r1.1.2.155 *** desire.tk 15 Apr 2006 22:34:24 -0000 1.1.2.154 --- desire.tk 16 Apr 2006 06:15:33 -0000 1.1.2.155 *************** *** 49,71 **** # attributes (maybe all) have changed. ! class_new observable {} ! def observable init {} { set @subscribers {} } ! def observable subscribe {observer} { set i [lsearch $@subscribers $observer] if {$i<0} {lappend @subscribers $observer} } ! def observable unsubscribe {observer} { set i [lsearch $@subscribers $observer] if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]} } ! def observable changed {args} { foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } ! def observable child_changed {origin args} { foreach x $@subscribers {eval [concat [list $x notice $origin] $args]} } ! def observable subscribers {} {return $@subscribers} #-----------------------------------------------------------------------------------# --- 49,71 ---- # attributes (maybe all) have changed. ! class_new Observable {} ! def Observable init {} { set @subscribers {} } ! def Observable subscribe {observer} { set i [lsearch $@subscribers $observer] if {$i<0} {lappend @subscribers $observer} } ! def Observable unsubscribe {observer} { set i [lsearch $@subscribers $observer] if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]} } ! def Observable changed {args} { foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } ! def Observable child_changed {origin args} { foreach x $@subscribers {eval [concat [list $x notice $origin] $args]} } ! def Observable subscribers {} {return $@subscribers} #-----------------------------------------------------------------------------------# *************** *** 73,84 **** array unset poolset foo ! class_new manager {thing} ! def* manager init {} { set @q [list] $self call } ! def manager call {} { global poolset if {[llength $@q]} {post "client queue %d" [llength $@q]} --- 73,84 ---- array unset poolset foo ! class_new Manager {thing} ! def* Manager init {} { set @q [list] $self call } ! def Manager call {} { global poolset if {[llength $@q]} {post "client queue %d" [llength $@q]} *************** *** 93,100 **** } ! def* manager notice {origin args} { global poolset if {[info exists poolset($origin)]} { ! post %s "def manager notice: double dirty" # nothing for now } { --- 93,100 ---- } ! def* Manager notice {origin args} { global poolset if {[info exists poolset($origin)]} { ! post %s "def Manager notice: double dirty" # nothing for now } { *************** *** 102,106 **** lappend @q $origin } ! post "manager notice: queue length is now %d" [llength $@q] } --- 102,106 ---- lappend @q $origin } ! post "Manager notice: queue length is now %d" [llength $@q] } *************** *** 477,481 **** ################ utility functions ######################### ! proc pdtk_post {s} {post $s} proc enquote {x} { --- 477,481 ---- ################ utility functions ######################### ! proc pdtk_post {s} {regsub -- "\n$" $s "" s; post %s $s} proc enquote {x} { *************** *** 757,761 **** #-----------------------------------------------------------------------------------# ! class_new view {observable thing} # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough --- 757,761 ---- #-----------------------------------------------------------------------------------# ! class_new view {Observable thing} # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough *************** *** 2994,2998 **** set oldpos [lindex [.log.2 get] 1] .log.1 insert end $x ! regsub "\n$" $x "" y set n [expr [string length $x]-[string length $y]] set console_lines [expr $console_lines+$n] --- 2994,2998 ---- set oldpos [lindex [.log.2 get] 1] .log.1 insert end $x ! regsub -all "\n" $x "" y set n [expr [string length $x]-[string length $y]] set console_lines [expr $console_lines+$n] *************** *** 3640,3644 **** #c lsort proably does what u want (has an integer flag too) ! set manager [manager_new] proc post_hierarchy {self {i 0}} { --- 3640,3644 ---- #c lsort proably does what u want (has an integer flag too) ! set manager [Manager_new] proc post_hierarchy {self {i 0}} {

1 0

pd/src/locale bokmal.tcl,1.1.2.3,1.1.2.4
by Mathieu Bouchard 16 Apr '06

16 Apr '06

Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13594 Modified Files: Tag: devel_0_39 bokmal.tcl Log Message: missing brace Index: bokmal.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/bokmal.tcl,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** bokmal.tcl 26 Dec 2005 00:46:08 -0000 1.1.2.3 --- bokmal.tcl 16 Apr 2006 05:16:48 -0000 1.1.2.4 *************** *** 181,183 **** say $word~ "[say $word] (for signaler)" } ! --- 181,183 ---- say $word~ "[say $word] (for signaler)" } ! }

1 0

pd/src desire.tk,1.1.2.153,1.1.2.154
by Mathieu Bouchard 16 Apr '06

16 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2510 Modified Files: Tag: devel_0_39 desire.tk Log Message: reimporting .pdrc editor Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.153 retrieving revision 1.1.2.154 diff -C2 -d -r1.1.2.153 -r1.1.2.154 *** desire.tk 15 Apr 2006 20:10:30 -0000 1.1.2.153 --- desire.tk 15 Apr 2006 22:34:24 -0000 1.1.2.154 *************** *** 261,264 **** --- 261,265 ---- proc say_category {text} {} + set cmdline(rcfilename) ~/.pdrc set cmdline(console) 1000 set cmdline(icons) icons *************** *** 3451,3454 **** --- 3452,3634 ---- } + ############ .pdrc editor + + # this proc might be obsolete + proc cancel_apply_ok {self procprefix} { + frame .$self.buttonsep -height 2 -borderwidth 1 -relief sunken + frame .$self.buttonframe + foreach {a b} {cancel "Cancel" apply "Apply" ok "OK"} { + button .$self.buttonframe.$a -text $b -command "${procprefix}_$a .$self" + pack .$self.buttonframe.$a -side left -expand 1 + } + pack .$self.buttonframe -side bottom -fill x -pady 2m + pack .$self.buttonsep -side bottom -fill x + } + + set pdrc_options { + section "" "Audio DSP" + int -r "sample rate" + devlist -soundindev|-audioindev "audio in devices" + devlist -soundoutdev|-audiooutdev "audio out devices" + alias -sounddev|-audiodev {list -soundindev %1 -soundoutdev %1} + devlist -inchannels "audio input channels (by device, like \"2\" or \"16,8\")" + devlist -outchannels "number of audio out channels (same)" + alias -channels {list -inchannels %1 -outchannels %1} + int -audiobuf|-soundbuf "specify size of audio buffer in msec" + int -blocksize "specify audio I/O block size in sample frames" + int -sleepgrain "specify number of milliseconds to sleep when idle" + void -nodac "suppress audio output" + void -noadc "suppress audio input" + alias -noaudio|-nosound {list -nodac -noadc} + radio {"" -alsa -jack -mmio -portaudio|-pa|-asio -oss} { + "Sound API: " + "default" + "use ALSA audio API" + "use JACK audio API" + "use MMIO audio API (default for Windows)" + "use ASIO audio driver (via Portaudio)" + "use OSS audio API" + } + void -32bit "allow 32 bit OSS audio (for RME Hammerfall)" + + section "" "MIDI" + void -nomidiin "suppress MIDI input" + void -nomidiout "suppress MIDI output" + alias -nomidi {list -nomidiin -nomidiout} + devlist -midiindev "midi in device list; e.g., \"1,3\" for first and third" + devlist -midioutdev "midi out device list, same format" + alias -mididev {list -midindev %1 -midioutdev %1} + + section "" "Externals" + folders -path "add to file search path" + folders -helppath "add to help file search path" + files -lib "load object library(s)" + + section "" "Gooey" + void -nogui "suppress starting the GUI (caution)" + string -guicmd "substitute another GUI program (e.g., rsh)" + int -console "console scrollback lines (0 = disable console)" + folder -look "folder containing buttonbar icons" + void -statusbar "enable statusbar" + int -font "specify default font size in points" + + section "" "Other" + files -open "open file(s) on startup" + void -verbose "extra printout on startup and when searching for files" + int -d "debug level" + void -noloadbang "disable the effect of [loadbang]" + string -send "send a message at startup (after patches are loaded)" + void -listdev "list audio and MIDI devices upon startup" + void -rt|-realtime "use real-time priority (needs root privilege)" + } + + proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} + proc pdrc_editor_cancel {self} {destroy $self} + proc pdrc_editor_apply {self} { + set self [string trimleft $self .] + pdrc_write $self + } + + proc notebook_select {self i} { + global _ + catch { + .$self.bar.$_($self:section) configure -relief raised + place forget .$self.main.$_($self:section) + } + set _($self:section) $i + place .$self.main.$_($self:section) -x 0 -y 0 + .$self.bar.$_($self:section) configure -relief sunken + } + + proc pdrc_read {self} { + global pdrc_options pdrc_options_h _ cmdline + set fd [open $cmdline(rcfilename) r] + set contents [split [string map {"\n" " "} [read $fd]] " "] + close $fd + foreach {type name desc} $pdrc_options { + set _($self:$name) "" + foreach subname [split $name |] { + set pdrc_options_h($subname) [list $type $name $desc] + } + } + set i 0 + while {$i < [llength $contents]} { + set op [lindex $contents $i] + puts "op=$op" + if {[string length $op]==0} {break} + if {![info exists pdrc_options_h($op)]} { + error "unknown option: $op" + } + foreach {type name desc} $pdrc_options_h($op) {} + switch $type { + folders {incr i; lappend _($self:$name) [lindex $contents $i]} + files {incr i; lappend _($self:$name) [lindex $contents $i]} + void {set _($self:$name) 1} + default {incr i; set _($self:$name) [lindex $contents $i]} + } + incr i + } + } + + proc pdrc_write {self} { + global pdrc_options pdrc_options_h _ cmdline + set fd [open $cmdline(rcfilename) w] + foreach {type name desc} $pdrc_options { + set v $_($self:$name) + set op [lindex [split $name |] 0] + switch $type { + folders {foreach x $v {puts $fd "$op $x"}} + files {foreach x $v {puts $fd "$op $x"}} + void {if {[string length $v]} {if {$v} {puts $fd $op}}} + default {if {[string length $v]} {puts $fd "$op $v"}} + } + } + close $fd + } + + proc pdrc_editor_new {} { + global _ pdrc_options + set self pdrc + pdrc_read $self + toplevel .$self + frame .$self.1 + frame .$self.1.bar + frame .$self.1.buttonsep -height 2 -borderwidth 1 -relief sunken + frame .$self.1.main -borderwidth 1 -relief raised -width 600 -height 350 + set section 0 + foreach {type name desc} $pdrc_options { + switch $type { void { set type toggle }} + switch $type { + section { + incr section + frame .$self.1.main.$section + button .$self.1.bar.$section -text $desc \ + -command [list notebook_select $self.1 $section] + pack .$self.1.bar.$section -side left + } + alias {} + radio { + properties_dialog $self .$self.1.main.$section pdrc_editor_ok \ + [list [lindex $name 0] "$desc" choice {}] + } + default { + properties_dialog $self .$self.1.main.$section pdrc_editor_ok \ + [list $name "$name: $desc" $type {}] + } + } + } + cancel_apply_ok $self pdrc_editor + notebook_select $self.1 1 + pack .$self.1.bar -fill x + pack .$self.1.buttonsep + pack .$self.1.main -fill both -expand yes + pack .$self.1 + return $self + } + + def client pdrc_editor {} {pdrc_editor_new} + + ############ other stuff ######### + #c proc updatesel {_ sel} { #c variable ""

1 0

pd/src desire.tk,1.1.2.152,1.1.2.153
by chunlee 15 Apr '06

15 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv356 Modified Files: Tag: devel_0_39 desire.tk Log Message: added look(buttonbar) and look(statusbar) and other small changes Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.152 retrieving revision 1.1.2.153 diff -C2 -d -r1.1.2.152 -r1.1.2.153 *** desire.tk 12 Apr 2006 16:11:14 -0000 1.1.2.152 --- desire.tk 15 Apr 2006 20:10:30 -0000 1.1.2.153 *************** *** 544,548 **** def client open_file {} { global pd_opendir ! set hname [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir] --- 544,548 ---- def client open_file {} { global pd_opendir ! set filename [tk_getOpenFile -defaultextension .pd \ -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ -initialdir $pd_opendir] *************** *** 661,665 **** def* menuable altkey {key iso} { ! set key [if {$shift} {string toupper $key} {string tolower $key}] set key "Alt+$key" if {[dict exists $@accels $key]} { --- 661,666 ---- def* menuable altkey {key iso} { ! #hum, where is shift? ! #set key [if {$shift} {string toupper $key} {string tolower $key}] set key "Alt+$key" if {[dict exists $@accels $key]} { *************** *** 698,701 **** --- 699,704 ---- set look(sliderbg) #ccebff #set look(sliderbg) #ffeedd + set look(buttonbar) 1 + set look(statusbar) 1 set look(extrapix) [switch $OS { *************** *** 994,1005 **** def* canvas init {{width 400} {height 300} {geometry +0+0} {editable 1}} { super ! global pd_opendir pd_tearoff OS cmdline focus set name .$self set c .$self.c toplevel $name -menu $name.m wm geometry $name $geometry ! pack [[button_bar_new $self] widget] -side top -fill x -expand no set @statusbar [statusbar_new $self] ! pack [$@statusbar widget] -side bottom -fill x pack [scrollbar $name.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x pack [scrollbar $name.yscroll -command "$c yview"] -side right -fill y --- 997,1010 ---- def* canvas init {{width 400} {height 300} {geometry +0+0} {editable 1}} { super ! global pd_opendir pd_tearoff OS cmdline focus look set name .$self set c .$self.c toplevel $name -menu $name.m wm geometry $name $geometry ! # turn buttonbar on/off ! if {$look(buttonbar)} {pack [[button_bar_new $self] widget] -side top -fill x -expand no} set @statusbar [statusbar_new $self] ! # turn statusbar on/off ! if {$look(statusbar)} {pack [$@statusbar widget] -side bottom -fill x} pack [scrollbar $name.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x pack [scrollbar $name.yscroll -command "$c yview"] -side right -fill y *************** *** 1517,1521 **** set find [lsearch $@wires_pair $wire] if { $find != -1} { ! ## remove the selected wire from the @wire_pair... set @wires_pair [lreplace $@wires_pair $find $find] set @wires_pair [lreplace $@wires_pair [expr $find - 1] [expr $find - 1]] --- 1522,1526 ---- set find [lsearch $@wires_pair $wire] if { $find != -1} { ! ## remove the selected wire from the @wires_pair... set @wires_pair [lreplace $@wires_pair $find $find] set @wires_pair [lreplace $@wires_pair [expr $find - 1] [expr $find - 1]] *************** *** 2790,2794 **** } ! def bang click {x y b f} {pd $self user_bang; $self bang} def bang bang {} { --- 2795,2799 ---- } ! def bang click {x y b f} {pd .$self bang; $self bang} def bang bang {} {

1 0

packages Makefile,1.29,1.30
by Hans-Christoph Steiner 15 Apr '06

15 Apr '06

Update of /cvsroot/pure-data/packages In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24244 Modified Files: Makefile Log Message: iemabs is now part of the iemlib libdir, so no need to do the help files separately there Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/Makefile,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Makefile 7 Apr 2006 01:24:29 -0000 1.29 --- Makefile 15 Apr 2006 17:37:38 -0000 1.30 *************** *** 650,655 **** cd $(helpdir) && \ $(scripts_src)/convert-help-to-standard.sh - cd $(helpdir)/iemabs && \ - $(scripts_src)/convert-help-to-standard.sh # remove write perms to prevent people form editing the helpfiles by mistake find $(pddocdir) -name '*.pd' -print0 | xargs -0 chmod a-wx --- 650,653 ----

1 0

packages/win32_inno Makefile, 1.11, 1.12 TODO, 1.16, 1.17 pd-inno.iss.in, 1.6, 1.7
by Hans-Christoph Steiner 15 Apr '06

15 Apr '06

Update of /cvsroot/pure-data/packages/win32_inno In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6726 Modified Files: Makefile TODO pd-inno.iss.in Log Message: built Pd-0.39.2-extended-test2 on fever.idmi.poly.edu Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/win32_inno/Makefile,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Makefile 10 Apr 2006 02:01:20 -0000 1.11 --- Makefile 15 Apr 2006 17:11:35 -0000 1.12 *************** *** 98,105 **** install -p $(bin_src)/tk84.dll $(dlldir)/tk84.dll # this is a quick hack, since the gripd.dll still looks for pthreadVC.dll ! (test -e $(DESTDIR)$(prefix)/gripd/pthreadVC.dll && \ ! install -p $(DESTDIR)$(prefix)/gripd/pthreadVC.dll $(dlldir)/pthreadVC.dll) || \ ! test -e $(SYSTEMROOT)/system32/pthreadVC.dll || \ ! install -p $(SYSTEMROOT)/pthreadVC.dll $(dlldir)/pthreadVC.dll # these go into the Pd package's lib dir install -d $(libdir)/tcl8.4 --- 98,105 ---- install -p $(bin_src)/tk84.dll $(dlldir)/tk84.dll # this is a quick hack, since the gripd.dll still looks for pthreadVC.dll ! # (test -e $(DESTDIR)$(prefix)/gripd/pthreadVC.dll && \ ! # install -p $(DESTDIR)$(prefix)/gripd/pthreadVC.dll $(dlldir)/pthreadVC.dll) || \ ! # test -e $(SYSTEMROOT)/system32/pthreadVC.dll || \ ! # install -p $(SYSTEMROOT)/pthreadVC.dll $(dlldir)/pthreadVC.dll # these go into the Pd package's lib dir install -d $(libdir)/tcl8.4 Index: TODO =================================================================== RCS file: /cvsroot/pure-data/packages/win32_inno/TODO,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** TODO 13 Feb 2006 06:10:07 -0000 1.16 --- TODO 15 Apr 2006 17:11:35 -0000 1.17 *************** *** 21,22 **** --- 21,26 ---- - get Windows Makefiles for Gem + + + - make gripd compile from source (then we don't need to include pthreadVC.dll + from Miller's pd package, and other hacks) Index: pd-inno.iss.in =================================================================== RCS file: /cvsroot/pure-data/packages/win32_inno/pd-inno.iss.in,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** pd-inno.iss.in 17 Jan 2006 18:05:21 -0000 1.6 --- pd-inno.iss.in 15 Apr 2006 17:11:35 -0000 1.7 *************** *** 8,12 **** [Setup] AppName=pd ! AppVerName=Pd-PD_VERSION-PACKAGE_VERSION AppPublisher=pure-data.org AppPublisherURL=http://puredata.org --- 8,12 ---- [Setup] AppName=pd ! AppVerName=Pd-PD_VERSION AppPublisher=pure-data.org AppPublisherURL=http://puredata.org

1 0

externals Makefile,1.52,1.53
by Hans-Christoph Steiner 15 Apr '06

15 Apr '06

Update of /cvsroot/pure-data/externals In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6068 Modified Files: Makefile Log Message: disabled s* objects in iemlib libdir since they are really working properly as single objects in the libdir yet, and don't compile on MinGW Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/Makefile,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** Makefile 12 Apr 2006 00:51:48 -0000 1.52 --- Makefile 15 Apr 2006 16:23:28 -0000 1.53 *************** *** 673,677 **** # IEMLIB IEMLIB_NAME=iemlib ! IEMLIB_OBJECTS := $(wildcard $(externals_src)/iemlib/src/*/[a-hj-z]*.c) iemlib: $(IEMLIB_OBJECTS:.c=.$(EXTENSION)) --- 673,677 ---- # IEMLIB IEMLIB_NAME=iemlib ! IEMLIB_OBJECTS := $(wildcard $(externals_src)/iemlib/src/*/[a-hj-rt-z]*.c) iemlib: $(IEMLIB_OBJECTS:.c=.$(EXTENSION))

1 0

[PD-cvs] doc/tutorials/intro 00.hello_world.pd, 1.4, 1.5 16.atoms.pd, 1.2, 1.3
by Hans-Christoph Steiner 15 Apr '06

15 Apr '06

Update of /cvsroot/pure-data/doc/tutorials/intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14957 Modified Files: 00.hello_world.pd 16.atoms.pd Log Message: finished up atom definitions and removed canvas from hello world to make it as simple as possible Index: 16.atoms.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/intro/16.atoms.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** 16.atoms.pd 14 Apr 2006 14:53:42 -0000 1.2 --- 16.atoms.pd 15 Apr 2006 05:17:37 -0000 1.3 *************** *** 1,10 **** ! #N canvas 10 40 620 460 12; #X obj 10 12 cnv 15 400 40 empty empty atoms 20 12 0 24 -228992 -66577 0; ! #X text 24 87 The basic data types of Pd are called "atoms". There are three atom types: "float" \, "symbol" \, and "pointer".; ! #X text 10 282 An atom is a piece of data that cannot be broken down ! into smaller parts.; ! #X text 21 160 A numeric atom is anything that can be interpreted as ! a number.; ! #X text 18 225 A symbolic atom is...; --- 1,34 ---- ! #N canvas 10 40 624 464 12; ! #X obj 8 192 cnv 15 600 70 empty empty empty 20 12 0 14 -262134 -66577 ! 0; #X obj 10 12 cnv 15 400 40 empty empty atoms 20 12 0 24 -228992 -66577 0; ! #X text 52 190 1; ! #X text 77 221 0; ! #X text 15 68 The basic data types of Pd are called "atoms". An atom ! is a piece of data that cannot be broken down into smaller parts. There are three atom types: "float" \, "symbol" \, and "pointer".; ! #X text 134 194 1.14234e+34; ! #X text 425 225 3.14159; ! #X text 329 192 -999999; ! #X text 331 225 45; ! #X text 191 224 -12; ! #X text 18 147 A numeric atom is any element that can be interpreted ! as a number:; ! #X text 488 192 1824.53; ! #X text 24 218 3; ! #X text 16 259 A symbolic atom is any element that is not a functional ! representation of a number \, usually in the form of words:; ! #X obj 8 306 cnv 15 600 70 empty empty empty 20 12 0 14 -262134 -66577 ! 0; ! #X text 28 306 word; ! #X text 89 338 number5; ! #X text 199 309 3..2; ! #X text 553 343 --44; ! #X text 235 341 label; ! #X text 481 304 reset; ! #X text 332 304 5++; ! #X text 399 336 trigger; ! #X text 15 381 A pointer is a very specific type of atom. It is only ! used as a reference to a position in a data structure. There is not ! visualization of a pointer.; Index: 00.hello_world.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/intro/00.hello_world.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** 00.hello_world.pd 14 Apr 2006 14:53:42 -0000 1.4 --- 00.hello_world.pd 15 Apr 2006 05:17:37 -0000 1.5 *************** *** 1,5 **** ! #N canvas 10 40 628 468 12; ! #X obj 230 162 cnv 15 140 30 empty empty empty 20 12 0 14 -225271 -66577 ! 0; #X msg 235 167 Hello world!; #X text 238 216 <-- connection \, aka "cord"; --- 1,3 ---- ! #N canvas 10 40 632 472 12; #X msg 235 167 Hello world!; #X text 238 216 <-- connection \, aka "cord"; *************** *** 19,21 **** #X obj 133 415 print; #X text 198 415 prints to the Pd window.; ! #X connect 1 0 7 0; --- 17,19 ---- #X obj 133 415 print; #X text 198 415 prints to the Pd window.; ! #X connect 0 0 6 0;

1 0

pd/src desire.c,1.1.2.65,1.1.2.66
by Mathieu Bouchard 14 Apr '06

14 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17887 Modified Files: Tag: devel_0_39 desire.c Log Message: [bng] [tgl] etc all register a receive-symbol (augggh) Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.65 retrieving revision 1.1.2.66 diff -C2 -d -r1.1.2.65 -r1.1.2.66 *** desire.c 11 Apr 2006 20:25:33 -0000 1.1.2.65 --- desire.c 14 Apr 2006 19:39:21 -0000 1.1.2.66 *************** *** 10895,10910 **** } t_nbx; - static int iemgui_clip_size(int size); - static void iemgui_size(t_iemgui *x); - static void iemgui_subclass (t_class *c); - t_iemgui *iemgui_new(t_class *qlass); - void iemgui_propertiesfn(t_gobj *x, t_glist *owner); - static void iemgui_constrain(t_iemgui *x); t_symbol *s_empty; int convert_color2(int x); - static void iemgui_init(t_iemgui *x, t_floatarg f); void binbuf_update(t_iemgui *x, t_symbol *qlass, int argc, t_atom *argv); - static /*bool*/ int iemgui_loadbang (/*t_iemgui*/ void *x); - static /*bool*/ int iemgui_forward (/*t_iemgui*/ void *x); /* was put_in2out */ typedef struct t_foo { int argc; t_atom *argv; t_binbuf *b; } t_foo; --- 10895,10901 ---- *************** *** 11200,11223 **** static void gatom_bang(t_gatom *x) { ! if (x->a_atom.a_type == A_FLOAT) ! { if (x->a_text.te_outlet) outlet_float(x->a_text.te_outlet, x->a_atom.a_w.w_float); ! if (*x->a_expanded_to->s_name && x->a_expanded_to->s_thing) { if (x->a_symto == x->a_symfrom) goto err; ! pd_float(x->a_expanded_to->s_thing, x->a_atom.a_w.w_float); } } else if (x->a_atom.a_type == A_SYMBOL) { if (x->a_text.te_outlet) outlet_symbol(x->a_text.te_outlet, x->a_atom.a_w.w_symbol); ! if (*x->a_symto->s_name && x->a_expanded_to->s_thing) { if (x->a_symto == x->a_symfrom) goto err; ! pd_symbol(x->a_expanded_to->s_thing, x->a_atom.a_w.w_symbol); } } return; err: ! pd_error(x, "%s: atom with same send/receive name (infinite loop)", ! x->a_symto->s_name); } --- 11191,11214 ---- static void gatom_bang(t_gatom *x) { ! t_symbol *s = x->a_expanded_to; ! if (x->a_atom.a_type == A_FLOAT) { if (x->a_text.te_outlet) outlet_float(x->a_text.te_outlet, x->a_atom.a_w.w_float); ! if (*s->s_name && s->s_thing) { if (x->a_symto == x->a_symfrom) goto err; ! pd_float(s->s_thing, x->a_atom.a_w.w_float); } } else if (x->a_atom.a_type == A_SYMBOL) { if (x->a_text.te_outlet) outlet_symbol(x->a_text.te_outlet, x->a_atom.a_w.w_symbol); ! if (*x->a_symto->s_name && s->s_thing) { if (x->a_symto == x->a_symfrom) goto err; ! pd_symbol(s->s_thing, x->a_atom.a_w.w_symbol); } } return; err: ! pd_error(x, "%s: atom with same send/receive name (infinite loop)", ! x->a_symto->s_name); } *************** *** 11869,11872 **** --- 11860,11869 ---- } + t_symbol *pd_makebindsym(t_pd *x) { + char buf[42]; + sprintf(buf,".x%lx",(long)x); + return gensym(buf); + } + t_iemgui *iemgui_new(t_class *qlass) { t_iemgui *x = (t_iemgui *)pd_new(qlass); *************** *** 11884,11887 **** --- 11881,11885 ---- x->fcol = 0x000000; x->lcol = 0x000000; + pd_bind((t_pd *)x,pd_makebindsym((t_pd *)x)); return x; }

1 0

← Newer
1
...
11
12
13
14
15
16
17
...
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