xref: /dragonfly/contrib/gdb-7/gdb/python/py-evts.c (revision 650094e1)
1 /* Python interface to inferior events.
2 
3    Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
4 
5    This file is part of GDB.
6 
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.
11 
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.
16 
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/>.  */
19 
20 #include "py-events.h"
21 
22 /* Initialize python events.  */
23 
24 static int
25 add_new_registry (eventregistry_object **registryp, char *name)
26 {
27   *registryp = create_eventregistry_object ();
28 
29   if (*registryp == NULL)
30     goto fail;
31 
32   if (PyModule_AddObject (gdb_py_events.module,
33                              name,
34                              (PyObject *)(*registryp)) < 0)
35     goto fail;
36 
37   return 0;
38 
39   fail:
40    Py_XDECREF (*registryp);
41    return -1;
42 }
43 
44 void
45 gdbpy_initialize_py_events (void)
46 {
47   gdb_py_events.module = Py_InitModule ("events", NULL);
48 
49   if (!gdb_py_events.module)
50     goto fail;
51 
52   if (add_new_registry (&gdb_py_events.stop, "stop") < 0)
53     goto fail;
54 
55   if (add_new_registry (&gdb_py_events.cont, "cont") < 0)
56     goto fail;
57 
58   if (add_new_registry (&gdb_py_events.exited, "exited") < 0)
59     goto fail;
60 
61   Py_INCREF (gdb_py_events.module);
62   if (PyModule_AddObject (gdb_module,
63                           "events",
64                           (PyObject *) gdb_py_events.module) < 0)
65     goto fail;
66 
67   return;
68 
69   fail:
70    gdbpy_print_stack ();
71 }
72