Commit 7ebeca31 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add GetRole() method for libvtop.

parent ac50fcae
......@@ -695,6 +695,20 @@ sub SetRole($$)
return $self->SetAttribute("role", $role);
}
sub GetRole($;$)
{
my ($self, $prole) = @_;
my $role;
return -1
if ($self->GetAttribute("role", \$role) != 0);
if (defined($prole)) {
$$prole = $role;
return 0;
}
return $role;
}
#
# Get the experiment object for a lan.
......@@ -2473,6 +2487,20 @@ sub SetRole($$)
return $self->GetLan()->SetRole($role);
}
sub GetRole($;$)
{
my ($self, $prole) = @_;
my $role;
return -1
if ($self->GetAttribute("role", \$role) != 0);
if (defined($prole)) {
$$prole = $role;
return 0;
}
return $role;
}
sub SetTag($$)
{
my ($self, $tag) = @_;
......
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