NS2メモ TCP側でノード情報拾う的な

ns-lib.tcl 1543行目 attach-agentのプロシージャ

Simulator instproc attach-agent { node agent } {
	# このへん
	$node attach $agent ; # <-- このプロシージャで色々やってる
	
	if {[lindex [split [$agent info class] "/"] 1] == "SCTP"} {
		$agent instvar multihome_bindings_
		set binding_ {}
		set addr [$agent set agent_addr_]
		set port [$agent set agent_port_]
		lappend binding_ $addr
		lappend binding_ $port
		lappend multihome_bindings_ $binding_
	}
}

ns-node.tcl 468行目 attachのプロシージャ

Node instproc attach { agent { port "" } } {
	$self instvar agents_ address_ dmux_ 
	
	lappend agents_ $agent
	
	# このへん
	$agent set node_ $self  ; # <-- ここでAgent側のnode_変数にノード情報入れてるはず？

	$agent set agent_addr_ [AddrParams addr2id $address_]
	
	if { $dmux_ == "" } {
		
		set dmux_ [new Classifier/Port]
		
		$self add-route $address_ $dmux_
	}
	if { $port == "" } {
		set port [$dmux_ alloc-port [[Simulator instance] nullagent]]
	}
	$agent set agent_port_ $port

	$self add-target $agent $port
}