[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


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"





More information about the Pd-cvs mailing list