mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-06 12:09:26 +08:00
1d506c26d9
This commit is the result of the following actions:
- Running gdb/copyright.py to update all of the copyright headers to
include 2024,
- Manually updating a few files the copyright.py script told me to
update, these files had copyright headers embedded within the
file,
- Regenerating gdbsupport/Makefile.in to refresh it's copyright
date,
- Using grep to find other files that still mentioned 2023. If
these files were updated last year from 2022 to 2023 then I've
updated them this year to 2024.
I'm sure I've probably missed some dates. Feel free to fix them up as
you spot them.
80 lines
2.7 KiB
C
80 lines
2.7 KiB
C
/* GDB routines for supporting auto-loaded Guile scripts.
|
||
|
||
Copyright (C) 2010-2024 Free Software Foundation, Inc.
|
||
|
||
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 3 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, see <http://www.gnu.org/licenses/>. */
|
||
|
||
#include "defs.h"
|
||
#include "top.h"
|
||
#include "gdbcmd.h"
|
||
#include "objfiles.h"
|
||
#include "cli/cli-cmds.h"
|
||
#include "auto-load.h"
|
||
#include "guile.h"
|
||
#include "guile-internal.h"
|
||
|
||
/* User-settable option to enable/disable auto-loading of Guile scripts:
|
||
set auto-load guile-scripts on|off
|
||
This is true if we should auto-load associated Guile scripts when an
|
||
objfile is opened, false otherwise. */
|
||
static bool auto_load_guile_scripts = true;
|
||
|
||
/* "show" command for the auto_load_guile_scripts configuration variable. */
|
||
|
||
static void
|
||
show_auto_load_guile_scripts (struct ui_file *file, int from_tty,
|
||
struct cmd_list_element *c, const char *value)
|
||
{
|
||
gdb_printf (file, _("Auto-loading of Guile scripts is %s.\n"), value);
|
||
}
|
||
|
||
/* See guile-internal.h. */
|
||
|
||
bool
|
||
gdbscm_auto_load_enabled (const struct extension_language_defn *extlang)
|
||
{
|
||
return auto_load_guile_scripts;
|
||
}
|
||
|
||
/* Wrapper for "info auto-load guile-scripts". */
|
||
|
||
static void
|
||
info_auto_load_guile_scripts (const char *pattern, int from_tty)
|
||
{
|
||
auto_load_info_scripts (current_program_space, pattern, from_tty,
|
||
&extension_language_guile);
|
||
}
|
||
|
||
void
|
||
gdbscm_initialize_auto_load (void)
|
||
{
|
||
add_setshow_boolean_cmd ("guile-scripts", class_support,
|
||
&auto_load_guile_scripts, _("\
|
||
Set the debugger's behaviour regarding auto-loaded Guile scripts."), _("\
|
||
Show the debugger's behaviour regarding auto-loaded Guile scripts."), _("\
|
||
If enabled, auto-loaded Guile scripts are loaded when the debugger reads\n\
|
||
an executable or shared library.\n\
|
||
This options has security implications for untrusted inferiors."),
|
||
NULL, show_auto_load_guile_scripts,
|
||
auto_load_set_cmdlist_get (),
|
||
auto_load_show_cmdlist_get ());
|
||
|
||
add_cmd ("guile-scripts", class_info, info_auto_load_guile_scripts,
|
||
_("Print the list of automatically loaded Guile scripts.\n\
|
||
Usage: info auto-load guile-scripts [REGEXP]"),
|
||
auto_load_info_cmdlist_get ());
|
||
}
|