/* TUI support I/O functions.
|
/* TUI support I/O functions.
|
|
|
Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2007, 2008
|
Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2007, 2008
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
Contributed by Hewlett-Packard Company.
|
Contributed by Hewlett-Packard Company.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "target.h"
|
#include "target.h"
|
#include "event-loop.h"
|
#include "event-loop.h"
|
#include "event-top.h"
|
#include "event-top.h"
|
#include "command.h"
|
#include "command.h"
|
#include "top.h"
|
#include "top.h"
|
#include "tui/tui.h"
|
#include "tui/tui.h"
|
#include "tui/tui-data.h"
|
#include "tui/tui-data.h"
|
#include "tui/tui-io.h"
|
#include "tui/tui-io.h"
|
#include "tui/tui-command.h"
|
#include "tui/tui-command.h"
|
#include "tui/tui-win.h"
|
#include "tui/tui-win.h"
|
#include "tui/tui-wingeneral.h"
|
#include "tui/tui-wingeneral.h"
|
#include "tui/tui-file.h"
|
#include "tui/tui-file.h"
|
#include "ui-out.h"
|
#include "ui-out.h"
|
#include "cli-out.h"
|
#include "cli-out.h"
|
#include <fcntl.h>
|
#include <fcntl.h>
|
#include <signal.h>
|
#include <signal.h>
|
#include <stdio.h>
|
#include <stdio.h>
|
|
|
#include "gdb_curses.h"
|
#include "gdb_curses.h"
|
|
|
/* This redefines CTRL if it is not already defined, so it must come
|
/* This redefines CTRL if it is not already defined, so it must come
|
after terminal state releated include files like <term.h> and
|
after terminal state releated include files like <term.h> and
|
"gdb_curses.h". */
|
"gdb_curses.h". */
|
#include "readline/readline.h"
|
#include "readline/readline.h"
|
|
|
int
|
int
|
key_is_start_sequence (int ch)
|
key_is_start_sequence (int ch)
|
{
|
{
|
return (ch == 27);
|
return (ch == 27);
|
}
|
}
|
|
|
int
|
int
|
key_is_end_sequence (int ch)
|
key_is_end_sequence (int ch)
|
{
|
{
|
return (ch == 126);
|
return (ch == 126);
|
}
|
}
|
|
|
int
|
int
|
key_is_backspace (int ch)
|
key_is_backspace (int ch)
|
{
|
{
|
return (ch == 8);
|
return (ch == 8);
|
}
|
}
|
|
|
int
|
int
|
key_is_command_char (int ch)
|
key_is_command_char (int ch)
|
{
|
{
|
return ((ch == KEY_NPAGE) || (ch == KEY_PPAGE)
|
return ((ch == KEY_NPAGE) || (ch == KEY_PPAGE)
|
|| (ch == KEY_LEFT) || (ch == KEY_RIGHT)
|
|| (ch == KEY_LEFT) || (ch == KEY_RIGHT)
|
|| (ch == KEY_UP) || (ch == KEY_DOWN)
|
|| (ch == KEY_UP) || (ch == KEY_DOWN)
|
|| (ch == KEY_SF) || (ch == KEY_SR)
|
|| (ch == KEY_SF) || (ch == KEY_SR)
|
|| (ch == (int)'\f')
|
|| (ch == (int)'\f')
|
|| key_is_start_sequence (ch));
|
|| key_is_start_sequence (ch));
|
}
|
}
|
|
|
/* Use definition from readline 4.3. */
|
/* Use definition from readline 4.3. */
|
#undef CTRL_CHAR
|
#undef CTRL_CHAR
|
#define CTRL_CHAR(c) \
|
#define CTRL_CHAR(c) \
|
((c) < control_character_threshold && (((c) & 0x80) == 0))
|
((c) < control_character_threshold && (((c) & 0x80) == 0))
|
|
|
/* This file controls the IO interactions between gdb and curses.
|
/* This file controls the IO interactions between gdb and curses.
|
When the TUI is enabled, gdb has two modes a curses and a standard
|
When the TUI is enabled, gdb has two modes a curses and a standard
|
mode.
|
mode.
|
|
|
In curses mode, the gdb outputs are made in a curses command
|
In curses mode, the gdb outputs are made in a curses command
|
window. For this, the gdb_stdout and gdb_stderr are redirected to
|
window. For this, the gdb_stdout and gdb_stderr are redirected to
|
the specific ui_file implemented by TUI. The output is handled by
|
the specific ui_file implemented by TUI. The output is handled by
|
tui_puts(). The input is also controlled by curses with
|
tui_puts(). The input is also controlled by curses with
|
tui_getc(). The readline library uses this function to get its
|
tui_getc(). The readline library uses this function to get its
|
input. Several readline hooks are installed to redirect readline
|
input. Several readline hooks are installed to redirect readline
|
output to the TUI (see also the note below).
|
output to the TUI (see also the note below).
|
|
|
In normal mode, the gdb outputs are restored to their origin, that
|
In normal mode, the gdb outputs are restored to their origin, that
|
is as if TUI is not used. Readline also uses its original getc()
|
is as if TUI is not used. Readline also uses its original getc()
|
function with stdin.
|
function with stdin.
|
|
|
Note SCz/2001-07-21: the current readline is not clean in its
|
Note SCz/2001-07-21: the current readline is not clean in its
|
management of the output. Even if we install a redisplay handler,
|
management of the output. Even if we install a redisplay handler,
|
it sometimes writes on a stdout file. It is important to redirect
|
it sometimes writes on a stdout file. It is important to redirect
|
every output produced by readline, otherwise the curses window will
|
every output produced by readline, otherwise the curses window will
|
be garbled. This is implemented with a pipe that TUI reads and
|
be garbled. This is implemented with a pipe that TUI reads and
|
readline writes to. A gdb input handler is created so that reading
|
readline writes to. A gdb input handler is created so that reading
|
the pipe is handled automatically. This will probably not work on
|
the pipe is handled automatically. This will probably not work on
|
non-Unix platforms. The best fix is to make readline clean enougth
|
non-Unix platforms. The best fix is to make readline clean enougth
|
so that is never write on stdout.
|
so that is never write on stdout.
|
|
|
Note SCz/2002-09-01: we now use more readline hooks and it seems
|
Note SCz/2002-09-01: we now use more readline hooks and it seems
|
that with them we don't need the pipe anymore (verified by creating
|
that with them we don't need the pipe anymore (verified by creating
|
the pipe and closing its end so that write causes a SIGPIPE). The
|
the pipe and closing its end so that write causes a SIGPIPE). The
|
old pipe code is still there and can be conditionally removed by
|
old pipe code is still there and can be conditionally removed by
|
#undef TUI_USE_PIPE_FOR_READLINE. */
|
#undef TUI_USE_PIPE_FOR_READLINE. */
|
|
|
/* For gdb 5.3, prefer to continue the pipe hack as a backup wheel. */
|
/* For gdb 5.3, prefer to continue the pipe hack as a backup wheel. */
|
#define TUI_USE_PIPE_FOR_READLINE
|
#define TUI_USE_PIPE_FOR_READLINE
|
/* #undef TUI_USE_PIPE_FOR_READLINE */
|
/* #undef TUI_USE_PIPE_FOR_READLINE */
|
|
|
/* TUI output files. */
|
/* TUI output files. */
|
static struct ui_file *tui_stdout;
|
static struct ui_file *tui_stdout;
|
static struct ui_file *tui_stderr;
|
static struct ui_file *tui_stderr;
|
struct ui_out *tui_out;
|
struct ui_out *tui_out;
|
|
|
/* GDB output files in non-curses mode. */
|
/* GDB output files in non-curses mode. */
|
static struct ui_file *tui_old_stdout;
|
static struct ui_file *tui_old_stdout;
|
static struct ui_file *tui_old_stderr;
|
static struct ui_file *tui_old_stderr;
|
struct ui_out *tui_old_uiout;
|
struct ui_out *tui_old_uiout;
|
|
|
/* Readline previous hooks. */
|
/* Readline previous hooks. */
|
static Function *tui_old_rl_getc_function;
|
static Function *tui_old_rl_getc_function;
|
static VFunction *tui_old_rl_redisplay_function;
|
static VFunction *tui_old_rl_redisplay_function;
|
static VFunction *tui_old_rl_prep_terminal;
|
static VFunction *tui_old_rl_prep_terminal;
|
static VFunction *tui_old_rl_deprep_terminal;
|
static VFunction *tui_old_rl_deprep_terminal;
|
static int tui_old_readline_echoing_p;
|
static int tui_old_readline_echoing_p;
|
|
|
/* Readline output stream.
|
/* Readline output stream.
|
Should be removed when readline is clean. */
|
Should be removed when readline is clean. */
|
static FILE *tui_rl_outstream;
|
static FILE *tui_rl_outstream;
|
static FILE *tui_old_rl_outstream;
|
static FILE *tui_old_rl_outstream;
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
static int tui_readline_pipe[2];
|
static int tui_readline_pipe[2];
|
#endif
|
#endif
|
|
|
/* The last gdb prompt that was registered in readline.
|
/* The last gdb prompt that was registered in readline.
|
This may be the main gdb prompt or a secondary prompt. */
|
This may be the main gdb prompt or a secondary prompt. */
|
static char *tui_rl_saved_prompt;
|
static char *tui_rl_saved_prompt;
|
|
|
static unsigned int tui_handle_resize_during_io (unsigned int);
|
static unsigned int tui_handle_resize_during_io (unsigned int);
|
|
|
static void
|
static void
|
tui_putc (char c)
|
tui_putc (char c)
|
{
|
{
|
char buf[2];
|
char buf[2];
|
|
|
buf[0] = c;
|
buf[0] = c;
|
buf[1] = 0;
|
buf[1] = 0;
|
tui_puts (buf);
|
tui_puts (buf);
|
}
|
}
|
|
|
/* Print the string in the curses command window. */
|
/* Print the string in the curses command window. */
|
void
|
void
|
tui_puts (const char *string)
|
tui_puts (const char *string)
|
{
|
{
|
static int tui_skip_line = -1;
|
static int tui_skip_line = -1;
|
char c;
|
char c;
|
WINDOW *w;
|
WINDOW *w;
|
|
|
w = TUI_CMD_WIN->generic.handle;
|
w = TUI_CMD_WIN->generic.handle;
|
while ((c = *string++) != 0)
|
while ((c = *string++) != 0)
|
{
|
{
|
/* Catch annotation and discard them. We need two \032 and
|
/* Catch annotation and discard them. We need two \032 and
|
discard until a \n is seen. */
|
discard until a \n is seen. */
|
if (c == '\032')
|
if (c == '\032')
|
{
|
{
|
tui_skip_line++;
|
tui_skip_line++;
|
}
|
}
|
else if (tui_skip_line != 1)
|
else if (tui_skip_line != 1)
|
{
|
{
|
tui_skip_line = -1;
|
tui_skip_line = -1;
|
waddch (w, c);
|
waddch (w, c);
|
}
|
}
|
else if (c == '\n')
|
else if (c == '\n')
|
tui_skip_line = -1;
|
tui_skip_line = -1;
|
}
|
}
|
getyx (w, TUI_CMD_WIN->detail.command_info.cur_line,
|
getyx (w, TUI_CMD_WIN->detail.command_info.cur_line,
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.start_line = TUI_CMD_WIN->detail.command_info.cur_line;
|
TUI_CMD_WIN->detail.command_info.start_line = TUI_CMD_WIN->detail.command_info.cur_line;
|
|
|
/* We could defer the following. */
|
/* We could defer the following. */
|
wrefresh (w);
|
wrefresh (w);
|
fflush (stdout);
|
fflush (stdout);
|
}
|
}
|
|
|
/* Readline callback.
|
/* Readline callback.
|
Redisplay the command line with its prompt after readline has
|
Redisplay the command line with its prompt after readline has
|
changed the edited text. */
|
changed the edited text. */
|
void
|
void
|
tui_redisplay_readline (void)
|
tui_redisplay_readline (void)
|
{
|
{
|
int prev_col;
|
int prev_col;
|
int height;
|
int height;
|
int col, line;
|
int col, line;
|
int c_pos;
|
int c_pos;
|
int c_line;
|
int c_line;
|
int in;
|
int in;
|
WINDOW *w;
|
WINDOW *w;
|
char *prompt;
|
char *prompt;
|
int start_line;
|
int start_line;
|
|
|
/* Detect when we temporarily left SingleKey and now the readline
|
/* Detect when we temporarily left SingleKey and now the readline
|
edit buffer is empty, automatically restore the SingleKey
|
edit buffer is empty, automatically restore the SingleKey
|
mode. */
|
mode. */
|
if (tui_current_key_mode == TUI_ONE_COMMAND_MODE && rl_end == 0)
|
if (tui_current_key_mode == TUI_ONE_COMMAND_MODE && rl_end == 0)
|
tui_set_key_mode (TUI_SINGLE_KEY_MODE);
|
tui_set_key_mode (TUI_SINGLE_KEY_MODE);
|
|
|
if (tui_current_key_mode == TUI_SINGLE_KEY_MODE)
|
if (tui_current_key_mode == TUI_SINGLE_KEY_MODE)
|
prompt = "";
|
prompt = "";
|
else
|
else
|
prompt = tui_rl_saved_prompt;
|
prompt = tui_rl_saved_prompt;
|
|
|
c_pos = -1;
|
c_pos = -1;
|
c_line = -1;
|
c_line = -1;
|
w = TUI_CMD_WIN->generic.handle;
|
w = TUI_CMD_WIN->generic.handle;
|
start_line = TUI_CMD_WIN->detail.command_info.start_line;
|
start_line = TUI_CMD_WIN->detail.command_info.start_line;
|
wmove (w, start_line, 0);
|
wmove (w, start_line, 0);
|
prev_col = 0;
|
prev_col = 0;
|
height = 1;
|
height = 1;
|
for (in = 0; prompt && prompt[in]; in++)
|
for (in = 0; prompt && prompt[in]; in++)
|
{
|
{
|
waddch (w, prompt[in]);
|
waddch (w, prompt[in]);
|
getyx (w, line, col);
|
getyx (w, line, col);
|
if (col < prev_col)
|
if (col < prev_col)
|
height++;
|
height++;
|
prev_col = col;
|
prev_col = col;
|
}
|
}
|
for (in = 0; in < rl_end; in++)
|
for (in = 0; in < rl_end; in++)
|
{
|
{
|
unsigned char c;
|
unsigned char c;
|
|
|
c = (unsigned char) rl_line_buffer[in];
|
c = (unsigned char) rl_line_buffer[in];
|
if (in == rl_point)
|
if (in == rl_point)
|
{
|
{
|
getyx (w, c_line, c_pos);
|
getyx (w, c_line, c_pos);
|
}
|
}
|
|
|
if (CTRL_CHAR (c) || c == RUBOUT)
|
if (CTRL_CHAR (c) || c == RUBOUT)
|
{
|
{
|
waddch (w, '^');
|
waddch (w, '^');
|
waddch (w, CTRL_CHAR (c) ? UNCTRL (c) : '?');
|
waddch (w, CTRL_CHAR (c) ? UNCTRL (c) : '?');
|
}
|
}
|
else
|
else
|
{
|
{
|
waddch (w, c);
|
waddch (w, c);
|
}
|
}
|
if (c == '\n')
|
if (c == '\n')
|
{
|
{
|
getyx (w, TUI_CMD_WIN->detail.command_info.start_line,
|
getyx (w, TUI_CMD_WIN->detail.command_info.start_line,
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.curch);
|
}
|
}
|
getyx (w, line, col);
|
getyx (w, line, col);
|
if (col < prev_col)
|
if (col < prev_col)
|
height++;
|
height++;
|
prev_col = col;
|
prev_col = col;
|
}
|
}
|
wclrtobot (w);
|
wclrtobot (w);
|
getyx (w, TUI_CMD_WIN->detail.command_info.start_line,
|
getyx (w, TUI_CMD_WIN->detail.command_info.start_line,
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.curch);
|
if (c_line >= 0)
|
if (c_line >= 0)
|
{
|
{
|
wmove (w, c_line, c_pos);
|
wmove (w, c_line, c_pos);
|
TUI_CMD_WIN->detail.command_info.cur_line = c_line;
|
TUI_CMD_WIN->detail.command_info.cur_line = c_line;
|
TUI_CMD_WIN->detail.command_info.curch = c_pos;
|
TUI_CMD_WIN->detail.command_info.curch = c_pos;
|
}
|
}
|
TUI_CMD_WIN->detail.command_info.start_line -= height - 1;
|
TUI_CMD_WIN->detail.command_info.start_line -= height - 1;
|
|
|
wrefresh (w);
|
wrefresh (w);
|
fflush(stdout);
|
fflush(stdout);
|
}
|
}
|
|
|
/* Readline callback to prepare the terminal. It is called once each
|
/* Readline callback to prepare the terminal. It is called once each
|
time we enter readline. Terminal is already setup in curses
|
time we enter readline. Terminal is already setup in curses
|
mode. */
|
mode. */
|
static void
|
static void
|
tui_prep_terminal (int notused1)
|
tui_prep_terminal (int notused1)
|
{
|
{
|
/* Save the prompt registered in readline to correctly display it.
|
/* Save the prompt registered in readline to correctly display it.
|
(we can't use gdb_prompt() due to secondary prompts and can't use
|
(we can't use gdb_prompt() due to secondary prompts and can't use
|
rl_prompt because it points to an alloca buffer). */
|
rl_prompt because it points to an alloca buffer). */
|
xfree (tui_rl_saved_prompt);
|
xfree (tui_rl_saved_prompt);
|
tui_rl_saved_prompt = xstrdup (rl_prompt);
|
tui_rl_saved_prompt = xstrdup (rl_prompt);
|
}
|
}
|
|
|
/* Readline callback to restore the terminal. It is called once each
|
/* Readline callback to restore the terminal. It is called once each
|
time we leave readline. There is nothing to do in curses mode. */
|
time we leave readline. There is nothing to do in curses mode. */
|
static void
|
static void
|
tui_deprep_terminal (void)
|
tui_deprep_terminal (void)
|
{
|
{
|
}
|
}
|
|
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
/* Read readline output pipe and feed the command window with it.
|
/* Read readline output pipe and feed the command window with it.
|
Should be removed when readline is clean. */
|
Should be removed when readline is clean. */
|
static void
|
static void
|
tui_readline_output (int code, gdb_client_data data)
|
tui_readline_output (int code, gdb_client_data data)
|
{
|
{
|
int size;
|
int size;
|
char buf[256];
|
char buf[256];
|
|
|
size = read (tui_readline_pipe[0], buf, sizeof (buf) - 1);
|
size = read (tui_readline_pipe[0], buf, sizeof (buf) - 1);
|
if (size > 0 && tui_active)
|
if (size > 0 && tui_active)
|
{
|
{
|
buf[size] = 0;
|
buf[size] = 0;
|
tui_puts (buf);
|
tui_puts (buf);
|
}
|
}
|
}
|
}
|
#endif
|
#endif
|
|
|
/* Return the portion of PATHNAME that should be output when listing
|
/* Return the portion of PATHNAME that should be output when listing
|
possible completions. If we are hacking filename completion, we
|
possible completions. If we are hacking filename completion, we
|
are only interested in the basename, the portion following the
|
are only interested in the basename, the portion following the
|
final slash. Otherwise, we return what we were passed.
|
final slash. Otherwise, we return what we were passed.
|
|
|
Comes from readline/complete.c. */
|
Comes from readline/complete.c. */
|
static char *
|
static char *
|
printable_part (char *pathname)
|
printable_part (char *pathname)
|
{
|
{
|
char *temp;
|
char *temp;
|
|
|
temp = rl_filename_completion_desired ? strrchr (pathname, '/') : (char *)NULL;
|
temp = rl_filename_completion_desired ? strrchr (pathname, '/') : (char *)NULL;
|
#if defined (__MSDOS__)
|
#if defined (__MSDOS__)
|
if (rl_filename_completion_desired
|
if (rl_filename_completion_desired
|
&& temp == 0 && isalpha (pathname[0])
|
&& temp == 0 && isalpha (pathname[0])
|
&& pathname[1] == ':')
|
&& pathname[1] == ':')
|
temp = pathname + 1;
|
temp = pathname + 1;
|
#endif
|
#endif
|
return (temp ? ++temp : pathname);
|
return (temp ? ++temp : pathname);
|
}
|
}
|
|
|
/* Output TO_PRINT to rl_outstream. If VISIBLE_STATS is defined and
|
/* Output TO_PRINT to rl_outstream. If VISIBLE_STATS is defined and
|
we are using it, check for and output a single character for
|
we are using it, check for and output a single character for
|
`special' filenames. Return the number of characters we
|
`special' filenames. Return the number of characters we
|
output. */
|
output. */
|
|
|
#define PUTX(c) \
|
#define PUTX(c) \
|
do { \
|
do { \
|
if (CTRL_CHAR (c)) \
|
if (CTRL_CHAR (c)) \
|
{ \
|
{ \
|
tui_puts ("^"); \
|
tui_puts ("^"); \
|
tui_putc (UNCTRL (c)); \
|
tui_putc (UNCTRL (c)); \
|
printed_len += 2; \
|
printed_len += 2; \
|
} \
|
} \
|
else if (c == RUBOUT) \
|
else if (c == RUBOUT) \
|
{ \
|
{ \
|
tui_puts ("^?"); \
|
tui_puts ("^?"); \
|
printed_len += 2; \
|
printed_len += 2; \
|
} \
|
} \
|
else \
|
else \
|
{ \
|
{ \
|
tui_putc (c); \
|
tui_putc (c); \
|
printed_len++; \
|
printed_len++; \
|
} \
|
} \
|
} while (0)
|
} while (0)
|
|
|
static int
|
static int
|
print_filename (char *to_print, char *full_pathname)
|
print_filename (char *to_print, char *full_pathname)
|
{
|
{
|
int printed_len = 0;
|
int printed_len = 0;
|
char *s;
|
char *s;
|
|
|
for (s = to_print; *s; s++)
|
for (s = to_print; *s; s++)
|
{
|
{
|
PUTX (*s);
|
PUTX (*s);
|
}
|
}
|
return printed_len;
|
return printed_len;
|
}
|
}
|
|
|
/* The user must press "y" or "n". Non-zero return means "y" pressed.
|
/* The user must press "y" or "n". Non-zero return means "y" pressed.
|
Comes from readline/complete.c. */
|
Comes from readline/complete.c. */
|
static int
|
static int
|
get_y_or_n (void)
|
get_y_or_n (void)
|
{
|
{
|
extern int _rl_abort_internal ();
|
extern int _rl_abort_internal ();
|
int c;
|
int c;
|
|
|
for (;;)
|
for (;;)
|
{
|
{
|
c = rl_read_key ();
|
c = rl_read_key ();
|
if (c == 'y' || c == 'Y' || c == ' ')
|
if (c == 'y' || c == 'Y' || c == ' ')
|
return (1);
|
return (1);
|
if (c == 'n' || c == 'N' || c == RUBOUT)
|
if (c == 'n' || c == 'N' || c == RUBOUT)
|
return (0);
|
return (0);
|
if (c == ABORT_CHAR)
|
if (c == ABORT_CHAR)
|
_rl_abort_internal ();
|
_rl_abort_internal ();
|
beep ();
|
beep ();
|
}
|
}
|
}
|
}
|
|
|
/* A convenience function for displaying a list of strings in
|
/* A convenience function for displaying a list of strings in
|
columnar format on readline's output stream. MATCHES is the list
|
columnar format on readline's output stream. MATCHES is the list
|
of strings, in argv format, LEN is the number of strings in MATCHES,
|
of strings, in argv format, LEN is the number of strings in MATCHES,
|
and MAX is the length of the longest string in MATCHES.
|
and MAX is the length of the longest string in MATCHES.
|
|
|
Comes from readline/complete.c and modified to write in
|
Comes from readline/complete.c and modified to write in
|
the TUI command window using tui_putc/tui_puts. */
|
the TUI command window using tui_putc/tui_puts. */
|
static void
|
static void
|
tui_rl_display_match_list (char **matches, int len, int max)
|
tui_rl_display_match_list (char **matches, int len, int max)
|
{
|
{
|
typedef int QSFUNC (const void *, const void *);
|
typedef int QSFUNC (const void *, const void *);
|
extern int _rl_qsort_string_compare (const void *,
|
extern int _rl_qsort_string_compare (const void *,
|
const void *);
|
const void *);
|
extern int _rl_print_completions_horizontally;
|
extern int _rl_print_completions_horizontally;
|
|
|
int count, limit, printed_len;
|
int count, limit, printed_len;
|
int i, j, k, l;
|
int i, j, k, l;
|
char *temp;
|
char *temp;
|
|
|
/* Screen dimension correspond to the TUI command window. */
|
/* Screen dimension correspond to the TUI command window. */
|
int screenwidth = TUI_CMD_WIN->generic.width;
|
int screenwidth = TUI_CMD_WIN->generic.width;
|
|
|
/* If there are many items, then ask the user if she really wants to
|
/* If there are many items, then ask the user if she really wants to
|
see them all. */
|
see them all. */
|
if (len >= rl_completion_query_items)
|
if (len >= rl_completion_query_items)
|
{
|
{
|
char msg[256];
|
char msg[256];
|
|
|
sprintf (msg, "\nDisplay all %d possibilities? (y or n)", len);
|
sprintf (msg, "\nDisplay all %d possibilities? (y or n)", len);
|
tui_puts (msg);
|
tui_puts (msg);
|
if (get_y_or_n () == 0)
|
if (get_y_or_n () == 0)
|
{
|
{
|
tui_puts ("\n");
|
tui_puts ("\n");
|
return;
|
return;
|
}
|
}
|
}
|
}
|
|
|
/* How many items of MAX length can we fit in the screen window? */
|
/* How many items of MAX length can we fit in the screen window? */
|
max += 2;
|
max += 2;
|
limit = screenwidth / max;
|
limit = screenwidth / max;
|
if (limit != 1 && (limit * max == screenwidth))
|
if (limit != 1 && (limit * max == screenwidth))
|
limit--;
|
limit--;
|
|
|
/* Avoid a possible floating exception. If max > screenwidth, limit
|
/* Avoid a possible floating exception. If max > screenwidth, limit
|
will be 0 and a divide-by-zero fault will result. */
|
will be 0 and a divide-by-zero fault will result. */
|
if (limit == 0)
|
if (limit == 0)
|
limit = 1;
|
limit = 1;
|
|
|
/* How many iterations of the printing loop? */
|
/* How many iterations of the printing loop? */
|
count = (len + (limit - 1)) / limit;
|
count = (len + (limit - 1)) / limit;
|
|
|
/* Watch out for special case. If LEN is less than LIMIT, then
|
/* Watch out for special case. If LEN is less than LIMIT, then
|
just do the inner printing loop.
|
just do the inner printing loop.
|
0 < len <= limit implies count = 1. */
|
0 < len <= limit implies count = 1. */
|
|
|
/* Sort the items if they are not already sorted. */
|
/* Sort the items if they are not already sorted. */
|
if (rl_ignore_completion_duplicates == 0)
|
if (rl_ignore_completion_duplicates == 0)
|
qsort (matches + 1, len, sizeof (char *),
|
qsort (matches + 1, len, sizeof (char *),
|
(QSFUNC *)_rl_qsort_string_compare);
|
(QSFUNC *)_rl_qsort_string_compare);
|
|
|
tui_putc ('\n');
|
tui_putc ('\n');
|
|
|
if (_rl_print_completions_horizontally == 0)
|
if (_rl_print_completions_horizontally == 0)
|
{
|
{
|
/* Print the sorted items, up-and-down alphabetically, like ls. */
|
/* Print the sorted items, up-and-down alphabetically, like ls. */
|
for (i = 1; i <= count; i++)
|
for (i = 1; i <= count; i++)
|
{
|
{
|
for (j = 0, l = i; j < limit; j++)
|
for (j = 0, l = i; j < limit; j++)
|
{
|
{
|
if (l > len || matches[l] == 0)
|
if (l > len || matches[l] == 0)
|
break;
|
break;
|
else
|
else
|
{
|
{
|
temp = printable_part (matches[l]);
|
temp = printable_part (matches[l]);
|
printed_len = print_filename (temp, matches[l]);
|
printed_len = print_filename (temp, matches[l]);
|
|
|
if (j + 1 < limit)
|
if (j + 1 < limit)
|
for (k = 0; k < max - printed_len; k++)
|
for (k = 0; k < max - printed_len; k++)
|
tui_putc (' ');
|
tui_putc (' ');
|
}
|
}
|
l += count;
|
l += count;
|
}
|
}
|
tui_putc ('\n');
|
tui_putc ('\n');
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Print the sorted items, across alphabetically, like ls -x. */
|
/* Print the sorted items, across alphabetically, like ls -x. */
|
for (i = 1; matches[i]; i++)
|
for (i = 1; matches[i]; i++)
|
{
|
{
|
temp = printable_part (matches[i]);
|
temp = printable_part (matches[i]);
|
printed_len = print_filename (temp, matches[i]);
|
printed_len = print_filename (temp, matches[i]);
|
/* Have we reached the end of this line? */
|
/* Have we reached the end of this line? */
|
if (matches[i+1])
|
if (matches[i+1])
|
{
|
{
|
if (i && (limit > 1) && (i % limit) == 0)
|
if (i && (limit > 1) && (i % limit) == 0)
|
tui_putc ('\n');
|
tui_putc ('\n');
|
else
|
else
|
for (k = 0; k < max - printed_len; k++)
|
for (k = 0; k < max - printed_len; k++)
|
tui_putc (' ');
|
tui_putc (' ');
|
}
|
}
|
}
|
}
|
tui_putc ('\n');
|
tui_putc ('\n');
|
}
|
}
|
}
|
}
|
|
|
/* Setup the IO for curses or non-curses mode.
|
/* Setup the IO for curses or non-curses mode.
|
- In non-curses mode, readline and gdb use the standard input and
|
- In non-curses mode, readline and gdb use the standard input and
|
standard output/error directly.
|
standard output/error directly.
|
- In curses mode, the standard output/error is controlled by TUI
|
- In curses mode, the standard output/error is controlled by TUI
|
with the tui_stdout and tui_stderr. The output is redirected in
|
with the tui_stdout and tui_stderr. The output is redirected in
|
the curses command window. Several readline callbacks are installed
|
the curses command window. Several readline callbacks are installed
|
so that readline asks for its input to the curses command window
|
so that readline asks for its input to the curses command window
|
with wgetch(). */
|
with wgetch(). */
|
void
|
void
|
tui_setup_io (int mode)
|
tui_setup_io (int mode)
|
{
|
{
|
extern int readline_echoing_p;
|
extern int readline_echoing_p;
|
|
|
if (mode)
|
if (mode)
|
{
|
{
|
/* Redirect readline to TUI. */
|
/* Redirect readline to TUI. */
|
tui_old_rl_redisplay_function = rl_redisplay_function;
|
tui_old_rl_redisplay_function = rl_redisplay_function;
|
tui_old_rl_deprep_terminal = rl_deprep_term_function;
|
tui_old_rl_deprep_terminal = rl_deprep_term_function;
|
tui_old_rl_prep_terminal = rl_prep_term_function;
|
tui_old_rl_prep_terminal = rl_prep_term_function;
|
tui_old_rl_getc_function = rl_getc_function;
|
tui_old_rl_getc_function = rl_getc_function;
|
tui_old_rl_outstream = rl_outstream;
|
tui_old_rl_outstream = rl_outstream;
|
tui_old_readline_echoing_p = readline_echoing_p;
|
tui_old_readline_echoing_p = readline_echoing_p;
|
rl_redisplay_function = tui_redisplay_readline;
|
rl_redisplay_function = tui_redisplay_readline;
|
rl_deprep_term_function = tui_deprep_terminal;
|
rl_deprep_term_function = tui_deprep_terminal;
|
rl_prep_term_function = tui_prep_terminal;
|
rl_prep_term_function = tui_prep_terminal;
|
rl_getc_function = tui_getc;
|
rl_getc_function = tui_getc;
|
readline_echoing_p = 0;
|
readline_echoing_p = 0;
|
rl_outstream = tui_rl_outstream;
|
rl_outstream = tui_rl_outstream;
|
rl_prompt = 0;
|
rl_prompt = 0;
|
rl_completion_display_matches_hook = tui_rl_display_match_list;
|
rl_completion_display_matches_hook = tui_rl_display_match_list;
|
rl_already_prompted = 0;
|
rl_already_prompted = 0;
|
|
|
/* Keep track of previous gdb output. */
|
/* Keep track of previous gdb output. */
|
tui_old_stdout = gdb_stdout;
|
tui_old_stdout = gdb_stdout;
|
tui_old_stderr = gdb_stderr;
|
tui_old_stderr = gdb_stderr;
|
tui_old_uiout = uiout;
|
tui_old_uiout = uiout;
|
|
|
/* Reconfigure gdb output. */
|
/* Reconfigure gdb output. */
|
gdb_stdout = tui_stdout;
|
gdb_stdout = tui_stdout;
|
gdb_stderr = tui_stderr;
|
gdb_stderr = tui_stderr;
|
gdb_stdlog = gdb_stdout; /* for moment */
|
gdb_stdlog = gdb_stdout; /* for moment */
|
gdb_stdtarg = gdb_stderr; /* for moment */
|
gdb_stdtarg = gdb_stderr; /* for moment */
|
uiout = tui_out;
|
uiout = tui_out;
|
|
|
/* Save tty for SIGCONT. */
|
/* Save tty for SIGCONT. */
|
savetty ();
|
savetty ();
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Restore gdb output. */
|
/* Restore gdb output. */
|
gdb_stdout = tui_old_stdout;
|
gdb_stdout = tui_old_stdout;
|
gdb_stderr = tui_old_stderr;
|
gdb_stderr = tui_old_stderr;
|
gdb_stdlog = gdb_stdout; /* for moment */
|
gdb_stdlog = gdb_stdout; /* for moment */
|
gdb_stdtarg = gdb_stderr; /* for moment */
|
gdb_stdtarg = gdb_stderr; /* for moment */
|
uiout = tui_old_uiout;
|
uiout = tui_old_uiout;
|
|
|
/* Restore readline. */
|
/* Restore readline. */
|
rl_redisplay_function = tui_old_rl_redisplay_function;
|
rl_redisplay_function = tui_old_rl_redisplay_function;
|
rl_deprep_term_function = tui_old_rl_deprep_terminal;
|
rl_deprep_term_function = tui_old_rl_deprep_terminal;
|
rl_prep_term_function = tui_old_rl_prep_terminal;
|
rl_prep_term_function = tui_old_rl_prep_terminal;
|
rl_getc_function = tui_old_rl_getc_function;
|
rl_getc_function = tui_old_rl_getc_function;
|
rl_outstream = tui_old_rl_outstream;
|
rl_outstream = tui_old_rl_outstream;
|
rl_completion_display_matches_hook = 0;
|
rl_completion_display_matches_hook = 0;
|
readline_echoing_p = tui_old_readline_echoing_p;
|
readline_echoing_p = tui_old_readline_echoing_p;
|
rl_already_prompted = 0;
|
rl_already_prompted = 0;
|
|
|
/* Save tty for SIGCONT. */
|
/* Save tty for SIGCONT. */
|
savetty ();
|
savetty ();
|
}
|
}
|
}
|
}
|
|
|
#ifdef SIGCONT
|
#ifdef SIGCONT
|
/* Catch SIGCONT to restore the terminal and refresh the screen. */
|
/* Catch SIGCONT to restore the terminal and refresh the screen. */
|
static void
|
static void
|
tui_cont_sig (int sig)
|
tui_cont_sig (int sig)
|
{
|
{
|
if (tui_active)
|
if (tui_active)
|
{
|
{
|
/* Restore the terminal setting because another process (shell)
|
/* Restore the terminal setting because another process (shell)
|
might have changed it. */
|
might have changed it. */
|
resetty ();
|
resetty ();
|
|
|
/* Force a refresh of the screen. */
|
/* Force a refresh of the screen. */
|
tui_refresh_all_win ();
|
tui_refresh_all_win ();
|
|
|
/* Update cursor position on the screen. */
|
/* Update cursor position on the screen. */
|
wmove (TUI_CMD_WIN->generic.handle,
|
wmove (TUI_CMD_WIN->generic.handle,
|
TUI_CMD_WIN->detail.command_info.start_line,
|
TUI_CMD_WIN->detail.command_info.start_line,
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.curch);
|
wrefresh (TUI_CMD_WIN->generic.handle);
|
wrefresh (TUI_CMD_WIN->generic.handle);
|
}
|
}
|
signal (sig, tui_cont_sig);
|
signal (sig, tui_cont_sig);
|
}
|
}
|
#endif
|
#endif
|
|
|
/* Initialize the IO for gdb in curses mode. */
|
/* Initialize the IO for gdb in curses mode. */
|
void
|
void
|
tui_initialize_io (void)
|
tui_initialize_io (void)
|
{
|
{
|
#ifdef SIGCONT
|
#ifdef SIGCONT
|
signal (SIGCONT, tui_cont_sig);
|
signal (SIGCONT, tui_cont_sig);
|
#endif
|
#endif
|
|
|
/* Create tui output streams. */
|
/* Create tui output streams. */
|
tui_stdout = tui_fileopen (stdout);
|
tui_stdout = tui_fileopen (stdout);
|
tui_stderr = tui_fileopen (stderr);
|
tui_stderr = tui_fileopen (stderr);
|
tui_out = tui_out_new (tui_stdout);
|
tui_out = tui_out_new (tui_stdout);
|
|
|
/* Create the default UI. It is not created because we installed a
|
/* Create the default UI. It is not created because we installed a
|
deprecated_init_ui_hook. */
|
deprecated_init_ui_hook. */
|
tui_old_uiout = uiout = cli_out_new (gdb_stdout);
|
tui_old_uiout = uiout = cli_out_new (gdb_stdout);
|
|
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
/* Temporary solution for readline writing to stdout: redirect
|
/* Temporary solution for readline writing to stdout: redirect
|
readline output in a pipe, read that pipe and output the content
|
readline output in a pipe, read that pipe and output the content
|
in the curses command window. */
|
in the curses command window. */
|
if (pipe (tui_readline_pipe) != 0)
|
if (pipe (tui_readline_pipe) != 0)
|
{
|
{
|
fprintf_unfiltered (gdb_stderr, "Cannot create pipe for readline");
|
fprintf_unfiltered (gdb_stderr, "Cannot create pipe for readline");
|
exit (1);
|
exit (1);
|
}
|
}
|
tui_rl_outstream = fdopen (tui_readline_pipe[1], "w");
|
tui_rl_outstream = fdopen (tui_readline_pipe[1], "w");
|
if (tui_rl_outstream == 0)
|
if (tui_rl_outstream == 0)
|
{
|
{
|
fprintf_unfiltered (gdb_stderr, "Cannot redirect readline output");
|
fprintf_unfiltered (gdb_stderr, "Cannot redirect readline output");
|
exit (1);
|
exit (1);
|
}
|
}
|
setvbuf (tui_rl_outstream, (char*) NULL, _IOLBF, 0);
|
setvbuf (tui_rl_outstream, (char*) NULL, _IOLBF, 0);
|
|
|
#ifdef O_NONBLOCK
|
#ifdef O_NONBLOCK
|
(void) fcntl (tui_readline_pipe[0], F_SETFL, O_NONBLOCK);
|
(void) fcntl (tui_readline_pipe[0], F_SETFL, O_NONBLOCK);
|
#else
|
#else
|
#ifdef O_NDELAY
|
#ifdef O_NDELAY
|
(void) fcntl (tui_readline_pipe[0], F_SETFL, O_NDELAY);
|
(void) fcntl (tui_readline_pipe[0], F_SETFL, O_NDELAY);
|
#endif
|
#endif
|
#endif
|
#endif
|
add_file_handler (tui_readline_pipe[0], tui_readline_output, 0);
|
add_file_handler (tui_readline_pipe[0], tui_readline_output, 0);
|
#else
|
#else
|
tui_rl_outstream = stdout;
|
tui_rl_outstream = stdout;
|
#endif
|
#endif
|
}
|
}
|
|
|
/* Get a character from the command window. This is called from the
|
/* Get a character from the command window. This is called from the
|
readline package. */
|
readline package. */
|
int
|
int
|
tui_getc (FILE *fp)
|
tui_getc (FILE *fp)
|
{
|
{
|
int ch;
|
int ch;
|
WINDOW *w;
|
WINDOW *w;
|
|
|
w = TUI_CMD_WIN->generic.handle;
|
w = TUI_CMD_WIN->generic.handle;
|
|
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
#ifdef TUI_USE_PIPE_FOR_READLINE
|
/* Flush readline output. */
|
/* Flush readline output. */
|
tui_readline_output (GDB_READABLE, 0);
|
tui_readline_output (GDB_READABLE, 0);
|
#endif
|
#endif
|
|
|
ch = wgetch (w);
|
ch = wgetch (w);
|
ch = tui_handle_resize_during_io (ch);
|
ch = tui_handle_resize_during_io (ch);
|
|
|
/* The \n must be echoed because it will not be printed by
|
/* The \n must be echoed because it will not be printed by
|
readline. */
|
readline. */
|
if (ch == '\n')
|
if (ch == '\n')
|
{
|
{
|
/* When hitting return with an empty input, gdb executes the last
|
/* When hitting return with an empty input, gdb executes the last
|
command. If we emit a newline, this fills up the command window
|
command. If we emit a newline, this fills up the command window
|
with empty lines with gdb prompt at beginning. Instead of that,
|
with empty lines with gdb prompt at beginning. Instead of that,
|
stay on the same line but provide a visual effect to show the
|
stay on the same line but provide a visual effect to show the
|
user we recognized the command. */
|
user we recognized the command. */
|
if (rl_end == 0)
|
if (rl_end == 0)
|
{
|
{
|
wmove (w, TUI_CMD_WIN->detail.command_info.cur_line, 0);
|
wmove (w, TUI_CMD_WIN->detail.command_info.cur_line, 0);
|
|
|
/* Clear the line. This will blink the gdb prompt since
|
/* Clear the line. This will blink the gdb prompt since
|
it will be redrawn at the same line. */
|
it will be redrawn at the same line. */
|
wclrtoeol (w);
|
wclrtoeol (w);
|
wrefresh (w);
|
wrefresh (w);
|
napms (20);
|
napms (20);
|
}
|
}
|
else
|
else
|
{
|
{
|
wmove (w, TUI_CMD_WIN->detail.command_info.cur_line,
|
wmove (w, TUI_CMD_WIN->detail.command_info.cur_line,
|
TUI_CMD_WIN->detail.command_info.curch);
|
TUI_CMD_WIN->detail.command_info.curch);
|
waddch (w, ch);
|
waddch (w, ch);
|
}
|
}
|
}
|
}
|
|
|
if (key_is_command_char (ch))
|
if (key_is_command_char (ch))
|
{ /* Handle prev/next/up/down here. */
|
{ /* Handle prev/next/up/down here. */
|
ch = tui_dispatch_ctrl_char (ch);
|
ch = tui_dispatch_ctrl_char (ch);
|
}
|
}
|
|
|
if (ch == '\n' || ch == '\r' || ch == '\f')
|
if (ch == '\n' || ch == '\r' || ch == '\f')
|
TUI_CMD_WIN->detail.command_info.curch = 0;
|
TUI_CMD_WIN->detail.command_info.curch = 0;
|
if (ch == KEY_BACKSPACE)
|
if (ch == KEY_BACKSPACE)
|
return '\b';
|
return '\b';
|
|
|
return ch;
|
return ch;
|
}
|
}
|
|
|
|
|
/* Cleanup when a resize has occured.
|
/* Cleanup when a resize has occured.
|
Returns the character that must be processed. */
|
Returns the character that must be processed. */
|
static unsigned int
|
static unsigned int
|
tui_handle_resize_during_io (unsigned int original_ch)
|
tui_handle_resize_during_io (unsigned int original_ch)
|
{
|
{
|
if (tui_win_resized ())
|
if (tui_win_resized ())
|
{
|
{
|
tui_refresh_all_win ();
|
tui_refresh_all_win ();
|
dont_repeat ();
|
dont_repeat ();
|
tui_set_win_resized_to (FALSE);
|
tui_set_win_resized_to (FALSE);
|
return '\n';
|
return '\n';
|
}
|
}
|
else
|
else
|
return original_ch;
|
return original_ch;
|
}
|
}
|
|
|
