TCL提供了C语言的调用接口,可以很容易地嵌入到C程序中;由于TCL提供了与C的接口函数,所以可以在C编写的应用中调用TCL的库函数,执行TCL的命令或脚本。具体的工作有:
①创建TCL的解释器;
②执行TCL的命令或脚本;
③对返回代码进行处理;
④撤消TCL的解释器。
一、test.c代码
#include <tcl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
Tcl_Interp *interp;
int
PowObjCmd(ClientData clientData, Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[])
{
Tcl_Obj *resultptr;
double x,y,result;
int error;
if (objc != 3) {
Tcl_WrongNumArgs(interp,2,objv,
"Usage : pow x y");
return TCL_ERROR;
}
error = Tcl_GetDoubleFromObj(interp, objv[1], &x);
if (error != TCL_OK) return err