xref: /dragonfly/contrib/gdb-7/gdb/python/py-evts.c (revision d4ef6694)
1 /* Python interface to inferior events.
2 
3    Copyright (C) 2009-2013 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 "defs.h"
21 #include "py-events.h"
22 
23 #ifdef IS_PY3K
24 static struct PyModuleDef EventModuleDef =
25 {
26   PyModuleDef_HEAD_INIT,
27   "gdb.events",
28   NULL,
29   -1,
30   NULL,
31   NULL,
32   NULL,
33   NULL,
34   NULL
35 };
36 #endif
37 
38 /* Initialize python events.  */
39 
40 static int
41 add_new_registry (eventregistry_object **registryp, char *name)
42 {
43   *registryp = create_eventregistry_object ();
44 
45   if (*registryp == NULL)
46     goto fail;
47 
48   if (PyModule_AddObject (gdb_py_events.module,
49                              name,
50                              (PyObject *)(*registryp)) < 0)
51     goto fail;
52 
53   return 0;
54 
55   fail:
56    Py_XDECREF (*registryp);
57    return -1;
58 }
59 
60 void
61 gdbpy_initialize_py_events (void)
62 {
63 #ifdef IS_PY3K
64   gdb_py_events.module = PyModule_Create (&EventModuleDef);
65 #else
66   gdb_py_events.module = Py_InitModule ("events", NULL);
67 #endif
68 
69   if (!gdb_py_events.module)
70     goto fail;
71 
72   if (add_new_registry (&gdb_py_events.stop, "stop") < 0)
73     goto fail;
74 
75   if (add_new_registry (&gdb_py_events.cont, "cont") < 0)
76     goto fail;
77 
78   if (add_new_registry (&gdb_py_events.exited, "exited") < 0)
79     goto fail;
80 
81   if (add_new_registry (&gdb_py_events.new_objfile, "new_objfile") < 0)
82     goto fail;
83 
84 #ifndef IS_PY3K
85   Py_INCREF (gdb_py_events.module);
86 #endif
87   if (PyModule_AddObject (gdb_module,
88                           "events",
89                           (PyObject *) gdb_py_events.module) < 0)
90     goto fail;
91 
92   return;
93 
94   fail:
95    gdbpy_print_stack ();
96 }
97