Skip to content
GitLab
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
33e38a61
Commit
33e38a61
authored
Jan 20, 2004
by
Leigh B. Stoller
Browse files
Banish more delta stuff.
parent
c92c4ad4
Changes
3
Hide whitespace changes
Inline
Side-by-side
tbsetup/ns2ir/node.tcl
View file @
33e38a61
# -*- tcl -*-
#
# EMULAB-COPYRIGHT
# Copyright
(
c
)
2000-200
3
University of Utah and the Flux Group.
# Copyright
(
c
)
2000-200
4
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -73,7 +73,6 @@ Node instproc init {s} {
$self set cmdline
""
$self set rpms
""
$self set startup
""
$self set deltas
""
$self set tarfiles
""
$self set failureaction
"fatal"
$self set fixed
""
...
...
@@ -121,7 +120,6 @@ Node instproc updatedb {DB} {
$self instvar cmdline
$self instvar rpms
$self instvar startup
$self instvar deltas
$self instvar iplist
$self instvar tarfiles
$self instvar failureaction
...
...
@@ -167,7 +165,7 @@ Node instproc updatedb {DB} {
# create one on the fly and set the type properly.
#
if
{
$issubnode
&& $fixed ==
""
}
{
$sim
spitxml_data
"virt_nodes"
[
list
"vname"
"type"
"ips"
"osname"
"cmd_line"
"rpms"
"deltas"
"startupcmd"
"tarfiles"
"fixed"
]
[
list
"host-
$self
"
"pc"
""
""
""
""
""
""
""
""
]
$sim
spitxml_data
"virt_nodes"
[
list
"vname"
"type"
"ips"
"osname"
"cmd_line"
"rpms"
"startupcmd"
"tarfiles"
"fixed"
]
[
list
"host-
$self
"
"pc"
""
""
""
""
""
""
""
]
$sim
spitxml_data
"virt_node_desires"
[
list
"vname"
"desire"
"weight"
]
[
list
"host-
$self
"
"hosts-
$type
"
1.0
]
set fixed
"host-
$self
"
}
...
...
@@ -187,7 +185,7 @@ Node instproc updatedb {DB} {
$self add_routes_to_DB $DB
# Update the DB
$sim spitxml_data
"virt_nodes"
[
list
"vname"
"type"
"ips"
"osname"
"cmd_line"
"rpms"
"deltas"
"startupcmd"
"tarfiles"
"failureaction"
"routertype"
"fixed"
]
[
list $self $type $ipraw $osid $cmdline $rpms
$deltas
$startup $tarfiles $failureaction $default_ip_routing_type $fixed
]
$sim spitxml_data
"virt_nodes"
[
list
"vname"
"type"
"ips"
"osname"
"cmd_line"
"rpms"
"startupcmd"
"tarfiles"
"failureaction"
"routertype"
"fixed"
]
[
list $self $type $ipraw $osid $cmdline $rpms $startup $tarfiles $failureaction $default_ip_routing_type $fixed
]
# Put in the desires, too
foreach desire
[
lsort
[
array names desirelist
]]
{
...
...
tbsetup/ns2ir/nstb_compat.tcl
View file @
33e38a61
# -*- tcl -*-
#
# EMULAB-COPYRIGHT
# Copyright
(
c
)
2000-200
3
University of Utah and the Flux Group.
# Copyright
(
c
)
2000-200
4
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -19,7 +19,6 @@ proc tb-set-lan-loss {lan rate} {}
proc tb-set-node-rpms
{
node args
}
{}
proc tb-set-node-startup
{
node cmd
}
{}
proc tb-set-node-cmdline
{
node cmd
}
{}
proc tb-set-node-deltas
{
node args
}
{}
proc tb-set-node-tarfiles
{
node args
}
{}
proc tb-set-node-lan-delay
{
node lan delay
}
{}
proc tb-set-node-lan-bandwidth
{
node lan bw
}
{}
...
...
tbsetup/ns2ir/tb_compat.tcl.in
View file @
33e38a61
# -*- tcl -*-
#
# EMULAB-COPYRIGHT
# Copyright
(
c
)
2000-200
3
University of Utah and the Flux Group.
# Copyright
(
c
)
2000-200
4
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -233,13 +233,6 @@ proc tb-set-node-tarfiles {node args} {
}
$node set tarfiles
[
join $tarfiles
";"
]
}
proc tb-set-node-deltas
{
node args
}
{
if
{
$args
==
{}}
{
perror
"
\[
tb-set-node-deltas] No deltas given."
return
}
$node set deltas
[
join $args :
]
}
proc tb-set-ip-routing
{
type
}
{
var_import ::GLOBALS::default_ip_routing_type
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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