/* Manages interpreters for GDB, the GNU debugger.
- Copyright (C) 2000-2016 Free Software Foundation, Inc.
+ Copyright (C) 2000-2017 Free Software Foundation, Inc.
Written by Jim Ingham <jingham@apple.com> of Apple Computer, Inc.
return get_interp_info (current_ui);
}
-struct interp
-{
- /* This is the name in "-i=" and set interpreter. */
- const char *name;
-
- /* Interpreters are stored in a linked list, this is the next
- one... */
- struct interp *next;
-
- /* This is a cookie that an instance of the interpreter can use.
- This is a bit confused right now as the exact initialization
- sequence for it, and how it relates to the interpreter's uiout
- object is a bit confused. */
- void *data;
-
- /* Has the init_proc been run? */
- int inited;
-
- const struct interp_procs *procs;
- int quiet_p;
-};
-
/* The magic initialization routine for this module. */
void _initialize_interpreter (void);
static struct interp *interp_lookup_existing (struct ui *ui,
const char *name);
-/* interp_new - This allocates space for a new interpreter,
- fills the fields from the inputs, and returns a pointer to the
- interpreter. */
-struct interp *
-interp_new (const char *name, const struct interp_procs *procs, void *data)
+interp::interp (const char *name)
{
- struct interp *new_interp;
-
- new_interp = XNEW (struct interp);
-
- new_interp->name = xstrdup (name);
- new_interp->data = data;
- new_interp->quiet_p = 0;
- new_interp->procs = procs;
- new_interp->inited = 0;
-
- /* Check for required procs. */
- gdb_assert (procs->command_loop_proc != NULL);
-
- return new_interp;
+ this->name = xstrdup (name);
+ this->inited = false;
}
+interp::~interp ()
+{}
+
/* An interpreter factory. Maps an interpreter name to the factory
function that instantiates an interpreter by that name. */
}
/* This sets the current interpreter to be INTERP. If INTERP has not
- been initialized, then this will also run the init proc. If the
- init proc is successful, return 1, if it fails, set the old
- interpreter back in place and return 0. If we can't restore the
- old interpreter, then raise an internal error, since we are in
- pretty bad shape at this point.
+ been initialized, then this will also run the init method.
The TOP_LEVEL parameter tells if this new interpreter is
the top-level one. The top-level is what is requested
MI is the top-level interpreter, then it will always report
events such as target stops and new thread creation, even if they
are caused by CLI commands. */
-int
-interp_set (struct interp *interp, int top_level)
+
+static void
+interp_set (struct interp *interp, bool top_level)
{
struct ui_interp_info *ui_interp = get_current_interp_info ();
struct interp *old_interp = ui_interp->current_interpreter;
- int first_time = 0;
- char buffer[64];
/* If we already have an interpreter, then trying to
set top level interpreter is kinda pointless. */
if (old_interp != NULL)
{
- ui_out_flush (current_uiout);
- if (old_interp->procs->suspend_proc
- && !old_interp->procs->suspend_proc (old_interp->data))
- {
- error (_("Could not suspend interpreter \"%s\"."),
- old_interp->name);
- }
- }
- else
- {
- first_time = 1;
+ current_uiout->flush ();
+ old_interp->suspend ();
}
ui_interp->current_interpreter = interp;
interpreter_p = xstrdup (interp->name);
}
- /* Run the init proc. If it fails, try to restore the old interp. */
-
+ /* Run the init proc. */
if (!interp->inited)
{
- if (interp->procs->init_proc != NULL)
- {
- interp->data = interp->procs->init_proc (interp, top_level);
- }
- interp->inited = 1;
+ interp->init (top_level);
+ interp->inited = true;
}
/* Do this only after the interpreter is initialized. */
- current_uiout = interp->procs->ui_out_proc (interp);
+ current_uiout = interp->interp_ui_out ();
/* Clear out any installed interpreter hooks/event handlers. */
clear_interpreter_hooks ();
- if (interp->procs->resume_proc != NULL
- && (!interp->procs->resume_proc (interp->data)))
- {
- if (old_interp == NULL || !interp_set (old_interp, 0))
- internal_error (__FILE__, __LINE__,
- _("Failed to initialize new interp \"%s\" %s"),
- interp->name, "and could not restore old interp!\n");
- return 0;
- }
-
- if (!first_time && !interp_quiet_p (interp))
- {
- xsnprintf (buffer, sizeof (buffer),
- "Switching to interpreter \"%.24s\".\n", interp->name);
- ui_out_text (current_uiout, buffer);
- }
-
- return 1;
+ interp->resume ();
}
/* Look up the interpreter for NAME. If no such interpreter exists,
return NULL;
}
+/* See interps.h. */
+
+void
+set_top_level_interpreter (const char *name)
+{
+ /* Find it. */
+ struct interp *interp = interp_lookup (current_ui, name);
+
+ if (interp == NULL)
+ error (_("Interpreter `%s' unrecognized"), name);
+ /* Install it. */
+ interp_set (interp, true);
+}
+
/* Returns the current interpreter. */
struct ui_out *
if (interp == NULL)
interp = ui_interp->current_interpreter;
- return interp->procs->ui_out_proc (interp);
+ return interp->interp_ui_out ();
}
-int
-current_interp_set_logging (int start_log, struct ui_file *out,
- struct ui_file *logfile)
+void
+current_interp_set_logging (ui_file_up logfile,
+ bool logging_redirect)
{
struct ui_interp_info *ui_interp = get_current_interp_info ();
struct interp *interp = ui_interp->current_interpreter;
- if (interp == NULL
- || interp->procs->set_logging_proc == NULL)
- return 0;
-
- return interp->procs->set_logging_proc (interp, start_log, out, logfile);
+ interp->set_logging (std::move (logfile), logging_redirect);
}
/* Temporarily overrides the current interpreter. */
return old_interp;
}
-/* Returns the interpreter's cookie. */
-
-void *
-interp_data (struct interp *interp)
-{
- return interp->data;
-}
-
/* Returns the interpreter's name. */
const char *
return ui_interp->current_interpreter;
}
-/* Run the current command interpreter's main loop. */
+/* See interps.h. */
+
void
-current_interp_command_loop (void)
+interp_pre_command_loop (struct interp *interp)
{
- struct ui_interp_info *ui_interp = get_current_interp_info ();
- struct interp *interp = ui_interp->current_interpreter;
-
- gdb_assert (ui_interp->current_interpreter != NULL);
+ gdb_assert (interp != NULL);
- interp->procs->command_loop_proc (interp->data);
+ interp->pre_command_loop ();
}
/* See interp.h */
int
interp_supports_command_editing (struct interp *interp)
{
- if (interp->procs->supports_command_editing_proc != NULL)
- return interp->procs->supports_command_editing_proc (interp);
- return 0;
-}
-
-int
-interp_quiet_p (struct interp *interp)
-{
- struct ui_interp_info *ui_interp = get_current_interp_info ();
-
- if (interp != NULL)
- return interp->quiet_p;
- else
- return ui_interp->current_interpreter->quiet_p;
-}
-
-static int
-interp_set_quiet (struct interp *interp, int quiet)
-{
- int old_val = interp->quiet_p;
-
- interp->quiet_p = quiet;
- return old_val;
+ return interp->supports_command_editing ();
}
/* interp_exec - This executes COMMAND_STR in the current
struct gdb_exception ex;
struct interp *save_command_interp;
- gdb_assert (interp->procs->exec_proc != NULL);
-
/* See `command_interp' for why we do this. */
save_command_interp = ui_interp->command_interpreter;
ui_interp->command_interpreter = interp;
- ex = interp->procs->exec_proc (interp->data, command_str);
+ ex = interp->exec (command_str);
ui_interp->command_interpreter = save_command_interp;
char **trule = NULL;
unsigned int nrules;
unsigned int i;
- int old_quiet, use_quiet;
struct cleanup *cleanup;
if (args == NULL)
if (interp_to_use == NULL)
error (_("Could not find interpreter \"%s\"."), prules[0]);
- /* Temporarily set interpreters quiet. */
- old_quiet = interp_set_quiet (old_interp, 1);
- use_quiet = interp_set_quiet (interp_to_use, 1);
-
- if (!interp_set (interp_to_use, 0))
- error (_("Could not switch to interpreter \"%s\"."), prules[0]);
+ interp_set (interp_to_use, false);
for (i = 1; i < nrules; i++)
{
if (e.reason < 0)
{
interp_set (old_interp, 0);
- interp_set_quiet (interp_to_use, use_quiet);
- interp_set_quiet (old_interp, old_quiet);
error (_("error in command: \"%s\"."), prules[i]);
}
}
interp_set (old_interp, 0);
- interp_set_quiet (interp_to_use, use_quiet);
- interp_set_quiet (old_interp, old_quiet);
do_cleanups (cleanup);
}
-/* List the possible interpreters which could complete the given text. */
-static VEC (char_ptr) *
+/* See interps.h. */
+
+VEC (char_ptr) *
interpreter_completer (struct cmd_list_element *ignore,
const char *text, const char *word)
{
return ui_interp->top_level_interpreter;
}
-void *
-top_level_interpreter_data (void)
+/* See interps.h. */
+
+struct interp *
+current_interpreter (void)
{
- struct interp *interp;
+ struct ui_interp_info *ui_interp = get_interp_info (current_ui);
- interp = top_level_interpreter ();
- gdb_assert (interp != NULL);
- return interp->data;
+ return ui_interp->current_interpreter;
}
/* This just adds the "interpreter-exec" command. */