2 Unix SMB/CIFS implementation.
4 Copyright (C) Jelmer Vernooij <jelmer@samba.org> 2010
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>.
24 /* print a talloc tree report for a talloc python object */
25 static PyObject *py_talloc_report_full(PyObject *self, PyObject *args)
30 if (!PyArg_ParseTuple(args, "O", &py_obj))
33 if (py_obj == Py_None) {
34 talloc_report_full(NULL, stdout);
36 type = (PyTypeObject*)PyObject_Type(py_obj);
37 talloc_report_full(py_talloc_get_mem_ctx(py_obj), stdout);
42 /* enable null tracking */
43 static PyObject *py_talloc_enable_null_tracking(PyObject *self, PyObject *args)
45 talloc_enable_null_tracking();
49 /* return the number of talloc blocks */
50 static PyObject *py_talloc_total_blocks(PyObject *self, PyObject *args)
55 if (!PyArg_ParseTuple(args, "O", &py_obj))
58 if (py_obj == Py_None) {
59 return PyLong_FromLong(talloc_total_blocks(NULL));
62 type = (PyTypeObject*)PyObject_Type(py_obj);
64 return PyLong_FromLong(talloc_total_blocks(py_talloc_get_mem_ctx(py_obj)));
67 static PyMethodDef talloc_methods[] = {
68 { "report_full", (PyCFunction)py_talloc_report_full, METH_VARARGS,
69 "show a talloc tree for an object"},
70 { "enable_null_tracking", (PyCFunction)py_talloc_enable_null_tracking, METH_VARARGS,
71 "enable tracking of the NULL object"},
72 { "total_blocks", (PyCFunction)py_talloc_total_blocks, METH_VARARGS,
73 "return talloc block count"},
81 m = Py_InitModule3("talloc", talloc_methods, "Debug utilities for talloc-wrapped objects.");