[PD-cvs] pd/src objective.tcl,1.1.2.18,1.1.2.19
Mathieu Bouchard
matju at users.sourceforge.net
Fri Sep 1 00:21:20 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5732
Modified Files:
Tag: devel_0_39
objective.tcl
Log Message:
tracedef now makes its stuff print in green
Index: objective.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -C2 -d -r1.1.2.18 -r1.1.2.19
*** objective.tcl 29 Aug 2006 00:07:17 -0000 1.1.2.18
--- objective.tcl 31 Aug 2006 22:21:18 -0000 1.1.2.19
***************
*** 23,39 ****
set argl {}
foreach arg $args {set arg [lindex $arg 0]; lappend argl "$arg=\$$arg"}
! proc $name $args "puts \"CALL TO PROC $name [join $argl " "]\"; $body"
}
! #proc class_def {self selector args body} {
# global _; if {![info exists _($self:_class)]} {error "unknown class '$self'"}
# proc ${self}_$selector "self $args" "global _; [regsub -all @(\[\\w\\?\]+) $body _(\$self:\\1)]"
#}
- #proc class_def* {self selector args body} {
- # global _; if {![info exists _($self:_class)]} {error "unknown class '$self'"}
- # proc* ${self}_$selector "self $args" "global _; [regsub -all @(\[\\w\\?\]+) $body _(\$self:\\1)]"
- #}
#proc def {class selector args body} {$class def $selector $args $body}
- #proc def* {class selector args body} {$class def* $selector $args $body}
proc expand_macros {body} {
--- 23,34 ----
set argl {}
foreach arg $args {set arg [lindex $arg 0]; lappend argl "$arg=\$$arg"}
! proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
}
! #proc Class_def {self selector args body} {
# global _; if {![info exists _($self:_class)]} {error "unknown class '$self'"}
# proc ${self}_$selector "self $args" "global _; [regsub -all @(\[\\w\\?\]+) $body _(\$self:\\1)]"
#}
#proc def {class selector args body} {$class def $selector $args $body}
proc expand_macros {body} {
***************
*** 51,58 ****
#trace add execution ${self}_$selector enter dedebug
}
- proc def* {self selector args body} {
- global _; if {![info exists _($self:_class)]} {error "unknown class '$self'"}
- proc* ${self}_$selector "self $args" "global _; [expand_macros $body]"
- }
proc class_new {self {super {Thing}}} {
--- 46,49 ----
***************
*** 142,146 ****
def Thing _inspect {} {
set t [list "#<$self: "]
! foreach k [$self _vars] {lappend t "$k=[list $@$k] "}
lappend t ">"
return [join $t ""]
--- 133,137 ----
def Thing _inspect {} {
set t [list "#<$self: "]
! foreach k [lsort [$self _vars]] {lappend t "$k=[list $@$k] "}
lappend t ">"
return [join $t ""]
***************
*** 168,173 ****
#-----------------------------------------------------------------------------------#
! proc VTred {} {return "\x1b\[0;1;31m"}
! proc VTgrey {} {return "\x1b\[0m"}
proc error_dump {} {
global errorCode errorInfo
--- 159,166 ----
#-----------------------------------------------------------------------------------#
! proc VTgreen {} {return "\x1b\[0;1;32m"}
! proc VTred {} {return "\x1b\[0;1;31m"}
! proc VTgrey {} {return "\x1b\[0m"}
!
proc error_dump {} {
global errorCode errorInfo
More information about the Pd-cvs
mailing list