Tclのラッパーライブラリ（オブジェクト編）
高木です。おはようございます。
前回はTclインタープリタ、すなわちTcl_Interp型の扱い方について基本的なところを決めました。
今回はTclのデータを扱うTcl_Obj型の扱い方について考えていきたいと思います。
昔のTclはデータは何でもかんでも文字列として扱っていました。
しかし、そのやり方はレガシーなので、現在はTcl_Obj型を使ってデータを扱います。
より正確にいうと、Tcl_Obj型へのポインタを使ってデータを操作することになります。
Tcl_Objオブジェクトの構築は、Tcl_NewObj関数をはじめ、いくつかの関数を使って行います。
Tcl_Objは内部的に動的な型を持っているので、その動的な型にあわせて構築方法が異なります。
たとえば、整数であればTcl_NewIntObj関数、浮動小数点数であればTcl_NewDoubleObj関数、論理値であればTcl_NewBooleanObj関数、文字列であればTcl_NewStringObj関数、Unicode文字列であればTcl_NewUnicodeObj関数といった具合です。
Tcl_Obj型は内部に参照カウンタを持っています。
参照を増やすにはTcl_IncrRefCount関数を、参照を減らすにはTcl_DecrRefCount関数を呼び出します。
どこからも参照されなくなれば、その時点でTcl_Objオブジェクトは解体されます。
今回作成するラッパーでは、この参照カウンタの増減を自動化したいと思います。
ざっくりとしたコードは次のようになります。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | namespace tcl { class obj { public: obj(Tcl_Obj* handle) : handle_(handle) { Tcl_IncrRefCount(this->handle_); } obj() : obj(Tcl_NewObj()) { } obj(obj const& src) : obj(src.handle_) { } obj(int value) : obj(Tcl_NewIntObj(value)) { } obj(char const* s, int n = -1) : obj(Tcl_NewStringObj(s, n)) { } ~obj() { Tcl_DecrRefCount(this->handle_); this->handle_ = nullptr; } obj& operator=(obj const& src) { obj t(src); swap(t); return *this; } void swap(obj& other) { std::swap(this->handle_, other.handle_); } private: Tcl_Obj* handle_; }; } |
まだほとんど中身がなくてスカスカですが、最初はこんなもんです。
ところで、TclにはTcl_Obj型のほかにTcl_Object型というのもあります。
非常に紛らわしいですね。
以前はTcl_Object型というのはなかったのですが、OOTclが取り込まれた時点で登場したようです。
今回作るクラスもobjectクラスとしてもいいのですが、Tcl_Object型のラッパーだと誤解を与えては嫌なので、あえてobjクラスとしました。