有沒有辦法讓[增強Tcl]類的朋友？

Question

有沒有辦法在incr Tcl之間取得班級之間的友誼？

考慮下面的代碼。

package require Itcl 

::itcl::class A { 
    private { 
     proc f { } { 
     puts "==== A::f" 
     } 
    } 
} 

::itcl::class B { 
    public { 
     proc g { } { 
     puts "==== want to be able to call A::f" 
     } 
    } 
} 

我想A::f是看不見外面的BA鑽功能。我怎樣才能做到這一點？

Answer 1

Itcl不提供朋友。

您可以通過構建使用namespace inscope呼叫，像這樣解決這個破解：

namespace inscope A {A::f}