從一個執行個體看TCLCL的運行過程

    Ns2使用了TCL/CL使TCL指令碼得以控制C++代碼的運行，因此理解它的運行過程就顯示非常重要，下面給出的這個簡單例子說明了這一過程。C＋＋部分的代碼：#include <math.h>#include "tclcl.h"extern "C" {#include <otcl.h>} // 定義一個準備讓TCL指令碼調用的類，此類必須從TclObject繼承class CTestObject : public TclObject{private:     int m_nCount;  public:     CTestObject()     {         m_nCount = 0;          // bind之後就可以在TCL指令碼中訪問這個類的成員變數了，         // 對於沒有使用bind的變數是無法通過指令碼訪問的。         // 在此只展示一個簡單的整數類型，如果是複雜資料則需要從TracedVar繼承一個子類進行控制         this->bind("Count", &m_nCount);      }      virtual int init(int argc, const char*const* argv)      {         // 在指令碼中進行執行個體化時將調用此函數         printf("CTestObject::init called/n");         m_nCount = 100;         return (TCL_OK);     }     virtual int command(int argc, const char*const* argv)     {         // 當指令碼中進行對象的函數調用時將使用此函數         printf("CTestObject::command called/n");         if(argc >= 2 && strcmp(argv[1], "GetCount") == 0)         {              char result[20];              sprintf(result, "%d", m_nCount);              Tcl::instance().result(result);              return TCL_OK;         }         else               return TclObject::command(argc, argv);     } }; // 定義一個TCL指令碼中可以使用的類資訊class CTestClass : public TclClass{public:     CTestClass()         : TclClass("CTestClass")     {     }      virtual TclObject* create(int argc, const char* const* argv)     {         // 建立對象時將調用此函數，如果CTestObject的建構函式需要參數也可以從這裡取得         printf("CTestClass::create called/n");         return new CTestObject;     }}; // 務必定義這樣一個變數，保證向TCL引擎註冊類資訊static CTestClass _cls;在上述代碼中，最後一行定義了一個變數，CtestClass從TclClass繼承而來，此時它將調用TclClass::TclClass()，將此類資訊註冊到Tcl的指令碼引擎中。下面再來看TCL指令碼對此對象的調用方法： # 在指令碼中定義要操作的類的成員變數，如果不定義也可以正常使用這個類，但是在類的執行個體化時會產生一個警告。請注意在此之前已經不需要使用Class CTestClass這樣的語句來定義類，因此本部分功能已經在C＋＋中完成。%CTestClass set Count {}% # 對此類進行執行個體化%CTestClass clsCTestClass::create calledCTestObject::init calledcls%從以上輸出可以看出首先調用CTestClass::create函數，在此函數中建立了一個新對象，然後調用此對象的init方法。其實如果算上TCL指令碼的執行過程應該是這樣的：1、 調用C＋＋代碼CTestClass::create建立一個新對象。2、 尋找TCL指令碼是否為此類寫了init函數，如果寫了就調用它。3、 如果在TCL指令碼中沒有找到init函數則在TCL指令碼中尋找這個類是否為成員變數定義了初始值，若有則將這些初始值賦給新對象中的成員變數，當然這個過程只會影響C＋＋和TCL共用的變數。4、 調用C＋＋代碼CTestObject::init從以上過程可以看出如果希望在C＋＋中改變共用變數的初始值，應該在init函數中完成，而不應該在建構函式中完成。 # 顯示Count的初始值（在C＋＋代碼的init函數中賦的值）%cls set Count100 # 用指令碼修改共用變數的值%cls set Count 500500 # 調用共用的函數顯示C＋＋中共用變數的值%cls GetCountCTestObject::command called500 本文中的C＋＋代碼可以直接放在前述的clsh工程中運行。