test-alloc-address.tcl

来自「ns gpsr路由协议 在ns２平台下实现的 对大家很有好处」· TCL 代码 · 共 26 行

# test-alloc-address.tcl 
# a simple test to check if ns-address formatting API's are working. 

set ns [new Simulator]
Simulator set EnableMcast_ 1
# 5 possible address formatting APIs and their combo thereof:

#$ns set-address-format def
$ns set-address-format expanded
#$ns set-address-format hierarchical
#$ns set-address-format hierarchical 3 3 3 5

#$ns expand-port-field-bits 24

set Mcastshift [AddrParams set McastShift_]
set Portmask [AddrParams set PortMask_]
set Portshift [AddrParams set PortShift_]
set Nodemask [AddrParams set NodeMask_(1)]
set Nodeshift [AddrParams set NodeShift_(1)]

puts "mcastshift = $Mcastshift"
puts "portmask= $Portmask"
puts "portshift = $Portshift"
puts "nodemask(1) = $Nodemask"
puts "nodeshift(1) = $Nodeshift"