tcl文件调用c语言,TCL与c/c++的互相调用

TCL与c/c++的互相调用

TCL是一个解释型的语言，但是功能相当强大，一个重要原因就在于它的扩展性，现有的诸如http,socket,xml,oratcl等等，使得tcl可以轻松处理字符串、文件、通信以及数据库等等多方面的工作，甚至支持多线程。

TCL的扩展可以通过调用tcl library来完成，具体的开发语言可能有多种，本文第一部分将以c/c++为例讨论。

此外，缘于客户化的需要，也有可能在c/c++代码中调用tcl的咚咚，例如执行脚本啊，配置文件什么的，具体可见第二部分。

一.tcl中调用c/c++

主要是利用c/c++处理复杂逻辑的能力，对于tcl来说，实际上就是一个扩展，因为你可以通过Tcl_CreateCommand函数，创建出一个新的tcl命令。

具体操作方法需要分情况：

1.如果当前tcl版本支持load命令

语法：load libpackage.so

意义：在tcl中，当一个动态库libpackage.so被装载时，tcl会调用其中名为package_Init的函数，记住，名字一定不能错，包括大小写。这样，你就获得了一个入口，可以进入c/c++啦，你可以干任何事，当然，最重要的还是Tcl_CreateCommand了。

函数原型：Tcl_Command Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)

意义：创建一个新的tcl命令cmdName，对应的操作函数指针为proc。

这里以一个阶乘算法为例：目的是提供一个名为myfract的tcl命令，只接收一个参数，例如：

myfract 10

表示计算10的阶乘。

【fract.c】：

#include "tcl.h"

int Tcl_myfract(ClientData notUsed, Tcl_Interp *interp, int argc, char **argv)

{

int i, j;

double res=1.0;

char re[30];

if (argc > 2)

{

Tcl_SetResult(interp, "wrong args: should be myfract", TCL_VOLATILE);

return TCL_ERROR;

}

if (Tcl_GetInt(interp, argv[1], &i) != TCL_OK)

{

re