diff options
Diffstat (limited to 'lib/xsh.exp')
| -rw-r--r-- | lib/xsh.exp | 322 |
1 files changed, 0 insertions, 322 deletions
diff --git a/lib/xsh.exp b/lib/xsh.exp deleted file mode 100644 index 5a3b64b..0000000 --- a/lib/xsh.exp +++ /dev/null @@ -1,322 +0,0 @@ -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 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) - -# -# Connect to Spectra (VTRX) using xsh -# -proc xsh_open { hostname } { - global hex - global target_triplet - global xsh_shell_prompt - global board_info - - if [board_info $hostname exists fileid] { - unset board_info($hostname,fileid) - } - - if ![board_info $hostname exists spectra] { - perror "No spectra directory for $hostname" - return -1 - } else { - set spectra [board_info $hostname spectra] - } - - if ![board_info $hostname exists xsh_shell_prompt] { - set xsh_shell_prompt ".*> " - } else { - set xsh_shell_prompt [board_info $hostname shell_prompt] - } - - set retries 0 - set result 0 - if ![board_info $hostname exists xsh_prog] { - set xsh xsh - } else { - set xsh [board_info $hostname xsh_prog] - } - - if {[which $xsh] != 0} { - spawn $xsh - } else { - warning "Can't find xsh in path" - return -1 - } - - set shell_id $spawn_id - - # start the shell - expect { - "*Spectra Cross-Development Shell version*$xsh_shell_prompt" { - verbose "Got prompt" - set result 0 - } - timeout { - warning "Timed out trying to connect." - set result -1 - incr retries - if { $retries <= 2 } { - exp_continue - } - } - } - - # connect to the shell - set retries 0 - send "connect $hostname\n" - expect { - "connect $hostname*$hostname connected \(non-os mode\)*\n" { - set xsh_shell_prompt "$hostname> " - verbose "Connected to $hostname" - } - "*connect: not attached*" { - warning "Couldn't attach target" - set result -1 - } - -re ".* reset on target.*$" { - send_user "Spectra was reset\n" - exp_continue - } - -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" { - exp_continue - } - "$hostname> " { - #send "\n" - } - timeout { - warning "Timed out trying to connect after $expect_out(seconds) seconds." - set result -1 - incr retries - if { $retries <= 2 } { - exp_continue - } - } - } - - send "\n\n\n" - expect { - "*$hostname*$hostname" { - verbose "Cleared reset messages" 1 - } - timeout { - warning "Couldn't clear reset messages" - set result 1 - } - } - - set board_info($hostname,fileid) $spawn_id - # load to operating system - set timeout 20 - set retries 0 - if {[xsh_download $hostname $spectra/${target_triplet}-os.o "" {-e sys_start_crt0}]!=0} { - perror "Couldn't load Spectra into target" - return -1 - } - - set timeout 10 - # start the OS running - set retries 0 - send "go\n" - expect { - -re ".*Multithreading on target darkstar.*$" { - verbose "Spectra has been started..." 1 - set result 0 - } - -re ".*reset on target.*$" { - verbose "Spectra was reset" - exp_continue - } - -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" { - #send "\n" - exp_continue - } - -re "go\n" { exp_continue } - "$xsh_shell_prompt" { exp_continue } - timeout { - perror "Spectra wouldn't start" - set result -1 - incr retries - if { $retries <= 2 } { - send "go\r" - exp_continue - } - } - } - - if { $result < 0 } { - perror "Couldn't connect after $retries retries.\n" - return -1 - } else { - set board_info($hostname,fileid) $spawn_id - return $spawn_id - } -} - -# -# Download an executable using the load command in Spectra. -# arg[0] - is a full path name to the file to download. -# arg[1] - optional arguments to the load command. -# returns 1 if a spectra error occured, -# -1 if an internal error occured, -# 0 otherwise. -# -proc xsh_download { dest file destfile args } { - global verbose - global shell_id - global decimal - global hex - global expect_out - global board_info - - set result 1 - set retries 0 - set shell_id [board_info $dest fileid] - - if { [llength $args] > 1 } { - set opts [lindex $args 1] - } else { - set opts "" - } - - if { [llength $args] > 0 } { - set destfile [lindex $args 0] - } - - if ![file exists $file] { - perror "$file doesn't exist." - return 1 - } - - verbose "Downloading $file..." - - send -i $shell_id "load $opts $file\r" - set force 0 - expect { - -i $shell_id -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+\r\n" { - set timeout 1 - send "dout\n" - while $force<2 { - expect { - "dout*undefined kernel symbol*$xsh_shell_prompt" { - verbose "Attempted to flush I/O buffers" 1 - } - timout { - incr force - flush stdout - } - } - } - set timeout 20 - exp_continue - } - -i $shell_id "load $opts $file*\r" { - verbose "Loading a.out..." - exp_continue - } - -i $shell_id "Warm reset on target*\n" { - verbose "Spectra did a warm reset" - exp_continue - } - -i $shell_id "Cold reset on target*\n" { - verbose "Spectra did a cold reset" - exp_continue - } - -i $shell_id "loading a.out*\r" { - verbose "Loading a.out..." - exp_continue - } - -i $shell_id "reading symbols*\r" { - verbose "Reading symbols..." - exp_continue - } - -i $shell_id "defining symbols*\r" { - verbose "defining symbols..." - exp_continue - } - -i $shell_id "*loading image*\r" { - verbose "Loading image..." - exp_continue - } - -i $shell_id -re ".*bytes loaded:.*$decimal.*$" { - verbose "$expect_out(buffer)" - exp_continue - } - -i $shell_id "*loading done*\r" { - verbose "Loading done..." - exp_continue - } - -i $shell_id "*setting PC*\r" { - verbose "Setting PC..." - exp_continue - } - -i $shell_id "*resolving symbols*\r" { - verbose "Resolving symbols..." - exp_continue - } - -i $shell_id -re ".*load module id = $decimal.*$" { - verbose "" - } - -i $shell_id -re ".*load: undefined symbols.*$" { - perror "undefined symbols, make sure os is loaded and running" - set result -1 - } - -i $shell_id "$xsh_shell_prompt" { - set result 0 - exp_continue - } - -i $shell_id "load: no default target" { - perror "default target isn't set" - return -1 - } - -i $shell_id timeout { - perror "Timed out trying to download after $expect_out(seconds) seconds." - incr retries - set result 1 - if { $retries <= 2 } { - exp_continue - } - } - } - - set timeout 10 - if [info exists expect_out(buffer)] { - send_log $expect_out(buffer) - } - set board_info($hostname,fileid) $shell_id - return $result -} - -# -# Exit the remote shell -# -proc xsh_close { hostname } { - global board_info - - if ![board_info $hostname exists fileid] { - return - } - - set shell_id [board_info ${hostname} fileid] - send -i $shell_id "exit\n" - unset board_info(${hostname},fileid) - - verbose "Exiting shell." - return 0 -} |