jimtcl-broken.tcl

package require oo


set block {
    class C {
        procs {}
    }
}
set tmp [file tempfile /tmp/blockXXXXXX].tcl
set fd [open $tmp w]; puts $fd $block; close $fd

eval [read [open $tmp r]]




C method proc {name arguments rtype body} {

    if {[dict exists $procs $name]} { error "C proc: Name collision: $name" }
    puts "1: proc($name): [dict get [$self classvars] procs]"
    dict set procs $name rtype $rtype

}



set cc [C]
$cc method insts {} {
    uplevel set instvars
}
puts "cc is $cc"
$cc proc addify {int a int b} int {
    return a + b;
}

puts "GOT: [dict get [::<reference.<C______>.00000000000000000000> classvars] procs]"

__exit 0