toolchain/dejagnu/baseboards/usparc-cygmon.exp

   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
  20 load_base_board_description "cygmon"
  21
  22 set_board_info testcase_timeout 30
  23
  24 proc ${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 }