event pool allocation debugging
[ardour.git] / libs / ardour / session_events.cc
1 /*
2     Copyright (C) 1999-2004 Paul Davis
3
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2 of the License, or
7     (at your option) any later version.
8
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12     GNU General Public License for more details.
13
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17
18 */
19
20 #include <cmath>
21 #include <unistd.h>
22
23 #include "ardour/timestamps.h"
24
25 #include "pbd/error.h"
26 #include "pbd/enumwriter.h"
27
28 #include "ardour/ardour.h"
29 #include "ardour/audio_diskstream.h"
30 #include "ardour/butler.h"
31 #include "ardour/debug.h"
32 #include "ardour/session_event.h"
33
34 #include "i18n.h"
35
36 using namespace std;
37 using namespace ARDOUR;
38 using namespace PBD;
39
40 PerThreadPool* SessionEvent::pool;
41
42 void
43 SessionEvent::init_event_pool ()
44 {
45         pool = new PerThreadPool;
46 }
47
48 void
49 SessionEvent::create_per_thread_pool (const std::string& name, uint32_t nitems)
50 {
51         /* this is a per-thread call that simply creates a thread-private ptr to
52            a CrossThreadPool for use by this thread whenever events are allocated/released
53            from SessionEvent::pool()
54         */
55         pool->create_per_thread_pool (name, sizeof (SessionEvent), nitems);
56 }
57
58 void *
59 SessionEvent::operator new (size_t) 
60 {
61         CrossThreadPool* p = pool->per_thread_pool ();
62         SessionEvent* ev = static_cast<SessionEvent*> (p->alloc ());
63         cerr << "Allocating SessionEvent from " << p->name() << " ev @ " << ev << endl;
64         ev->own_pool = p;
65         return ev;
66 }
67     
68 void 
69 SessionEvent::operator delete (void *ptr, size_t /*size*/) 
70 {
71         Pool* p = pool->per_thread_pool ();
72         SessionEvent* ev = static_cast<SessionEvent*> (ptr);
73
74         cerr << "Deleting SessionEvent @ " << ev << " thread pool =  " << p->name() << " ev pool = " << ev->own_pool->name() << endl;
75         if (p == ev->own_pool) {
76                 p->release (ptr);
77         } else {
78                 ev->own_pool->push (ev);
79         }
80 }
81
82 void
83 SessionEventManager::add_event (framepos_t frame, SessionEvent::Type type, framepos_t target_frame)
84 {
85         SessionEvent* ev = new SessionEvent (type, SessionEvent::Add, frame, target_frame, 0);
86         queue_event (ev);
87 }
88
89 void
90 SessionEventManager::remove_event (framepos_t frame, SessionEvent::Type type)
91 {
92         SessionEvent* ev = new SessionEvent (type, SessionEvent::Remove, frame, 0, 0);
93         queue_event (ev);
94 }
95
96 void
97 SessionEventManager::replace_event (SessionEvent::Type type, framepos_t frame, framepos_t target)
98 {
99         SessionEvent* ev = new SessionEvent (type, SessionEvent::Replace, frame, target, 0);
100         queue_event (ev);
101 }
102
103 void
104 SessionEventManager::clear_events (SessionEvent::Type type)
105 {
106         SessionEvent* ev = new SessionEvent (type, SessionEvent::Clear, 0, 0, 0);
107         queue_event (ev);
108 }
109
110
111 void
112 SessionEventManager::dump_events () const
113 {
114         cerr << "EVENT DUMP" << endl;
115         for (Events::const_iterator i = events.begin(); i != events.end(); ++i) {
116                 cerr << "\tat " << (*i)->action_frame << ' ' << (*i)->type << " target = " << (*i)->target_frame << endl;
117         }
118         cerr << "Next event: ";
119
120         if ((Events::const_iterator) next_event == events.end()) {
121                 cerr << "none" << endl;
122         } else {
123                 cerr << "at " << (*next_event)->action_frame << ' '
124                      << (*next_event)->type << " target = "
125                      << (*next_event)->target_frame << endl;
126         }
127         cerr << "Immediate events pending:\n";
128         for (Events::const_iterator i = immediate_events.begin(); i != immediate_events.end(); ++i) {
129                 cerr << "\tat " << (*i)->action_frame << ' ' << (*i)->type << " target = " << (*i)->target_frame << endl;
130         }
131         cerr << "END EVENT_DUMP" << endl;
132 }
133
134 void
135 SessionEventManager::merge_event (SessionEvent* ev)
136 {
137         switch (ev->action) {
138         case SessionEvent::Remove:
139                 _remove_event (ev);
140                 delete ev;
141                 return;
142
143         case SessionEvent::Replace:
144                 _replace_event (ev);
145                 return;
146
147         case SessionEvent::Clear:
148                 _clear_event_type (ev->type);
149                 delete ev;
150                 return;
151
152         case SessionEvent::Add:
153                 break;
154         }
155
156         /* try to handle immediate events right here */
157
158         if (ev->action_frame == 0) {
159                 process_event (ev);
160                 return;
161         }
162
163         switch (ev->type) {
164         case SessionEvent::AutoLoop:
165         case SessionEvent::StopOnce:
166                 _clear_event_type (ev->type);
167                 break;
168
169         default:
170                 for (Events::iterator i = events.begin(); i != events.end(); ++i) {
171                         if ((*i)->type == ev->type && (*i)->action_frame == ev->action_frame) {
172                           error << string_compose(_("Session: cannot have two events of type %1 at the same frame (%2)."),
173                                                   enum_2_string (ev->type), ev->action_frame) << endmsg;
174                                 return;
175                         }
176                 }
177         }
178
179         events.insert (events.begin(), ev);
180         events.sort (SessionEvent::compare);
181         next_event = events.begin();
182         set_next_event ();
183 }
184
185 /** @return true when @a ev is deleted. */
186 bool
187 SessionEventManager::_replace_event (SessionEvent* ev)
188 {
189         bool ret = false;
190         Events::iterator i;
191
192         /* private, used only for events that can only exist once in the queue */
193
194         for (i = events.begin(); i != events.end(); ++i) {
195                 if ((*i)->type == ev->type) {
196                         (*i)->action_frame = ev->action_frame;
197                         (*i)->target_frame = ev->target_frame;
198                         if ((*i) == ev) {
199                                 ret = true;
200                         }
201                         delete ev;
202                         break;
203                 }
204         }
205
206         if (i == events.end()) {
207                 events.insert (events.begin(), ev);
208         }
209
210         events.sort (SessionEvent::compare);
211         next_event = events.end();
212         set_next_event ();
213
214         return ret;
215 }
216
217 /** @return true when @a ev is deleted. */
218 bool
219 SessionEventManager::_remove_event (SessionEvent* ev)
220 {
221         bool ret = false;
222         Events::iterator i;
223
224         for (i = events.begin(); i != events.end(); ++i) {
225                 if ((*i)->type == ev->type && (*i)->action_frame == ev->action_frame) {
226                         if ((*i) == ev) {
227                                 ret = true;
228                         }
229
230                         delete *i;
231                         if (i == next_event) {
232                                 ++next_event;
233                         }
234                         events.erase (i);
235                         break;
236                 }
237         }
238
239         if (i != events.end()) {
240                 set_next_event ();
241         }
242
243         return ret;
244 }
245
246 void
247 SessionEventManager::_clear_event_type (SessionEvent::Type type)
248 {
249         Events::iterator i, tmp;
250
251         for (i = events.begin(); i != events.end(); ) {
252
253                 tmp = i;
254                 ++tmp;
255
256                 if ((*i)->type == type) {
257                         delete *i;
258                         if (i == next_event) {
259                                 ++next_event;
260                         }
261                         events.erase (i);
262                 }
263
264                 i = tmp;
265         }
266
267         for (i = immediate_events.begin(); i != immediate_events.end(); ) {
268
269                 tmp = i;
270                 ++tmp;
271
272                 if ((*i)->type == type) {
273                         delete *i;
274                         immediate_events.erase (i);
275                 }
276
277                 i = tmp;
278         }
279
280         set_next_event ();
281 }
282