Tcl の Windows DLL を作ってみたよ

最終更新: [2008/06/18]

Copyright

フリーの処理系を手に入れる
lcc-win32 を選んでみた．
- ※lcc を選びましたがその後 MinGW-1.1 も試しました．こちらのほうがいいようです．メモしなかったので，使い方忘れちゃった…(^^;;．
  以下で可能だと思います(↓)
  - MinGW-1.1.tar.gz を入手し C:\MinGW-1.1 に展開
  - ライブラリ側の登録関数 Foo_Init() で次のように extern, dllexport などの指定を行なう．DLL として他から読み込めるように構築する場合に必要らしい．
```
       #include <tcl.h>
       #include <tk.h>

       extern "C" int __declspec(dllexport) __stdcall Foo_Init(Tcl_Interp* interp)
       {
          /*...*/
          return TCL_OK;
       }
       
```
  - コンパイル（指定が冗長だと思いますがご容赦を…）
    1. g++ -I"C:\Program Files\Tcl\include" -c foo.c
    2. dlltool -A --dllname libfoo.dll --output-exp foo.oll --output-lib foo.lib foo.o
    3. g++ -shared -o libfoo.dll foo.o foo.oll -L"C:\Program Files\Tcl\lib" -ltk83 -ltcl83
    パス設定が悪いのか dlltool でアセンブラの as.exe が見つからないといわれるときがある．この場合は -S オプションを付けて dlltool -S "C:\MinGW-1.1\bin\as.exe" ... のようにありかを明示する
- lcc を C:\Program Files\lcc にインストールした．
- マニュアルが別ファイルで用意されているのだが，こちらはうまくインストールできず，ヘルプが出ない．
- see.
Tcl ライブラリが必要なので，Tcl のインストール時にこれを選択してなければ，これをインストールし直す．
Tcl には MS-VC で作成されたライブラリが添付しており，関数の呼び出し形式が異なるので，形式変換を行う．
- lcc の wedit を起動し，Utils->Import foreign library:Path of the foreign library (microsoft format) to import で変換元のライブラリを指定．
- 出てくるダイアログに tcl80jp.lib などを指定するのだが，パスに空白が含まれていると変換に失敗してしまうので，標準パスの C:\Program Files\Tcl\lib\ から空白が含まれてないパスへコピーしたのち，これを指定する．
- 変換後のライブラリは C:\Program Files\lcc\lib\tcl80jp.lib などとして置かれる．
- ＃でも，これだと作成した DLL を単体で配布したりすることができんなぁ．．．
プロジェクトを作成
インクルードライブラリに Tcl を指定する．
- Compiler->Settings->Compiler settings: Path で "C:\Program Files\lcc\include"; となっているのに加えて， "C:\Program Files\tcl\include" とする．
リンク時のライブラリに Tcl を指定する．
- Compiler->Settings->Linker settings:Additional files to be included in the link で tcl80jp.lib とする．
tk の関数も使用するなら上記の設定に tk のライブラリも含める．
DLL を作成したい C のソースを作成し，コンパイルする
- Compiler->Make
Tcl DLL 用の初期呼び出し関数名を単に XXX_Init() としていると，実行時に参照ができないようなので，__declspec(dllexport) XXX_Init() と頭に付け加える．
- see.
  - Scripting Laboratory: メイクのしかた
Tcl スクリプトで load xxx.dll とすると読み込める．

||Tcl/Tk 入門||