[PD-cvs] pd/src poe.tcl,1.1.2.2.2.10,1.1.2.2.2.11
Mathieu Bouchard
matju at users.sourceforge.net
Tue Jan 23 19:17:34 CET 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4078
Modified Files:
Tag: desiredata
poe.tcl
Log Message:
added array __args(${class}_$selector) to record argument lists as they are given to proc def
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.10
retrieving revision 1.1.2.2.2.11
diff -C2 -d -r1.1.2.2.2.10 -r1.1.2.2.2.11
*** poe.tcl 23 Jan 2007 17:23:39 -0000 1.1.2.2.2.10
--- poe.tcl 23 Jan 2007 18:17:32 -0000 1.1.2.2.2.11
***************
*** 54,64 ****
proc def {self selector args body} {
! global _ __trace
if {![info exists _($self:_class)]} {error "unknown class '$self'"}
if {[info exists __trace($self:$selector)]} {
! proc* ${self}_$selector "self $args" "global _; [expand_macros $body]"
} {
! proc ${self}_$selector "self $args" "global _; [expand_macros $body]"
}
#trace add execution ${self}_$selector enter dedebug
}
--- 54,66 ----
proc def {self selector args body} {
! global _ __trace __args
if {![info exists _($self:_class)]} {error "unknown class '$self'"}
+ set name ${self}_$selector
if {[info exists __trace($self:$selector)]} {
! proc* $name "self $args" "global _; [expand_macros $body]"
} {
! proc $name "self $args" "global _; [expand_macros $body]"
}
+ set __args($name) $args
#trace add execution ${self}_$selector enter dedebug
}
More information about the Pd-cvs
mailing list