tcl集成测试环境搭建指南.docVIP

修订记录 日期 修订版本 修改章节 修改描述 作者 2004-5-27 1.0 初稿完成 王威 第一步: 获取tcl8.3的安装包，安装到c:\目录下。 第二步: 利用Visual C++建立一个基于对话框的工程，工程的名字为CounterTest。 第三步： 参照下面两个图，分别创建然后创建test.h和test.cpp文件，然后创建Tcl_ExCounter.h和Tcl_ExCounter.cpp文件。这四个文件均为空文件。 第四步： 添加被测试模块的代码 1）把下面的代码拷贝到文件test.cpp中： 2）把下面的代码拷贝到文件test.h中 第五步： 添加tcl扩展指令代码 1）把下面的代码拷贝到文件Tcl_ExCounter.h中： #include tcl.h int TclEx_Counter(ClientData clientData,Tcl_Interp * interp,int argc, char* argv[]); 2）把下面的代码拷贝到文件Tcl_ExCounter.cpp中 #include stdafx.h #include Tcl_ExCounter.h #include test.h int TclEx_Counter(ClientData clientData,Tcl_Interp * interp,int argc, char* argv[]) { return TCL_OK; } 第六步： 定义tcl解释器，通过使用TCL内部的数据类型Tcl_Interp定义TCL解释器全局变量。 1）在文件CounterTestDlg.cpp中定义tcl解释器，即全局变量：Tcl_Interp* MyInterp; 例如：（红色部分为添加的代码） Tcl_Interp* MyInterp; class CAboutDlg : public CDialog { public: CAboutDlg(); // Dialog Data //{{AFX_DATA(CAboutDlg) enum { IDD = IDD_ABOUTBOX }; //}}AFX_DATA 2）在文件CounterTestDlg.cpp中创建并加载tcl解释器：（红色代码为新增代码） BOOL CCounterTestDlg::OnInitDialog() { CDialog::OnInitDialog(); // Add About... menu item to system menu. // IDM_ABOUTBOX must be in the system command range. ASSERT((IDM_ABOUTBOX 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { CString strAboutMenu; strAboutMenu.LoadString(IDS_ABOUTBOX); if (!strAboutMenu.IsEmpty()) { pSysMenu-AppendMenu(MF_SEPARATOR); pSysMenu-AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // Set the icon for this dialog. The framework does this automatically // when the applications main window is not a dialog SetIcon(m_hIcon, TRUE); // Set big icon SetIcon(m_hIcon, FALSE); // Set small icon // TODO: Add extra initialization here //创建tcl解释器 MyInterp = Tcl_CreateInterp(); //Tcl_UserInit为自定义的函数，用来初始化Tcl解释器，并且创建扩展指令 if (Tcl_UserInit(MyInterp)) { AfxMessageBox(TCL initialize Error!); return FALSE; } return TRUE; // return TRUE unless you set the focus to a