From: Tom de Vries <tdevries@suse.de>
Date: Fri, 15 Aug 2025 12:48:10 +0000 (+0200)
Subject: [gdb/testsuite] Add Term::_csi_h and Term::_csi_l
X-Git-Tag: gdb-17-branchpoint~295
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=19ee30e369c9e8ba1f083dc5d07017c4adb6822a;p=thirdparty%2Fbinutils-gdb.git

[gdb/testsuite] Add Term::_csi_h and Term::_csi_l

Add support for:
- Set Mode (SM)
  CSI h
- Reset Mode (RM)
  CSI l
---

diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp
index ecb2c30cbfc..4129a6d43d6 100644
--- a/gdb/testsuite/lib/tuiterm.exp
+++ b/gdb/testsuite/lib/tuiterm.exp
@@ -592,6 +592,40 @@ proc Term::_csi_d {args} {
     }
 }
 
+# Set Mode (SM, CSI h)
+#
+# https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
+proc Term::_csi_h { args } {
+    foreach item $args {
+	switch -exact -- $item {
+	    4 {
+		# Insert Mode (IRM)
+		_log "ignored: insert mode"
+	    }
+	    default {
+		error unsupported
+	    }
+	}
+    }
+}
+
+# Reset Mode (RM, CSI l)
+#
+# https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
+proc Term::_csi_l { args } {
+    foreach item $args {
+	switch -exact -- $item {
+	    4 {
+		# Replace Mode (IRM)
+		_log "ignored: replace mode"
+	    }
+	    default {
+		error unsupported
+	    }
+	}
+    }
+}
+
 # Reset the attributes in attributes array UPVAR_NAME to the default values.
 proc Term::_reset_attrs { upvar_name } {
     upvar $upvar_name var