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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
16 |
|
|
17 |
# Please email any bugs, comments, and/or additions to this file to: |
# Please email any bugs, comments, and/or additions to this file to: |
18 |
# bug-dejagnu@gnu.org |
# bug-dejagnu@gnu.org |
81 |
remote_binary $dest |
remote_binary $dest |
82 |
remote_send $dest "\n" |
remote_send $dest "\n" |
83 |
remote_expect $dest 5 { |
remote_expect $dest 5 { |
84 |
-re $shell_prompt { } |
-re $shell_prompt { } |
85 |
} |
} |
86 |
remote_send $dest "do\n" |
remote_send $dest "do\n" |
87 |
remote_expect $dest 5 { |
remote_expect $dest 5 { |
117 |
set result 1 |
set result 1 |
118 |
remote_send $dest "\n" |
remote_send $dest "\n" |
119 |
remote_expect $dest 1 { |
remote_expect $dest 1 { |
120 |
-re "$shell_prompt" { |
-re "$shell_prompt" { |
121 |
set result 0 |
set result 0 |
122 |
exp_continue |
exp_continue |
123 |
} |
} |
160 |
set status $expect_out(3,string) |
set status $expect_out(3,string) |
161 |
exp_continue |
exp_continue |
162 |
} |
} |
163 |
-re "(.*)$shell_prompt" { |
-re "(.*)$shell_prompt" { |
164 |
append output $expect_out(1,string) |
append output $expect_out(1,string) |
165 |
set bstatus [check_for_board_status output] |
set bstatus [check_for_board_status output] |
166 |
if { $bstatus >= 0 } { |
if { $bstatus >= 0 } { |
167 |
set status $bstatus |
set status $bstatus |
168 |
} |
} |
169 |
} |
} |
170 |
-re "\[\r\n\]+" { |
-re "\[\r\n\]+" { |
171 |
# Sometimes the board goes wacky in the head, and we have |
# Sometimes the board goes wacky in the head, and we have |
172 |
# to shoot it. |
# to shoot it. |
173 |
append output $expect_out(buffer) |
append output $expect_out(buffer) |