c语言使用tcl单元测试,关于在TCL中调用C语言

在用网上 http://www.swig.org/translations/chinese/tutorial.html 的example调试时还是碰到了很多问题，国内TCL跟C的资料也不多，搞了好久终于可以把C语言中的变量读出来了，example算是成功了。

首先把

/* File : example.c */

#include

double My_variable = 3.0;

int fact(int n) {

if (n <= 1) return 1;

else return n*fact(n-1);

}

int my_mod(int x, int y) {

return (x%y);

}

char *get_time()

{

time_t ltime;

time(&ltime);

return ctime(&ltime);

}

以这个example为例，首先编写接口文件：

/* example.i */

%module example

%{

/* Put header files here or function declarations like below */

extern double My_variable;

extern int fact(int n);

extern int my_mod(int x, int y);

extern char *get_time();

%}

extern double My_variable;

extern int fact(int n);

extern int my_mod(int x, int y);

extern char *get_time();

再swig下运行：swig -tcl example.i

自动会找example.c 文件生成 example_wrap.c

接下来是在Visual C++里面生成DLL文件(这里面会碰到一些问题)：

1，创建一个工程，选择 Win32 Dynamic-Link Library ,填写工程名，工程名与C语言名相同(这里是example)。

2，把example.c 和 example_wrap.c 加入source files，example.i 加入工程中(不知道不加行不行)。

3，在工具 -> 选项 ->目录 里面添加 include files ，把tcl的 include文件夹指定一下。

4，在工程 ->设置 里面把tcl85.lib加入，不然Bulid 的时候会出现“LNK2001: unresolved external symbol __imp__TclFreeObj”

这种问题，刚开始我一直卡在这里。

然后点Build会生成DLL文件，把DLL文件用tclsh读入，就可以访问了。enjoy