1# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 Free Software 2# Foundation, Inc. 3# 4# This file is part of DejaGnu. 5# 6# DejaGnu is free software; you can redistribute it and/or modify it 7# under the terms of the GNU General Public License as published by 8# the Free Software Foundation; either version 2 of the License, or 9# (at your option) any later version. 10# 11# DejaGnu is distributed in the hope that it will be useful, but 12# WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14# General Public License for more details. 15# 16# You should have received a copy of the GNU General Public License 17# along with DejaGnu; if not, write to the Free Software Foundation, 18# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 19 20load_base_board_description "cygmon" 21 22set_board_info testcase_timeout 30 23 24proc ${board}_init { dest } { 25 global usparc_init_count 26 set shell_prompt [board_info $dest shell_prompt] 27 28 if ![info exists usparc_init_count] { 29 set usparc_init_count 0 30 } else { 31 incr usparc_init_count 32 if { $usparc_init_count == 3 } { 33 return -1 34 } 35 36 } 37 remote_close $dest 38 set shell_id [remote_open $dest] 39 if { $shell_id == "" || $shell_id < 0 } { 40 return [remote_reboot $dest] 41 } else { 42 remote_binary $dest 43 remote_send $dest "\n" 44 set got_one 0 45 remote_expect $dest 5 { 46 -re "$shell_prompt" { set got_one 1; exp_continue } 47 default { 48 if { ! $got_one } { 49 remote_close $dest 50 return [remote_reboot $dest] 51 } 52 } 53 } 54 remote_send $dest "m \[15\]1fff1001f00 32\n" 55 remote_expect $dest 5 { 56 -re "$shell_prompt" { 57 unset usparc_init_count 58 remote_close $dest 59 return 0 60 } 61 default { 62 remote_close $dest 63 return [remote_reboot $dest] 64 } 65 } 66 } 67} 68