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

Diff of /dejagnu/lib/tip.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, Sat Aug 16 13:08:57 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., 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
# Line 38  proc tip_open { hostname } { Line 38  proc tip_open { hostname } {
38      } else {      } else {
39          set shell_prompt ".*> " # Pick something reasonably generic.          set shell_prompt ".*> " # Pick something reasonably generic.
40      }      }
41    
42      if [board_info ${hostname} exists fileid] {      if [board_info ${hostname} exists fileid] {
43          unset board_info(${hostname},fileid)          unset board_info(${hostname},fileid)
44      }      }
# Line 48  proc tip_open { hostname } { Line 48  proc tip_open { hostname } {
48          return -1          return -1
49      }      }
50      expect {      expect {
51          -re ".*connected.*$" {          -re ".*connected.*$" {
52              send "\r\n"              send "\r\n"
53              expect {              expect {
54                  -re ".*$shell_prompt.*$" {                  -re ".*$shell_prompt.*$" {
# Line 72  proc tip_open { hostname } { Line 72  proc tip_open { hostname } {
72              incr tries              incr tries
73              if { $tries <= 2 } {              if { $tries <= 2 } {
74                  exp_continue                  exp_continue
75              }                    }
76          }          }
77          -re "Connection Closed.*$" {          -re "Connection Closed.*$" {
78              perror "Never connected."              perror "Never connected."

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