Commit 9df448d7 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Add tb-set-node-id for Rob ...

parent d47a4c4a
......@@ -97,6 +97,9 @@ Node instproc init {s} {
$self set simulated 0
}
$self set nsenode_vportlist {}
# This is a mote thing.
$self set numeric_id {}
}
# The following procs support renaming (see README)
......@@ -155,6 +158,7 @@ Node instproc updatedb {DB} {
$self instvar X_
$self instvar Y_
$self instvar orientation_
$self instvar numeric_id
var_import ::TBCOMPAT::default_osids
var_import ::GLOBALS::use_physnaming
var_import ::TBCOMPAT::physnodes
......@@ -254,6 +258,11 @@ Node instproc updatedb {DB} {
lappend values $inner_elab_role
}
if { $numeric_id != {} } {
lappend fields "numeric_id"
lappend values $numeric_id
}
$sim spitxml_data "virt_nodes" $fields $values
if {$topo != ""} {
......@@ -559,3 +568,12 @@ Node instproc console {} {
return $console_
}
#
# Set numeric ID (a mote thing)
#
Node instproc set_numeric_id {myid} {
$self instvar numeric_id
set numeric_id $myid
}
......@@ -1489,3 +1489,15 @@ proc tb-set-security-level {level} {
}
set security_level $level
}
#
# Set numeric ID (this is a mote thing)
#
proc tb-set-node-id {vnode myid} {
if {[$vnode info class] != "Node"} {
perror "\[tb-set-node-id] $vnode is not a node."
return
}
$vnode set_numeric_id $myid
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment