Commit 62f71456 authored by Yathindra Naik's avatar Yathindra Naik
Browse files

Added disk-agent and custom-agent procs to Node class

parent 3bc82118
......@@ -706,6 +706,35 @@ Node instproc program-agent {args} {
return $curprog
}
Node instproc disk-agent {args} {
::GLOBALS::named-args $args {
-name {} -type {} -mountpoint {} -params {}
}
set curdisk [new Disk [$self set sim]]
$curdisk set node $self
$curdisk set name $(-name)
$curdisk set type $(-type)
$curdisk set mountpoint "{$(-mountpoint)}"
$curdisk set params "{$(-params)}"
return $curdisk
}
Node instproc custom-agent {args} {
::GLOBALS::named-args $args {
-name {}
}
set customagent [new Custom [$self set sim]]
$customagent set node $self
$customagent set name $(-name)
return $customagent
}
Node instproc topography {topo} {
var_import ::TBCOMPAT::location_info
$self instvar sim
......
Supports Markdown
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