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
6ac3afb8
Commit
6ac3afb8
authored
Nov 12, 2008
by
Jonathon Duerig
Browse files
Refixed a few nits that got lost in the merge. Changed slightly to match new schemas.
parent
5e3be55f
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/ptopgen.in
View file @
6ac3afb8
...
...
@@ -1225,15 +1225,15 @@ sub print_node_features
$flags
.=
"
<violatable/>
";
}
if
(
$name
=~
/^\?\+/
)
{
$flags
.=
"
<local
/
><operator>+</operator>
";
$flags
.=
"
<local><operator>+</operator>
</local>
";
$name
=
substr
(
$name
,
2
);
}
elsif
(
$name
=~
/^
&
\*/
)
{
$flags
.=
"
<global
/
><operator>FirstFree</operator>
";
elsif
(
$name
=~
/^\*
&
/
)
{
$flags
.=
"
<global><operator>FirstFree</operator>
</global>
";
$name
=
substr
(
$name
,
2
);
}
elsif
(
$name
=~
/^\*!/
)
{
$flags
.=
"
<global
/
><operator>OnceOnly</operator>
";
$flags
.=
"
<global><operator>OnceOnly</operator>
</global>
";
$name
=
substr
(
$name
,
2
);
}
print
"
<fd>
\n
";
...
...
@@ -1251,8 +1251,8 @@ sub print_node_flags
my
$i
=
0
;
for
(;
$i
<
scalar
(
@
_
);
++
$i
)
{
my
(
$name
,
$value
)
=
split
(
/:/
,
$_
[
$i
],
2
);
if
(
$name
eq
"
trivial_b
andwidth
")
{
print
"
<trivial_bandwidth>
$value
</trivial_bandwidth
\n
";
if
(
$name
eq
"
trivial_b
w
")
{
print
"
<trivial_bandwidth>
$value
</trivial_bandwidth
>
\n
";
}
elsif
(
$name
eq
"
subnode_of
")
{
print
"
<subnode_of>
$value
</subnode_of>
\n
";
...
...
@@ -1295,11 +1295,11 @@ sub print_named_link_xml
print
"
<link name=
\"
$name
\"
>
\n
";
print
"
<source_interface><interface>
\n
";
print
"
<node_name>
$source
</node_name>
\n
";
print
"
<interface>
$source_if
</interface>
\n
";
print
"
<interface
_name
>
$source_if
</interface
_name
>
\n
";
print
"
</interface></source_interface>
\n
";
print
"
<destination_interface><interface>
\n
";
print
"
<node_name>
$dest
</node_name>
\n
";
print
"
<interface>
$dest_if
</interface>
\n
";
print
"
<interface
_name
>
$dest_if
</interface
_name
>
\n
";
print
"
</interface></destination_interface>
\n
";
print
"
<bandwidth>
$bw
</bandwidth>
\n
";
print
"
<latency>
$delay
</latency>
\n
";
...
...
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