Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
c10f718a
Commit
c10f718a
authored
May 22, 2002
by
Leigh B. Stoller
Browse files
Minor fixes to uselatestwadata stuff now that test suite is running
again. No biggie.
parent
6d881a09
Changes
3
Hide whitespace changes
Inline
Side-by-side
tbsetup/ns2ir/parse.tcl.in
View file @
c10f718a
...
...
@@ -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
]
...
...
tbsetup/ns2ir/sim.tcl.in
View file @
c10f718a
...
...
@@ -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]] {
...
...
tbsetup/ns2ir/tb_compat.tcl.in
View file @
c10f718a
...
...
@@ -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"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment