| /* Convenience functions implemented in Python. |
| |
| Copyright (C) 2008, 2009, 2010 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) |
| { |
| gdbpy_print_stack (); |
| error (_("Error while executing Python code.")); |
| } |
| |
| 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) |
| { |
| char *name, *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 */ |
| }; |