tcl集成測試環(huán)境搭建指南(編輯修改稿)
2025-04-20 05:06 本頁面
【文章內(nèi)容簡介】 f (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0)) { // TODO: change error code to suit your needs cerr _T(Fatal Error: MFC initialization failed) endl。 nRetCode = 1。 } else { // TODO: code your application39。s behavior here. //創(chuàng)建tcl解釋器 MyInterp = Tcl_CreateInterp()。 //初始化Tcl解釋器 Tcl_Init(MyInterp)。 //注冊擴展指令COUNTER，該擴展指令可以被tcl解釋器識別，并且執(zhí)行COUNTER的時候，直接調(diào)用擴展指令對應(yīng)處理函數(shù)TclEx_Counter。 Tcl_CreateCommand(MyInterp,COUNTER,TclEx_Counter,NULL,NULL)。 int rCode。 char sScript[255]。 //CString sScript。 while(1) { //通過嵌入集成測試框架的Tcl解釋器MyInterp，運行外部傳入的tcl腳本 printf(請輸入要執(zhí)行的TCL腳本文件名:\n)。 scanf(%s,amp。sScript)。 rCode = Tcl_EvalFile(MyInterp,(char *)sScript )。 if (TCL_OK != rCode ) { printf(There are errors in your Tcl File\n)。 } else { printf(Testing Succeed!\n)。 } // CString strHello。 // (IDS_HELLO)。 // cout (LPCTSTR)strHello endl。 } } return nRetCode。}5）定義擴展指令COUNTER對應(yīng)的處理函數(shù)TclEx_Counter（）include include include include int TclEx_Counter(ClientData clientData,Tcl_Interp * interp,int argc, char* argv[]){ return TCL_OK。}6）執(zhí)行外部傳入的TCL腳本文件：通過使用TCL函數(shù)Tcl_EvalFile（）執(zhí)行外部傳入的TCL腳本文件。，例如：（紅色部分代碼）int _tmain(int argc, TCHAR* argv[], TCHAR* envp[]){ int nRetCode = 0。 // initialize MFC and print and error on failure if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0)) { // TODO: change error code to suit your needs cerr _T(Fatal Er
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1