第一个TCL自定义命令测试通过

首次按一定要安装好环境，下载tcl8.5就可以，直接。./configure&&make&&make install 　即可。

一、test.c

#include <tcl.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
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 error;
error = Tcl_GetDoubleFromObj(interp, objv[2], &y);
if (error != TCL_OK) return error;


result = pow(x,y);
resultptr = Tcl_GetObjResult(interp);
Tcl_SetDoubleObj(resultptr,result);
return TCL_OK;
}
int 
Example_Init(Tcl_Interp *interp) {
Tcl_CreateObjCommand(interp, "pow", PowObjCmd,
       (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
return TCL_OK;

}

二、makefile

#include <tcl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
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 error;
error = Tcl_GetDoubleFromObj(interp, objv[2], &y);
if (error != TCL_OK) return error;


result = pow(x,y);
resultptr = Tcl_GetObjResult(interp);
Tcl_SetDoubleObj(resultptr,result);
return TCL_OK;
}
int 
Example_Init(Tcl_Interp *interp) {
Tcl_CreateObjCommand(interp, "pow", PowObjCmd,
       (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
return TCL_OK;
}

三、test.tcl

#!/usr/bin/tclsh
load ./libtest.so example
pow 2 4