new support for remote testing on Android.

diff --git a/baseboards/androideabi.exp b/baseboards/androideabi.exp
new file mode 100644 (file)
index 0000000..75e15c7
--- /dev/null
+++ b/baseboards/androideabi.exp
@@ -0,0 +1,97 @@
+# Copyright (C) 2013 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 "adb"
+
+# We need this for find_gcc and *_include_flags/*_link_flags.
+load_base_board_description "adb"
+
+set_board_info compiler  "[find_gcc]"
+
+# We need -mandroid.
+set_board_info cflags  "-mandroid"
+
+# Currently the dynamic linker does not support weak-references in
+# shared libraries.  So we need to workaround using -static
+set_board_info ldflags  "-mandroid -static"
+
+#
+# load PROG to DEST and run it with ARGS using adb
+#
+proc adb_load { dest prog args } {
+    # /sqlite_stmt_journals uses tmpfs.  So it is the default place to run
+    # tests to avoid excessive wear of flash.
+    set android_tmp_dir "/sqlite_stmt_journals"
+
+    if { [llength $args] > 0 } {
+       set pargs [lindex $args 0]
+    } else {
+       set pargs ""
+    }
+
+    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 standard_load."
+       verbose -log "$prog does not exist." 3
+       return "untested"
+    }
+
+    if [is_remote $dest] {
+       set remotefile "$android_tmp_dir/[file tail $prog].[pid]"
+       set remotefile [remote_download $dest $prog $remotefile]
+       if { $remotefile == "" } {
+           verbose -log "Download of $prog to [board_info $dest name] failed." 3
+           return "unresolved"
+       }
+       if [board_info $dest exists remote_link] {
+           if [[board_info $dest remote_link] $remotefile] {
+               verbose -log "Couldn't do remote link"
+               # Can't use remote_file delete since /system/bin/rm does not
+               # support -f on Android.
+               remote_exec $dest rm $remotefile
+               return "unresolved"
+           }
+       }
+       set status [remote_exec $dest $remotefile $pargs $inp]
+       remote_exec $dest rm $remotefile
+    } else {
+       set status [remote_exec $dest $prog $pargs $inp]
+    }
+    if { [lindex $status 0] < 0 } {
+       verbose -log "Couldn't execute $prog, [lindex $status 1]" 3
+       return "unresolved"
+    }
+    set output [lindex $status 1]
+    set status [lindex $status 0]
+
+    verbose -log "Executed $prog, status $status" 2
+    if ![string match "" $output] {
+       verbose -log -- "$output" 2
+    }
+    if { $status == 0 } {
+       return [list "pass" $output]
+    } else {
+       return [list "fail" $output]
+    }
+}

diff --git a/config/adb.exp b/config/adb.exp
new file mode 100644 (file)
index 0000000..dd69066
--- /dev/null
+++ b/config/adb.exp
@@ -0,0 +1,161 @@
+# Copyright (C) 2013 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.
+
+#
+# Get serial number in case of multiple devices
+#
+proc adb_serial {} {
+    # If the user has ADB_SERIAL set, use that, otherwise default to the
+    # only device.
+    set serial "[getenv ADB_SERIAL]"
+    if { $serial == "" } {
+       set status [catch "exec adb devices |& wc -l" output]
+       if { $output > 3 } {
+           perror "Set ADB_SERIAL in your environment to specify the correct target device!"
+       }
+       return ""
+    } else {
+       return "-s $serial"
+    }
+}
+
+#
+# Connect to hostname using adb
+#
+proc adb_open { hostname } {
+    global spawn_id
+
+    set tries 0
+    set result -1
+
+    if [board_info ${hostname} exists shell_prompt] {
+       set shell_prompt [board_info ${hostname} shell_prompt]
+    } else {
+       set shell_prompt "# "
+    }
+
+    if [board_info $hostname exists fileid] {
+       unset board_info($hostname,fileid)
+    }
+
+    spawn adb [adb_serial] shell
+    if { $spawn_id < 0 } {
+       perror "invalid spawn id from adb"
+       return -1
+    }
+
+    send "\r\n"
+    while { $tries <= 3 } {
+       expect {
+           -re ".*$shell_prompt.*$" {
+               verbose "Got prompt\n"
+               set result 0
+               break
+           }
+           timeout {
+               warning "adb shell: timed out trying to connect."
+           }
+           eof {
+               perror "adb shell: got EOF while trying to connect."
+               break
+           }
+       }
+       incr tries
+    }
+
+    if { $result < 0 } {
+       #       perror "adb shell: couldn't connect after $tries tries."
+       close -i $spawn_id
+       set spawn_id -1
+    } else {
+       set board_info($hostname,fileid) $spawn_id
+    }
+
+    return $spawn_id
+}
+
+#
+# Download $srcfile to $destfile on $desthost.
+#
+
+proc adb_download {desthost srcfile destfile} {
+    set status [catch "exec adb [adb_serial] shell rm $destfile |& cat" output]
+    set status [catch "exec adb [adb_serial] push $srcfile $destfile |& cat" output]
+    if { $status == 0 } {
+       verbose "Copied $srcfile to $destfile" 2
+       return $destfile
+    } else {
+       verbose "Download to target failed, $output."
+       return ""
+    }
+}
+
+proc adb_upload {desthost srcfile destfile} {
+    set status [catch "exec adb [adb_serial] pull $srcfile $destfile" output]
+    if { $status == 0 } {
+       verbose "Copied $srcfile to $destfile" 2
+       return $destfile
+    } else {
+       verbose "Upload from $desthost failed, $output."
+       return ""
+    }
+}
+
+#
+# Execute "$cmd $args[0]" on $boardname.
+#
+proc adb_exec { boardname cmd args } {
+    if { [llength $args] > 0 } {
+       set pargs [lindex $args 0]
+       if { [llength $args] > 1 } {
+           set inp [lindex $args 1]
+       } else {
+           set inp ""
+       }
+    } else {
+       set pargs ""
+       set inp ""
+    }
+
+    verbose "Executing $boardname:$cmd $pargs < $inp"
+
+    # If CMD sends any output to stderr, exec will think it failed.  More often
+    # than not that will be true, but it doesn't catch the case where there is
+    # no output but the exit code is non-zero.
+    if { $inp == "" } {
+       set inp "/dev/null"
+    }
+
+    set status [catch "exec cat $inp | adb [adb_serial] shell \( $cmd $pargs \) \\; echo XYZ\\\$\\\{\?\\\}ZYX |& cat" output]
+    # `status' doesn't mean much here other than adb worked ok.
+    # What we want is whether $cmd ran ok.
+    if { $status != 0 } {
+       regsub "XYZ(\[0-9\]*)ZYX\n?" $output "" output
+       return [list -1 "adb to $boardname failed for $cmd, $output"]
+    }
+    regexp "XYZ(\[0-9\]*)ZYX" $output junk status
+    verbose "adb_exec: status:$status text:$output" 4
+    if { $status == "" } {
+       return [list -1 "Couldn't parse adb output, $output."]
+    }
+    regsub "XYZ(\[0-9\]*)ZYX\n?" $output "" output
+    # Delete one trailing \n because that is what `exec' will do and we want
+    # to behave identical to it.
+    regsub "\n$" $output "" output
+    return [list [expr $status != 0] $output]
+}