yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[gdb/cli] Add "set logging enabled", deprecate "set logging on/off"

Browse Source 
Before commit 3b6acaee895 "Update more calls to add_prefix_cmd" we had the
following output for "show logging file":
...
$ gdb -q -batch -ex "set trace-commands on" \
    -ex "set logging off" \
    -ex "show logging file" \
    -ex "set logging on" \
    -ex "show logging file"
+set logging off
+show logging file
Future logs will be written to gdb.txt.
+set logging on
+show logging file
Currently logging to "gdb.txt".
...

After that commit we have instead:
...
+set logging off
+show logging file
The current logfile is "gdb.txt".
+set logging on
+show logging file
The current logfile is "gdb.txt".
...

Before the commit, whether logging is enabled or not can be deduced from the
output of the command.  After the commit, the message is unified and it's no
longer clear whether logging is enabled or not.

Fix this by:
- adding a new command "show logging enabled"
- adding a corresponding new command "set logging enabled on/off"
- making the commands "set logging on/off" deprecated aliases of the
  "set logging enabled on/off" command.

Update the docs and testsuite to use "set logging enabled".  Mention the new
and deprecated commands in NEWS.

Tested on x86_64-linux.
This commit is contained in:
Tom de Vries 2021-11-25 07:49:16 +01:00
parent 0a4a1c6a3b
commit 6ff9675421
8 changed files with 89 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/NEWS
View File

@ -32,6 +32,13 @@ maint show internal-warning backtrace
internal-error, or an internal-warning. This is on by default for
internal-error and off by default for internal-warning.
set logging on|off
Deprecated and replaced by "set logging enabled on|off".
set logging enabled on|off
show logging enabled
These commands set or show whether logging is enabled or disabled.
* Python API
** New function gdb.add_history(), which takes a gdb.Value object

58
gdb/cli/cli-logging.c
View File

@ -22,6 +22,7 @@
#include "ui-out.h"
#include "interps.h"
#include "cli/cli-style.h"
#include "cli/cli-decode.h"
static char *saved_filename;
@ -163,18 +164,42 @@ set_logging_off (const char *args, int from_tty)
saved_filename = NULL;
}
static bool logging_enabled;
static void
set_logging_enabled (const char *args,
int from_tty, struct cmd_list_element *c)
{
if (logging_enabled)
set_logging_on (args, from_tty);
else
set_logging_off (args, from_tty);
}
static void
show_logging_enabled (struct ui_file *file, int from_tty,
struct cmd_list_element *c, const char *value)
{
if (logging_enabled)
printf_unfiltered (_("Logging is enabled.\n"));
else
printf_unfiltered (_("Logging is disabled.\n"));
}
void _initialize_cli_logging ();
void
_initialize_cli_logging ()
{
static struct cmd_list_element *set_logging_cmdlist, *show_logging_cmdlist;
/* Set/show logging. */
add_setshow_prefix_cmd ("logging", class_support,
_("Set logging options."),
_("Show logging options."),
&set_logging_cmdlist, &show_logging_cmdlist,
&setlist, &showlist);
/* Set/show logging overwrite. */
add_setshow_boolean_cmd ("overwrite", class_support, &logging_overwrite, _("\
Set whether logging overwrites or appends to the log file."), _("\
Show whether logging overwrites or appends to the log file."), _("\
@ -182,6 +207,8 @@ If set, logging overwrites the log file."),
set_logging_overwrite,
show_logging_overwrite,
&set_logging_cmdlist, &show_logging_cmdlist);
/* Set/show logging redirect. */
add_setshow_boolean_cmd ("redirect", class_support, &logging_redirect, _("\
Set the logging output mode."), _("\
Show the logging output mode."), _("\
@ -190,6 +217,8 @@ If redirect is on, output will go only to the log file."),
set_logging_redirect,
show_logging_redirect,
&set_logging_cmdlist, &show_logging_cmdlist);
/* Set/show logging debugredirect. */
add_setshow_boolean_cmd ("debugredirect", class_support,
&debug_redirect, _("\
Set the logging debug output mode."), _("\
@ -200,6 +229,7 @@ If debug redirect is on, debug will go only to the log file."),
show_logging_redirect,
&set_logging_cmdlist, &show_logging_cmdlist);
/* Set/show logging file. */
add_setshow_filename_cmd ("file", class_support, &logging_filename, _("\
Set the current logfile."), _("\
Show the current logfile."), _("\
@ -207,8 +237,28 @@ The logfile is used when directing GDB's output."),
NULL,
show_logging_filename,
&set_logging_cmdlist, &show_logging_cmdlist);
add_cmd ("on", class_support, set_logging_on,
_("Enable logging."), &set_logging_cmdlist);
add_cmd ("off", class_support, set_logging_off,
_("Disable logging."), &set_logging_cmdlist);
/* Set/show logging enabled. */
set_show_commands setshow_logging_enabled_cmds
= add_setshow_boolean_cmd ("enabled", class_support, &logging_enabled,
_("Enable logging."),
_("Show whether logging is enabled."),
_("When on, enable logging."),
set_logging_enabled,
show_logging_enabled,
&set_logging_cmdlist, &show_logging_cmdlist);
/* Set logging on, deprecated alias. */
cmd_list_element *set_logging_on_cmd
= add_alias_cmd ("on", setshow_logging_enabled_cmds.set, class_support,
false, &set_logging_cmdlist);
deprecate_cmd (set_logging_on_cmd, "set logging enabled on");
set_logging_on_cmd->default_args = "on";
/* Set logging off, deprecated alias. */
cmd_list_element *set_logging_off_cmd
= add_alias_cmd ("off", setshow_logging_enabled_cmds.set, class_support,
false, &set_logging_cmdlist);
deprecate_cmd (set_logging_off_cmd, "set logging enabled off");
set_logging_off_cmd->default_args = "off";
}

