/[dejagnu]/dejagnu/lib/xsh.exp
ViewVC logotype

Diff of /dejagnu/lib/xsh.exp

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

revision 1.5 by bje, Thu Aug 7 03:42:43 2003 UTC revision 1.6 by bje, Sun Aug 17 23:00:08 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 64  proc xsh_open { hostname } { Line 64  proc xsh_open { hostname } {
64    
65      # start the shell      # start the shell
66      expect {      expect {
67          "*Spectra Cross-Development Shell version*$xsh_shell_prompt" {          "*Spectra Cross-Development Shell version*$xsh_shell_prompt" {
68              verbose "Got prompt"              verbose "Got prompt"
69              set result 0              set result 0
70          }          }
71          timeout                 {          timeout                 {
72              warning "Timed out trying to connect."              warning "Timed out trying to connect."
73              set result -1              set result -1
74              incr retries              incr retries
# Line 92  proc xsh_open { hostname } { Line 92  proc xsh_open { hostname } {
92          }          }
93          -re ".* reset on target.*$" {          -re ".* reset on target.*$" {
94              send_user "Spectra was reset\n"              send_user "Spectra was reset\n"
95              exp_continue              exp_continue
96          }          }
97          -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {          -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {
98              exp_continue              exp_continue
# Line 105  proc xsh_open { hostname } { Line 105  proc xsh_open { hostname } {
105              set result -1              set result -1
106              incr retries              incr retries
107              if { $retries <= 2 } {              if { $retries <= 2 } {
108                  exp_continue                          exp_continue
109              }              }
110          }          }
111      }      }
# Line 141  proc xsh_open { hostname } { Line 141  proc xsh_open { hostname } {
141          }          }
142          -re ".*reset on target.*$" {          -re ".*reset on target.*$" {
143              verbose "Spectra was reset"              verbose "Spectra was reset"
144              exp_continue              exp_continue
145          }          }
146          -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {          -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {
147              #send "\n"              #send "\n"
# Line 232  proc xsh_download { dest file destfile a Line 232  proc xsh_download { dest file destfile a
232          }          }
233          -i $shell_id "Warm reset on target*\n" {          -i $shell_id "Warm reset on target*\n" {
234              verbose "Spectra did a warm reset"              verbose "Spectra did a warm reset"
235              exp_continue              exp_continue
236          }          }
237          -i $shell_id "Cold reset on target*\n" {          -i $shell_id "Cold reset on target*\n" {
238              verbose "Spectra did a cold reset"              verbose "Spectra did a cold reset"
# Line 279  proc xsh_download { dest file destfile a Line 279  proc xsh_download { dest file destfile a
279          }          }
280          -i $shell_id "$xsh_shell_prompt" {          -i $shell_id "$xsh_shell_prompt" {
281              set result 0              set result 0
282              exp_continue              exp_continue
283          }          }
284          -i $shell_id "load: no default target" {          -i $shell_id "load: no default target" {
285              perror "default target isn't set"              perror "default target isn't set"

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