aboutsummaryrefslogtreecommitdiff
path: root/config
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2004-02-07 06:52:39 +0000
committerBen Elliston <bje@gnu.org>2004-02-07 06:52:39 +0000
commit17cf7a3dd72486b229cbadcdff3e36f04469b520 (patch)
tree74101b004fb9fa442be73737db010838f6ad282f /config
parent30b0841395f1f06111ca72cf99b8920bb1617f46 (diff)
* Makefile.am (pkgdata_SCRIPTS): Remove lib/mondfe, lib/xsh.exp.
(config_SCRIPTS): Remove udi.exp, vrtx.exp. (baseboard_SCRIPTS): Remove a29k-udi.exp. * Makefile.in: Regenerate. * baseboards/a29k-udi.exp: Remove. * baseboards/dos.exp: Update comments. * config/udi.exp: Remove. * config/vrtx.exp: Remove. * doc/overview.sgml: Update. Don't mention mondfe and xsh support. * doc/ref.sgml: Likewise. * doc/user.sgml: Likewise. * lib/mondfe.exp: Remove. * lib/xsh.exp: Likewise. * lib/remote.exp: Don't load mondfe.exp or xsh.exp. * packaging/pkg/prototype: Update. * NEWS: Update.
Diffstat (limited to 'config')
-rw-r--r--config/udi.exp154
-rw-r--r--config/vrtx.exp50
2 files changed, 0 insertions, 204 deletions
diff --git a/config/udi.exp b/config/udi.exp
deleted file mode 100644
index ff3705a..0000000
--- a/config/udi.exp
+++ /dev/null
@@ -1,154 +0,0 @@
-# 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,
-
-# When using the simulator (-n iss) and running nice'd, things can naturally
-# take a little longer, so increase the timeout.
-
-#
-# udi_load -- load the program and execute it
-#
-# See default.exp for explanation of arguments and results.
-#
-
-proc udi_load { dest prog args } {
- set shell_prompt [board_info $dest shell_prompt]
- set output ""
-
- if ![file exists $prog] then {
- perror "$prog does not exist."
- verbose -log "$prog does not exist." 3
- return [list "untested" ""]
- }
-
- # Load the program.
- if ![board_info $dest exists fileid] then {
- remote_open $dest
- if ![board_info $dest exists fileid] then {
- verbose -log "$prog not executed, couldn't connect to $dest." 3
- return "untested"
- }
- }
-
- if { [remote_ld $dest $prog] == "" } {
- verbose -log "$prog not executed, load failed." 3
- return [list "unresolved" ""]
- }
-
- # Execute it.
- set result -1
- set output ""
- set noappend 0
-
- verbose "Executing $prog." 2
- remote_send $dest "g\n"
- # FIXME: The value 300 below should be a parameter.
- remote_expect $dest 300 {
- -re "(.*)Process exited with 0x0\[^\r\n\]*\[\r\n\]" {
- append output $expect_out(1,string)
- verbose "$prog executed successfully" 2
- set noappend 1
- set result 0
- exp_continue
- }
- -re "(.*)Halt instruction encountered" {
- append output $expect_out(1,string)
- verbose "$prog got a HALT instruction" 2
- set result 1
- set noappend 1
- exp_continue
- }
- -re "(^|\[\r\n\])$shell_prompt" {
- if { $result == -1 } {
- exp_continue
- }
- }
- -re "(^|\[\r\n\]+)g\[\r\n\]+" {
- exp_continue
- }
- -re "\[\r\n\]+" {
- if { ! $noappend } {
- append output $expect_out(buffer)
- if { [string length $output] < 512000 } {
- exp_continue
- } else {
- set result 1
- }
- } else {
- exp_continue
- }
- }
- timeout {
- warning "$prog timed out."
- }
- }
-
- # See what happened.
- switch -- $result {
- 0 {
- set status [check_for_board_status output]
- if { $status < 0 } {
- blammo
- }
- if { $status > 0 } {
- set result "fail"
- } else {
- set result "pass"
- }
- }
- 1 - -1 {
- warning "Resetting $dest."
- remote_send $dest "r\n"
- remote_expect $dest 5 {
- -re "r.*$shell_prompt.*" {
- verbose "Target reset." 2
- }
- timeout {
- # Get nastier. We want to leave the system in a state
- # ready to run the next testcase.
- remote_send $dest "q\n"
- remote_close $dest
- set udi_shell_id [remote_open $dest]
- if { $udi_shell_id < 0 } {
- perror "Couldn't reset $dest."
- }
- }
- }
- if { $result == 1 } {
- set result "fail"
- } else {
- set result "unresolved"
- }
- }
- default {
- set result "unresolved"
- }
- }
- return [list $result $output]
-}
-
-#
-# udi_exit -- shutdown the connection (or simulator)
-#
-
-proc udi_exit {} {
- remote_close target
-}
-
-set_board_info protocol "udi"
-set_board_info connect "mondfe"
-set_board_info shell_prompt "mondfe>"
diff --git a/config/vrtx.exp b/config/vrtx.exp
deleted file mode 100644
index f982d52..0000000
--- a/config/vrtx.exp
+++ /dev/null
@@ -1,50 +0,0 @@
-# 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"