pd/src objective.tcl,1.1.2.18,1.1.2.19 - Pd-cvs

1 Sep 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