Commit | Line | Data |
---|---|---|
104c1213 JM |
1 | /* User Interface Events. |
2 | Copyright 1999 Free Software Foundation, Inc. | |
3 | ||
4 | Contributed by Cygnus Solutions. | |
5 | ||
6 | This file is part of GDB. | |
7 | ||
8 | This program is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
10 | the Free Software Foundation; either version 2 of the License, or | |
11 | (at your option) any later version. | |
12 | ||
13 | This program is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with this program; if not, write to the Free Software | |
20 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
21 | ||
22 | /* Work in progress */ | |
23 | ||
24 | /* This file was created with the aid of ``gdb-events.sh''. | |
25 | ||
26 | The bourn shell script ``gdb-events.sh'' creates the files | |
27 | ``new-gdb-events.c'' and ``new-gdb-events.h and then compares | |
28 | them against the existing ``gdb-events.[hc]''. Any differences | |
29 | found being reported. | |
30 | ||
31 | If editing this file, please also run gdb-events.sh and merge any | |
32 | changes into that script. Conversely, when making sweeping changes | |
33 | to this file, modifying gdb-events.sh and using its output may | |
34 | prove easier. */ | |
35 | ||
36 | ||
37 | #include "defs.h" | |
38 | #include "gdb-events.h" | |
39 | #include "gdbcmd.h" | |
40 | ||
41 | #undef XMALLOC | |
42 | #define XMALLOC(TYPE) ((TYPE*) xmalloc (sizeof (TYPE))) | |
43 | ||
44 | #if WITH_GDB_EVENTS | |
45 | static struct gdb_events null_event_hooks; | |
46 | static struct gdb_events queue_event_hooks; | |
47 | static struct gdb_events *current_event_hooks = &null_event_hooks; | |
48 | #endif | |
49 | ||
50 | int gdb_events_debug; | |
51 | ||
52 | #if WITH_GDB_EVENTS | |
53 | ||
54 | void | |
55 | breakpoint_create_event (int b) | |
56 | { | |
57 | if (gdb_events_debug) | |
58 | fprintf_unfiltered (gdb_stdlog, "breakpoint_create_event\n"); | |
59 | if (!current_event_hooks->breakpoint_create) | |
60 | return; | |
61 | current_event_hooks->breakpoint_create (b); | |
62 | } | |
63 | ||
64 | void | |
65 | breakpoint_delete_event (int b) | |
66 | { | |
67 | if (gdb_events_debug) | |
68 | fprintf_unfiltered (gdb_stdlog, "breakpoint_delete_event\n"); | |
69 | if (!current_event_hooks->breakpoint_delete) | |
70 | return; | |
71 | current_event_hooks->breakpoint_delete (b); | |
72 | } | |
73 | ||
74 | void | |
75 | breakpoint_modify_event (int b) | |
76 | { | |
77 | if (gdb_events_debug) | |
78 | fprintf_unfiltered (gdb_stdlog, "breakpoint_modify_event\n"); | |
79 | if (!current_event_hooks->breakpoint_modify) | |
80 | return; | |
81 | current_event_hooks->breakpoint_modify (b); | |
82 | } | |
83 | ||
84 | #endif | |
85 | ||
86 | #if WITH_GDB_EVENTS | |
87 | void | |
88 | set_gdb_event_hooks (struct gdb_events *vector) | |
89 | { | |
90 | if (vector == NULL) | |
91 | current_event_hooks = &queue_event_hooks; | |
92 | else | |
93 | current_event_hooks = vector; | |
94 | } | |
95 | #endif | |
96 | ||
97 | enum gdb_event | |
98 | { | |
99 | breakpoint_create, | |
100 | breakpoint_delete, | |
101 | breakpoint_modify, | |
102 | nr_gdb_events | |
103 | }; | |
104 | ||
105 | struct breakpoint_create | |
106 | { | |
107 | int b; | |
108 | }; | |
109 | ||
110 | struct breakpoint_delete | |
111 | { | |
112 | int b; | |
113 | }; | |
114 | ||
115 | struct breakpoint_modify | |
116 | { | |
117 | int b; | |
118 | }; | |
119 | ||
120 | struct event | |
121 | { | |
122 | enum gdb_event type; | |
123 | struct event *next; | |
124 | union | |
125 | { | |
126 | struct breakpoint_create breakpoint_create; | |
127 | struct breakpoint_delete breakpoint_delete; | |
128 | struct breakpoint_modify breakpoint_modify; | |
129 | } | |
130 | data; | |
131 | }; | |
132 | struct event *pending_events; | |
133 | struct event *delivering_events; | |
134 | ||
135 | static void | |
136 | append (struct event *new_event) | |
137 | { | |
138 | struct event **event = &pending_events; | |
139 | while ((*event) != NULL) | |
140 | event = &((*event)->next); | |
141 | (*event) = new_event; | |
142 | (*event)->next = NULL; | |
143 | } | |
144 | ||
145 | static void | |
146 | queue_breakpoint_create (int b) | |
147 | { | |
148 | struct event *event = XMALLOC (struct event); | |
149 | event->type = breakpoint_create; | |
150 | event->data.breakpoint_create.b = b; | |
151 | append (event); | |
152 | } | |
153 | ||
154 | static void | |
155 | queue_breakpoint_delete (int b) | |
156 | { | |
157 | struct event *event = XMALLOC (struct event); | |
158 | event->type = breakpoint_delete; | |
159 | event->data.breakpoint_delete.b = b; | |
160 | append (event); | |
161 | } | |
162 | ||
163 | static void | |
164 | queue_breakpoint_modify (int b) | |
165 | { | |
166 | struct event *event = XMALLOC (struct event); | |
167 | event->type = breakpoint_modify; | |
168 | event->data.breakpoint_modify.b = b; | |
169 | append (event); | |
170 | } | |
171 | ||
172 | void | |
173 | gdb_events_deliver (struct gdb_events *vector) | |
174 | { | |
175 | /* Just zap any events left around from last time. */ | |
176 | while (delivering_events != NULL) | |
177 | { | |
178 | struct event *event = delivering_events; | |
179 | delivering_events = event->next; | |
180 | free (event); | |
181 | } | |
182 | /* Process any pending events. Because one of the deliveries could | |
183 | bail out we move everything off of the pending queue onto an | |
184 | in-progress queue where it can, later, be cleaned up if | |
185 | necessary. */ | |
186 | delivering_events = pending_events; | |
187 | pending_events = NULL; | |
188 | while (delivering_events != NULL) | |
189 | { | |
190 | struct event *event = delivering_events; | |
191 | switch (event->type) | |
192 | { | |
193 | case breakpoint_create: | |
194 | vector->breakpoint_create | |
195 | (event->data.breakpoint_create.b); | |
196 | break; | |
197 | case breakpoint_delete: | |
198 | vector->breakpoint_delete | |
199 | (event->data.breakpoint_delete.b); | |
200 | break; | |
201 | case breakpoint_modify: | |
202 | vector->breakpoint_modify | |
203 | (event->data.breakpoint_modify.b); | |
204 | break; | |
205 | } | |
206 | delivering_events = event->next; | |
207 | free (event); | |
208 | } | |
209 | } | |
210 | ||
211 | void _initialize_gdb_events (void); | |
212 | void | |
213 | _initialize_gdb_events (void) | |
214 | { | |
215 | #if WITH_GDB_EVENTS | |
216 | queue_event_hooks.breakpoint_create = queue_breakpoint_create; | |
217 | queue_event_hooks.breakpoint_delete = queue_breakpoint_delete; | |
218 | queue_event_hooks.breakpoint_modify = queue_breakpoint_modify; | |
219 | #endif | |
220 | add_show_from_set (add_set_cmd ("eventdebug", | |
221 | class_maintenance, | |
222 | var_zinteger, | |
223 | (char *)&gdb_events_debug, | |
224 | "Set event debugging.\n\ | |
225 | When non-zero, event/notify debugging is enabled.", &setlist), | |
226 | &showlist); | |
227 | } |