diff --git a/tbsetup/ns2ir/parse.tcl.in b/tbsetup/ns2ir/parse.tcl.in index ffea5e3bd75888c020e2179ba7b7dc8d36e3d822..5677b2215ef2fb2827a0562fe5c42fac3e88eef5 100644 --- a/tbsetup/ns2ir/parse.tcl.in +++ b/tbsetup/ns2ir/parse.tcl.in @@ -176,6 +176,9 @@ namespace eval GLOBALS { # These are going to be default values within the NS file. variable default_ip_routing_type "none" + # For remote nodes. Use latest widearea data. + variable uselatestwadata 0 + # This is the file handler for the warnings file variable WARN_FILE [open "$eid.warnings" w] diff --git a/tbsetup/ns2ir/sim.tcl.in b/tbsetup/ns2ir/sim.tcl.in index 4e357306c8d99851673822a1c4b496e44a386e49..55cbe1c35844d14d8df1b83b3019ec388fb40bc3 100644 --- a/tbsetup/ns2ir/sim.tcl.in +++ b/tbsetup/ns2ir/sim.tcl.in @@ -284,7 +284,7 @@ Simulator instproc run {} { var_import ::GLOBALS::DB var_import ::GLOBALS::impotent var_import ::GLOBALS::vtypes - var_import ::TBCOMPAT::uselatestwadata + var_import ::GLOBALS::uselatestwadata # Fill out IPs foreach obj [concat [array names lanlink_list]] { diff --git a/tbsetup/ns2ir/tb_compat.tcl.in b/tbsetup/ns2ir/tb_compat.tcl.in index 1ff817869afd2b65f942f5787c7ff581a932dc69..e9dde9a824cdceb6e1dc53f948f23c66b87305f8 100644 --- a/tbsetup/ns2ir/tb_compat.tcl.in +++ b/tbsetup/ns2ir/tb_compat.tcl.in @@ -21,9 +21,6 @@ namespace eval TBCOMPAT { # This is the default weight for a hard vtype. variable default_hard_vtype_weight 1.0 - # For remote nodes. Use latest info. - variable uselatestwadata 0 - # This is a general procedure that takes a node, an object (lan or link) # it is connected to, and an IP address, and sets the IP address # for the node on that object. It checks both the validity of the @@ -371,6 +368,7 @@ proc tb-fix-node {vnode pnode} { proc tb-make-soft-vtype {name types} { var_import ::TBCOMPAT::hwtypes + var_import ::TBCOMPAT::isremote var_import ::GLOBALS::vtypes var_import ::TBCOMPAT::default_soft_vtype_weight @@ -387,6 +385,7 @@ proc tb-make-soft-vtype {name types} { proc tb-make-hard-vtype {name types} { var_import ::TBCOMPAT::hwtypes + var_import ::TBCOMPAT::isremote var_import ::GLOBALS::vtypes var_import ::TBCOMPAT::default_hard_vtype_weight @@ -403,6 +402,7 @@ proc tb-make-hard-vtype {name types} { proc tb-make-weighted-vtype {name weight types} { var_import ::TBCOMPAT::hwtypes + var_import ::TBCOMPAT::isremote var_import ::GLOBALS::vtypes var_import ::TBCOMPAT::FLOAT @@ -494,7 +494,7 @@ proc tb-set-lan-simplex-params {lan node todelay tobw toloss fromdelay frombw fr } proc tb-set-uselatestwadata {onoff} { - var_import ::TBCOMPAT::uselatestwadata + var_import ::GLOBALS::uselatestwadata if {$onoff != 0 && $onoff != 1} { perror "\[tb-set-uselatestwadata] $onoff must be 0/1"