/[dejagnu]/dejagnu/config/dos.exp
ViewVC logotype

Diff of /dejagnu/config/dos.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by bje, Thu Aug 7 03:58:36 2003 UTC revision 1.6 by bje, Sun Aug 17 23:00:07 2003 UTC
# Line 4  Line 4 
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
# Line 155  proc dos_prep_command { dest cmdline } { Line 155  proc dos_prep_command { dest cmdline } {
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"
# Line 212  proc dos_exec { dest program pargs inp o Line 212  proc dos_exec { dest program pargs inp o
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.
# Line 233  proc dos_start_command { cmdline dest } Line 233  proc dos_start_command { cmdline dest }
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 { }
# Line 278  proc dos_send { dest string } { Line 278  proc dos_send { dest string } {
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  #  #
# Line 414  proc dos_file { dest op args } { Line 414  proc dos_file { dest op args } {
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]

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26