10
gdb/doc/gdb.texinfo
View File

@ -1705,17 +1705,15 @@ You may want to save the output of @value{GDBN} commands to a file.
There are several commands to control @value{GDBN}'s logging.
@table @code
@kindex set logging
@item set logging on
Enable logging.
@item set logging off
Disable logging.
@kindex set logging enabled
@item set logging enabled [on|off]
Enable or disable logging.
@cindex logging file name
@item set logging file @var{file}
Change the name of the current logfile. The default logfile is @file{gdb.txt}.
@item set logging overwrite [on|off]
By default, @value{GDBN} will append to the logfile. Set @code{overwrite} if
you want @code{set logging on} to overwrite the logfile instead.
you want @code{set logging enabled on} to overwrite the logfile instead.
@item set logging redirect [on|off]
By default, @value{GDBN} output will go to both the terminal and the logfile.
Set @code{redirect} if you want output to go only to the log file.

4
gdb/testsuite/gdb.ada/access_to_packed_array.exp
View File

@ -30,9 +30,9 @@ gdb_test_no_output "maint expand-symtabs"
set file [standard_output_file gdb.txt]
gdb_test_no_output "set logging file $file" "set logging file"
gdb_test_no_output "set logging redirect on"
gdb_test "set logging on"
gdb_test "set logging enabled on"
gdb_test_no_output "maint print symbols"
gdb_test "set logging off"
gdb_test "set logging enabled off"
file delete $file
set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo.adb]

4
gdb/testsuite/gdb.base/style-logging.exp
View File

