2 Copyright (C) 2014 Paul Brossier <piem@aubio.org>
4 This file is part of aubio.
6 aubio is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 aubio is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with aubio. If not, see <http://www.gnu.org/licenses/>.
25 #include "aubio_priv.h"
28 #include "source_wavread.h"
32 #define AUBIO_WAVREAD_BUFSIZE 1024
34 #define SHORT_TO_FLOAT(x) (smpl_t)(x * 3.0517578125e-05)
36 struct _aubio_source_wavread_t {
41 // some data about the file
43 uint_t input_samplerate;
44 uint_t input_channels;
55 unsigned char *short_output;
59 unsigned int read_little_endian (unsigned char *buf, unsigned int length);
60 unsigned int read_little_endian (unsigned char *buf, unsigned int length) {
62 for (i = 0; i < length; i++) {
63 ret += buf[i] << (i * 8);
68 aubio_source_wavread_t * new_aubio_source_wavread(char_t * path, uint_t samplerate, uint_t hop_size) {
69 aubio_source_wavread_t * s = AUBIO_NEW(aubio_source_wavread_t);
71 unsigned int format, channels, sr, byterate, blockalign, bitspersample;//, data_size;
74 AUBIO_ERR("source_wavread: Aborted opening null path\n");
77 if ((sint_t)samplerate < 0) {
78 AUBIO_ERR("source_wavread: Can not open %s with samplerate %d\n", path, samplerate);
81 if ((sint_t)hop_size <= 0) {
82 AUBIO_ERR("source_wavread: Can not open %s with hop_size %d\n", path, hop_size);
87 s->samplerate = samplerate;
88 s->hop_size = hop_size;
90 s->fid = fopen((const char *)path, "rb");
92 AUBIO_ERR("source_wavread: could not open %s (%s)\n", s->path, strerror(errno));
97 fread(buf, 4, 1, s->fid);
99 if ( strcmp((const char *)buf, "RIFF") != 0 ) {
100 AUBIO_ERR("source_wavread: could not find RIFF header in %s\n", s->path);
105 fread(buf, 4, 1, s->fid);
108 fread(buf, 4, 1, s->fid);
110 if ( strcmp((const char *)buf, "WAVE") != 0 ) {
111 AUBIO_ERR("source_wavread: wrong format in RIFF header in %s\n", s->path);
116 fread(buf, 4, 1, s->fid);
118 if ( strcmp((const char *)buf, "fmt ") != 0 ) {
119 AUBIO_ERR("source_wavread: fmt RIFF header in %s\n", s->path);
124 fread(buf, 4, 1, s->fid);
125 format = read_little_endian(buf, 4);
126 if ( format != 16 ) {
127 // TODO accept format 18
128 AUBIO_ERR("source_wavread: file %s is not encoded with PCM\n", s->path);
131 if ( buf[1] || buf[2] | buf[3] ) {
132 AUBIO_ERR("source_wavread: Subchunk1Size should be 0, in %s\n", s->path);
137 fread(buf, 2, 1, s->fid);
138 if ( buf[0] != 1 || buf[1] != 0) {
139 AUBIO_ERR("source_wavread: AudioFormat should be PCM, in %s\n", s->path);
144 fread(buf, 2, 1, s->fid);
145 channels = read_little_endian(buf, 2);
148 fread(buf, 4, 1, s->fid);
149 sr = read_little_endian(buf, 4);
152 fread(buf, 4, 1, s->fid);
153 byterate = read_little_endian(buf, 4);
156 fread(buf, 2, 1, s->fid);
157 blockalign = read_little_endian(buf, 2);
160 fread(buf, 2, 1, s->fid);
161 bitspersample = read_little_endian(buf, 2);
163 if ( bitspersample != 16 ) {
164 AUBIO_ERR("source_wavread: can not process %dbit file %s\n",
165 bitspersample, s->path);
170 if ( byterate * 8 != sr * channels * bitspersample ) {
171 AUBIO_ERR("source_wavread: wrong byterate in %s\n", s->path);
175 if ( blockalign * 8 != channels * bitspersample ) {
176 AUBIO_ERR("source_wavread: wrong blockalign in %s\n", s->path);
180 s->input_samplerate = sr;
181 s->input_channels = channels;
184 AUBIO_DBG("channels %d\n", channels);
185 AUBIO_DBG("sr %d\n", sr);
186 AUBIO_DBG("byterate %d\n", byterate);
187 AUBIO_DBG("blockalign %d\n", blockalign);
188 AUBIO_DBG("bitspersample %d\n", bitspersample);
190 AUBIO_DBG("found %d channels in %s\n", s->input_channels, s->path);
191 AUBIO_DBG("found %d samplerate in %s\n", s->input_samplerate, s->path);
194 if (samplerate == 0) {
195 s->samplerate = s->input_samplerate;
196 } else if (samplerate != s->input_samplerate) {
197 AUBIO_ERR("source_wavread: can not resample %s from %d to %dHz\n",
198 s->path, s->input_samplerate, samplerate);
203 fread(buf, 4, 1, s->fid);
205 if ( strcmp((const char *)buf, "data") != 0 ) {
206 AUBIO_ERR("source_wavread: data RIFF header not found in %s\n", s->path);
211 fread(buf, 4, 1, s->fid);
212 //data_size = buf[0] + (buf[1] << 8) + (buf[2] << 16) + (buf[3] << 24);
213 //AUBIO_MSG("found %d frames in %s\n", 8 * data_size / bitspersample / channels, s->path);
215 s->output = new_fmat(s->input_channels, AUBIO_WAVREAD_BUFSIZE);
216 s->blockalign= blockalign;
217 s->bitspersample = bitspersample;
219 s->short_output = (unsigned char *)calloc(s->blockalign, AUBIO_WAVREAD_BUFSIZE);
227 //AUBIO_ERR("source_wavread: can not read %s at samplerate %dHz with a hop_size of %d\n",
228 // s->path, s->samplerate, s->hop_size);
229 del_aubio_source_wavread(s);
233 void aubio_source_wavread_readframe(aubio_source_wavread_t *s, uint_t *wavread_read);
235 void aubio_source_wavread_readframe(aubio_source_wavread_t *s, uint_t *wavread_read) {
236 unsigned char *short_ptr = s->short_output;
237 size_t read = fread(short_ptr, s->blockalign, AUBIO_WAVREAD_BUFSIZE, s->fid);
238 uint_t i, j, b, bitspersample = s->bitspersample;
239 uint_t wrap_at = (1 << ( bitspersample - 1 ) );
240 uint_t wrap_with = (1 << bitspersample);
241 smpl_t scaler = 1. / wrap_at;
243 unsigned int unsigned_val = 0;
245 for (j = 0; j < read; j++) {
246 for (i = 0; i < s->input_channels; i++) {
248 for (b = 0; b < bitspersample; b+=8 ) {
249 unsigned_val += *(short_ptr) << b;
252 signed_val = unsigned_val;
253 // FIXME why does 8 bit conversion maps [0;255] to [-128;127]
254 // instead of [0;127] to [0;127] and [128;255] to [-128;-1]
255 if (bitspersample == 8) signed_val -= wrap_at;
256 else if (unsigned_val >= wrap_at) signed_val = unsigned_val - wrap_with;
257 s->output->data[i][j] = signed_val * scaler;
261 *wavread_read = read;
263 if (read == 0) s->eof = 1;
266 void aubio_source_wavread_do(aubio_source_wavread_t * s, fvec_t * read_data, uint_t * read){
269 uint_t total_wrote = 0;
270 while (total_wrote < s->hop_size) {
271 end = MIN(s->read_samples - s->read_index, s->hop_size - total_wrote);
272 for (i = 0; i < end; i++) {
273 read_data->data[i + total_wrote] = 0;
274 for (j = 0; j < s->input_channels; j++ ) {
275 read_data->data[i + total_wrote] += s->output->data[j][i + s->read_index];
277 read_data->data[i + total_wrote] /= (smpl_t)(s->input_channels);
280 if (total_wrote < s->hop_size) {
281 uint_t wavread_read = 0;
282 aubio_source_wavread_readframe(s, &wavread_read);
283 s->read_samples = wavread_read;
289 s->read_index += end;
292 if (total_wrote < s->hop_size) {
293 for (i = end; i < s->hop_size; i++) {
294 read_data->data[i] = 0.;
300 void aubio_source_wavread_do_multi(aubio_source_wavread_t * s, fmat_t * read_data, uint_t * read){
303 uint_t total_wrote = 0;
304 while (total_wrote < s->hop_size) {
305 end = MIN(s->read_samples - s->read_index, s->hop_size - total_wrote);
306 for (j = 0; j < read_data->height; j++) {
307 for (i = 0; i < end; i++) {
308 read_data->data[j][i + total_wrote] = s->output->data[j][i];
312 if (total_wrote < s->hop_size) {
313 uint_t wavread_read = 0;
314 aubio_source_wavread_readframe(s, &wavread_read);
315 s->read_samples = wavread_read;
321 s->read_index += end;
324 if (total_wrote < s->hop_size) {
325 for (j = 0; j < read_data->height; j++) {
326 for (i = end; i < s->hop_size; i++) {
327 read_data->data[j][i] = 0.;
334 uint_t aubio_source_wavread_get_samplerate(aubio_source_wavread_t * s) {
335 return s->samplerate;
338 uint_t aubio_source_wavread_get_channels(aubio_source_wavread_t * s) {
339 return s->input_channels;
342 uint_t aubio_source_wavread_seek (aubio_source_wavread_t * s, uint_t pos) {
343 uint_t ret = fseek(s->fid, 44 + pos * s->blockalign, SEEK_SET);
349 uint_t aubio_source_wavread_close (aubio_source_wavread_t * s) {
353 if (fclose(s->fid)) {
354 AUBIO_ERR("source_wavread: could not close %s (%s)\n", s->path, strerror(errno));
361 void del_aubio_source_wavread(aubio_source_wavread_t * s) {
363 aubio_source_wavread_close(s);
364 if (s->short_output) AUBIO_FREE(s->short_output);
365 if (s->output) del_fmat(s->output);
369 #endif /* HAVE_WAVREAD */