From: Tom Tromey Date: Fri, 15 Sep 2023 23:24:26 +0000 (-0600) Subject: Support the NO_COLOR environment variable X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4ebfd53de03599b73838ee339e47652ac26c37c0;p=binutils-gdb.git Support the NO_COLOR environment variable I ran across this site: https://no-color.org/ ... which lobbies for tools to recognize the NO_COLOR environment variable and disable any terminal styling when it is seen. This patch implements this for gdb. Regression tested on x86-64 Fedora 38. Co-Authored-By: Andrew Burgess Reviewed-by: Kevin Buettner Reviewed-By: Eli Zaretskii Approved-By: Andrew Burgess --- diff --git a/gdb/NEWS b/gdb/NEWS index fd7ab282f69..6523ad1d6aa 100644 --- a/gdb/NEWS +++ b/gdb/NEWS @@ -3,6 +3,10 @@ *** Changes since GDB 13 +* GDB now recognizes the NO_COLOR environment variable and disables + styling according to the spec. See https://no-color.org/. + Styling can be re-enabled with "set style enabled on". + * The AArch64 'org.gnu.gdb.aarch64.pauth' Pointer Authentication feature string has been deprecated in favor of the 'org.gnu.gdb.aarch64.pauth_v2' feature string. diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo index f9c2f955ef6..c962222bac0 100644 --- a/gdb/doc/gdb.texinfo +++ b/gdb/doc/gdb.texinfo @@ -27272,6 +27272,9 @@ and styles can also be disabled entirely. Enable or disable all styling. The default is host-dependent, with most hosts defaulting to @samp{on}. +If the @env{NO_COLOR} environment variable is set to a non-empty +value, then @value{GDBN} will change this to @samp{off} at startup. + @item show style enabled Show the current state of styling. diff --git a/gdb/main.c b/gdb/main.c index cf46f6acb20..97e04f5b5d8 100644 --- a/gdb/main.c +++ b/gdb/main.c @@ -654,6 +654,10 @@ captured_main_1 (struct captured_main_args *context) int save_auto_load; int ret = 1; + const char *no_color = getenv ("NO_COLOR"); + if (no_color != nullptr && *no_color != '\0') + cli_styling = false; + #ifdef HAVE_USEFUL_SBRK /* Set this before constructing scoped_command_stats. */ lim_at_start = (char *) sbrk (0); diff --git a/gdb/testsuite/gdb.base/early-init-file.exp b/gdb/testsuite/gdb.base/early-init-file.exp index 237439f9db7..6426da8dacf 100644 --- a/gdb/testsuite/gdb.base/early-init-file.exp +++ b/gdb/testsuite/gdb.base/early-init-file.exp @@ -99,9 +99,7 @@ proc check_gdb_startups_up_quietly { message } { } } -save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi +with_ansi_styling_terminal { # Start GDB and confirm that the version string is styled. save_vars { INTERNAL_GDBFLAGS env(HOME) env(XDG_CONFIG_HOME) } { diff --git a/gdb/testsuite/gdb.base/readline-ask.exp b/gdb/testsuite/gdb.base/readline-ask.exp index 51bf6424a02..ff33c83c422 100644 --- a/gdb/testsuite/gdb.base/readline-ask.exp +++ b/gdb/testsuite/gdb.base/readline-ask.exp @@ -21,6 +21,8 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {debug}] return -1 } +setenv TERM dumb + # INPUTRC gets reset for the next testfile. setenv INPUTRC $inputrc clean_restart ${binfile} diff --git a/gdb/testsuite/gdb.base/style-interp-exec-mi.exp b/gdb/testsuite/gdb.base/style-interp-exec-mi.exp index 9b2ed87513f..b99e767a034 100644 --- a/gdb/testsuite/gdb.base/style-interp-exec-mi.exp +++ b/gdb/testsuite/gdb.base/style-interp-exec-mi.exp @@ -23,10 +23,7 @@ standard_testfile -save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi - +with_ansi_styling_terminal { if { [prepare_for_testing "failed to prepare" \ ${testfile} ${srcfile}] } { return diff --git a/gdb/testsuite/gdb.base/style-logging.exp b/gdb/testsuite/gdb.base/style-logging.exp index a156c39146f..c21c3321bde 100644 --- a/gdb/testsuite/gdb.base/style-logging.exp +++ b/gdb/testsuite/gdb.base/style-logging.exp @@ -22,10 +22,7 @@ require {!is_remote host} standard_testfile style.c -save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi - +with_ansi_styling_terminal { if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { return -1 } diff --git a/gdb/testsuite/gdb.base/style.exp b/gdb/testsuite/gdb.base/style.exp index 60f909e2402..7ee1b44177f 100644 --- a/gdb/testsuite/gdb.base/style.exp +++ b/gdb/testsuite/gdb.base/style.exp @@ -69,10 +69,7 @@ proc run_style_tests { } { global testfile srcfile hex binfile global currently_disabled_style decimal hex - save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi - + with_ansi_styling_terminal { # Restart GDB with the correct TERM variable setting, this # means that GDB will enable styling. clean_restart_and_disable "restart 1" ${binfile} @@ -319,9 +316,10 @@ proc run_style_tests { } { # Python pygments module is not available, so, when we disable # disassembler styling, we should always see a change in output. proc test_disable_disassembler_styling { } { - save_vars { env(TERM) } { + save_vars { env(TERM) env(NO_COLOR) } { # We need an ANSI-capable terminal to get the output. setenv TERM ansi + setenv NO_COLOR "" # Restart GDB with the correct TERM variable setting, this # means that GDB will enable styling. @@ -427,9 +425,10 @@ proc test_disassembler_error_handling { } { return } - save_vars { env(TERM) } { + save_vars { env(TERM) env(NO_COLOR) } { # We need an ANSI-capable terminal to get the output. setenv TERM ansi + setenv NO_COLOR "" # Restart GDB with the correct TERM variable setting, this # means that GDB will enable styling. diff --git a/gdb/testsuite/gdb.debuginfod/build-id-no-debug-warning.exp b/gdb/testsuite/gdb.debuginfod/build-id-no-debug-warning.exp index 148363a7c05..8ee3bb0e78c 100644 --- a/gdb/testsuite/gdb.debuginfod/build-id-no-debug-warning.exp +++ b/gdb/testsuite/gdb.debuginfod/build-id-no-debug-warning.exp @@ -98,10 +98,7 @@ gdb_test "file ${build_id_debug_file}" \ # Do the same thing again, but this time check that the styling is # correct. with_test_prefix "check styling" { - save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get styled output. - setenv TERM ansi - + with_ansi_styling_terminal { clean_restart gdb_test_no_output "set debug-file-directory ${debug_file_directory}" \ diff --git a/gdb/testsuite/gdb.debuginfod/crc_mismatch.exp b/gdb/testsuite/gdb.debuginfod/crc_mismatch.exp index 074028eadfd..e88c4b3c653 100644 --- a/gdb/testsuite/gdb.debuginfod/crc_mismatch.exp +++ b/gdb/testsuite/gdb.debuginfod/crc_mismatch.exp @@ -71,10 +71,7 @@ if {[build_executable crc_mismatch.exp crc_mismatch-2 crc_mismatch-2.c debug] != # Do the same thing again, but this time check that the styling is # correct. with_test_prefix "check styling" { - save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get styled output. - setenv TERM ansi - + with_ansi_styling_terminal { clean_restart set debug_file_re [style "${escapedobjdirsubdir}/crc_mismatch-2\\.debug" file] diff --git a/gdb/testsuite/gdb.python/py-format-string.exp b/gdb/testsuite/gdb.python/py-format-string.exp index 55a37766bff..04d19e483d9 100644 --- a/gdb/testsuite/gdb.python/py-format-string.exp +++ b/gdb/testsuite/gdb.python/py-format-string.exp @@ -1184,11 +1184,10 @@ with_test_prefix "format_string" { # Perform C Tests. if { [build_inferior "${binfile}" "c"] == 0 } { with_test_prefix "lang_c" { - save_vars { env(TERM) } { + with_ansi_styling_terminal { # We run all of these tests in an environment where styling # could work, but we only expect the final call to # test_styling to actually produce any styled output. - setenv TERM ansi set current_lang "c" prepare_gdb "${binfile}" test_all_common diff --git a/gdb/testsuite/gdb.python/py-source-styling.exp b/gdb/testsuite/gdb.python/py-source-styling.exp index f92d6f7a706..d3ae339661c 100644 --- a/gdb/testsuite/gdb.python/py-source-styling.exp +++ b/gdb/testsuite/gdb.python/py-source-styling.exp @@ -20,13 +20,11 @@ load_lib gdb-python.exp standard_testfile -save_vars { env(TERM) } { +with_ansi_styling_terminal { # We need an ANSI-capable terminal to get the output, additionally # we need to set LC_ALL so GDB knows the terminal is UTF-8 # capable, otherwise we'll get a UnicodeEncodeError trying to # encode the output. - setenv TERM ansi - if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } { return -1 } diff --git a/gdb/testsuite/gdb.python/py-startup-opt.exp b/gdb/testsuite/gdb.python/py-startup-opt.exp index 08d1c79eee3..729b1c13cb9 100644 --- a/gdb/testsuite/gdb.python/py-startup-opt.exp +++ b/gdb/testsuite/gdb.python/py-startup-opt.exp @@ -97,10 +97,7 @@ proc test_python_settings { exp_state } { gdb_exit } -save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi - +with_ansi_styling_terminal { # Check the features are off by default. test_python_settings "off" diff --git a/gdb/testsuite/gdb.rust/rust-style.exp b/gdb/testsuite/gdb.rust/rust-style.exp index 0555ea4b8a4..b4ea05ca8ff 100644 --- a/gdb/testsuite/gdb.rust/rust-style.exp +++ b/gdb/testsuite/gdb.rust/rust-style.exp @@ -19,10 +19,7 @@ load_lib rust-support.exp require allow_rust_tests require {can_compile rust} -save_vars { env(TERM) } { - # We need an ANSI-capable terminal to get the output. - setenv TERM ansi - +with_ansi_styling_terminal { standard_testfile .rs if {[prepare_for_testing "failed to prepare" $testfile $srcfile \ {debug rust}]} { diff --git a/gdb/testsuite/gdb.tui/tui-layout.exp b/gdb/testsuite/gdb.tui/tui-layout.exp index 13823387e72..90f27c5eac1 100644 --- a/gdb/testsuite/gdb.tui/tui-layout.exp +++ b/gdb/testsuite/gdb.tui/tui-layout.exp @@ -44,13 +44,17 @@ proc test_layout_or_focus {layout_name terminal execution} { set dumb_terminal [string equal $terminal "dumb"] - if {$dumb_terminal} { - clean_restart $binfile - } else { - Term::clean_restart 24 80 $binfile - if {![Term::prepare_for_tui]} { - unsupported "TUI not supported" - return + global env + save_vars { env(TERM) } { + setenv TERM $terminal + if {$dumb_terminal} { + clean_restart $binfile + } else { + Term::clean_restart 24 80 $binfile + if {![Term::prepare_for_tui]} { + unsupported "TUI not supported" + return + } } } diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 1b9179401c4..de22da8d8a8 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -6468,7 +6468,7 @@ proc default_gdb_init { test_file_name } { # This disables style output, which would interfere with many # tests. - setenv TERM "dumb" + setenv NO_COLOR sorry # This setting helps detect bugs in the Python code and doesn't # seem to have a significant downside for the tests. @@ -9238,6 +9238,25 @@ proc with_override { name override body } { return $result } +# Run BODY after setting the TERM environment variable to 'ansi', and +# unsetting the NO_COLOR environment variable. +proc with_ansi_styling_terminal { body } { + save_vars { ::env(TERM) ::env(NO_COLOR) } { + # Set environment variables to allow styling. + setenv TERM ansi + unset -nocomplain ::env(NO_COLOR) + + set code [catch {uplevel 1 $body} result] + } + + if {$code == 1} { + global errorInfo errorCode + return -code $code -errorinfo $errorInfo -errorcode $errorCode $result + } else { + return -code $code $result + } +} + # Setup tuiterm.exp environment. To be used in test-cases instead of # "load_lib tuiterm.exp". Calls initialization function and schedules # finalization function. diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp index 598c1f8cbdf..854fde56393 100644 --- a/gdb/testsuite/lib/tuiterm.exp +++ b/gdb/testsuite/lib/tuiterm.exp @@ -844,8 +844,9 @@ namespace eval Term { # BODY. proc with_tuiterm {rows cols body} { global env stty_init - save_vars {env(TERM) stty_init} { + save_vars {env(TERM) env(NO_COLOR) stty_init} { setenv TERM ansi + setenv NO_COLOR "" _setup $rows $cols uplevel $body