mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-16 00:27:30 +00:00
429 lines
12 KiB
C
429 lines
12 KiB
C
/* TUI display locator.
|
||
|
||
Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007
|
||
Free Software Foundation, Inc.
|
||
|
||
Contributed by Hewlett-Packard Company.
|
||
|
||
This file is part of GDB.
|
||
|
||
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
|
||
the Free Software Foundation; either version 2 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
Boston, MA 02110-1301, USA. */
|
||
|
||
#include "defs.h"
|
||
#include "symtab.h"
|
||
#include "breakpoint.h"
|
||
#include "frame.h"
|
||
#include "command.h"
|
||
#include "inferior.h"
|
||
#include "target.h"
|
||
#include "top.h"
|
||
#include "gdb_string.h"
|
||
#include "tui/tui.h"
|
||
#include "tui/tui-data.h"
|
||
#include "tui/tui-stack.h"
|
||
#include "tui/tui-wingeneral.h"
|
||
#include "tui/tui-source.h"
|
||
#include "tui/tui-winsource.h"
|
||
#include "tui/tui-file.h"
|
||
|
||
#include "gdb_curses.h"
|
||
|
||
/* Get a printable name for the function at the address.
|
||
The symbol name is demangled if demangling is turned on.
|
||
Returns a pointer to a static area holding the result. */
|
||
static char* tui_get_function_from_frame (struct frame_info *fi);
|
||
|
||
/* Set the filename portion of the locator. */
|
||
static void tui_set_locator_filename (const char *filename);
|
||
|
||
/* Update the locator, with the provided arguments. */
|
||
static void tui_set_locator_info (const char *filename, const char *procname,
|
||
int lineno, CORE_ADDR addr);
|
||
|
||
static void tui_update_command (char *, int);
|
||
|
||
|
||
/* Create the status line to display as much information as we
|
||
can on this single line: target name, process number, current
|
||
function, current line, current PC, SingleKey mode. */
|
||
static char*
|
||
tui_make_status_line (struct tui_locator_element* loc)
|
||
{
|
||
char* string;
|
||
char line_buf[50], *pname;
|
||
char* buf;
|
||
int status_size;
|
||
int i, proc_width;
|
||
const char* pid_name;
|
||
const char* pc_buf;
|
||
int target_width;
|
||
int pid_width;
|
||
int line_width;
|
||
int pc_width;
|
||
struct ui_file *pc_out;
|
||
|
||
if (ptid_equal (inferior_ptid, null_ptid))
|
||
pid_name = "No process";
|
||
else
|
||
pid_name = target_pid_to_str (inferior_ptid);
|
||
|
||
target_width = strlen (target_shortname);
|
||
if (target_width > MAX_TARGET_WIDTH)
|
||
target_width = MAX_TARGET_WIDTH;
|
||
|
||
pid_width = strlen (pid_name);
|
||
if (pid_width > MAX_PID_WIDTH)
|
||
pid_width = MAX_PID_WIDTH;
|
||
|
||
status_size = tui_term_width ();
|
||
string = (char *) xmalloc (status_size + 1);
|
||
buf = (char*) alloca (status_size + 1);
|
||
|
||
/* Translate line number and obtain its size. */
|
||
if (loc->line_no > 0)
|
||
sprintf (line_buf, "%d", loc->line_no);
|
||
else
|
||
strcpy (line_buf, "??");
|
||
line_width = strlen (line_buf);
|
||
if (line_width < MIN_LINE_WIDTH)
|
||
line_width = MIN_LINE_WIDTH;
|
||
|
||
/* Translate PC address. */
|
||
pc_out = tui_sfileopen (128);
|
||
deprecated_print_address_numeric (loc->addr, 1, pc_out);
|
||
pc_buf = tui_file_get_strbuf (pc_out);
|
||
pc_width = strlen (pc_buf);
|
||
|
||
/* First determine the amount of proc name width we have available.
|
||
The +1 are for a space separator between fields.
|
||
The -1 are to take into account the \0 counted by sizeof. */
|
||
proc_width = (status_size
|
||
- (target_width + 1)
|
||
- (pid_width + 1)
|
||
- (sizeof (PROC_PREFIX) - 1 + 1)
|
||
- (sizeof (LINE_PREFIX) - 1 + line_width + 1)
|
||
- (sizeof (PC_PREFIX) - 1 + pc_width + 1)
|
||
- (tui_current_key_mode == TUI_SINGLE_KEY_MODE
|
||
? (sizeof (SINGLE_KEY) - 1 + 1)
|
||
: 0));
|
||
|
||
/* If there is no room to print the function name, try by removing
|
||
some fields. */
|
||
if (proc_width < MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += target_width + 1;
|
||
target_width = 0;
|
||
if (proc_width < MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += pid_width + 1;
|
||
pid_width = 0;
|
||
if (proc_width <= MIN_PROC_WIDTH)
|
||
{
|
||
proc_width += pc_width + sizeof (PC_PREFIX) - 1 + 1;
|
||
pc_width = 0;
|
||
if (proc_width < 0)
|
||
{
|
||
proc_width += line_width + sizeof (LINE_PREFIX) - 1 + 1;
|
||
line_width = 0;
|
||
if (proc_width < 0)
|
||
proc_width = 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Now convert elements to string form */
|
||
pname = loc->proc_name;
|
||
|
||
/* Now create the locator line from the string version
|
||
of the elements. We could use sprintf() here but
|
||
that wouldn't ensure that we don't overrun the size
|
||
of the allocated buffer. strcat_to_buf() will. */
|
||
*string = (char) 0;
|
||
|
||
if (target_width > 0)
|
||
{
|
||
sprintf (buf, "%*.*s ",
|
||
-target_width, target_width, target_shortname);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
if (pid_width > 0)
|
||
{
|
||
sprintf (buf, "%*.*s ",
|
||
-pid_width, pid_width, pid_name);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
|
||
/* Show whether we are in SingleKey mode. */
|
||
if (tui_current_key_mode == TUI_SINGLE_KEY_MODE)
|
||
{
|
||
strcat_to_buf (string, status_size, SINGLE_KEY);
|
||
strcat_to_buf (string, status_size, " ");
|
||
}
|
||
|
||
/* procedure/class name */
|
||
if (proc_width > 0)
|
||
{
|
||
if (strlen (pname) > proc_width)
|
||
sprintf (buf, "%s%*.*s* ", PROC_PREFIX,
|
||
1 - proc_width, proc_width - 1, pname);
|
||
else
|
||
sprintf (buf, "%s%*.*s ", PROC_PREFIX,
|
||
-proc_width, proc_width, pname);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
|
||
if (line_width > 0)
|
||
{
|
||
sprintf (buf, "%s%*.*s ", LINE_PREFIX,
|
||
-line_width, line_width, line_buf);
|
||
strcat_to_buf (string, status_size, buf);
|
||
}
|
||
if (pc_width > 0)
|
||
{
|
||
strcat_to_buf (string, status_size, PC_PREFIX);
|
||
strcat_to_buf (string, status_size, pc_buf);
|
||
}
|
||
|
||
|
||
for (i = strlen (string); i < status_size; i++)
|
||
string[i] = ' ';
|
||
string[status_size] = (char) 0;
|
||
|
||
ui_file_delete (pc_out);
|
||
return string;
|
||
}
|
||
|
||
/* Get a printable name for the function at the address.
|
||
The symbol name is demangled if demangling is turned on.
|
||
Returns a pointer to a static area holding the result. */
|
||
static char*
|
||
tui_get_function_from_frame (struct frame_info *fi)
|
||
{
|
||
static char name[256];
|
||
struct ui_file *stream = tui_sfileopen (256);
|
||
char *p;
|
||
|
||
print_address_symbolic (get_frame_pc (fi), stream, demangle, "");
|
||
p = tui_file_get_strbuf (stream);
|
||
|
||
/* Use simple heuristics to isolate the function name. The symbol can
|
||
be demangled and we can have function parameters. Remove them because
|
||
the status line is too short to display them. */
|
||
if (*p == '<')
|
||
p++;
|
||
strncpy (name, p, sizeof (name));
|
||
p = strchr (name, '(');
|
||
if (!p)
|
||
p = strchr (name, '>');
|
||
if (p)
|
||
*p = 0;
|
||
p = strchr (name, '+');
|
||
if (p)
|
||
*p = 0;
|
||
ui_file_delete (stream);
|
||
return name;
|
||
}
|
||
|
||
void
|
||
tui_show_locator_content (void)
|
||
{
|
||
char *string;
|
||
struct tui_gen_win_info * locator;
|
||
|
||
locator = tui_locator_win_info_ptr ();
|
||
|
||
if (locator != NULL && locator->handle != (WINDOW *) NULL)
|
||
{
|
||
struct tui_win_element * element;
|
||
|
||
element = (struct tui_win_element *) locator->content[0];
|
||
|
||
string = tui_make_status_line (&element->which_element.locator);
|
||
wmove (locator->handle, 0, 0);
|
||
wstandout (locator->handle);
|
||
waddstr (locator->handle, string);
|
||
wclrtoeol (locator->handle);
|
||
wstandend (locator->handle);
|
||
tui_refresh_win (locator);
|
||
wmove (locator->handle, 0, 0);
|
||
xfree (string);
|
||
locator->content_in_use = TRUE;
|
||
}
|
||
}
|
||
|
||
|
||
/* Set the filename portion of the locator. */
|
||
static void
|
||
tui_set_locator_filename (const char *filename)
|
||
{
|
||
struct tui_gen_win_info * locator = tui_locator_win_info_ptr ();
|
||
struct tui_locator_element * element;
|
||
|
||
if (locator->content[0] == NULL)
|
||
{
|
||
tui_set_locator_info (filename, NULL, 0, 0);
|
||
return;
|
||
}
|
||
|
||
element = &((struct tui_win_element *) locator->content[0])->which_element.locator;
|
||
element->file_name[0] = 0;
|
||
strcat_to_buf (element->file_name, MAX_LOCATOR_ELEMENT_LEN, filename);
|
||
}
|
||
|
||
/* Update the locator, with the provided arguments. */
|
||
static void
|
||
tui_set_locator_info (const char *filename, const char *procname, int lineno,
|
||
CORE_ADDR addr)
|
||
{
|
||
struct tui_gen_win_info * locator = tui_locator_win_info_ptr ();
|
||
struct tui_locator_element * element;
|
||
|
||
/* Allocate the locator content if necessary. */
|
||
if (locator->content_size <= 0)
|
||
{
|
||
locator->content = (void **) tui_alloc_content (1, locator->type);
|
||
locator->content_size = 1;
|
||
}
|
||
|
||
element = &((struct tui_win_element *) locator->content[0])->which_element.locator;
|
||
element->proc_name[0] = (char) 0;
|
||
strcat_to_buf (element->proc_name, MAX_LOCATOR_ELEMENT_LEN, procname);
|
||
element->line_no = lineno;
|
||
element->addr = addr;
|
||
tui_set_locator_filename (filename);
|
||
}
|
||
|
||
/* Update only the filename portion of the locator. */
|
||
void
|
||
tui_update_locator_filename (const char *filename)
|
||
{
|
||
tui_set_locator_filename (filename);
|
||
tui_show_locator_content ();
|
||
}
|
||
|
||
/* Function to print the frame information for the TUI. */
|
||
void
|
||
tui_show_frame_info (struct frame_info *fi)
|
||
{
|
||
struct tui_win_info * win_info;
|
||
int i;
|
||
|
||
if (fi)
|
||
{
|
||
int start_line, i;
|
||
CORE_ADDR low;
|
||
struct tui_gen_win_info * locator = tui_locator_win_info_ptr ();
|
||
int source_already_displayed;
|
||
struct symtab_and_line sal;
|
||
|
||
find_frame_sal (fi, &sal);
|
||
|
||
source_already_displayed = sal.symtab != 0
|
||
&& tui_source_is_displayed (sal.symtab->filename);
|
||
tui_set_locator_info (sal.symtab == 0 ? "??" : sal.symtab->filename,
|
||
tui_get_function_from_frame (fi),
|
||
sal.line,
|
||
get_frame_pc (fi));
|
||
tui_show_locator_content ();
|
||
start_line = 0;
|
||
for (i = 0; i < (tui_source_windows ())->count; i++)
|
||
{
|
||
union tui_which_element *item;
|
||
win_info = (tui_source_windows ())->list[i];
|
||
|
||
item = &((struct tui_win_element *) locator->content[0])->which_element;
|
||
if (win_info == TUI_SRC_WIN)
|
||
{
|
||
start_line = (item->locator.line_no -
|
||
(win_info->generic.viewport_height / 2)) + 1;
|
||
if (start_line <= 0)
|
||
start_line = 1;
|
||
}
|
||
else
|
||
{
|
||
if (find_pc_partial_function (get_frame_pc (fi), (char **) NULL,
|
||
&low, (CORE_ADDR) 0) == 0)
|
||
error (_("No function contains program counter for selected frame."));
|
||
else
|
||
low = tui_get_low_disassembly_address (low, get_frame_pc (fi));
|
||
}
|
||
|
||
if (win_info == TUI_SRC_WIN)
|
||
{
|
||
struct tui_line_or_address l;
|
||
l.loa = LOA_LINE;
|
||
l.u.line_no = start_line;
|
||
if (!(source_already_displayed
|
||
&& tui_line_is_displayed (item->locator.line_no, win_info, TRUE)))
|
||
tui_update_source_window (win_info, sal.symtab, l, TRUE);
|
||
else
|
||
{
|
||
l.u.line_no = item->locator.line_no;
|
||
tui_set_is_exec_point_at (l, win_info);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (win_info == TUI_DISASM_WIN)
|
||
{
|
||
struct tui_line_or_address a;
|
||
a.loa = LOA_ADDRESS;
|
||
a.u.addr = low;
|
||
if (!tui_addr_is_displayed (item->locator.addr, win_info, TRUE))
|
||
tui_update_source_window (win_info, sal.symtab, a, TRUE);
|
||
else
|
||
{
|
||
a.u.addr = item->locator.addr;
|
||
tui_set_is_exec_point_at (a, win_info);
|
||
}
|
||
}
|
||
}
|
||
tui_update_exec_info (win_info);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
tui_set_locator_info (NULL, NULL, 0, (CORE_ADDR) 0);
|
||
tui_show_locator_content ();
|
||
for (i = 0; i < (tui_source_windows ())->count; i++)
|
||
{
|
||
win_info = (tui_source_windows ())->list[i];
|
||
tui_clear_source_content (win_info, EMPTY_SOURCE_PROMPT);
|
||
tui_update_exec_info (win_info);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Function to initialize gdb commands, for tui window stack
|
||
manipulation. */
|
||
void
|
||
_initialize_tui_stack (void)
|
||
{
|
||
add_com ("update", class_tui, tui_update_command, _("\
|
||
Update the source window and locator to display the current execution point.\n"));
|
||
}
|
||
|
||
/* Command to update the display with the current execution point. */
|
||
static void
|
||
tui_update_command (char *arg, int from_tty)
|
||
{
|
||
char cmd[sizeof("frame 0")];
|
||
|
||
strcpy (cmd, "frame 0");
|
||
execute_command (cmd, from_tty);
|
||
}
|