NS2 分裂对象模型

每实例化一个构件时，都会同时创建一个 Otcl 中的对象和一个对应的 C++ 对象，两个对象可以互操作。

一、Otcl 类和 C++ 类的对应关系

分裂对象模型中的 Otcl 类称为解释类， 对应的 C++ 类称为编译类。它们互为影像类。

TclObject 是所有编译类的基类，SplitObject 是所有解释类的基类。

二、创建和销毁 TclObject

new{} 创建解释对象和对应的影像对象。 首先创建出解释对象，然后执行该对象的初始化实例过程，init{}，并把用户提供的参数传给它。在基类 SplitObject 的初始化实例过程中，通过 create-shadow 方法创建该对象在 C++ 中的影像对象。然后执行影像对象的构造函数。

set tcp1 [new Agent/TCP]
delete $tcp1

三、TclClass 类

TclClass 类用来登记 C++ 类和 Otcl 类的对应关系。它是个纯虚类。从这个基类继承出来的类提供两个功能：构造和编译类结构互为影像的解释类结构以及提供初始化新的 TclObject 的方法。

static class TcpClass : public TclClass {
public:
        TcpClass() : TclClass("Agent/TCP") { }
        TclObject* create(int, const char*const*) {
            return (new TcpAgent());
        }
} class_tcp;

四、变量绑定

C++ 成员变量可以和 Otcl 成员变量建立双向绑定，当任何一边变量值改变时对应另一边变量也会改变为相同的值。绑定的语法：

bind("Otcl变量名", &C++变量名);

TcpAgent::TcpAgent() : Agent(PT_TCP) // ...
{
	bind("t_seqno_", &t_seqno_);
	bind("rtt_", &t_rtt_);
	bind("srtt_", &t_srtt_);
	bind("rttvar_", &t_rttvar_);
	bind("backoff_", &t_backoff_);
	bind("dupacks_", &dupacks_);
    // ...
}

五、command 方法

Otcl 中的解释对象的实例过程 cmd{} 调用影像对象的方法 command()，将 cmd{} 的参数作为一个参数数组传给 command() 方法。

可以显式地调用 cmd{} 过程，将欲进行的操作指定为第一个参数，或者隐式调用，就像是存在一个和欲进行的操作同名的实例过程一样。

int TcpAgent::command(int argc, const char*const* argv)
{
	if (argc == 3) {
		if (strcmp(argv[1], "advance") == 0) {
			int newseq = atoi(argv[2]);
			if (newseq > maxseq_)
				advanceby(newseq - curseq_);
			else
				advanceby(maxseq_ - curseq_);
			return (TCL_OK);
		}
		if (strcmp(argv[1], "advanceby") == 0) {
			advanceby(atoi(argv[2]));
			return (TCL_OK);
		}
		// ...
	}
	return (Agent::command(argc, argv));
}

六、实际过程示例

1. 在 NS 开始时，命令行 new Agent/TCP 运行，在 new{} 的过程中，一个 Agent/TCP 的解释对象被创建了，并且调用了它的实例过程 init{}。
2. 因为 Agent/TCP 的父类先于其 init{} 调用，则基类 init{} 最先被调用。基类 SplitObject 的 create-shadow 方法负责创建影像对象。
3. 根据 TcpClass 登记的关联关系，class_tcp 的 create 函数被调用，创建 TcpAgent 对象，并返回其指针。
4. TcpAgent 的构造函数中绑定变量。
5. 当对 Agent/TCP 解释对象调用某个不存在的实例过程时，解释器将会调用实例过程 unknown{}，unknown{} 过程将会调用 cmd{} 过程来通过编译对象的 command() 函数执行这个操作。