[PD-cvs] pd/src poe.tcl,1.1.2.2.2.25,1.1.2.2.2.26
chunlee
chunlee at users.sourceforge.net
Sat Oct 13 02:45:10 CEST 2007
- Previous message: [PD-cvs] abstractions/pdmtl 1.browser.pd, 1.1, 1.2 convert.symbol2chars-help.pd, 1.1, 1.2 convert.symbol2list.pd, 1.1, 1.2 file.browser_-help.pd, 1.1, 1.2 file.browser_.pd, 1.1, 1.2
- Next message: [PD-cvs] externals/loaders libdir.c,1.6,1.7
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19343
Modified Files:
Tag: desiredata
poe.tcl
Log Message:
tmp fix to previous commit
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.25
retrieving revision 1.1.2.2.2.26
diff -C2 -d -r1.1.2.2.2.25 -r1.1.2.2.2.26
*** poe.tcl 12 Oct 2007 11:33:14 -0000 1.1.2.2.2.25
--- poe.tcl 13 Oct 2007 00:45:08 -0000 1.1.2.2.2.26
***************
*** 44,49 ****
} else {
if {![catch {time {}}]} {
! set body "set t \[time {$body}\]"
! proc $name $args "$body; puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "], \[VTred\]\[lrange \[split \$t \] 0 1\] \[VTgrey\]\""
} {
proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
--- 44,54 ----
} else {
if {![catch {time {}}]} {
! if {![regexp "return" $body]} {
! set body "time {$body}"
! proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "], \[VTred\]\[lrange \[split \[$body\] \] 0 1\] \[VTgrey\]\""
! } {
! proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
! }
!
} {
proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
- Previous message: [PD-cvs] abstractions/pdmtl 1.browser.pd, 1.1, 1.2 convert.symbol2chars-help.pd, 1.1, 1.2 convert.symbol2list.pd, 1.1, 1.2 file.browser_-help.pd, 1.1, 1.2 file.browser_.pd, 1.1, 1.2
- Next message: [PD-cvs] externals/loaders libdir.c,1.6,1.7
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list