Archive for February 28th, 2007
How to call TCL from c++
CString CTCL::EvalFile(const CString &file, const CString &flag)
{
Tcl_FindExecutable(file);
int ret = Tcl_EvalFile(m_pInterp, file);
char szResult[1024] = {0};
const char *pResult = Tcl_GetVar(m_pInterp, flag, 0);
if (pResult == NULL)
return “”;
strncpy(szResult, pResult, sizeof(szResult) – 1);
return (CString(szResult));
}