通过swig来实现Tcl语言调用C语言的方法

通过swig来实现Tcl语言调用C语言的方法

1、编写add.h文件

int add(int a, int b);

2、编写add.c文件

#include"add.h"
int add(int a, int b) {
    return a + b;
}

3、创建一个 SWIG 接口定义文件，将要导出的 C 函数声明为一个模块和函数。例如，创建一个名为 add.i 的文件

%module add
%{
    #include "add.h"
%}

extern int add(int a, int b);

4、编译 C 代码和 Tcl 应用程序，链接用于生成 Tcl 接口的 SWIG 代码和编译生成的 C 代码。例如，在 Linux 上可以使用以下命令编译：

swig -tcl add.i
// 此命令会生成add_wrap.c文件
gcc -c -fPIC add_wrap.c -I/opt/devtoolset/tcl-8.6.9/include/
//其中 -I后面跟<tcl.h>文件的存放路径
gcc -c add.c
// 会生成add.o文件
gcc -shared -o add.so add.o add_wrap.o
//生成add.so动态库文件
tclsh
//调用tcl解释器
load ./add.so
//加动态库
puts [add 1 2] #3