swiggettclinterp.i

来自「InsightToolkit-1.4.0(有大量的优化算法程序)」· I 代码 · 共 17 行

%module SwigGetTclInterp
%include "typemaps.i"
%include "carrays.i"
%array_functions(unsigned long, ULArray);
%array_functions(int, IArray);
%array_functions(float, FArray);
%array_functions(double, DArray);
#ifdef SWIGTCL
Tcl_Interp* GetInterp(Tcl_Interp* interp);
%{
Tcl_Interp* GetInterp(Tcl_Interp* interp)
{
  return interp;
}
#endif
%}