C调用Tcl脚本

时间：2007-05-06 来源：LoveForLinux

Tcl 全称为 Tool Command Language. 发音为 Tickle. Tcl是一种较为独特的脚本语言.它是为了与主应用程序集成而设计的小型语言. 在Linux下安装好了tcl后我们就可以将些相应的脚本来完成一定的功能,至于具体的语法请参考相关的文档.在这里我只是介绍如何在c语言中调用Tcl脚本. (一)执行相应的命令 C程序代码如下(c_call_tcl_file.c):

#include<stdio.h>
#include<stdlib.h>
#include<tcl.h>
int main(int argc,char**argv)
{
        Tcl_Interp *pTclInterp = Tcl_CreateInterp();
        if(!pTclInterp)
        {
                printf("Tcl Interpreter could not be created.\n");
                return 0;
        }
        Tcl_Eval(pTclInterp," puts \"Hello ,world !\"");
        Tcl_DeleteInterp(pTclInterp);
        return 0;
}

编译:

gcc -g -o c_call_tcl_file c_call_tcl_file.c

出错信息:

/tmp/ccMy2cR7.o(.text+0x11): In function `main':
/home/shwq/tcl/c_call_tcl_file.c:6: undefined reference to `Tcl_CreateInterp'
/tmp/ccMy2cR7.o(.text+0x3c):/home/shwq/tcl/c_call_tcl_file.c:12: undefined reference to `Tcl_Eval'
/tmp/ccMy2cR7.o(.text+0x4a):/home/shwq/tcl/c_call_tcl_file.c:13: undefined reference to `Tcl_DeleteInterp'
collect2: ld returned 1 exit status

原因: 没有与相关的动态库相连接.

查看库的方法:

# ldconfig -p | grep tcl

显示结果:

libtcl8.3.so (libc6) => /usr/lib/libtcl8.3.so libtcl.so (libc6) => /usr/lib/libtcl.so libswigtcl.so (libc6) => /usr/lib/libswigtcl.so libqassistantclient.so.1.0 (libc6) => /usr/lib/qt-3.1/lib/libqassistantclient.so.1.0 libqassistantclient.so.1 (libc6) => /usr/lib/qt-3.1/lib/libqassistantclient.so.1 libdb_tcl.so (libc6) => /usr/lib/libdb_tcl.so libdb_tcl-4.0.so (libc6) => /usr/lib/libdb_tcl-4.0.so

重新编译:

gcc -g -o c_call_tcl_file c_call_tcl_file.c -ltcl

显示编译后结果:

-rwxr-xr-x 1 root root 49003 5月 6 00:59 c_call_tcl_file

-rw-r--r-- 1 root root 314 5月 6 00:25 c_call_tcl_file.c

执行程序:

[root@LoveForLinux tcl]# ./c_call_tcl_file

Hello ,world !

(二)执行相应的脚本文件

脚本文件如下:hello.tcl

puts "Hello world !"

修改相应的C程序文件(c_call_tcl_file.c)

#include<stdio.h>
#include<stdlib.h>
#include<tcl.h>
int main(int argc,char**argv)
{
        Tcl_Interp *pTclInterp = Tcl_CreateInterp();
        if(!pTclInterp)
        {
                printf("Tcl Interpreter could not be created.\n");
                return 0;
        }
        if(Tcl_EvalFile(pTclInterp,"hello.tcl") == TCL_ERROR)
        {
                printf("excute the tcl shell script error\n");
                return 0;
        };
        Tcl_DeleteInterp(pTclInterp);
        return 0;
}