@ -46,7 +46,7 @@ save_vars { env(TERM) } {
gdb_test_no_output "set logging file $log_name" \
"set logging filename"
gdb_test_no_output "set logging overwrite on"
gdb_test "set logging on" "Copying output to .*"
gdb_test "set logging enabled on" "Copying output to .*"
set main_expr [style main function]
set base_file_expr [style ".*style\\.c" file]
@ -55,7 +55,7 @@ save_vars { env(TERM) } {
gdb_test "frame" \
"$main_expr.*$arg_expr.*$arg_expr.*$file_expr.*"
gdb_test "set logging off" "Done logging to .*"
gdb_test "set logging enabled off" "Done logging to .*"
set fd [open $log_name]
set data [read -nonewline $fd]

24
gdb/testsuite/gdb.base/ui-redirect.exp
View File

@ -76,30 +76,30 @@ with_test_prefix "userdefined" {
with_test_prefix "logging" {
gdb_test_no_output "set logging file /dev/null"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Copying output to /dev/null.*Copying debug output to /dev/null\\."
gdb_test "save breakpoints $cmds_file" "Saved to file '$cmds_file'\\." \
"save breakpoints cmds.txt"
cmp_file_string "$cmds_file" "$cmds" "cmds.txt"
gdb_test "userdefined" "#0 main ().*"
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
gdb_test "help" "List of classes of commands:.*"
}
with_test_prefix "redirect" {
gdb_test "set logging redirect on"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Redirecting output to /dev/null.*Copying debug output to /dev/null\\."
gdb_test_no_output "save breakpoints $cmds_file" "save breakpoints cmds.txt"
cmp_file_string "$cmds_file" "$cmds" "cmds.txt"
gdb_test_no_output "userdefined"
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
gdb_test "help" "List of classes of commands:.*"
}
with_test_prefix "redirect while already logging" {
gdb_test_no_output "set logging redirect off"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Copying output to /dev/null.*Copying debug output to /dev/null\\."
gdb_test "set logging redirect on" \
".*warning: Currently logging .*Turn the logging off and on to make the new setting effective.*"
@ -107,14 +107,14 @@ with_test_prefix "redirect while already logging" {
"save breakpoints cmds.txt"
cmp_file_string "$cmds_file" "$cmds" "cmds.txt"
gdb_test "userdefined" "#0 main ().*"
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
gdb_test "help" "List of classes of commands:.*"
gdb_test_no_output "set logging redirect off"
}
with_test_prefix "debugging" {
gdb_test "set debug infrun 1"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Copying output to /dev/null.*Copying debug output to /dev/null\\."
set prompt "$gdb_prompt \\\[infrun\\\] fetch_inferior_event: exit\r\n$"
@ -125,25 +125,25 @@ with_test_prefix "debugging" {
}
gdb_test "set debug infrun 0"
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
gdb_test "help" "List of classes of commands:.*"
}
with_test_prefix "redirect debugging" {
gdb_test_no_output "set logging debugredirect on"
gdb_test "set debug infrun 1"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Copying output to /dev/null.*Redirecting debug output to /dev/null\\."
gdb_test "continue" "Continuing.*((?!infrun).).*Breakpoint \[0-9\]+, bar.*"
gdb_test "set debug infrun 0"
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
gdb_test "help" "List of classes of commands:.*"
}
with_test_prefix "redirect logging and debuging" {
gdb_test_no_output "set logging redirect on"
gdb_test_no_output "set logging debugredirect on"
gdb_test "set logging on" \
gdb_test "set logging enabled on" \
"Redirecting output to /dev/null.*Redirecting debug output to /dev/null\\."
gdb_test "set logging off" "Done logging to /dev/null\\."
gdb_test "set logging enabled off" "Done logging to /dev/null\\."
}

12
gdb/testsuite/gdb.mi/mi-logging.exp
View File

@ -37,13 +37,13 @@ mi_gdb_test "-gdb-set logging file $milogfile" "\\^done" \
mi_gdb_test "-gdb-set logging overwrite on" ".*"
mi_gdb_test "-gdb-set logging on" ".*" "logging on"
mi_gdb_test "-gdb-set logging enabled on" ".*" "logging on"
mi_step "logged step"
mi_next "logged next"
mi_gdb_test "-gdb-set logging off" ".*" "logging off"
mi_gdb_test "-gdb-set logging enabled off" ".*" "logging off"
set chan [open $milogfile]
set logcontent [read $chan]
@ -64,11 +64,11 @@ mi_gdb_test "-gdb-set logging redirect on" ".*" "redirect logging on"
# Since all output will be going into the file, just keep sending commands
# and don't expect anything to appear until logging is turned off.
send_gdb "1001-gdb-set logging on\n"
send_gdb "1001-gdb-set logging enabled on\n"
send_gdb "1002-exec-step\n"
send_gdb "1003-exec-next\n"
mi_gdb_test "1004-gdb-set logging off" ".*" "redirect logging off"
mi_gdb_test "1004-gdb-set logging enabled off" ".*" "redirect logging off"
set chan [open $milogfile]
set logcontent [read $chan]
@ -85,12 +85,12 @@ if [regexp "1001\\^done\[\r\n\]+$mi_log_prompt.*1002\\^running\[\r\n\]+\\*runnin
with_test_prefix "redirect while already logging" {
mi_gdb_test "-gdb-set logging redirect off" ".*" \
"logging redirect off"
mi_gdb_test "-gdb-set logging on" ".*" \
mi_gdb_test "-gdb-set logging enabled on" ".*" \
"logging on"
mi_gdb_test "-gdb-set logging redirect on" \
".*warning: Currently logging .*Turn the logging off and on to make the new setting effective.*" \
"logging redirect on"
mi_gdb_test "-gdb-set logging off" ".*" \
mi_gdb_test "-gdb-set logging enabled off" ".*" \
"logging off"
}

4
gdb/testsuite/lib/gdb.exp
View File

@ -7661,7 +7661,7 @@ proc gdb_debug_init { } {
}
# First ensure logging is off.
send_gdb "set logging off\n"
send_gdb "set logging enabled off\n"
set debugfile [standard_output_file gdb.debug]
send_gdb "set logging file $debugfile\n"
@ -7674,7 +7674,7 @@ proc gdb_debug_init { } {
}
# Now that everything is set, enable logging.
send_gdb "set logging on\n"
send_gdb "set logging enabled on\n"
gdb_expect 10 {
-re "Copying output to $debugfile.*Redirecting debug output to $debugfile.*$gdb_prompt $" {}
timeout { warning "Couldn't set logging file" }