Archive for 5月 12th, 2013

  1. Hello, Tcl/Tk(C言語) World!

    Posted on 5月 12th, 2013 by cx20

    Tcl/Tk(C言語)

    Tcl はシンプルな構文を持つスクリプト言語である。名前は「ツールコマンド言語（Tool Command Language）」に由来する。
    Tcl スクリプト用の GUI ツールキットとして Tk が開発され、バンドルされたものを Tcl/Tk と呼ぶ。Tk の人気は高く、Tcl/Tk 以外に Perl/Tk、Ruby/Tk と言った他の言語にも移植されている。
    以下は C言語 による Tcl/Tk の呼出し例となっている。

    ソースコード

    hello.c
    raw download
    #include <tcl.h>
#include <tk.h>
 
int main( int argc, char* argv[] )
{
    Tcl_Interp* interp;
    char command[] = 
        "wm title . \"Hello, World!\"\n"
        "wm geometry . \"640x480\"\n"
        "label .label -text \"Hello, Tcl/Tk World!\"\n"
        "pack .label -side top -anchor w";
    interp = Tcl_CreateInterp();
    Tcl_Init(interp);
    Tk_Init(interp);
    Tcl_Eval( interp, command );
    Tk_MainLoop();
    return 0;
}

    コンパイル方法（Visual C++）

    C:¥> cl hello.c /link tcl85.lib tk85.lib

    実行結果

    +------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Tcl/Tk World!                      |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+