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 の呼出し例となっている。

ソースコード

#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!                      |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Tags:

Categories: C言語, Tcl/Tk

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing