4 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
5 |
# the Free Software Foundation; either version 2 of the License, or |
# the Free Software Foundation; either version 2 of the License, or |
6 |
# (at your option) any later version. |
# (at your option) any later version. |
7 |
# |
# |
8 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
9 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
12 |
# |
# |
13 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
14 |
# along with this program; if not, write to the Free Software |
# along with this program; if not, write to the Free Software |
15 |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ |
77 |
# -2 - unsupported (not used) |
# -2 - unsupported (not used) |
78 |
# -3 - untested (not used) |
# -3 - untested (not used) |
79 |
# |
# |
80 |
proc vxworks_ld { shell_id prog } { |
proc vxworks_ld { shell_id prog } { |
81 |
global shell_prompt |
global shell_prompt |
82 |
global expect_out |
global expect_out |
83 |
global logname |
global logname |
165 |
warning "Load failed: $expect_out(1,string)" |
warning "Load failed: $expect_out(1,string)" |
166 |
set result -1 |
set result -1 |
167 |
} |
} |
168 |
-i $shell_id timeout { |
-i $shell_id timeout { |
169 |
warning "Timed out trying load $prog." |
warning "Timed out trying load $prog." |
170 |
set result -1 |
set result -1 |
171 |
} |
} |
172 |
} |
} |
173 |
} |
} |
174 |
|
|
175 |
if { $result && [info exists expect_out(buffer)] } { |
if { $result && [info exists expect_out(buffer)] } { |
176 |
send_log "$expect_out(buffer)" |
send_log "$expect_out(buffer)" |
177 |
} |
} |
245 |
# Task is no longer running. |
# Task is no longer running. |
246 |
set result 0 |
set result 0 |
247 |
} |
} |
248 |
-i $shell_id timeout { |
-i $shell_id timeout { |
249 |
warning "$function started, can't determine status (timed out)" |
warning "$function started, can't determine status (timed out)" |
250 |
set result -1 |
set result -1 |
251 |
} |
} |
252 |
} |
} |
253 |
} |
} |
254 |
} |
} |
255 |
-i $shell_id timeout { |
-i $shell_id timeout { |
256 |
warning "Couldn't run $function (timed out)" |
warning "Couldn't run $function (timed out)" |
257 |
set result -1 |
set result -1 |
258 |
} |
} |