こんにちは、高木です。

前回まででインタープリターの基本的な部分まで作ることができました。通常はプログラム全体でインタープリターはひとつですし、複数ある場合でも一番大本となるインタープリターがあり、それをルートインタープリターといいます。

ルートインタープリターはプログラムのどこからでもアクセスできた方が便利です（というか、そうでないと困ります）。グローバル変数にしてもいいのですが、念のためinterpreterクラスの静的なメンバー関数で設定や取得ができるようにしたいと思います。今回は先にコードから見た方がよさそうですね。

ルートインタープリターの取得と設定、つまりアクセッサとなるメンバー関数の名前はどちらもrootです。新しいルートインタープリターを設定した場合は、以前に登録されていたインタープリターがあればreleaseして、新しいものをpreserveしています。取得するだけなら単に値を返すだけですので、都度都度preserve/releaseは行いません。

さて、ここまでできたら、以前仮に作っていたobj::get_intメンバー関数を改善していきたいと思います。まずは以前のメンバー関数の定義から見ていきましょう。

こんな感じでした。仮だったのは、インタープリターをroot_interpというグローバル変数にしていた点です。これを今回作ったinterpreset::rootメンバー関数の呼び出しに変更してみます。

objクラスとinterpreterクラスは相互参照することになるので、メンバー関数の宣言と定義はこのあたりから分離する必要が出てきました。今回は定義部だけを掲載することにして宣言部は割愛します。

objクラスにはget_intメンバー関数以外にもget_wide_intメンバー関数など類似のものをいくつか定義しました。それらもまったく同じことですので、同様にして改善しておきます（コードは割愛します）。

これでインタープリターを何とか使えるようになりましたので、次回からはいよいよTkを扱っていくことにします。必要に応じてTclにも戻ってきますので、ここからは両方を行ったり来たりすることになるでしょう。