NS2的TclCL机制

NS-2中的网络构件一般是由相互关联的两个类来实现的，一个在c++类中，一个在OTcl类中。构件的主要功能是在c++类中实现，而OTcl类主要是提供c++对象面向用户的接口。用户通过OTcl访问c++对象从而调用c++对象的函数完成响应的仿真。C++对象和OTcl对象之间的连接就叫做TclCl机制。

       TclCL主要是通过两个类来实现c++类和OTcl类之间的连接，分别是TclObject和TclClass。TclObject是所有的c++类的基类。而TclClass是一个抽象类，封转了c++类和OTcl类的映像机制，从它继承的c++类一般有两个功能，1）为c++类和OTcl之间建立关联。2）初始化TclObject的方法。所有每个C++类都必须有一个从TclClass继承来的静态类，该类的create函数接受从OTcl传递过来的参数（一般是类名），创建c++对象并返回该对象的指针。其具体的方法可以如下：

一，创建c++对象

       我们首先来说说从Tcl继承而来的子类，采用NS2的扩展ping作为例子

       static class PingClass:public TclClass// 主要用于将OTcl类和具体的C++实现类相关联

{

public:

                   PingClass():TclClass("Agent/Ping){}//构造函数

  TclObject * create(int ,const char* const char*)

  {

                           return (new PingAgent(PING));

                  }

        } class_ping;

      class PingAgent : public Agent //具体的实现类

      {

public：

                  PingAgent();

                 virtual int command(int argc, const char*const* argv);

         virtual void recv(Packet*, Handler*);

     }

        当在OTcl中，执行如下的语句set ping [new Agent/Ping] 时，我们知道OTcl的基类是SplitObject，当执行该语句时，new 过程会建立一个 Agent/Ping 类PingAgent（以下会提到）的OTcl对象，并且执行其构造函数init{self next}，这样会执行父类的构造函数，层层想上传知道执行SplitObject。因此在创建OTcl基的时候已经将类名Agent/Ping 传递给了父类SplitObject，该方法通过搜索类型的hash算法去调用相应的create函数，完成了c++的创建工作。因为这个类是一个静态类，在程序初始化的时候就会被创建，在OTcl类创建后，会传递类名给基类，基类通过类名找到该静态类class_ping,并且调用create函数完成相应的创建工作。

这样就将OTcl对象的创建和c++对象的创建相关联。

二.访问c++对象中的属性

     NS2中的OTcl和c++中的成员变量要进行绑定，绑定的方法是通过调用函数

     bind（“pdistancd",$pdistance);

    其中前面的是指c++中的变量，后面是指OTcl中的变量。bind函数的调用一般是在c++类（PingAgent）的构造函数中调用。

三  调用c++中的对象的方法。