#include <sys/stat.h>
#include <glib.h>
-#include <pbd/gstdio_compat.h>
+#include "pbd/gstdio_compat.h"
#include <glibmm/convert.h>
#include <glibmm/fileutils.h>
#include <glibmm/miscutils.h>
+#include "ardour/runtime_functions.h"
#include "ardour/sndfilesource.h"
#include "ardour/sndfile_helpers.h"
#include "ardour/utils.h"
#include "ardour/session.h"
-#include "i18n.h"
+#include "pbd/i18n.h"
using namespace std;
using namespace ARDOUR;
gain_t* SndFileSource::out_coefficient = 0;
gain_t* SndFileSource::in_coefficient = 0;
-framecnt_t SndFileSource::xfade_frames = 64;
+samplecnt_t SndFileSource::xfade_samples = 64;
const Source::Flag SndFileSource::default_writable_flags = Source::Flag (
Source::Writable |
Source::Removable |
not open existing ones.
*/
SndFileSource::SndFileSource (Session& s, const string& path, const string& origin,
- SampleFormat sfmt, HeaderFormat hf, framecnt_t rate, Flag flags)
+ SampleFormat sfmt, HeaderFormat hf, samplecnt_t rate, Flag flags)
: Source(s, DataType::AUDIO, path, flags)
, AudioFileSource (s, path, origin, flags, sfmt, hf)
, _sndfile (0)
}
}
+/** Constructor to losslessly compress existing source to flac */
+SndFileSource::SndFileSource (Session& s, const AudioFileSource& other, const string& path, bool use16bits, Progress* progress)
+ : Source(s, DataType::AUDIO, path, Flag ((other.flags () | default_writable_flags | NoPeakFile) & ~RF64_RIFF))
+ , AudioFileSource (s, path, "", Flag ((other.flags () | default_writable_flags | NoPeakFile) & ~RF64_RIFF), /*unused*/ FormatFloat, /*unused*/ WAVE64)
+ , _sndfile (0)
+ , _broadcast_info (0)
+ , _capture_start (false)
+ , _capture_end (false)
+ , file_pos (0)
+ , xfade_buf (0)
+{
+ if (other.readable_length () == 0) {
+ throw failed_constructor();
+ }
+
+ assert (!Glib::file_test (_path, Glib::FILE_TEST_EXISTS));
+
+ _channel = 0;
+ init_sndfile ();
+
+ _file_is_new = true;
+
+ _info.channels = 1;
+ _info.samplerate = other.sample_rate ();
+ _info.format = SF_FORMAT_FLAC | (use16bits ? SF_FORMAT_PCM_16 : SF_FORMAT_PCM_24);
+
+ /* flac is either read or write -- never both,
+ * so we need to special-case ::open () */
+#ifdef PLATFORM_WINDOWS
+ int fd = g_open (_path.c_str(), O_CREAT | O_RDWR, 0644);
+#else
+ int fd = ::open (_path.c_str(), O_CREAT | O_RDWR, 0644);
+#endif
+ if (fd == -1) {
+ throw failed_constructor();
+ }
+
+ _sndfile = sf_open_fd (fd, SFM_WRITE, &_info, true);
+
+ if (_sndfile == 0) {
+ throw failed_constructor();
+ }
+
+#if 0
+ /* setting flac compression quality above the default does not produce a significant size
+ * improvement (not for large raw recordings anyway, the_CLA tests 2017-10-02, >> 250MB files,
+ * ~1% smaller), but does have a significant encoding speed penalty.
+ *
+ * We still may expose this as option someday though, perhaps for opposite reason: "fast encoding"
+ */
+ double flac_quality = 1; // libsndfile uses range 0..1 (mapped to flac 0..8), default is (5/8)
+ if (sf_command (_sndfile, SFC_SET_COMPRESSION_LEVEL, &flac_quality, sizeof (double)) != SF_TRUE) {
+ char errbuf[256];
+ sf_error_str (_sndfile, errbuf, sizeof (errbuf) - 1);
+ error << string_compose (_("Cannot set flac compression level: %1"), errbuf) << endmsg;
+ }
+#endif
+
+ Sample buf[8192];
+ samplecnt_t off = 0;
+ float peak = 0;
+ float norm = 1.f;
+
+ /* normalize before converting to fixed point, calc gain factor */
+ samplecnt_t len = other.read (buf, off, 8192, other.channel ());
+ while (len > 0) {
+ peak = compute_peak (buf, len, peak);
+ off += len;
+ len = other.read (buf, off, 8192, other.channel ());
+ if (progress) {
+ progress->set_progress (0.5f * (float) off / other.readable_length ());
+ }
+ }
+
+ if (peak > 0) {
+ _gain *= peak;
+ norm = 1.f / peak;
+ }
+
+ /* copy file */
+ off = 0;
+ len = other.read (buf, off, 8192, other.channel ());
+ while (len > 0) {
+ if (norm != 1.f) {
+ for (samplecnt_t i = 0; i < len; ++i) {
+ buf[i] *= norm;
+ }
+ }
+ write (buf, len);
+ off += len;
+ len = other.read (buf, off, 8192, other.channel ());
+ if (progress) {
+ progress->set_progress (0.5f + 0.5f * (float) off / other.readable_length ());
+ }
+ }
+}
+
void
SndFileSource::init_sndfile ()
{
memset (&_info, 0, sizeof(_info));
if (destructive()) {
- xfade_buf = new Sample[xfade_frames];
+ xfade_buf = new Sample[xfade_samples];
_timeline_position = header_position_offset;
}
if (_sndfile) {
sf_close (_sndfile);
_sndfile = 0;
+ file_closed ();
}
}
return -1;
}
- _sndfile = sf_open_fd (fd, writable() ? SFM_RDWR : SFM_READ, &_info, true);
+ if ((_info.format & SF_FORMAT_TYPEMASK ) == SF_FORMAT_FLAC) {
+ assert (!writable());
+ _sndfile = sf_open_fd (fd, SFM_READ, &_info, true);
+ } else {
+ _sndfile = sf_open_fd (fd, writable() ? SFM_RDWR : SFM_READ, &_info, true);
+ }
if (_sndfile == 0) {
char errbuf[1024];
#ifdef HAVE_RF64_RIFF
if (_file_is_new && _length == 0 && writable()) {
if (_flags & RF64_RIFF) {
- if (sf_command (_sndfile, SFC_AUTO_DOWNGRADE_RF64, 0, 0) != SF_TRUE) {
+ if (sf_command (_sndfile, SFC_RF64_AUTO_DOWNGRADE, 0, 0) != SF_TRUE) {
char errbuf[256];
sf_error_str (_sndfile, errbuf, sizeof (errbuf) - 1);
error << string_compose (_("Cannot mark RF64 audio file for automatic downgrade to WAV: %1"), errbuf)
return _info.samplerate;
}
-framecnt_t
-SndFileSource::read_unlocked (Sample *dst, framepos_t start, framecnt_t cnt) const
+samplecnt_t
+SndFileSource::read_unlocked (Sample *dst, samplepos_t start, samplecnt_t cnt) const
{
assert (cnt >= 0);
- framecnt_t nread;
+ samplecnt_t nread;
float *ptr;
- framecnt_t real_cnt;
- framepos_t file_cnt;
+ samplecnt_t real_cnt;
+ samplepos_t file_cnt;
if (writable() && !_sndfile) {
/* file has not been opened yet - nothing written to it */
assert (file_cnt >= 0);
if (file_cnt != cnt) {
- framepos_t delta = cnt - file_cnt;
+ samplepos_t delta = cnt - file_cnt;
memset (dst+file_cnt, 0, sizeof (Sample) * delta);
}
if (sf_seek (_sndfile, (sf_count_t) start, SEEK_SET|SFM_READ) != (sf_count_t) start) {
char errbuf[256];
sf_error_str (0, errbuf, sizeof (errbuf) - 1);
- error << string_compose(_("SndFileSource: could not seek to frame %1 within %2 (%3)"), start, _name.val().substr (1), errbuf) << endmsg;
+ error << string_compose(_("SndFileSource: could not seek to sample %1 within %2 (%3)"), start, _name.val().substr (1), errbuf) << endmsg;
return 0;
}
if (_info.channels == 1) {
- framecnt_t ret = sf_read_float (_sndfile, dst, file_cnt);
+ samplecnt_t ret = sf_read_float (_sndfile, dst, file_cnt);
if (ret != file_cnt) {
char errbuf[256];
sf_error_str (0, errbuf, sizeof (errbuf) - 1);
error << string_compose(_("SndFileSource: @ %1 could not read %2 within %3 (%4) (len = %5, ret was %6)"), start, file_cnt, _name.val().substr (1), errbuf, _length, ret) << endl;
}
+ if (_gain != 1.f) {
+ for (samplecnt_t i = 0; i < ret; ++i) {
+ dst[i] *= _gain;
+ }
+ }
return ret;
}
}
/* stride through the interleaved data */
- for (framecnt_t n = 0; n < nread; ++n) {
- dst[n] = *ptr;
- ptr += _info.channels;
+ if (_gain != 1.f) {
+ for (samplecnt_t n = 0; n < nread; ++n) {
+ dst[n] = *ptr * _gain;
+ ptr += _info.channels;
+ }
+ } else {
+ for (samplecnt_t n = 0; n < nread; ++n) {
+ dst[n] = *ptr;
+ ptr += _info.channels;
+ }
}
return nread;
}
-framecnt_t
-SndFileSource::write_unlocked (Sample *data, framecnt_t cnt)
+samplecnt_t
+SndFileSource::write_unlocked (Sample *data, samplecnt_t cnt)
{
if (open()) {
return 0; // failure
}
}
-framecnt_t
-SndFileSource::nondestructive_write_unlocked (Sample *data, framecnt_t cnt)
+samplecnt_t
+SndFileSource::nondestructive_write_unlocked (Sample *data, samplecnt_t cnt)
{
if (!writable()) {
warning << string_compose (_("attempt to write a non-writable audio file source (%1)"), _path) << endmsg;
return 0;
}
- framepos_t frame_pos = _length;
+ samplepos_t sample_pos = _length;
- if (write_float (data, frame_pos, cnt) != cnt) {
+ if (write_float (data, sample_pos, cnt) != cnt) {
return 0;
}
update_length (_length + cnt);
if (_build_peakfiles) {
- compute_and_write_peaks (data, frame_pos, cnt, true, true);
+ compute_and_write_peaks (data, sample_pos, cnt, true, true);
}
return cnt;
}
-framecnt_t
-SndFileSource::destructive_write_unlocked (Sample* data, framecnt_t cnt)
+samplecnt_t
+SndFileSource::destructive_write_unlocked (Sample* data, samplecnt_t cnt)
{
if (!writable()) {
warning << string_compose (_("attempt to write a non-writable audio file source (%1)"), _path) << endmsg;
_capture_end = false;
/* move to the correct location place */
- file_pos = capture_start_frame - _timeline_position;
+ file_pos = capture_start_sample - _timeline_position;
// split cnt in half
- framecnt_t subcnt = cnt / 2;
- framecnt_t ofilepos = file_pos;
+ samplecnt_t subcnt = cnt / 2;
+ samplecnt_t ofilepos = file_pos;
// fade in
if (crossfade (data, subcnt, 1) != subcnt) {
_capture_end = false;
/* move to the correct location place */
- file_pos = capture_start_frame - _timeline_position;
+ file_pos = capture_start_sample - _timeline_position;
if (crossfade (data, cnt, 1) != cnt) {
return 0;
}
int
-SndFileSource::update_header (framepos_t when, struct tm& now, time_t tnow)
+SndFileSource::update_header (samplepos_t when, struct tm& now, time_t tnow)
{
set_timeline_position (when);
}
int
-SndFileSource::setup_broadcast_info (framepos_t /*when*/, struct tm& now, time_t /*tnow*/)
+SndFileSource::setup_broadcast_info (samplepos_t /*when*/, struct tm& now, time_t /*tnow*/)
{
if (!writable()) {
warning << string_compose (_("attempt to store broadcast info in a non-writable audio file source (%1)"), _path) << endmsg;
}
}
-framecnt_t
-SndFileSource::write_float (Sample* data, framepos_t frame_pos, framecnt_t cnt)
+samplecnt_t
+SndFileSource::write_float (Sample* data, samplepos_t sample_pos, samplecnt_t cnt)
{
- if (_sndfile == 0 || sf_seek (_sndfile, frame_pos, SEEK_SET|SFM_WRITE) < 0) {
+ if ((_info.format & SF_FORMAT_TYPEMASK ) == SF_FORMAT_FLAC) {
+ assert (_length == sample_pos);
+ }
+ else if (_sndfile == 0 || sf_seek (_sndfile, sample_pos, SEEK_SET|SFM_WRITE) < 0) {
char errbuf[256];
sf_error_str (0, errbuf, sizeof (errbuf) - 1);
- error << string_compose (_("%1: cannot seek to %2 (libsndfile error: %3)"), _path, frame_pos, errbuf) << endmsg;
+ error << string_compose (_("%1: cannot seek to %2 (libsndfile error: %3)"), _path, sample_pos, errbuf) << endmsg;
return 0;
}
return cnt;
}
-framepos_t
+samplepos_t
SndFileSource::natural_position() const
{
return _timeline_position;
}
-bool
-SndFileSource::set_destructive (bool yn)
-{
- if (yn) {
- _flags = Flag (_flags | Writable | Destructive);
- if (!xfade_buf) {
- xfade_buf = new Sample[xfade_frames];
- }
- clear_capture_marks ();
- _timeline_position = header_position_offset;
- } else {
- _flags = Flag (_flags & ~Destructive);
- _timeline_position = 0;
- /* leave xfade buf alone in case we need it again later */
- }
-
- return true;
-}
-
void
SndFileSource::clear_capture_marks ()
{
_capture_end = false;
}
-/** @param pos Capture start position in session frames */
+/** @param pos Capture start position in session samples */
void
-SndFileSource::mark_capture_start (framepos_t pos)
+SndFileSource::mark_capture_start (samplepos_t pos)
{
if (destructive()) {
if (pos < _timeline_position) {
_capture_start = false;
} else {
_capture_start = true;
- capture_start_frame = pos;
+ capture_start_sample = pos;
}
}
}
}
}
-framecnt_t
-SndFileSource::crossfade (Sample* data, framecnt_t cnt, int fade_in)
+samplecnt_t
+SndFileSource::crossfade (Sample* data, samplecnt_t cnt, int fade_in)
{
- framecnt_t xfade = min (xfade_frames, cnt);
- framecnt_t nofade = cnt - xfade;
+ samplecnt_t xfade = min (xfade_samples, cnt);
+ samplecnt_t nofade = cnt - xfade;
Sample* fade_data = 0;
- framepos_t fade_position = 0; // in frames
+ samplepos_t fade_position = 0; // in samples
ssize_t retval;
- framecnt_t file_cnt;
+ samplecnt_t file_cnt;
if (fade_in) {
fade_position = file_pos;
}
if (file_cnt != xfade) {
- framecnt_t delta = xfade - file_cnt;
+ samplecnt_t delta = xfade - file_cnt;
memset (xfade_buf+file_cnt, 0, sizeof (Sample) * delta);
}
}
}
- if (xfade == xfade_frames) {
+ if (xfade == xfade_samples) {
- framecnt_t n;
+ samplecnt_t n;
/* use the standard xfade curve */
}
}
- } else if (xfade < xfade_frames) {
+ } else if (xfade < xfade_samples) {
std::vector<gain_t> in(xfade);
std::vector<gain_t> out(xfade);
compute_equal_power_fades (xfade, &in[0], &out[0]);
- for (framecnt_t n = 0; n < xfade; ++n) {
+ for (samplecnt_t n = 0; n < xfade; ++n) {
xfade_buf[n] = (xfade_buf[n] * out[n]) + (fade_data[n] * in[n]);
}
return cnt;
}
-framepos_t
-SndFileSource::last_capture_start_frame () const
+samplepos_t
+SndFileSource::last_capture_start_sample () const
{
if (destructive()) {
- return capture_start_frame;
+ return capture_start_sample;
} else {
return 0;
}
}
void
-SndFileSource::setup_standard_crossfades (Session const & s, framecnt_t rate)
+SndFileSource::setup_standard_crossfades (Session const & s, samplecnt_t rate)
{
/* This static method is assumed to have been called by the Session
before any DFS's are created.
*/
- xfade_frames = (framecnt_t) floor ((s.config.get_destructive_xfade_msecs () / 1000.0) * rate);
+ xfade_samples = (samplecnt_t) floor ((s.config.get_destructive_xfade_msecs () / 1000.0) * rate);
delete [] out_coefficient;
delete [] in_coefficient;
- out_coefficient = new gain_t[xfade_frames];
- in_coefficient = new gain_t[xfade_frames];
+ out_coefficient = new gain_t[xfade_samples];
+ in_coefficient = new gain_t[xfade_samples];
- compute_equal_power_fades (xfade_frames, in_coefficient, out_coefficient);
+ compute_equal_power_fades (xfade_samples, in_coefficient, out_coefficient);
}
void
-SndFileSource::set_timeline_position (framepos_t pos)
+SndFileSource::set_timeline_position (samplepos_t pos)
{
// destructive track timeline postion does not change
// except at instantion or when header_position_offset