| # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 Free Software |
| # Foundation, Inc. |
| # |
| # This file is part of DejaGnu. |
| # |
| # DejaGnu is free software; you can redistribute it and/or modify it |
| # under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 2 of the License, or |
| # (at your option) any later version. |
| # |
| # DejaGnu is distributed in the hope that it will be useful, but |
| # WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| # General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with DejaGnu; if not, write to the Free Software Foundation, |
| # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
| |
| # This file was written by Rob Savoye. (rob@welcomehome.org) |
| |
| # This file uses the xsh protocol. |
| |
| # |
| # load support libraries |
| # |
| load_lib remote.exp |
| |
| # |
| # ${tool}_load -- load the program and execute it |
| # |
| # See default.exp for explanation of arguments and results. |
| # |
| |
| proc vrtx_load { dest prog args } { |
| remote_open $dest |
| |
| switch -- [remote_download $dest $prog] { |
| 0 { return "pass" } |
| 1 { return "fail" } |
| -1 { |
| # FIXME: This needs work (as does xsh_load). |
| verbose -log "Unable to run $prog, internal spectra error." 3 |
| return "unresolved" |
| } |
| } |
| } |
| |
| set_board_info protocol "vrtx" |
| set_board_info connect "xsh" |