Tcl TSVサポートの渡し辞書

Question

TSVでdict型変数を共有したいのですが、TSVのドキュメントにはDICTのサポートが表示されません。スレッドを通じてDICT変数を共有する別の方法がありますか？

Answer 1

TSV sub-packageには特別なサポートはありません。あなたは通常、そのようなことのためにtsv::arrayを使用します。しかし、値をロック内の文字列として取り込み、辞書として処理し、結果を書き戻すこともできます。多くの点で

# assuming that the main thread shared variable is called FOO and we're using the BAR element of it 
tsv::lock FOO { 
    # Read the dictionary out 
    set mycopy [tsv::get FOO BAR] 
    # Do some complicated operation 
    dict set mycopy "grill" [expr {2**[dict get $mycopy "quux"]}] 
    # Write the updated dictionary back 
    tsv::set FOO BAR $mycopy 
} 

ラッパーがあなたのためにCで書かれている以外、tsv::lappendなどのリストベースのコマンドは、むしろ、そのような基本的なget/setパターンのラッパーです。 （TSVサブパッケージはかなり古くなっています - それが提供するAPIは、Tcl 8.4と同様の最終更新日を持つと思うし、辞書のための特定の操作を提供しません）。