| # 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 Rob Savoye <rob@welcomehome.org>. |
| |
| if {![info exists board]} { |
| error "must set $board before loading unix.exp" |
| } |
| |
| # For rcp_download, rsh_exec. |
| load_lib remote.exp |
| |
| # |
| # unix_load -- load the program and execute it |
| # |
| # See default.exp for explanation of arguments and results. |
| # |
| |
| |
| proc unix_load { dest prog args } { |
| global ld_library_path |
| global test_timeout |
| set output "" |
| set orig_ld_library_path "" |
| |
| if {![info exists test_timeout]} { |
| set test_timeout 300 |
| } |
| |
| if { [llength $args] > 0 } { |
| set parg [lindex $args 0] |
| } else { |
| set parg "" |
| } |
| |
| if { [llength $args] > 1 } { |
| set inp [lindex $args 1] |
| } else { |
| set inp "" |
| } |
| |
| if {![file exists $prog]} then { |
| # We call both here because this should never happen. |
| perror "$prog does not exist in unix_load." |
| verbose -log "$prog does not exist." 3 |
| return "untested" |
| } |
| verbose "loading to $dest" 2 |
| if {![is_remote $dest]} { |
| if { "$inp" != "" } { |
| set command "$prog $parg < $inp" |
| } else { |
| set command "$prog $parg" |
| } |
| |
| if {![info exists ld_library_path]} { |
| set ld_library_path "" |
| } |
| |
| set orig_ld_library_path "[getenv LD_LIBRARY_PATH]" |
| setenv LD_LIBRARY_PATH "$ld_library_path:$orig_ld_library_path" |
| setenv SHLIB_PATH "$ld_library_path:$orig_ld_library_path" |
| verbose -log "Setting LD_LIBRARY_PATH to $ld_library_path:$orig_ld_library_path" 2 |
| verbose -log "Execution timeout is: $test_timeout" 2 |
| |
| # Prepend shell name (e.g., qemu emulator) to the command. |
| if {[board_info $dest exists exec_shell]} { |
| set command "[board_info $dest exec_shell] $command" |
| } |
| |
| set id [remote_spawn $dest "$command" "readonly"] |
| if { $id < 0 } { |
| set output "remote_spawn failed" |
| set status -1 |
| } else { |
| set status [remote_wait $dest $test_timeout] |
| set output [lindex $status 1] |
| set status [lindex $status 0] |
| } |
| # Unset them so we don't potentially get hosed when we try to run a |
| # non-testcase executable. (Setting LD_LIBRARY_PATH is the wrong |
| # fix in the first place; this just tries to minimize the resulting |
| # crap.) |
| if {[info exists ld_library_path]} { |
| setenv LD_LIBRARY_PATH $orig_ld_library_path |
| setenv SHLIB_PATH $orig_ld_library_path |
| } |
| } else { |
| set remotefile [file tail $prog] |
| set remotefile [remote_download $dest $prog $remotefile] |
| if { $remotefile == "" } { |
| verbose -log "Download of $prog to [board_info $dest name] failed." 3 |
| return [list "unresolved" ""] |
| } |
| if {[board_info $dest exists remote_link]} { |
| if {[[board_info $dest remote_link] $remotefile]} { |
| verbose -log "Couldn't do remote link" |
| remote_exec $dest "\\rm -f $remotefile" |
| return [list "unresolved" ""] |
| } |
| |
| verbose "$prog linked ok" 3 |
| } else { |
| # rcp's to lynx seem not to get marked executable |
| set status [remote_exec $dest "chmod +x $remotefile"] |
| if { [lindex $status 0] != 0 } { |
| remote_file $dest delete ${remotefile}.o $remotefile |
| verbose -log "chmod +x of $prog on $dest failed." 3 |
| return [list "unresolved" ""] |
| } |
| } |
| |
| # Prepend shell name (e.g., qemu emulator) to the command. |
| if {[board_info $dest exists exec_shell]} { |
| set remotecmd "[board_info $dest exec_shell] $remotefile" |
| } else { |
| set remotecmd "$remotefile" |
| } |
| |
| set status [remote_exec $dest "$remotecmd" $parg $inp] |
| remote_file $dest delete $remotefile.o $remotefile |
| if { [lindex $status 0] < 0 } { |
| verbose -log "Couldn't execute $prog, [lindex $status 1]" 3 |
| return [list "unresolved" ""] |
| } |
| set output [lindex $status 1] |
| set status [lindex $status 0] |
| } |
| |
| setenv LD_LIBRARY_PATH $orig_ld_library_path |
| setenv SHLIB_PATH $orig_ld_library_path |
| |
| verbose "Executed $prog, status $status" 2 |
| if {![string match "" $output]} { |
| verbose -- "$output" 2 |
| } |
| if { $status == 0 } { |
| set result "pass" |
| } else { |
| set result "fail" |
| } |
| return [list $result $output] |
| } |
| |
| set_board_info remotedir "/tmp/runtest.[pid]" |
| set_board_info protocol "unix" |