yet more debugging for thread pools
[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 #include "pbd/stacktrace.h"
28
29 #include "ardour/ardour.h"
30 #include "ardour/audio_diskstream.h"
31 #include "ardour/butler.h"
32 #include "ardour/debug.h"
33 #include "ardour/session_event.h"
34
35 #include "i18n.h"
36
37 using namespace std;
38 using namespace ARDOUR;
39 using namespace PBD;
40
41 PerThreadPool* SessionEvent::pool;
42
43 void
44 SessionEvent::init_event_pool ()
45 {
46         pool = new PerThreadPool;
47 }
48
49 void
50 SessionEvent::create_per_thread_pool (const std::string& name, uint32_t nitems)
51 {
52         /* this is a per-thread call that simply creates a thread-private ptr to
53            a CrossThreadPool for use by this thread whenever events are allocated/released
54            from SessionEvent::pool()
55         */
56         pool->create_per_thread_pool (name, sizeof (SessionEvent), nitems);
57 }
58
59 void *
60 SessionEvent::operator new (size_t) 
61 {
62         CrossThreadPool* p = pool->per_thread_pool ();
63         SessionEvent* ev = static_cast<SessionEvent*> (p->alloc ());
64         cerr << pthread_self() << " Allocating SessionEvent from " << p->name() << " ev @ " << ev << endl;
65         ev->own_pool = p;
66         return ev;
67 }
68     
69 void 
70 SessionEvent::operator delete (void *ptr, size_t /*size*/) 
71 {
72         Pool* p = pool->per_thread_pool ();
73         SessionEvent* ev = static_cast<SessionEvent*> (ptr);
74
75         cerr << pthread_self() << " Deleting SessionEvent @ " << ev << " thread pool =  " << p->name() << " ev pool = " << ev->own_pool->name() << endl;
76         stacktrace (cerr, 20);
77         if (p == ev->own_pool) {
78                 p->release (ptr);
79         } else {
80                 ev->own_pool->push (ev);
81         }
82 }
83
84 void
85 SessionEventManager::add_event (framepos_t frame, SessionEvent::Type type, framepos_t target_frame)
86 {
87         SessionEvent* ev = new SessionEvent (type, SessionEvent::Add, frame, target_frame, 0);
88         queue_event (ev);
89 }
90
91 void
92 SessionEventManager::remove_event (framepos_t frame, SessionEvent::Type type)
93 {
94         SessionEvent* ev = new SessionEvent (type, SessionEvent::Remove, frame, 0, 0);
95         queue_event (ev);
96 }
97
98 void
99 SessionEventManager::replace_event (SessionEvent::Type type, framepos_t frame, framepos_t target)
100 {
101         SessionEvent* ev = new SessionEvent (type, SessionEvent::Replace, frame, target, 0);
102         queue_event (ev);
103 }
104
105 void
106 SessionEventManager::clear_events (SessionEvent::Type type)
107 {
108         SessionEvent* ev = new SessionEvent (type, SessionEvent::Clear, 0, 0, 0);
109         queue_event (ev);
110 }
111
112
113 void
114 SessionEventManager::dump_events () const
115 {
116         cerr << "EVENT DUMP" << endl;
117         for (Events::const_iterator i = events.begin(); i != events.end(); ++i) {
118                 cerr << "\tat " << (*i)->action_frame << ' ' << (*i)->type << " target = " << (*i)->target_frame << endl;
119         }
120         cerr << "Next event: ";
121
122         if ((Events::const_iterator) next_event == events.end()) {
123                 cerr << "none" << endl;
124         } else {
125                 cerr << "at " << (*next_event)->action_frame << ' '
126                      << (*next_event)->type << " target = "
127                      << (*next_event)->target_frame << endl;
128         }
129         cerr << "Immediate events pending:\n";
130         for (Events::const_iterator i = immediate_events.begin(); i != immediate_events.end(); ++i) {
131                 cerr << "\tat " << (*i)->action_frame << ' ' << (*i)->type << " target = " << (*i)->target_frame << endl;
132         }
133         cerr << "END EVENT_DUMP" << endl;
134 }
135
136 void
137 SessionEventManager::merge_event (SessionEvent* ev)
138 {
139         switch (ev->action) {
140         case SessionEvent::Remove:
141                 _remove_event (ev);
142                 delete ev;
143                 return;
144
145         case SessionEvent::Replace:
146                 _replace_event (ev);
147                 return;
148
149         case SessionEvent::Clear:
150                 _clear_event_type (ev->type);
151                 delete ev;
152                 return;
153
154         case SessionEvent::Add:
155                 break;
156         }
157
158         /* try to handle immediate events right here */
159
160         if (ev->action_frame == 0) {
161                 process_event (ev);
162                 return;
163         }
164
165         switch (ev->type) {
166         case SessionEvent::AutoLoop:
167         case SessionEvent::StopOnce:
168                 _clear_event_type (ev->type);
169                 break;
170
171         default:
172                 for (Events::iterator i = events.begin(); i != events.end(); ++i) {
173                         if ((*i)->type == ev->type && (*i)->action_frame == ev->action_frame) {
174                           error << string_compose(_("Session: cannot have two events of type %1 at the same frame (%2)."),
175                                                   enum_2_string (ev->type), ev->action_frame) << endmsg;
176                                 return;
177                         }
178                 }
179         }
180
181         events.insert (events.begin(), ev);
182         events.sort (SessionEvent::compare);
183         next_event = events.begin();
184         set_next_event ();
185 }
186
187 /** @return true when @a ev is deleted. */
188 bool
189 SessionEventManager::_replace_event (SessionEvent* ev)
190 {
191         bool ret = false;
192         Events::iterator i;
193
194         /* private, used only for events that can only exist once in the queue */
195
196         for (i = events.begin(); i != events.end(); ++i) {
197                 if ((*i)->type == ev->type) {
198                         (*i)->action_frame = ev->action_frame;
199                         (*i)->target_frame = ev->target_frame;
200                         if ((*i) == ev) {
201                                 ret = true;
202                         }
203                         delete ev;
204                         break;
205                 }
206         }
207
208         if (i == events.end()) {
209                 events.insert (events.begin(), ev);
210         }
211
212         events.sort (SessionEvent::compare);
213         next_event = events.end();
214         set_next_event ();
215
216         return ret;
217 }
218
219 /** @return true when @a ev is deleted. */
220 bool
221 SessionEventManager::_remove_event (SessionEvent* ev)
222 {
223         bool ret = false;
224         Events::iterator i;
225
226         for (i = events.begin(); i != events.end(); ++i) {
227                 if ((*i)->type == ev->type && (*i)->action_frame == ev->action_frame) {
228                         if ((*i) == ev) {
229                                 ret = true;
230                         }
231
232                         delete *i;
233                         if (i == next_event) {
234                                 ++next_event;
235                         }
236                         events.erase (i);
237                         break;
238                 }
239         }
240
241         if (i != events.end()) {
242                 set_next_event ();
243         }
244
245         return ret;
246 }
247
248 void
249 SessionEventManager::_clear_event_type (SessionEvent::Type type)
250 {
251         Events::iterator i, tmp;
252
253         for (i = events.begin(); i != events.end(); ) {
254
255                 tmp = i;
256                 ++tmp;
257
258                 if ((*i)->type == type) {
259                         delete *i;
260                         if (i == next_event) {
261                                 ++next_event;
262                         }
263                         events.erase (i);
264                 }
265
266                 i = tmp;
267         }
268
269         for (i = immediate_events.begin(); i != immediate_events.end(); ) {
270
271                 tmp = i;
272                 ++tmp;
273
274                 if ((*i)->type == type) {
275                         delete *i;
276                         immediate_events.erase (i);
277                 }
278
279                 i = tmp;
280         }
281
282         set_next_event ();
283 }
284