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. |
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 |
155 |
return $result |
return $result |
156 |
} |
} |
157 |
|
|
158 |
# |
# |
159 |
# Run CMDLINE on DESTHOST. We handle two cases; one is where we're at |
# Run CMDLINE on DESTHOST. We handle two cases; one is where we're at |
160 |
# a DOS prompt, and the other is where we're in GDB. |
# a DOS prompt, and the other is where we're in GDB. |
161 |
# We run CMDLINE by creating a batchfile, downloading it, and then |
# We run CMDLINE by creating a batchfile, downloading it, and then |
162 |
# executing it; this handles the case where the commandline is too |
# executing it; this handles the case where the commandline is too |
163 |
# long for command.com to deal with. |
# long for command.com to deal with. |
164 |
# |
# |
165 |
|
|
166 |
proc dos_exec { dest program pargs inp outp } { |
proc dos_exec { dest program pargs inp outp } { |
167 |
set cmdline "$program $pargs" |
set cmdline "$program $pargs" |
212 |
return [list -1 "program execution failed"] |
return [list -1 "program execution failed"] |
213 |
} |
} |
214 |
|
|
215 |
# |
# |
216 |
# Start CMDLINE executing on DEST. |
# Start CMDLINE executing on DEST. |
217 |
# There are two cases that we handle, one where we're at a DOS prompt |
# There are two cases that we handle, one where we're at a DOS prompt |
218 |
# and the other is when the remote machine is running GDB. |
# and the other is when the remote machine is running GDB. |
233 |
set prefix "shell " |
set prefix "shell " |
234 |
set ok 1 |
set ok 1 |
235 |
} |
} |
236 |
-re "$shell_prompt" { |
-re "$shell_prompt" { |
237 |
set ok 1 |
set ok 1 |
238 |
} |
} |
239 |
default { } |
default { } |
278 |
} |
} |
279 |
} |
} |
280 |
|
|
281 |
# |
# |
282 |
# Spawn PROGRAM on DEST, and return the spawn_id associated with the |
# Spawn PROGRAM on DEST, and return the spawn_id associated with the |
283 |
# connection; we can only spawn one command at a time. |
# connection; we can only spawn one command at a time. |
284 |
# |
# |
414 |
remote_exec $dest "del" "$x" |
remote_exec $dest "del" "$x" |
415 |
} |
} |
416 |
return |
return |
417 |
|
|
418 |
} |
} |
419 |
default { |
default { |
420 |
return [eval standard_file \{$dest\} \{$op\} $args] |
return [eval standard_file \{$dest\} \{$op\} $args] |