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
565c32e5
Commit
565c32e5
authored
Mar 09, 2005
by
Timothy Stack
Browse files
Fix the default command value that gets used in the "program run"
event.
parent
411bf2bb
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/ns2ir/sim.tcl.in
View file @
565c32e5
...
...
@@ -1264,13 +1264,13 @@ Simulator instproc make_event {outer event} {
}
else
{
set default_command
[
$obj
set command
]
}
::GLOBALS::named-args $evargs
{
-command $default_command
-dir
{}
-timeout
{}
-expected-exit-code
{}
-tag
{}
}
::GLOBALS::named-args $evargs
[
list
\
-command $default_command
\
-dir
{}
\
-timeout
{}
\
-expected-exit-code
{}
\
-tag
{}
\
]
if
{
$
(
-dir
)
!=
{}}
{
set args
"DIR={
$
(-dir)} "
}
...
...
@@ -1289,7 +1289,9 @@ Simulator instproc make_event {outer event} {
set args
"
${args}
TIMEOUT={
$to
} "
}
}
set args
"
${args}
COMMAND=
$
(-command)"
if
{
$
(
-command
)
!=
{}}
{
set args
"
${args}
COMMAND=
$
(-command)"
}
}
"start"
{
set etype START
...
...
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