[gdb/testsuite] Add Term::_esc_0x3d and Term::_esc_0x3e

Add support for:
- DECKPAM (Application Keypad)
  ESC =
- DECKPNM (Normal Keypad)
  ESC >

diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp
index 005583db93f9ec7f20db0e7ac68ef0015dc267af..1d60a07be6321087221a0311ebdd4a00a5306acf 100644 (file)
--- a/gdb/testsuite/lib/tuiterm.exp
+++ b/gdb/testsuite/lib/tuiterm.exp
@@ -186,6 +186,20 @@ proc Term::_esc_0x28_0 {} {
     _log "ignored: G0: DEC Special Character and Line Drawing Set"
 }
 
+# DECKPAM (Application Keypad, ESC =)
+#
+# https://vt100.net/docs/vt510-rm/DECKPAM.html
+proc Term::_esc_0x3d {} {
+    _log "ignored: Application Keypad"
+}
+
+# DECKPNM (Normal Keypad, ESC >)
+#
+# https://vt100.net/docs/vt510-rm/DECKPNM.html
+proc Term::_esc_0x3e {} {
+    _log "ignored: Normal Keypad"
+}
+
 # Insert Character.
 #
 # https://vt100.net/docs/vt510-rm/ICH.html
@@ -998,6 +1012,11 @@ proc Term::accept_gdb_output { } {
            set cmd $expect_out(2,string)
            eval _esc_0x${hexval}_$cmd
        }
+       -re "^\x1b(\[=>\])" {
+           scan $expect_out(1,string) %c val
+           set hexval [format "%02x" $val]
+           _esc_0x$hexval
+       }
        -re "^\x1b\\\[(\\??)(\[0-9;\]*)(\[a-zA-Z@`\])" {
            set prefix $expect_out(1,string)
            set cmd $expect_out(3,string)