aboutsummaryrefslogtreecommitdiff
path: root/config
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2016-03-23 07:31:43 +1100
committerBen Elliston <bje@gnu.org>2016-03-23 07:31:43 +1100
commite38dd8aff575f10c84989669723d57cdbd1517c9 (patch)
tree3671625e81aadd2b6f78bf1cad845ff3ff10aac2 /config
parent77221613b54a74b46267b12552b6e610df89d492 (diff)
* Makefile.am (config_DATA): Update.
(baseboard_DATA): Likewise. * Makefile.in: Regenerate. * NEWS: Update. Remove the following old config files: * arc.exp, arm-ice.exp, base-config.exp, base68k.exp, bug.exp, cfdbug.exp, cygmon.exp, d10v.exp, ddb-ether.exp, ddb.exp, dos.exp, dve.exp, h8300.exp, i386-bozo.exp, i960.exp, m32r-stub.exp, m32r.exp, m68hc11.exp, m68k-emc.exp, mips-idt.exp, mn10200-eval.exp, mn10300-eval.exp, netware.exp, powerpc-bug.exp, proelf.exp, rom68k.exp, sh.exp, slite.exp, sparclet.exp, tic80.exp, vr4100.exp, vr4300.exp, vr5000.exp: Remove. Remove the following old baseboard files: * arc-sim.exp, arm-ice.exp, arm-sim.exp, cf.exp, cygmon.exp, d10v-sim.exp, d10v.exp, danlite-elf.exp, dos.exp, fr30-cygmon.exp, fr30-elf.exp, frv-elf.exp, frv-tiger.exp, frv-tomcat.exp, h8300-sim.exp, h8300.exp, i386-bozo.exp, i960-cyclone.exp, i960-sim.exp, m32r-elf.exp, m32r-linux-sim.exp, m32r-sid.exp, m32r-sim.exp, m68hc11-sim.exp, m68k-emc.exp, mips-idt.exp, mips64-sim.exp, mips64vr4100-sim.exp, mn10200-cygmon.exp, mn10300-cygmon.exp, msparc-cygmon.exp, op50n.exp, powerpc-bug.exp, powerpc-bug1.exp, rom68k-idp.exp, sh-hms.exp, sparclet-aout.exp, sparclite-coff.exp, sparclite-cygmon.exp, strongarm-cygmon.exp, tic80-sim.exp, tx39-dve.exp, usparc-cygmon.exp, vr4100-ddb.exp, vr4300-ddb.exp, vr4300.exp, vr5000-ddb.exp, x86-cygmon.exp, xscale-cygmon.exp: Remove.
Diffstat (limited to 'config')
-rw-r--r--config/arc.exp20
-rw-r--r--config/arm-ice.exp20
-rw-r--r--config/base-config.exp48
-rw-r--r--config/base68k.exp323
-rw-r--r--config/bug.exp29
-rw-r--r--config/cfdbug.exp31
-rw-r--r--config/cygmon.exp22
-rw-r--r--config/d10v.exp20
-rw-r--r--config/ddb-ether.exp190
-rw-r--r--config/ddb.exp96
-rw-r--r--config/dos.exp483
-rw-r--r--config/dve.exp22
-rw-r--r--config/h8300.exp20
-rw-r--r--config/i386-bozo.exp46
-rw-r--r--config/i960.exp222
-rw-r--r--config/m32r-stub.exp20
-rw-r--r--config/m32r.exp20
-rw-r--r--config/m68hc11.exp20
-rw-r--r--config/m68k-emc.exp71
-rw-r--r--config/mips-idt.exp24
-rw-r--r--config/mn10200-eval.exp22
-rw-r--r--config/mn10300-eval.exp22
-rw-r--r--config/netware.exp217
-rw-r--r--config/powerpc-bug.exp20
-rw-r--r--config/proelf.exp27
-rw-r--r--config/rom68k.exp32
-rw-r--r--config/sh.exp20
-rw-r--r--config/slite.exp20
-rw-r--r--config/sparclet.exp26
-rw-r--r--config/tic80.exp100
-rw-r--r--config/vr4100.exp21
-rw-r--r--config/vr4300.exp21
-rw-r--r--config/vr5000.exp21
33 files changed, 0 insertions, 2316 deletions
diff --git a/config/arc.exp b/config/arc.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/arc.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/arm-ice.exp b/config/arm-ice.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/arm-ice.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/base-config.exp b/config/base-config.exp
deleted file mode 100644
index 087ec13..0000000
--- a/config/base-config.exp
+++ /dev/null
@@ -1,48 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-#
-# reboot_hook -- called to reboot a target board. Returns 1 on
-# success, 0 otherwise.
-#
-proc reboot_via_x10 { dest } {
- if {[board_info $dest exists name]} {
- set dest [board_info $dest name]
- }
-
- if {[board_info $dest exists x10]} {
- set x10 [board_info $dest x10]
- verbose "rebooting x10 unit $x10" 1
- rsh_exec rtl "/usr/unsupported/bin/x10-hellcab unit $x10 off"
- sleep 2
- rsh_exec rtl "/usr/unsupported/bin/x10-hellcab unit $x10 on"
- sleep 2
- return 1
- }
- return 0
-}
-
-proc ${board}_reboot { args } {
- if { [llength $args] > 0} {
- set dest [lindex $args 0]
- } else {
- set dest target
- }
- return [reboot_via_x10 $dest]
-}
diff --git a/config/base68k.exp b/config/base68k.exp
deleted file mode 100644
index 75ef161..0000000
--- a/config/base68k.exp
+++ /dev/null
@@ -1,323 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com)
-# based on earlier work by JT Conklin (jtc@cygnus.com)
-
-#
-# base68k_load -- load the program and execute it
-#
-
-proc base68k_ld { dest prog } {
- global tmpdir
-
- set shell_prompt [board_info $dest shell_prompt]
-
- if {![file exists $prog]} then {
- verbose -log "$prog does not exist."
- return "untested"
- }
- if {[is_remote host]} {
- set prog [remote_download host $prog]
- if { $prog == "" } {
- verbose -log "Unable to download $prog to host."
- return "untested"
- }
- }
-
- if {[board_info $dest exists objcopy]} {
- set OBJCOPY [board_info $dest objcopy]
- set exec_file "${prog}.srec"
- set objcopy_args ""
- if {[board_info $dest exists use_vma_offset]} {
- set objcopy_args "--adjust-vma=[board_info $dest hex_startaddr]"
- }
- set status [remote_exec host "$OBJCOPY $objcopy_args -O srec $prog ${prog}.srec"]
- set result [lindex $status 1]
- regsub -all -- "\[\r\n\]*" $result "" result
- if { $result != "" || [lindex $status 0] != 0 } {
- warning "Got \"$result\" from $OBJCOPY"
- verbose -log "Couldn't convert to srecord for downloading"
- remote_close $dest
- return "untested"
- } else {
- verbose "Converted $prog to an srecord." 2
- }
- } else {
- set exec_file $prog
- }
-
- set value 0
- if {![board_info $dest exists fileid]} {
- while { $value < 2 } {
- set rom68k_shell_id [remote_open $dest]
- if { $rom68k_shell_id < 0 } {
- if { $value > 0 || ![remote_reboot $dest] } {
- verbose -log "$prog not executed, couldn't connect to target."
- return "untested"
- }
- incr value
- } else {
- break
- }
- }
- # dbug has problems if we go into binary mode, so this allows us to
- # disable entry into binary mode.
- if {![board_info $dest exists no_binary_mode]} {
- remote_binary $dest
- }
- }
-
- # if we built the srecord on a remote host, copy it back here so we
- # can load it
- if {[is_remote host]} {
- global objdir
- set exec_file [remote_upload host ${exec_file} "${objdir}/a.out"]
- }
-
- set got_p 0
- for { set tries 0 } { (! $got_p) && $tries < 5 } { incr tries } {
- remote_send $dest "\r\n\r\n"
- remote_expect $dest 5 {
- -re "${shell_prompt}$" {
- verbose "Got prompt."
- set result 0
- set got_p 1
- }
- timeout {
- warning "Never got prompt."
- }
- }
- if { ! $got_p } {
- if { $tries <= 4 } then {
- if { $tries == 3 } then {
- remote_reboot $dest
- } else {
- remote_send $dest "\r\n"
- }
- }
- }
- }
-
- # We need to do this in case the connection to the remote side is
- # scrogged -- the remote_expect above will fail in a lot of
- # non-clean ways.
- if { ! $got_p } {
- remote_close $dest
- remote_reboot $dest
- return "unresolved"
- } else {
- # Flush out any remaining cruft.
- remote_expect $dest 2 {
- timeout { }
- -re ".+" { exp_continue }
- default { }
- }
- }
-
- if {[board_info $dest exists download_command]} {
- # Load the program.
- remote_send $dest "\r\n"
- # dbug has problems sending download command immediately after a
- # newline, so we wait for the prompt to come back first.
- remote_expect $dest 5 {
- -re "${shell_prompt}$" {
- verbose -log "Got prompt."
- }
- timeout {
- warning "Never got prompt."
- }
- }
- remote_send $dest [board_info $dest download_command]
- if {[board_info $dest exists download_response]} {
- remote_expect $dest 5 {
- [board_info $dest download_response] { }
- timeout {
- perror "Download command never responded."
- return "unresolved"
- }
- }
- }
- }
-
- verbose "Writing records to target..."
- set status [remote_transmit $dest $exec_file]
- if { $exec_file != $prog } {
- remote_file build delete $exec_file
- }
- if { $status != 0 } {
- remote_close $dest
- verbose -log "Transmission of $exec_file to the target failed." 3
- return "unresolved"
- }
- verbose "Wrote records to target...waiting for prompt."
- remote_send $dest "\n"
- set got_p 0
- remote_expect $dest 50 {
- -re "$shell_prompt$" {
- verbose "Got prompt."
- set got_p 1
- }
- timeout { }
- }
- if { $got_p } {
- # Flush any remaining cruft. 2 seconds may be too long, dunno.
- remote_expect $dest 2 {
- timeout { }
- -re ".+" { exp_continue }
- default { }
- }
- return "pass"
- } else {
- remote_close $dest
- remote_reboot $dest
- return "unresolved"
- }
-
-}
-
-
-proc base68k_spawn { dest prog args } {
- set shell_prompt [board_info $dest shell_prompt]
-
- set result [remote_ld $dest $prog]
- if { $result != "pass" } {
- return [list $result ""]
- }
-
- if {[board_info $dest exists startaddr]} {
- set go_command "[board_info $dest go_command] [board_info $dest startaddr]"
- } else {
- set go_command "[board_info $dest go_command]"
- }
-
- verbose "Sending $go_command, waiting for results."
- remote_send $dest "${go_command}\n"
- return { "pass" "" }
-}
-
-proc base68k_wait { dest timeout } {
- set shell_prompt [board_info $dest shell_prompt]
- set noappend 0
- set result -1
-
- set output ""
-
- remote_expect $dest $timeout {
- -re [board_info $dest go_response] {
- append output $expect_out(buffer)
- set noappend 1
- set result 0
- exp_continue -continue_timer
- }
- -re "$shell_prompt$" {
- verbose "Got prompt."
- set result 0
- }
- -re "\[\r\n\]+" {
- if { ! $noappend } {
- append output $expect_out(buffer)
- if { [string length $output] < 512000 } {
- exp_continue -continue_timer
- } else {
- set result -1
- }
- }
- }
- timeout {
- warning "Nothing ever came back."
- set result -1
- }
- }
-
- if {[board_info $dest exists output_end]} {
- regsub "[board_info $dest output_end]" "$output" "\n" output
- }
-
- # There has got to be a better way. (We need to do this in order to remove
- # the echoed "go command".
- if {[board_info $dest exists startaddr]} {
- set go_command "[board_info $dest go_command] [board_info $dest startaddr]"
- } else {
- set go_command "[board_info $dest go_command]"
- }
-
- regsub "^.*$go_command\[\r\n\]*" "$output" "" output
- regsub "^.*$go_command\[\r\n\]*" "$output" "" output
-
- # We always want to check for a status, even if there was a funky weird
- # failure above.
- set status [check_for_board_status output]
- if { $result == 0 } {
- set result $status
- verbose -log "exit status was $status"
- }
- # A negative value indicates that we should reboot. Otherwise, return
- # the exit status from the program if we got one (and we should have).
- return [list $result "$output"]
-}
-
-proc base68k_load { dest prog args } {
- global base68k_retry
-
- set shell_prompt [board_info $dest shell_prompt]
-
- if { [llength $args] > 0 } {
- for { set x 0 } { $x < [llength $args] } { incr x } {
- if { [lindex $args $x] != "" } {
- verbose -log "Cannot pass parameters or input file to this target"
- return [list "unsupported" ""]
- }
- }
- }
-
- set result [remote_spawn $dest $prog]
- if { [lindex $result 0] != "pass" } {
- return $result
- }
-
- # FIXME: The value 360 below should be a parameter.
-
- set result [remote_wait $dest 360]
- set output [lindex $result 1]
- set status [lindex $result 0]
-
- verbose "output from board is $output"
-
- # Make sure there's a newline before the PASS/FAIL/whatever for the log.
- send_log "\n"
-
- if { $status > 0 } {
- return [list "fail" $output]
- } elseif { $status == 0 } {
- return [list "pass" $output]
- } else {
- if {[info exists base68k_retry]} {
- return [list "fail" $output]
- }
- set base68k_retry 1
- remote_reboot $dest
- set status [eval base68k_load \{$dest\} \{$prog\} $args]
- unset base68k_retry
- return $status
- }
-}
-
-set_board_info protocol "base68k"
-set_board_info send_initial_cr 1
diff --git a/config/bug.exp b/config/bug.exp
deleted file mode 100644
index 46643dc..0000000
--- a/config/bug.exp
+++ /dev/null
@@ -1,29 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com).
-
-load_generic_config "base68k"
-
-set_board_info shell_prompt "\[0-9\]+Bug>"
-set_board_info download_command "lo 0\r"
-set_board_info download_response "lo 0.*"
-set_board_info go_command "go"
-set_board_info go_response "\*\*\*EXIT code.*"
-set_board_info startaddr "10000"
diff --git a/config/cfdbug.exp b/config/cfdbug.exp
deleted file mode 100644
index da8e4fa..0000000
--- a/config/cfdbug.exp
+++ /dev/null
@@ -1,31 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com).
-
-load_generic_config "base68k"
-
-set_board_info shell_prompt "dBUG> *"
-set_board_info download_command "dl\r\n"
-set_board_info download_response "*Escape to local*"
-set_board_info go_command "go"
-set_board_info go_response "\[*\]\[*\]\[*\] EXIT code \[^\r\n\]*\[\r\n\]"
-set_board_info startaddr "10000"
-set_board_info hex_startaddr "0x10000"
-set_board_info no_binary_mode 1
diff --git a/config/cygmon.exp b/config/cygmon.exp
deleted file mode 100644
index b37f780..0000000
--- a/config/cygmon.exp
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
-
-set_board_info send_initial_cr 1
diff --git a/config/d10v.exp b/config/d10v.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/d10v.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/ddb-ether.exp b/config/ddb-ether.exp
deleted file mode 100644
index 26597ea..0000000
--- a/config/ddb-ether.exp
+++ /dev/null
@@ -1,190 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com)
-
-# Reset the prompt to what GDB needs.
-proc ${board}_init { dest } {
- global doing_ddb_init
-
- if {![info exists doing_ddb_init]} {
- set doing_ddb_init 1
-
- remote_close $dest
- for { set x 0 } { $x < 3 } { incr x } {
- set shell_id [remote_open $dest]
- if { $shell_id == "" || $shell_id < 0 } {
- remote_reboot $dest
- } else {
- break
- }
- }
-
- set shell_prompt [board_info $dest shell_prompt]
-
- remote_send $dest "\n"
- remote_expect $dest 10 {
- -re ".*PMON> $" {
- remote_send $dest "set prompt \"$shell_prompt\"\n"
- exp_continue
- }
- -re ".*${shell_prompt}$" { }
- }
- remote_close $dest
- unset doing_ddb_init
- } else {
- return
- }
-}
-
-proc ddb_ether_load { dest prog args } {
- for { set x 0 } { $x < 3 } { incr x } {
- set result [eval remote_spawn \{$dest\} \{$prog\} $args]
- if { $result < 0 } {
- remote_reboot $dest
- } else {
- set result [remote_wait $dest 300]
- set status [lindex $result 0]
- set output [lindex $result 1]
- if { $status >= 0 } {
- if { $status > 0 } {
- return [list "fail" $output]
- } else {
- return [list "pass" $output]
- }
- }
- }
- }
- return [list "fail" ""]
-}
-
-proc ddb_ether_ld { dest prog } {
- if {![board_info $dest exists tftpdir]} {
- perror "Must set_board_info tftpdir for [board_info $dest name]"
- return "fail"
- }
-
- if {![board_info $dest exists fileid]} {
- set spawn_id [remote_open $dest]
- if { $spawn_id == "" || $spawn_id < 0 } {
- return "retry"
- }
- remote_binary $dest
- }
-
- set shell_prompt [board_info $dest shell_prompt]
-
- remote_send $dest "\n"
- remote_expect $dest 10 {
- -re ".*${shell_prompt}$" { }
- default {
- return "retry"
- }
- }
- set basename "a.out.[pid]"
- set file "[board_info $dest tftpdir]/$basename"
- set file [remote_download build $prog $file]
- if { $file == "" } {
- perror "download to tftp area failed"
- return "fail"
- }
- set state "pass"
-
- remote_send $dest "boot /$basename\n"
- set tries 0
- remote_expect $dest 30 {
- -re "Loading.*Entry address is.*${shell_prompt}$" { }
- -re "invalid executable.*${shell_prompt}$" {
- incr tries
- if { $tries < 3 } {
- sleep 2
- remote_send $dest "boot /$basename\n"
- exp_continue
- }
- }
- -re ".*${shell_prompt}$" {
- set state "fail"
- }
- default {
- set state "fail"
- }
- }
- remote_file build delete $file
- if { $state == "fail" } {
- return $state
- }
- return "pass"
-}
-
-proc ddb_ether_spawn { dest prog args } {
- set state [ddb_ether_ld $dest $prog]
-
- if { $state != "pass" } {
- return -1
- }
- remote_send $dest "g\n"
- remote_expect $dest 5 {
- -re "g\[\r\n\]\[\r\n\]?" { }
- default { }
- }
-
- return [board_info $dest fileid]
-}
-
-proc ddb_ether_wait { dest timeout } {
- set output ""
- set shell_prompt [board_info $dest shell_prompt]
-
- remote_expect $dest $timeout {
- -re "^g\[\r\n\]\[\r\n\]?" {
- if { $output != "" } {
- append output $expect_out(buffer)
- }
- exp_continue
- }
- -re "(.*)$shell_prompt" {
- append output $expect_out(1,string)
- set status [check_for_board_status output]
- if { $status > 0 } {
- return [list $status $output]
- } else {
- if {[regexp "Exception Cause=" $output]} {
- remote_reboot $dest
- return [list -1 $output]
- }
- return [list 0 $output]
- }
- }
- -re "\[\r\n\]+" {
- append output $expect_out(buffer)
- if { [string length $output] < 512000 } {
- exp_continue
- } else {
- return [list -1 ""]
- }
- }
- default {
- return [list -1 ""]
- }
- }
-}
-
-set_board_info send_initial_cr 1
-set_board_info protocol "ddb_ether"
-set_board_info shell_prompt "NEC010> "
diff --git a/config/ddb.exp b/config/ddb.exp
deleted file mode 100644
index 426f8ee..0000000
--- a/config/ddb.exp
+++ /dev/null
@@ -1,96 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com)
-
-# We use GDB to talk to a vr4300 board.
-load_generic_config "base68k"
-
-set_board_info shell_prompt "NEC010> "
-set_board_info download_command "load tty0\n"
-set_board_info download_response "Downloading from"
-set_board_info go_command "g -e"
-set_board_info startaddr "a0100000"
-set_board_info hex_startaddr "0xa0100000"
-set_board_info go_response "(^|\[\r\n\])(Exception Cause|\[0-9a-z\]+ \[0-9a-z\]+ break|\\*\\*\\*EXIT code )\[^\r\n\]*\[\r\n\]"
-set_board_info output_end "\[\r\n\](Exception Cause|\[0-9a-z\]+ \[0-9a-z\]+ break).*$"
-
-# Reset the prompt to what GDB needs.
-proc ${board}_init { dest } {
- global doing_ddb_init
- if {[is_remote host]} {
- return
- }
-
- if {![info exists doing_ddb_init]} {
- set doing_ddb_init 1
-
- for { set i 1 } { $i <= 3 } { incr i } {
- remote_close $dest
- for { set x 0 } { $x < 3 } { incr x } {
- set shell_id [remote_open $dest]
- if { $shell_id == "" || $shell_id < 0 } {
- remote_reboot $dest
- } else {
- break
- }
- }
-
- set count 0
- remote_send $dest "\n"
- remote_expect $dest 20 {
- -re ".*PMON> $" {
- remote_send $dest "set prompt \"NEC010> \"\n"
- exp_continue
- }
- -re "NEC010> $" {
- set i 10
- }
- timeout { }
- -re "0x0" {
- incr count
- if(count<5) {
- exp_continue
- }
- }
- }
- if { $i < 3 } {
- remote_reboot $dest
- }
- }
- remote_close $dest
- unset doing_ddb_init
- } else {
- return
- }
-}
-
-set_board_info send_initial_cr 1
-set_board_info dont_wait_for_prompt 1
-
-# If no output format is specified, use objcopy.
-if {![board_info $board exists output_format]} {
- set tempfil [lookfor_file $tool_root_dir binutils/objcopy]
- if { $tempfil != "" } {
- set_board_info objcopy $tempfil
- } else {
- set_board_info objcopy [transform objcopy]
- }
- unset tempfil
-}
diff --git a/config/dos.exp b/config/dos.exp
deleted file mode 100644
index ea447cf..0000000
--- a/config/dos.exp
+++ /dev/null
@@ -1,483 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com)
-
-#
-# Open a connection to the remote DOS host.
-#
-proc dos_open { dest args } {
- global destbat_num
- global board_info
-
- if {![info exists destbat_num]} {
- set destbat_num [pid]
- }
- if { [board_info $dest conninfo] == "" } {
- set name [board_info $dest name]
-
- set board_info($name,conninfo) "b${destbat_num}.bat"
- incr destbat_num
- }
-
- if {[board_info $dest exists fileid]} {
- return [board_info $dest fileid]
- }
-
- verbose "doing a dos_open to $dest"
-
- set shell_prompt [board_info $dest shell_prompt]
-
- set shell_id [remote_raw_open $dest]
-
- if { $shell_id == "" || $shell_id < 0 } {
- return -1
- }
-
- if {[board_info $dest exists init_command]} {
- remote_send $dest "[board_info $dest init_command]\n"
- remote_expect $dest 10 {
- -re "$shell_prompt" { }
- default {
- perror "failed connection to DOS on $dest."
- return -1
- }
- }
- }
-
- if {[board_info $dest exists ftp_directory]} {
- set dir [board_info $dest ftp_directory]
- regsub -all "/" "$dir" "\\" dir
- remote_send $dest "cd $dir\n"
- remote_expect $dest 10 {
- -re "$shell_prompt" { }
- default {
- perror "failed connection to DOS on $dest."
- return -1
- }
- }
- }
-
- if {[board_info $dest exists dos_dir]} {
- set dos_dir [board_info $dest dos_dir]
- regsub -all "^(\[a-zA-Z]:).*$" "$dos_dir" "\\1" drive
- regsub -all "^\[a-zA-Z]:" "$dos_dir" "" dos_dir
- remote_send $dest "${drive}\n"
- remote_expect $dest 10 {
- -re "$shell_prompt" { }
- default {
- perror "failed connection to DOS on $dest."
- return -1
- }
- }
- remote_send $dest "cd $dos_dir\n"
- remote_expect $dest 10 {
- -re "$shell_prompt" { }
- default {
- perror "failed connection to DOS on $dest."
- return -1
- }
- }
- }
-
- global target_alias
- if {[info exists target_alias]} {
- set talias $target_alias
- } else {
- set talias "foo-bar"
- }
-
- if {[board_info $dest exists name]} {
- set n [board_info $dest name]
- } else {
- set n $dest
- }
- set board_info($n,fileid) $shell_id
-
- if {[board_info $dest exists init_script]} {
- remote_exec $dest "[board_info $dest init_script] $talias"
- }
-
- verbose "Succeeded in connecting to DOS."
- return $shell_id
-}
-
-#
-# Close the connection to the remote host. If we're telnetting there, we
-# need to exit the connection first (ataman telnetd gets confused otherwise).
-#
-proc dos_close { dest args } {
- if {[board_info $dest exists fileid]} {
- if { [board_info $dest connect] == "telnet" } {
- remote_send $dest "exit\n"
- sleep 2
- }
- return [remote_raw_close $dest]
- }
-}
-
-proc dos_prep_command { dest cmdline } {
- global board_info
-
- set name [board_info $dest name]
- set shell_id [remote_open "$dest"]
-
- set localbat "/tmp/b[pid].bat"
- set remotebat [board_info $dest conninfo]
-
- verbose "opened"
- if { $shell_id != "" && $shell_id >= 0 } {
- set fileid [open "$localbat" "w"]
- puts -nonewline $fileid "@echo off\r\n$cmdline\r\nif errorlevel 1 echo *** DOSEXIT code 1\r\nif not errorlevel 1 echo *** DOSEXIT code 0\r\n"
- close $fileid
- set result [remote_download $dest $localbat $remotebat]
- } else {
- set result ""
- }
- remote_file build delete $localbat
- return $result
-}
-
-#
-# Run CMDLINE on DESTHOST. We handle two cases; one is where we're at
-# a DOS prompt, and the other is where we're in GDB.
-# We run CMDLINE by creating a batchfile, downloading it, and then
-# executing it; this handles the case where the commandline is too
-# long for command.com to deal with.
-#
-
-proc dos_exec { dest program pargs inp outp } {
- set cmdline "$program $pargs"
-
- set shell_prompt [board_info $dest shell_prompt]
-
- if { $inp != "" } {
- set inp [remote_download $dest $inp inpfile]
- if { $inp != "" } {
- set inp " < $inp"
- }
- }
-
- if { $outp != "" } {
- set outpf " > tempout"
- } else {
- set outpf ""
- }
-
- verbose "cmdline is $cmdline$inp." 2
-
- # Make a DOS batch file; we use @echo off so we don't have to see
- # the DOS command prompts and such.
- for { set i 0 } { $i < 2 } { incr i } {
- set exit_status -1
- verbose "calling open"
- set batfile [dos_prep_command $dest "$cmdline$inp$outpf"]
- if { $batfile != "" } {
- if { [dos_start_command $batfile $dest] == "" } {
- # FIXME: The 300 below should be a parameter.
- set result [remote_wait $dest 300]
- set exit_status [lindex $result 0]
- set output [lindex $result 1]
- }
- }
- if { $exit_status >= 0 } {
- if { $outp != "" } {
- remote_upload $dest tempout $outp
- remote_file $dest delete tempout
- }
- return [list $exit_status $output]
- }
- if { $exit_status != -2 } {
- remote_close $dest
- remote_reboot $dest
- }
- }
- return [list -1 "program execution failed"]
-}
-
-#
-# Start CMDLINE executing on DEST.
-# There are two cases that we handle, one where we're at a DOS prompt
-# and the other is when the remote machine is running GDB.
-#
-
-proc dos_start_command { cmdline dest } {
- set shell_prompt [board_info $dest shell_prompt]
- set prefix ""
- set ok 0
- for { set i 0 } {$i <= 2 && ! $ok} { incr i } {
- set shell_id [remote_open $dest]
- if { $shell_id != "" && $shell_id > 0 } {
- remote_send $dest "echo k\r"
- remote_expect $dest 20 {
- -re "\\(gdb\\)" {
- set shell_prompt "\\(gdb\\)"
- # gdb uses 'shell command'.
- set prefix "shell "
- set ok 1
- }
- -re "$shell_prompt" {
- set ok 1
- }
- default { }
- }
- }
- if { ! $ok } {
- remote_close $dest
- remote_reboot $dest
- }
- }
- if { ! $ok } {
- return "unable to start command"
- } else {
- remote_send $dest "${prefix}${cmdline}\n"
- remote_expect $dest 2 {
- -re "${cmdline}\[\r\n\]\[\r\n\]?" { }
- timeout { }
- }
- return ""
- }
-}
-
-#
-# Send STRING to DEST, translating all LFs to CRs first, and sending one
-# line at a time because of strangeness with telnet in some circumstances.
-#
-
-proc dos_send { dest string } {
- verbose "Sending '$string' to $dest" 2
- # Convert LFs to CRs, 'cause that is what DOS wants to see.
- set first 1
- set string [string trimright $string "\r\n"]
- foreach line [split $string "\r\n"] {
- if {$first} {
- set first 0
- } else {
- # small delay between lines, to keep from
- # overwhelming the stupid telnet server.
- sleep 1.0
- }
- remote_raw_send $dest "$line\r"
- }
-}
-
-#
-# Spawn PROGRAM on DEST, and return the spawn_id associated with the
-# connection; we can only spawn one command at a time.
-#
-
-proc dos_spawn { dest program args } {
- verbose "running $program on $dest"
- set remotebat [dos_prep_command $dest $program]
-
- for { set x 0 } { $x < 3 } { incr x } {
- if { [dos_start_command $remotebat $dest] == "" } {
- return [board_info $dest fileid]
- }
- remote_close $dest
- remote_reboot $dest
- }
- return -1
-}
-
-proc dos_wait { dest timeout } {
- set output ""
- set shell_prompt [board_info $dest shell_prompt]
- set status 1
-
- verbose "waiting in dos_wait"
- remote_expect $dest $timeout {
- -re "(.*)\[*\]\[*\]\[*\] DOSEXIT code (\[0-9\]+)\[\r\n\]\[\r\n\]?" {
- verbose "got exit status"
- append output $expect_out(1,string)
- set status $expect_out(2,string)
- exp_continue
- }
-
- -re "(.*)${shell_prompt}" {
- append output $expect_out(1,string)
- verbose "output from dos is:'$output'"
- return [list $status $output]
- }
-
- -re "(.*)\\(gdb\\)" {
- append output $expect_out(1,string)
- return [list $status $output]
- }
-
- -re "In.*cygwin.*except" {
- remote_close $dest
- remote_reboot $dest
- return [list -2 $output]
- }
-
- -re "\[\r\n\]+" {
- # This is a bit obscure. We only want to put whole
- # lines into the output string, because otherwise we
- # might miss a prompt because we only got 1/2 of it the
- # first time 'round. The other tricky bit is that
- # expect_out(buffer) will contain everything before and including
- # the matched pattern.
- append output $expect_out(buffer)
- exp_continue -continue_timer
- }
-
- timeout {
- warning "timeout in dos_wait"
- if { [dos_interrupt_job $dest] == "" } {
- return [list 1 $output]
- }
- }
-
- eof {
- warning "got EOF from dos host."
- }
- }
-
- remote_close $dest
-
- return [list -1 $output]
-}
-
-proc dos_load { dest prog args } {
- global dos_dll_loaded
- set progargs ""
- set inpfile ""
- if { [llength $args] > 0 } {
- set progargs [lindex $args 1]
- }
- if { [llength $args] > 1 } {
- set inpfile [lindex $args 1]
- }
- if {![info exists dos_dll_loaded]} {
- if {![is_remote host]} {
- global target_alias
-
- set comp [get_multilibs]
- if {[file exists [file join ${comp} winsup new-cygwin1.dll]]} {
- set dll "${comp}/winsup/new-cygwin1.dll"
- set dll_name "cygwin1.dll"
- } elseif {[file exists [file join ${comp} winsup new-cygwin.dll]]} {
- set dll "${comp}/winsup/new-cygwin.dll"
- set dll_name "cygwin.dll"
- } elseif {[file exists [file join ${comp} lib cygwin1.dll]]} {
- set dll "${comp}/lib/cygwin1.dll"
- set dll_name "cygwin1.dll"
- } elseif {[file exists [file join ${comp} lib cygwin.dll]]} {
- set dll "${comp}/lib/cygwin.dll"
- set dll_name "cygwin.dll"
- } else {
- error "couldn't find cygwin.dll:$comp"
- return "fail"
- }
- remote_download $dest $dll $dll_name
- }
- set dos_dll_loaded 1
- }
- set remote_prog [remote_download $dest $prog "aout.exe"]
- set result [remote_exec $dest $remote_prog $progargs $inpfile]
- set status [lindex $result 0]
- set output [lindex $result 1]
- set status2 [check_for_board_status output]
- if { $status2 >= 0 } {
- set status $status2
- }
- if { $status != 0 } {
- set status "fail"
- } else {
- set status "pass"
- }
- return [list $status $output]
-}
-
-proc dos_file { dest op args } {
- switch $op {
- delete {
- foreach x $args {
- remote_exec $dest "del" "$x"
- }
- return
-
- }
- default {
- return [eval standard_file \{$dest\} \{$op\} $args]
- }
- }
-}
-
-#
-# Interrupt the current spawned command being run; the only tricky
-# part is that we have to handle the "Terminate batch job" prompt.
-#
-proc dos_interrupt_job { host } {
- set shell_prompt [board_info $host shell_prompt]
-
- remote_send $host "\003"
- remote_expect $host 10 {
- -re "Terminate batch job.*Y/N\[)\]\[?\] *$" {
- remote_send $host "n\n"
- exp_continue
- }
- -re "$shell_prompt" {
- return ""
- }
- -re ">" {
- remote_send $host "\n"
- exp_continue
- }
- }
- return "fail"
-}
-
-proc dos_copy_download { host localfile remotefile } {
- remote_file build delete "[board_info $host local_dir]/$remotefile"
- if {[remote_file build exists $localfile]} {
- set result [remote_download build $localfile "[board_info $host local_dir]/$remotefile"]
- if { $result != "" } {
- remote_exec build "chmod" "a+rw $result"
- return $remotefile
- }
- } else {
- return ""
- }
-}
-
-proc dos_copy_upload { host remotefile localfile } {
- remote_file build delete $localfile
- if {[file exists [file join [board_info $host local_dir] $remotefile]]} {
- set result [remote_download build "[board_info $host local_dir]/$remotefile" $localfile]
- } else {
- set result ""
- }
- if { $result != "" } {
- remote_exec build "chmod" "a+rw $result"
- return $result
- }
-}
-
-proc dos_copy_file { dest op args } {
- if { $op == "delete" } {
- set file "[board_info $dest local_dir]/[lindex $args 0]"
- remote_file build delete $file
- }
-}
-
-set_board_info protocol "dos"
-set_board_info shell_prompt "(^|\[\r\n\])\[a-zA-Z\]:\[^\r\n\]*>\[ \t\]*$"
-set_board_info needs_status_wrapper 1
diff --git a/config/dve.exp b/config/dve.exp
deleted file mode 100644
index 07e8793..0000000
--- a/config/dve.exp
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# For Densan MIPS boards we use gdb to load and execute programs.
-
-load_generic_config "gdb-comm"
diff --git a/config/h8300.exp b/config/h8300.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/h8300.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/i386-bozo.exp b/config/i386-bozo.exp
deleted file mode 100644
index a0f4ccb..0000000
--- a/config/i386-bozo.exp
+++ /dev/null
@@ -1,46 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
-
-proc ${board}_init { args } {
- set linux_box [target_info linux_box]
- set bozo_server [target_info bozo_server]
- remote_spawn $linux_box "$bozo_server unknown"
- remote_expect $linux_box 60 {
- -re "port is (\[0-9\]+)" {
- set_currtarget_info netport "${linux_box}:$expect_out(1,string)"
- }
- }
-}
-
-proc ${board}_close { board } {
- set linux_box [board_info $board linux_box]
- if {[board_info $linux_box exists fileid]} {
- remote_send $linux_box "\003"
- remote_close $linux_box
- }
- standard_close $board
-}
-
-proc ${board}_reboot { board args } {
- remote_close $board
- unset_currtarget_info netport
- return 1
-}
diff --git a/config/i960.exp b/config/i960.exp
deleted file mode 100644
index 5715fe7..0000000
--- a/config/i960.exp
+++ /dev/null
@@ -1,222 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-#
-# Initialize the board on initial connection or after rebooting.
-# Since the board autobauds, we have to be a bit aggressive about
-# getting a valid prompt.
-#
-proc ${board}_init { dest } {
- global i960_try_count
-
- set prompt [board_info $dest shell_prompt]
- set done 0
-
- if {![info exists i960_try_count]} {
- set i960_try_count 1
- }
-
- remote_close $dest
- if { [remote_open $dest] != "" } {
- for { set tries 0 } { $tries < 7 && ! $done } { incr tries } {
- remote_send $dest "\n"
- remote_expect $dest 1 {
- -re "${prompt}" {
- set done 1
- }
- -re ".+" { exp_continue }
- timeout { }
- }
- }
- }
-
- remote_close $dest
- if { ! $done } {
- if { $i960_try_count == 3 } {
- perror "Couldn't connect to board."
- } else {
- incr i960_try_count
- remote_close $dest
- remote_reboot $dest
- }
- }
- if {[info exists i960_try_count]} {
- unset i960_try_count
- }
-}
-
-proc i960_ld { dest prog } {
- if {![file exists $prog]} {
- perror "$prog does not exist."
- return "untested"
- }
- set shell_prompt [board_info $dest shell_prompt]
- set strip [board_info $dest strip]
- set rprog [remote_download host $prog a.out]
- if { $strip != "" } {
- remote_exec host $strip $rprog
- }
- remote_upload host $rprog a.out
-
- set id [remote_open $dest]
- if { $id < 0 } {
- return -1
- }
- remote_binary $dest
- remote_send $dest "\n"
- remote_expect $dest 5 {
- -re $shell_prompt { }
- }
- remote_send $dest "do\n"
- remote_expect $dest 5 {
- -re "Downloading" { }
- }
- # Nasty.
- if { [board_info $dest connect] == "telnet" } {
- global board_info
-
- remote_close $dest
- set hp [split [board_info $dest netport] ":"]
- set host [lindex $hp 0]
- set port [lindex $hp 1]
- set status -1
- while { $status != 0 } {
- set status [catch "socket $host $port" id2]
- if { $status != 0 } {
- sleep 5
- }
- }
- } else {
- set id2 [exp_open -leaveopen -i $id]
- }
- if {[catch "exec sx -bX a.out <@$id2 >@$id2 2>/dev/null" error]} {
- perror "exec sx failed: $error"
- }
- if { [board_info $dest connect] == "telnet" } {
- close $id2
- sleep 2
- remote_open $dest
- remote_binary $dest
- }
- set result 1
- remote_send $dest "\n"
- remote_expect $dest 1 {
- -re "$shell_prompt" {
- set result 0
- exp_continue
- }
- timeout { }
- }
- return $result
-}
-
-proc i960_spawn { dest prog args } {
- set shell_prompt [board_info $dest shell_prompt]
-
- for { set tries 0 } { $tries < 3 } { incr tries } {
- set result [remote_ld $dest $prog]
- if { $result == 0 } {
- set comm "go [board_info $dest start_addr]"
- remote_send $dest "$comm\n"
- remote_expect $dest 10 {
- -re "$comm\[\r\n\]\[\r\n\]?" { }
- default { }
- }
- return [board_info $dest fileid]
- } else {
- remote_reboot $dest
- }
- }
- return -1
-}
-
-proc i960_wait { dest timeout } {
- set output ""
- set shell_prompt [board_info $dest shell_prompt]
- set status -1
-
- remote_expect $dest $timeout {
- -re " fault at \[0-9a-h\]+, subtype \[0-9a-h\]+" {
- set status -1
- exp_continue
- }
- -re "(.*)(\[\r\n\]|^)Program Exit: (\[0-9\]+)\[\r\n\]" {
- append output $expect_out(1,string)
- set status $expect_out(3,string)
- exp_continue
- }
- -re "(.*)$shell_prompt" {
- append output $expect_out(1,string)
- set bstatus [check_for_board_status output]
- if { $bstatus >= 0 } {
- set status $bstatus
- }
- }
- -re "\[\r\n\]+" {
- # Sometimes the board goes wacky in the head, and we have
- # to shoot it.
- append output $expect_out(buffer)
- if { [string length $output] < 512000 } {
- exp_continue
- } else {
- set status -1
- }
- }
- default {
- set status -1
- }
- }
- return [list $status $output]
-}
-
-proc i960_load { dest prog args } {
- for { set x 0 } { $x < 3 } { incr x } {
- set id [eval remote_spawn \{$dest\} \{$prog\} $args]
- if { $id < 0 } {
- return [list "fail" ""]
- }
- set result [remote_wait $dest 120]
- set status [lindex $result 0]
- set output [lindex $result 1]
-
- if { $status == 0 } {
- return [list "pass" $output]
- } else {
- global i960_retry
-
- if { [board_info $dest exists unreliable] && ![info exists i960_retry] } {
- set i960_retry 1
- remote_reboot $dest
- set result [eval i960_load \{$dest\} \{$prog\} $args]
- unset i960_retry
- return $result
- } else {
- if { $status < 0 } {
- remote_reboot $dest
- }
- return [list "fail" $output]
- }
- }
- }
-}
-
-set_board_info shell_prompt "=>"
-set_board_info send_initial_cr 1
-# We take care of getting a prompt in ${board}_init.
-set_board_info dont_wait_for_prompt 1
diff --git a/config/m32r-stub.exp b/config/m32r-stub.exp
deleted file mode 100644
index 17016bc..0000000
--- a/config/m32r-stub.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb_stub"
diff --git a/config/m32r.exp b/config/m32r.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/m32r.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/m68hc11.exp b/config/m68hc11.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/m68hc11.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/m68k-emc.exp b/config/m68k-emc.exp
deleted file mode 100644
index 546360d..0000000
--- a/config/m68k-emc.exp
+++ /dev/null
@@ -1,71 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-proc ${board}_init { dest } {
- global doing_emc_init
-
- if {[info exists doing_emc_init]} {
- return
- }
- set doing_emc_init 1
- remote_close $dest
- set dos_host [board_info $dest dos_host]
- remote_reboot $dos_host
- unset doing_emc_init
-}
-
-proc m68k_emc_board_connect { dest } {
- global board_info
- set tname [board_info $dest name]
-
- set board_info($tname,m68k_connected) 1
- set dos_host [board_info $dest dos_host]
-
- for { set x 0 } { $x < 3 } { incr x } {
- set shell_id [remote_open $dos_host]
- if { $shell_id == "" || $shell_id < 0 } {
- remote_reboot $dos_host
- } else {
- break
- }
- }
- remote_send $dos_host "c:\\symetrix.bat\n"
- remote_expect $dos_host 300 {
- -re "SymmComm.*Installed.*\033.2J.*\033.2J" { }
- default {
- warning "Never got clear screen sequence from remote side."
- }
- }
- # Flush the buffer.
- remote_expect $dos_host 2 {
- -re ".+" { exp_continue }
- }
- # Get past first menu.
- remote_send $dos_host "\n"
- remote_expect $dos_host 10 {
- -re "\033.07;02H" { }
- default { }
- }
- # We don't want a log file.
- remote_send $dos_host "\n"
- remote_expect $dos_host 10 {
- -re "\033.02;24H" { }
- default { }
- }
-}
diff --git a/config/mips-idt.exp b/config/mips-idt.exp
deleted file mode 100644
index 06921fc..0000000
--- a/config/mips-idt.exp
+++ /dev/null
@@ -1,24 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# For MIPS/IDT we use gdb to load and execute programs.
-
-load_generic_config "gdb-comm"
-
-set_board_info gdb_init_command "set syn-garbage-limit 0"
diff --git a/config/mn10200-eval.exp b/config/mn10200-eval.exp
deleted file mode 100644
index 7225fc9..0000000
--- a/config/mn10200-eval.exp
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# For MN10200 evaluation boards we use gdb to load and execute programs.
-
-load_generic_config "gdb-comm"
diff --git a/config/mn10300-eval.exp b/config/mn10300-eval.exp
deleted file mode 100644
index 2acc439..0000000
--- a/config/mn10300-eval.exp
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# For MN10300 evaluation boards we use gdb to load and execute programs.
-
-load_generic_config "gdb-comm"
diff --git a/config/netware.exp b/config/netware.exp
deleted file mode 100644
index 6c0866e..0000000
--- a/config/netware.exp
+++ /dev/null
@@ -1,217 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by J.T. Conklin. (jtc@cygnus.com)
-
-#
-# load support libraries
-#
-load_lib remote.exp
-
-# set target variables only if needed
-
-proc ${board}_init { args } {
- global NLMCONV
-
- # FIXME: rootme is undefined.
- if {![info exists NLMCONV]} then {
- set NLMCONV [findfile "$rootme/../binutils/nlmconv"]
- }
- global LD
- if {![info exists LD]} then {
- set LD [findfile "$rootme/../ld/ld-new" "$rootme/../ld/ld-new" [transform "ld"]]
- }
-
- set shell_prompt "Password:"
- set shell_id [remote_open target]
- if {[target_info exists passwd]} {
- set passwd [target_info passwd]
- } else {
- set passwd ""
- }
- if {$shell_id < 0} then {
- warning "Couldn't connect to target"
- return -1
- }
-
- if {[string match "" $passwd]} then {
- stty -echo
- send_user "Password: "
- expect_user -re "(.*)\n"
- send_user "\n"
- set passwd "$expect_out(1,string)"
- stty echo
- }
-
- send -i $shell_id "$passwd\n"
- expect {
- -i $shell_id ":" {
- verbose "Got termtype prompt" 0
- }
-
- -i $shell_id timeout {
- warning "Connection timed out"
- return -1
- }
- }
-
- # FIXME
- set shell_prompt "[string toupper [target_info name]]:"
- send -i $shell_id "1\n"
-
- expect {
- -i $shell_id -re "$shell_prompt" {}
- -i $shell_id timeout {
- warning "Connection timed out"
- return -1
- }
- }
-}
-
-
-#
-# ${board}_load -- load the program and execute it
-#
-# See default.exp for explanation of arguments and results.
-#
-
-proc ${board}_load { dest prog args } {
- global LD NLMCONV
- global tmpdir
- global errorCode
-
- if {[board_info $dest exists fileid]} {
- set shell_id [board_info $dest fileid]
- } else {
- set shell_id -1
- }
-
- set output ""
-
- if {$shell_id < 0} then {
- verbose -log "$prog not executed because there is no target" 3
- return "untested"
- }
-
- #
- set exe [file tail $prog]
-
- # We can't blindly append a suffix to the object name, because the
- # result may not be valid on netware's 8.3 filesystem.
- #
- # FIXME: tmpdir is undefined.
- set nlm "$tmpdir/x.nlm"
- set lnk "$tmpdir/x.lnk"
-
- # build *.lnk file
- set fd [open $lnk w]
- puts $fd "description \"$exe\""
- puts $fd "screenname \"System Console\""
- puts $fd "module clib.nlm"
- puts $fd "module mathlib.nlm"
- puts $fd "stack 65536"
- puts $fd "debug"
- # FIXME: don't hardcode location of prelude.o
- puts $fd "input /s1/cygnus/dejagnu/i386-netware/lib/prelude.o"
- puts $fd "input $prog"
- puts $fd "output $nlm"
- close $fd
-
- # run nlmconv
- verbose "Executing: $NLMCONV -l$LD -T$lnk" 1
- catch "exec $NLMCONV -l$LD -T$lnk" output
- if {![string match "" $output]} then {
- verbose $output 1
- }
- if {![string match "NONE" $errorCode]} {
- verbose -log "Can't link $prog" 3
- return "fail"
- }
-
- # download
- verbose "Downloading $nlm" 1
- catch "exec cp $nlm /.NetWare/[board_info $dest name].nws/sys.nwv/tmp/x.nlm" output
- if {![string match "" $output]} then {
- verbose $output 1
- verbose -log "cp failed for $nlm" 3
- return "unresolved"
- }
-
- # Wait a second for the file to "settle" on the NetWare server.
- # I've encountered unexplained failures without this delay.
- # sleep 1
-
-
- # The NetWare remote console expects to be connected to a vt100
- # compatible terminal. It isn't very efficent, and it seems to
- # send screen repaints for no reason. So we have to clear the
- # screen as we run each test, otherwise a shell prompt or abort
- # message from a previous test could cause incorrect results.
- send -i $shell_id "CLS\r\n"
- set timeout 1
- expect {
- -i $shell_id -re "$shell_prompt" {
- exp_continue
- }
- }
- set timeout 10
-
-
- # Netware does not support exit status. The best we can do to
- # detect failures is to look for the "ABNORMAL NLM TERMINATION"
- # message printed by abort().
- set ret 0
- send -i $shell_id "LOAD X.NLM\r\n"
- expect {
- -i $shell_id "ABNORMAL NLM TERMINATION" {
- set ret 1
- exp_continue
- }
- -i $shell_id "Unable to find load file" {
- perror "Couldn't execute program"
- verbose -log "Couldn't execute program" 3
- return "unresolved"
- }
- -i $shell_id timeout {
- perror "Couldn't execute program (timed out)"
- verbose -log "Couldn't execute program (timed out)" 3
- return "unresolved"
- }
- -i $shell_id -re "[format "%sLOAD" $shell_prompt]" {
- exp_continue
- }
- -i $shell_id -re "$shell_prompt" {}
- }
-
- catch [file delete -force -- $lnk $nlm]
-
- if { $ret == 0 } {
- return "pass"
- } else {
- return "fail"
- }
-}
-
-#
-# ${tool}_exit -- shutdown the connection
-#
-
-proc ${board}_exit {} {
- remote_close target
-}
diff --git a/config/powerpc-bug.exp b/config/powerpc-bug.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/powerpc-bug.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/proelf.exp b/config/proelf.exp
deleted file mode 100644
index da32e8a..0000000
--- a/config/proelf.exp
+++ /dev/null
@@ -1,27 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "base68k"
-set_board_info shell_prompt "#"
-set_board_info download_command "r 0\n"
-set_board_info go_command "g"
-set_board_info startaddr "40000"
-
-set_board_info go_response "\[\r\n\]+\[a-z \]+\\(\[0-9\]+\\) pc=\[0-9A-Ha-h\]+\[\r\n\]+\[0-9A-H\]+ \[0-9A-H\]+ \[^\r\n\]+\[\r\n\]+|\\*\\*\\*EXIT code "
-set_board_info output_end "\[\r\n\]+\[a-z \]+\\(\[0-9\]+\\) pc=\[0-9A-Ha-h\]+\[\r\n\]+.*$"
diff --git a/config/rom68k.exp b/config/rom68k.exp
deleted file mode 100644
index a6c113b..0000000
--- a/config/rom68k.exp
+++ /dev/null
@@ -1,32 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Bob Manson (manson@cygnus.com)
-# based on earlier work by J.T. Conklin (jtc@cygnus.com)
-
-load_generic_config "base68k"
-
-set_board_info shell_prompt "ROM68K :-> "
-set_board_info download_command "DC\n"
-set_board_info download_response "Waiting for S-records from host... "
-set_board_info go_command "GO"
-set_board_info startaddr "10000"
-set_board_info hex_startaddr "0x10000"
-set_board_info go_response "(Emul|RS Except|TRAP #\[1-9\]|\\*\\*\\*EXIT code ).*"
-set_board_info output_end "\[\r\n\]((\[^\r\n\]*\[\r\n\]-----*)|Emul|RS Except|TRAP #|Bus/Address).*$"
diff --git a/config/sh.exp b/config/sh.exp
deleted file mode 100644
index 72ba6dc..0000000
--- a/config/sh.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb-comm"
diff --git a/config/slite.exp b/config/slite.exp
deleted file mode 100644
index 17016bc..0000000
--- a/config/slite.exp
+++ /dev/null
@@ -1,20 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-load_generic_config "gdb_stub"
diff --git a/config/sparclet.exp b/config/sparclet.exp
deleted file mode 100644
index 7864d07..0000000
--- a/config/sparclet.exp
+++ /dev/null
@@ -1,26 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# This file was written by Michael Snyder <msnyder@cygnus.com>.
-
-load_generic_config "gdb_stub"
-
-# This is the old GDB prompt for the toolchain.
-# Uncomment for old tests
-#set_board_info gdb_prompt "\\(gdbslet\\)"
diff --git a/config/tic80.exp b/config/tic80.exp
deleted file mode 100644
index d9e37d0..0000000
--- a/config/tic80.exp
+++ /dev/null
@@ -1,100 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-#
-# Nasty ugly stuff.
-#
-# We have to maintain two connections to the DOS box where the board
-# is being held. One of them runs an I/O monitor process, while the other
-# is used to actually start the program under test running on the board.
-#
-
-proc tic80_load { dest prog args } {
- set dos_box [board_info $dest dos_host]
-
- remote_spawn $dos_box [board_info $dest io_program]
-
- set status [remote_ld $dest $prog]
-
- if { $status != "pass" } {
- return $status
- }
-
- set result [remote_wait $dos_box 300]
- set output [lindex $result 1]
- if { [lindex $result 0] < 0 } {
- if {[board_info $dos_box exists fileid]} {
- dos_interrupt_job $dos_box
- } else {
- remote_close $dos_box
- }
- }
-
- set status "fail"
- regsub "(\\*\\*\\* EXIT code \[0-9\]+\[\r\n]+).*$" "$output" "\\1" output
- verbose "board out is $output"
- set bstatus [check_for_board_status output]
- if { [lindex $result 0] >= 0 } {
- if { $bstatus == 0 } {
- set status "pass"
- }
- }
- remote_file build delete "a.fix"
- return [list $status $output]
-}
-
-proc tic80_ld { dest prog } {
- set dos_box [board_info $dest dos_host]
- set dopush 0
-
- if { [remote_swap_conn $dos_box] == "fail" } {
- if { [remote_push_conn $dos_box] == "fail" } {
- set dopush 1
- }
- remote_open $dos_box
- }
- set prog [remote_download $dos_box $prog "a.fix"]
-
- remote_spawn $dos_box "[board_info $dest start_program] $prog"
- remote_expect $dos_box 10 {
- -re "file\[(\]s\[)\] copied" {}
- }
- sleep 3
- dos_interrupt_job $dos_box
- if { $dopush } {
- remote_push_conn $dos_box
- } else {
- remote_swap_conn $dos_box
- }
- return "pass"
-}
-#
-# Close the connection to the DOS box.
-#
-proc tic80_close { host } {
- set dos_box [board_info $host dos_host]
-
- return [remote_close $dos_box]
-}
-
-set_board_info protocol "tic80"
-set_board_info gdb,use_standard_load 1
-set_board_info gdb,no_push_conn 1
-set_board_info gdb,do_reload_on_run 1
-set_board_info gdb,use_breakpoint_for_stub 1
diff --git a/config/vr4100.exp b/config/vr4100.exp
deleted file mode 100644
index e1e384f..0000000
--- a/config/vr4100.exp
+++ /dev/null
@@ -1,21 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# We're using a ddb monitor.
-load_generic_config "ddb"
diff --git a/config/vr4300.exp b/config/vr4300.exp
deleted file mode 100644
index e1e384f..0000000
--- a/config/vr4300.exp
+++ /dev/null
@@ -1,21 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# We're using a ddb monitor.
-load_generic_config "ddb"
diff --git a/config/vr5000.exp b/config/vr5000.exp
deleted file mode 100644
index d28a36c..0000000
--- a/config/vr5000.exp
+++ /dev/null
@@ -1,21 +0,0 @@
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# We're using a ddb monitor, but we want to use the ethernet to load files.
-load_generic_config "ddb-ether"