Add "continue" response to pager

This adds a "continue" response to the pager.  If the user types "c"
in response to the pager prompt, pagination will be disabled for the
duration of one command -- but re-enabled afterward.  This is handy if
you type a command that produces a lot of output, and you don't want
to baby-sit it by typing "return" each time the prompt comes up.

Tested by the buildbot.

gdb/ChangeLog
2018-06-05  Tom Tromey	<tom@tromey.com>

	PR cli/12326:
	* NEWS: Add entry about pager.
	* utils.c (pagination_disabled_for_command): New global.
	(prompt_for_continue): Allow "c" response to prompt.
	(reinitialize_more_filter): Clear
	pagination_disabled_for_command.
	(fputs_maybe_filtered): Check pagination_disabled_for_command.

gdb/doc/ChangeLog
2018-06-05  Tom Tromey	<tom@tromey.com>

	PR cli/12326:
	* gdb.texinfo (Screen Size): Document "c" response to pagination
	prompt.

gdb/testsuite/ChangeLog
2018-06-05  Tom Tromey	<tom@tromey.com>

	PR cli/12326:
	* gdb.cp/static-print-quit.exp: Update.
	* lib/gdb.exp (pagination_prompt): Update.
	* gdb.base/page.exp: Use pagination_prompt.  Add new tests.
	* gdb.python/python.exp: Update.
This commit is contained in:
Tom Tromey 2018-04-25 08:52:00 -06:00
parent 5c4ce239a3
commit eb6af80922
10 changed files with 89 additions and 23 deletions

View file

@ -143,13 +143,13 @@ gdb_test_no_output "set height $lines"
set test "verify pagination beforehand"
gdb_test_multiple "python print (\"\\n\" * $lines)" $test {
-re "---Type <return>" {
-re "--Type <RET>" {
exp_continue
}
-re " to continue, or q <return>" {
-re " for more, q to quit" {
exp_continue
}
-re " to quit---$" {
-re ", c to continue without paging--$" {
pass $test
}
}
@ -159,13 +159,13 @@ gdb_test "python if gdb.execute('python print (\"\\\\n\" * $lines)', to_string=T
set test "verify pagination afterwards"
gdb_test_multiple "python print (\"\\n\" * $lines)" $test {
-re "---Type <return>" {
-re "--Type <RET>" {
exp_continue
}
-re " to continue, or q <return>" {
-re " for more, q to quit" {
exp_continue
}
-re " to quit---$" {
-re ", c to continue without paging--$" {
pass $test
}
}