1 # Copyright 1999-2021 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # Test inferior console output, with MI.
18 load_lib mi-support.exp
22 # Given STRING, return the semihosted version of that string.
24 proc semihosted_string { string } {
25 set semihosted_list {}
26 set leading_markers "@\""
27 set trailing_markers "\"\r\n"
30 set split_string [split $string ""]
32 foreach char $split_string {
33 # Escape special characters.
36 } elseif {$char == "\r"} {
38 } elseif {$char == "\n"} {
40 } elseif {$char == "\""} {
43 lappend semihosted_list $leading_markers $char $trailing_markers
46 return [join $semihosted_list ""]
50 if [mi_gdb_start separate-inferior-tty] {
56 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
57 untested "failed to compile"
61 mi_gdb_reinitialize_dir $srcdir/$subdir
62 mi_gdb_load ${binfile}
65 # The output we get from the target depends on how it is hosted. If
66 # we are semihosted (e.g., the sim or a remote target that supports
67 # the File I/O remote protocol extension), we see the target I/O
68 # encapsulated in MI target output stream records. If debugging with
69 # a native target, the inferior's I/O streams are connected directly
70 # to a PTY we create for the inferior (notice separate-inferior-tty
71 # above), and we just see the program's output unadorned. If
72 # debugging with a remote target that doesn't support semihosting,
75 # The program's real output string.
76 set program_output "Hello \\\"!\r\n"
78 # Prepare the pattern for the PTY output of a native target.
79 set native_output [string map {"\r\n" "\[\r\n\]+"} $program_output]
80 set native_output [string map {"\\" "\\\\"} $native_output]
82 # Prepare the pattern for the semihosted output.
83 set semihosted_output [semihosted_string $program_output]
85 # Combine both outputs in a single pattern.
86 set output "($semihosted_output|$native_output)"
88 # Next over the hello() call which will produce lots of output
89 mi_gdb_test "220-exec-next" \
90 "220\\^running(\r\n\\*running,thread-id=\"all\")?" \
91 "Testing console output" \
94 set line [gdb_get_line_number "after-hello"]
95 mi_expect_stop "end-stepping-range" "main" "" ".*mi-console.c" $line "" \
96 "finished step over hello"