1 /* Convenience functions implemented in Python.
3 Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "exceptions.h"
24 #include "python-internal.h"
27 #include "cli/cli-decode.h"
28 #include "completer.h"
29 #include "expression.h"
32 static PyTypeObject fnpy_object_type
;
37 convert_values_to_python (int argc
, struct value
**argv
)
40 PyObject
*result
= PyTuple_New (argc
);
41 for (i
= 0; i
< argc
; ++i
)
43 PyObject
*elt
= value_to_value_object (argv
[i
]);
47 error (_("Could not convert value to Python object."));
49 PyTuple_SetItem (result
, i
, elt
);
54 /* Call a Python function object's invoke method. */
57 fnpy_call (struct gdbarch
*gdbarch
, const struct language_defn
*language
,
58 void *cookie
, int argc
, struct value
**argv
)
60 struct value
*value
= NULL
;
61 PyObject
*result
, *callable
, *args
;
62 struct cleanup
*cleanup
;
64 cleanup
= ensure_python_env (gdbarch
, language
);
66 args
= convert_values_to_python (argc
, argv
);
68 callable
= PyObject_GetAttrString ((PyObject
*) cookie
, "invoke");
72 error (_("No method named 'invoke' in object."));
75 result
= PyObject_Call (callable
, args
, NULL
);
82 error (_("Error while executing Python code."));
85 value
= convert_value_from_python (result
);
90 error (_("Error while executing Python code."));
94 do_cleanups (cleanup
);
99 /* Initializer for a Function object. It takes one argument, the name
103 fnpy_init (PyObject
*self
, PyObject
*args
, PyObject
*kwds
)
105 char *name
, *docstring
= NULL
;
106 if (! PyArg_ParseTuple (args
, "s", &name
))
110 if (PyObject_HasAttrString (self
, "__doc__"))
112 PyObject
*ds_obj
= PyObject_GetAttrString (self
, "__doc__");
113 if (ds_obj
&& gdbpy_is_string (ds_obj
))
114 docstring
= python_string_to_host_string (ds_obj
);
117 docstring
= xstrdup (_("This function is not documented."));
119 add_internal_function (name
, docstring
, fnpy_call
, self
);
123 /* Initialize internal function support. */
126 gdbpy_initialize_functions (void)
128 if (PyType_Ready (&fnpy_object_type
) < 0)
131 Py_INCREF (&fnpy_object_type
);
132 PyModule_AddObject (gdb_module
, "Function", (PyObject
*) &fnpy_object_type
);
137 static PyTypeObject fnpy_object_type
=
139 PyObject_HEAD_INIT (NULL
)
141 "gdb.Function", /*tp_name*/
142 sizeof (PyObject
), /*tp_basicsize*/
151 0, /*tp_as_sequence*/
159 Py_TPFLAGS_DEFAULT
| Py_TPFLAGS_BASETYPE
, /*tp_flags*/
160 "GDB function object", /* tp_doc */
163 0, /* tp_richcompare */
164 0, /* tp_weaklistoffset */
172 0, /* tp_descr_get */
173 0, /* tp_descr_set */
174 0, /* tp_dictoffset */
175 fnpy_init
, /* tp_init */
177 PyType_GenericNew
/* tp_new */