fix compose mess, and a number of 64 bit printf specs
[ardour.git] / libs / ardour / session_click.cc
1 /*
2     Copyright (C) 20002 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     $Id$
19 */
20
21 #include <list>
22 #include <cerrno>
23
24 #include <ardour/ardour.h>
25 #include <ardour/session.h>
26 #include <ardour/tempo.h>
27 #include <ardour/io.h>
28
29 #include <sndfile.h>
30
31 #include "i18n.h"
32
33 using namespace std;
34 using namespace ARDOUR;
35
36 Pool Session::Click::pool ("click", sizeof (Click), 128);
37
38 void
39 Session::click (jack_nframes_t start, jack_nframes_t nframes, jack_nframes_t offset)
40 {
41         TempoMap::BBTPointList *points;
42         jack_nframes_t end;
43         Sample *buf;
44         vector<Sample*> bufs;
45
46         if (_click_io == 0) {
47                 return;
48         }
49         
50         if (_transport_speed != 1.0 || !_clicking || click_data == 0) {
51                 _click_io->silence (nframes, offset);
52                 return;
53         } 
54
55         end = start + nframes;
56
57         buf = _passthru_buffers[0];
58         points = _tempo_map->get_points (start, end);
59
60         if (points == 0) {
61                 goto run_clicks;
62         }
63
64         if (points->empty()) {
65                 delete points;
66                 goto run_clicks;
67         }
68
69         for (TempoMap::BBTPointList::iterator i = points->begin(); i != points->end(); ++i) {
70                 switch ((*i).type) {
71                 case TempoMap::Beat:
72                         if (click_emphasis_data == 0 || (click_emphasis_data && (*i).beat != 1)) {
73                                 clicks.push_back (new Click ((*i).frame, click_length, click_data));
74                         }
75                         break;
76
77                 case TempoMap::Bar:
78                         if (click_emphasis_data) {
79                                 clicks.push_back (new Click ((*i).frame, click_emphasis_length, click_emphasis_data));
80                         } 
81                         break;
82                 }
83         }
84
85   run_clicks:
86         memset (buf, 0, sizeof (Sample) * nframes);
87
88         for (list<Click*>::iterator i = clicks.begin(); i != clicks.end(); ) {
89
90                 jack_nframes_t copy;
91                 jack_nframes_t internal_offset;
92                 Click *clk;
93                 list<Click*>::iterator next;
94
95                 clk = *i;
96                 next = i;
97                 ++next;
98
99                 if (clk->start < start) {
100                         internal_offset = 0;
101                 } else {
102                         internal_offset = clk->start - start;
103                 }
104
105                 copy = min (clk->duration - clk->offset, nframes - internal_offset);
106                 
107                 memcpy (buf + internal_offset, &clk->data[clk->offset], copy * sizeof (Sample));
108
109                 clk->offset += copy;
110
111                 if (clk->offset >= clk->duration) {
112                         delete clk;
113                         clicks.erase (i);
114                 }
115
116
117                 i = next;
118         }
119
120         _click_io->deliver_output (_passthru_buffers, 1, nframes, offset);
121 }
122
123 void
124 Session::setup_click_sounds (int which)
125 {
126         SNDFILE *sndfile;
127         SF_INFO info;
128
129         clear_clicks();
130
131         if ((which == 0 || which == 1)) {
132                 
133                 if (click_data && click_data != default_click) {
134                         delete [] click_data;
135                         click_data = 0;
136                 }
137
138                 if (click_sound.length() == 0) {
139
140                         click_data = const_cast<Sample*> (default_click);
141                         click_length = default_click_length;
142
143                 } else {
144
145                         if ((sndfile = sf_open (click_sound.c_str(), SFM_READ, &info)) == 0) {
146                                 char errbuf[256];
147                                 sf_error_str (0, errbuf, sizeof (errbuf) - 1);
148                                 warning << string_compose (_("cannot open click soundfile %1 (%2)"), click_sound, errbuf) << endmsg;
149                                 _clicking = false;
150                                 return;
151                         }
152                         
153                         click_data = new Sample[info.frames];
154                         click_length = info.frames;
155                         
156                         if (sf_read_float (sndfile, click_data, info.frames) != info.frames) {
157                                 warning << _("cannot read data from click soundfile") << endmsg;                        
158                                 delete click_data;
159                                 click_data = 0;
160                                 _clicking = false;
161                         }
162                         
163                         sf_close (sndfile);
164
165                 }
166         }
167                 
168         if ((which == 0 || which == -1)) {
169
170                 if (click_emphasis_data && click_emphasis_data != default_click_emphasis) {
171                         delete [] click_emphasis_data;
172                         click_emphasis_data = 0;
173                 }
174
175                 if (click_emphasis_sound.length() == 0) {
176                         click_emphasis_data = const_cast<Sample*> (default_click_emphasis);
177                         click_emphasis_length = default_click_emphasis_length;
178                 } else {
179                         if ((sndfile = sf_open (click_emphasis_sound.c_str(), SFM_READ, &info)) == 0) {
180                                 char errbuf[256];
181                                 sf_error_str (0, errbuf, sizeof (errbuf) - 1);
182                                 warning << string_compose (_("cannot open click emphasis soundfile %1 (%2)"), click_emphasis_sound, errbuf) << endmsg;
183                                 return;
184                         }
185                         
186                         click_emphasis_data = new Sample[info.frames];
187                         click_emphasis_length = info.frames;
188                         
189                         if (sf_read_float (sndfile, click_emphasis_data, info.frames) != info.frames) {
190                                 warning << _("cannot read data from click emphasis soundfile") << endmsg;                       
191                                 delete click_emphasis_data;
192                                 click_emphasis_data = 0;
193                         }
194                         
195                         sf_close (sndfile);
196                 }
197         }
198 }               
199
200 void
201 Session::clear_clicks ()
202 {
203         LockMonitor lm (route_lock, __LINE__, __FILE__);
204
205         for (Clicks::iterator i = clicks.begin(); i != clicks.end(); ++i) {
206                 delete *i;
207         }
208
209         clicks.clear ();
210 }
211
212 void
213 Session::set_click_sound (string path)
214 {
215         if (path != click_sound) {
216                 click_sound = path;
217                 setup_click_sounds (1);
218         }
219 }
220
221 void
222 Session::set_click_emphasis_sound (string path)
223 {
224         if (path != click_emphasis_sound) {
225                 click_emphasis_sound = path;
226                 setup_click_sounds (-1);
227         }
228 }
229
230 void
231 Session::set_clicking (bool yn)
232 {
233         if (click_requested != yn) {
234                 click_requested = yn;
235                 
236                 if (yn) {
237                         if (_click_io && click_data) {
238                                 _clicking = true;
239                         }
240                 } else {
241                         _clicking = false;
242                 }
243
244                  ControlChanged (Clicking); /* EMIT SIGNAL */
245         }
246 }
247
248 bool
249 Session::get_clicking () const
250 {
251         return click_requested;
252 }
253