ddd49eeec4
* symtab.h (lookup_struct, lookup_union, lookup_enum): Update. * python/python.c (gdbpy_parameter): Make 'arg' const. (execute_gdb_command): Likewise. (gdbpy_decode_line): Likewise. Copy it. (gdbpy_parse_and_eval): Make 'expr_string' const. Copy it. (gdbpy_write): Make 'arg' const. * python/py-type.c (typy_lookup_typename): Make 'type_name' const. (gdbpy_lookup_type): Likewise. * python/py-prettyprint.c (print_children): Make 'name' const. * python/py-param.c (parmpy_init): Make 'name' const. Copy it. * python/py-inferior.c (infpy_write_memory): Make 'buf_len' a Py_ssize_t. * python/py-function.c (fnpy_init): Make 'name' const. * python/py-cmd.c (cmdpy_init): Make 'name' const. Copy it. (gdbpy_string_to_argv): Make 'input' const. * python/py-breakpoint.c (bppy_init): Make 'spec' const. Copy it. * gdbtypes.h (lookup_typename): Update. * gdbtypes.c (lookup_typename): Make 'name' const. (lookup_struct): Likewise. (lookup_union): Likewise. (lookup_enum): Likewise.
235 lines
6 KiB
C
235 lines
6 KiB
C
/* Convenience functions implemented in Python.
|
||
|
||
Copyright (C) 2008, 2009, 2010, 2011 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 "value.h"
|
||
#include "exceptions.h"
|
||
#include "python-internal.h"
|
||
#include "charset.h"
|
||
#include "gdbcmd.h"
|
||
#include "cli/cli-decode.h"
|
||
#include "completer.h"
|
||
#include "expression.h"
|
||
#include "language.h"
|
||
|
||
static PyTypeObject fnpy_object_type;
|
||
|
||
|
||
|
||
static PyObject *
|
||
convert_values_to_python (int argc, struct value **argv)
|
||
{
|
||
int i;
|
||
PyObject *result = PyTuple_New (argc);
|
||
|
||
for (i = 0; i < argc; ++i)
|
||
{
|
||
PyObject *elt = value_to_value_object (argv[i]);
|
||
if (! elt)
|
||
{
|
||
Py_DECREF (result);
|
||
error (_("Could not convert value to Python object."));
|
||
}
|
||
PyTuple_SetItem (result, i, elt);
|
||
}
|
||
return result;
|
||
}
|
||
|
||
/* Call a Python function object's invoke method. */
|
||
|
||
static struct value *
|
||
fnpy_call (struct gdbarch *gdbarch, const struct language_defn *language,
|
||
void *cookie, int argc, struct value **argv)
|
||
{
|
||
struct value *value = NULL;
|
||
PyObject *result, *callable, *args;
|
||
struct cleanup *cleanup;
|
||
|
||
cleanup = ensure_python_env (gdbarch, language);
|
||
|
||
args = convert_values_to_python (argc, argv);
|
||
|
||
callable = PyObject_GetAttrString ((PyObject *) cookie, "invoke");
|
||
if (! callable)
|
||
{
|
||
Py_DECREF (args);
|
||
error (_("No method named 'invoke' in object."));
|
||
}
|
||
|
||
result = PyObject_Call (callable, args, NULL);
|
||
Py_DECREF (callable);
|
||
Py_DECREF (args);
|
||
|
||
if (!result)
|
||
{
|
||
PyObject *ptype, *pvalue, *ptraceback;
|
||
char *msg;
|
||
|
||
PyErr_Fetch (&ptype, &pvalue, &ptraceback);
|
||
|
||
/* Try to fetch an error message contained within ptype, pvalue.
|
||
When fetching the error message we need to make our own copy,
|
||
we no longer own ptype, pvalue after the call to PyErr_Restore. */
|
||
|
||
msg = gdbpy_exception_to_string (ptype, pvalue);
|
||
make_cleanup (xfree, msg);
|
||
|
||
if (msg == NULL)
|
||
{
|
||
/* An error occurred computing the string representation of the
|
||
error message. This is rare, but we should inform the user. */
|
||
|
||
printf_filtered (_("An error occurred in a Python "
|
||
"convenience function\n"
|
||
"and then another occurred computing the "
|
||
"error message.\n"));
|
||
gdbpy_print_stack ();
|
||
}
|
||
|
||
/* Don't print the stack for gdb.GdbError exceptions.
|
||
It is generally used to flag user errors.
|
||
|
||
We also don't want to print "Error occurred in Python command"
|
||
for user errors. However, a missing message for gdb.GdbError
|
||
exceptions is arguably a bug, so we flag it as such. */
|
||
|
||
if (!PyErr_GivenExceptionMatches (ptype, gdbpy_gdberror_exc)
|
||
|| msg == NULL || *msg == '\0')
|
||
{
|
||
PyErr_Restore (ptype, pvalue, ptraceback);
|
||
gdbpy_print_stack ();
|
||
if (msg != NULL && *msg != '\0')
|
||
error (_("Error occurred in Python convenience function: %s"),
|
||
msg);
|
||
else
|
||
error (_("Error occurred in Python convenience function."));
|
||
}
|
||
else
|
||
{
|
||
Py_XDECREF (ptype);
|
||
Py_XDECREF (pvalue);
|
||
Py_XDECREF (ptraceback);
|
||
error ("%s", msg);
|
||
}
|
||
}
|
||
|
||
value = convert_value_from_python (result);
|
||
if (value == NULL)
|
||
{
|
||
Py_DECREF (result);
|
||
gdbpy_print_stack ();
|
||
error (_("Error while executing Python code."));
|
||
}
|
||
|
||
Py_DECREF (result);
|
||
do_cleanups (cleanup);
|
||
|
||
return value;
|
||
}
|
||
|
||
/* Initializer for a Function object. It takes one argument, the name
|
||
of the function. */
|
||
|
||
static int
|
||
fnpy_init (PyObject *self, PyObject *args, PyObject *kwds)
|
||
{
|
||
const char *name;
|
||
char *docstring = NULL;
|
||
|
||
if (! PyArg_ParseTuple (args, "s", &name))
|
||
return -1;
|
||
Py_INCREF (self);
|
||
|
||
if (PyObject_HasAttrString (self, "__doc__"))
|
||
{
|
||
PyObject *ds_obj = PyObject_GetAttrString (self, "__doc__");
|
||
if (ds_obj && gdbpy_is_string (ds_obj))
|
||
{
|
||
docstring = python_string_to_host_string (ds_obj);
|
||
if (docstring == NULL)
|
||
{
|
||
Py_DECREF (self);
|
||
return -1;
|
||
}
|
||
}
|
||
}
|
||
if (! docstring)
|
||
docstring = xstrdup (_("This function is not documented."));
|
||
|
||
add_internal_function (name, docstring, fnpy_call, self);
|
||
return 0;
|
||
}
|
||
|
||
/* Initialize internal function support. */
|
||
|
||
void
|
||
gdbpy_initialize_functions (void)
|
||
{
|
||
if (PyType_Ready (&fnpy_object_type) < 0)
|
||
return;
|
||
|
||
Py_INCREF (&fnpy_object_type);
|
||
PyModule_AddObject (gdb_module, "Function", (PyObject *) &fnpy_object_type);
|
||
}
|
||
|
||
|
||
|
||
static PyTypeObject fnpy_object_type =
|
||
{
|
||
PyObject_HEAD_INIT (NULL)
|
||
0, /*ob_size*/
|
||
"gdb.Function", /*tp_name*/
|
||
sizeof (PyObject), /*tp_basicsize*/
|
||
0, /*tp_itemsize*/
|
||
0, /*tp_dealloc*/
|
||
0, /*tp_print*/
|
||
0, /*tp_getattr*/
|
||
0, /*tp_setattr*/
|
||
0, /*tp_compare*/
|
||
0, /*tp_repr*/
|
||
0, /*tp_as_number*/
|
||
0, /*tp_as_sequence*/
|
||
0, /*tp_as_mapping*/
|
||
0, /*tp_hash */
|
||
0, /*tp_call*/
|
||
0, /*tp_str*/
|
||
0, /*tp_getattro*/
|
||
0, /*tp_setattro*/
|
||
0, /*tp_as_buffer*/
|
||
Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /*tp_flags*/
|
||
"GDB function object", /* tp_doc */
|
||
0, /* tp_traverse */
|
||
0, /* tp_clear */
|
||
0, /* tp_richcompare */
|
||
0, /* tp_weaklistoffset */
|
||
0, /* tp_iter */
|
||
0, /* tp_iternext */
|
||
0, /* tp_methods */
|
||
0, /* tp_members */
|
||
0, /* tp_getset */
|
||
0, /* tp_base */
|
||
0, /* tp_dict */
|
||
0, /* tp_descr_get */
|
||
0, /* tp_descr_set */
|
||
0, /* tp_dictoffset */
|
||
fnpy_init, /* tp_init */
|
||
0, /* tp_alloc */
|
||
PyType_GenericNew /* tp_new */
|
||
};
|