[PD-cvs] pd/src objective.tcl,1.1.2.18,1.1.2.19

[Mathieu Bouchard]

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