X-Git-Url: https://git.carlh.net/gitweb/?a=blobdiff_plain;f=src%2Flib%2Fwriter.cc;h=87cdac2d8c97bf3ce6dd4b0e47b93cf96fe4bdcb;hb=c103d8c1306e5fb3937b3a6c430a3fff32653fa3;hp=3f856737b2e00b7fbc13ce342a068e8b66bfc485;hpb=a6791850f8bf56f4a08cf860fdce8df2d3e13405;p=dcpomatic.git diff --git a/src/lib/writer.cc b/src/lib/writer.cc index 3f856737b..2dd46f0b2 100644 --- a/src/lib/writer.cc +++ b/src/lib/writer.cc @@ -1,191 +1,164 @@ /* - Copyright (C) 2012-2015 Carl Hetherington + Copyright (C) 2012-2021 Carl Hetherington - This program is free software; you can redistribute it and/or modify + This file is part of DCP-o-matic. + + DCP-o-matic is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. - This program is distributed in the hope that it will be useful, + DCP-o-matic is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + along with DCP-o-matic. If not, see . */ -#include "writer.h" -#include "compose.hpp" -#include "film.h" -#include "ratio.h" -#include "log.h" -#include "dcp_video.h" -#include "dcp_content_type.h" + +#include "audio_buffers.h" #include "audio_mapping.h" +#include "compose.hpp" #include "config.h" -#include "job.h" #include "cross.h" -#include "audio_buffers.h" -#include "md5_digester.h" -#include "data.h" -#include "version.h" -#include "font.h" +#include "dcp_content_type.h" +#include "dcp_video.h" +#include "dcpomatic_log.h" +#include "film.h" +#include "job.h" +#include "log.h" +#include "ratio.h" +#include "reel_writer.h" +#include "text_content.h" #include "util.h" -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include +#include "version.h" +#include "writer.h" #include -#include -#include -#include -#include -#include +#include +#include +#include #include -#include +#include +#include #include "i18n.h" -#define LOG_GENERAL(...) _film->log()->log (String::compose (__VA_ARGS__), Log::TYPE_GENERAL); -#define LOG_GENERAL_NC(...) _film->log()->log (__VA_ARGS__, Log::TYPE_GENERAL); -#define LOG_DEBUG_ENCODE(...) _film->log()->log (String::compose (__VA_ARGS__), Log::TYPE_DEBUG_ENCODE); -#define LOG_TIMING(...) _film->log()->microsecond_log (String::compose (__VA_ARGS__), Log::TYPE_TIMING); -#define LOG_WARNING_NC(...) _film->log()->log (__VA_ARGS__, Log::TYPE_WARNING); -#define LOG_WARNING(...) _film->log()->log (String::compose (__VA_ARGS__), Log::TYPE_WARNING); -#define LOG_ERROR(...) _film->log()->log (String::compose (__VA_ARGS__), Log::TYPE_ERROR); /* OS X strikes again */ #undef set_key -using std::make_pair; -using std::pair; -using std::string; -using std::list; -using std::cout; -using boost::shared_ptr; -using boost::weak_ptr; -using boost::dynamic_pointer_cast; - -int const Writer::_info_size = 48; -Writer::Writer (shared_ptr film, weak_ptr j) - : _film (film) +using std::cout; +using std::dynamic_pointer_cast; +using std::make_shared; +using std::max; +using std::min; +using std::shared_ptr; +using std::set; +using std::string; +using std::vector; +using std::weak_ptr; +using boost::optional; +#if BOOST_VERSION >= 106100 +using namespace boost::placeholders; +#endif +using dcp::Data; +using dcp::ArrayData; +using namespace dcpomatic; + + +/** @param j Job to report progress to, or 0. + * @param text_only true to enable only the text (subtitle/ccap) parts of the writer. + */ +Writer::Writer (weak_ptr weak_film, weak_ptr j, bool text_only) + : WeakConstFilm (weak_film) , _job (j) - , _first_nonexistant_frame (0) - , _thread (0) - , _finish (false) - , _queued_full_in_memory (0) - , _last_written_frame (-1) - , _last_written_eyes (EYES_RIGHT) - , _maximum_frames_in_memory (0) - , _full_written (0) - , _fake_written (0) - , _repeat_written (0) - , _pushed_to_disk (0) + /* These will be reset to sensible values when J2KEncoder is created */ + , _maximum_frames_in_memory (8) + , _maximum_queue_size (8) + , _text_only (text_only) { - /* Remove any old DCP */ - boost::filesystem::remove_all (_film->dir (_film->dcp_name ())); - - shared_ptr job = _job.lock (); - DCPOMATIC_ASSERT (job); - - /* Create our picture asset in a subdirectory, named according to those - film's parameters which affect the video output. We will hard-link - it into the DCP later. - */ - - if (_film->three_d ()) { - _picture_asset.reset (new dcp::StereoPictureAsset (dcp::Fraction (_film->video_frame_rate (), 1))); - } else { - _picture_asset.reset (new dcp::MonoPictureAsset (dcp::Fraction (_film->video_frame_rate (), 1))); - } - - _picture_asset->set_size (_film->frame_size ()); + auto job = _job.lock (); - if (_film->encrypted ()) { - _picture_asset->set_key (_film->key ()); + int reel_index = 0; + auto const reels = film()->reels(); + for (auto p: reels) { + _reels.push_back (ReelWriter(weak_film, p, job, reel_index++, reels.size(), text_only)); } - _picture_asset->set_file ( - _film->internal_video_asset_dir() / _film->internal_video_asset_filename() - ); - - job->sub (_("Checking existing image data")); - check_existing_picture_asset (); - - _picture_asset_writer = _picture_asset->start_write ( - _film->internal_video_asset_dir() / _film->internal_video_asset_filename(), - _film->interop() ? dcp::INTEROP : dcp::SMPTE, - _first_nonexistant_frame > 0 - ); - - if (_film->audio_channels ()) { - _sound_asset.reset ( - new dcp::SoundAsset (dcp::Fraction (_film->video_frame_rate(), 1), _film->audio_frame_rate (), _film->audio_channels ()) - ); - - if (_film->encrypted ()) { - _sound_asset->set_key (_film->key ()); - } + _last_written.resize (reels.size()); - /* Write the sound asset into the film directory so that we leave the creation - of the DCP directory until the last minute. - */ - _sound_asset_writer = _sound_asset->start_write ( - _film->directory() / audio_asset_filename (_sound_asset), - _film->interop() ? dcp::INTEROP : dcp::SMPTE - ); + /* We can keep track of the current audio, subtitle and closed caption reels easily because audio + and captions arrive to the Writer in sequence. This is not so for video. + */ + _audio_reel = _reels.begin (); + _subtitle_reel = _reels.begin (); + for (auto i: film()->closed_caption_tracks()) { + _caption_reels[i] = _reels.begin (); } + _atmos_reel = _reels.begin (); - /* Check that the signer is OK if we need one */ - if (_film->is_signed() && !Config::instance()->signer_chain()->valid ()) { - throw InvalidSignerError (); + /* Check that the signer is OK */ + string reason; + if (!Config::instance()->signer_chain()->valid(&reason)) { + throw InvalidSignerError (reason); } - - job->sub (_("Encoding image data")); } + void Writer::start () { - _thread = new boost::thread (boost::bind (&Writer::thread, this)); + if (!_text_only) { + _thread = boost::thread (boost::bind(&Writer::thread, this)); +#ifdef DCPOMATIC_LINUX + pthread_setname_np (_thread.native_handle(), "writer"); +#endif + } } + Writer::~Writer () { - terminate_thread (false); + if (!_text_only) { + terminate_thread (false); + } } + +/** Pass a video frame to the writer for writing to disk at some point. + * This method can be called with frames out of order. + * @param encoded JPEG2000-encoded data. + * @param frame Frame index within the DCP. + * @param eyes Eyes that this frame image is for. + */ void -Writer::write (Data encoded, int frame, Eyes eyes) +Writer::write (shared_ptr encoded, Frame frame, Eyes eyes) { boost::mutex::scoped_lock lock (_state_mutex); while (_queued_full_in_memory > _maximum_frames_in_memory) { - /* The queue is too big; wait until that is sorted out */ + /* There are too many full frames in memory; wake the main writer thread and + wait until it sorts everything out */ + _empty_condition.notify_all (); _full_condition.wait (lock); } QueueItem qi; - qi.type = QueueItem::FULL; + qi.type = QueueItem::Type::FULL; qi.encoded = encoded; - qi.frame = frame; + qi.reel = video_reel (frame); + qi.frame = frame - _reels[qi.reel].start (); - if (_film->three_d() && eyes == EYES_BOTH) { + if (film()->three_d() && eyes == Eyes::BOTH) { /* 2D material in a 3D DCP; fake the 3D */ - qi.eyes = EYES_LEFT; + qi.eyes = Eyes::LEFT; _queue.push_back (qi); ++_queued_full_in_memory; - qi.eyes = EYES_RIGHT; + qi.eyes = Eyes::RIGHT; _queue.push_back (qi); ++_queued_full_in_memory; } else { @@ -198,23 +171,39 @@ Writer::write (Data encoded, int frame, Eyes eyes) _empty_condition.notify_all (); } + +bool +Writer::can_repeat (Frame frame) const +{ + return frame > _reels[video_reel(frame)].start(); +} + + +/** Repeat the last frame that was written to a reel as a new frame. + * @param frame Frame index within the DCP of the new (repeated) frame. + * @param eyes Eyes that this repeated frame image is for. + */ void -Writer::repeat (int frame, Eyes eyes) +Writer::repeat (Frame frame, Eyes eyes) { boost::mutex::scoped_lock lock (_state_mutex); - while (_queued_full_in_memory > _maximum_frames_in_memory) { - /* The queue is too big; wait until that is sorted out */ + while (_queue.size() > _maximum_queue_size && have_sequenced_image_at_queue_head()) { + /* The queue is too big, and the main writer thread can run and fix it, so + wake it and wait until it has done. + */ + _empty_condition.notify_all (); _full_condition.wait (lock); } QueueItem qi; - qi.type = QueueItem::REPEAT; - qi.frame = frame; - if (_film->three_d() && eyes == EYES_BOTH) { - qi.eyes = EYES_LEFT; + qi.type = QueueItem::Type::REPEAT; + qi.reel = video_reel (frame); + qi.frame = frame - _reels[qi.reel].start (); + if (film()->three_d() && eyes == Eyes::BOTH) { + qi.eyes = Eyes::LEFT; _queue.push_back (qi); - qi.eyes = EYES_RIGHT; + qi.eyes = Eyes::RIGHT; _queue.push_back (qi); } else { qi.eyes = eyes; @@ -225,31 +214,37 @@ Writer::repeat (int frame, Eyes eyes) _empty_condition.notify_all (); } + void -Writer::fake_write (int frame, Eyes eyes) +Writer::fake_write (Frame frame, Eyes eyes) { boost::mutex::scoped_lock lock (_state_mutex); - while (_queued_full_in_memory > _maximum_frames_in_memory) { - /* The queue is too big; wait until that is sorted out */ + while (_queue.size() > _maximum_queue_size && have_sequenced_image_at_queue_head()) { + /* The queue is too big, and the main writer thread can run and fix it, so + wake it and wait until it has done. + */ + _empty_condition.notify_all (); _full_condition.wait (lock); } - FILE* file = fopen_boost (_film->info_file (), "rb"); - if (!file) { - throw ReadFileError (_film->info_file ()); - } - dcp::FrameInfo info = read_frame_info (file, frame, eyes); - fclose (file); + size_t const reel = video_reel (frame); + Frame const frame_in_reel = frame - _reels[reel].start (); QueueItem qi; - qi.type = QueueItem::FAKE; - qi.size = info.size; - qi.frame = frame; - if (_film->three_d() && eyes == EYES_BOTH) { - qi.eyes = EYES_LEFT; + qi.type = QueueItem::Type::FAKE; + + { + shared_ptr info_file = film()->info_file_handle(_reels[reel].period(), true); + qi.size = _reels[reel].read_frame_info(info_file, frame_in_reel, eyes).size; + } + + qi.reel = reel; + qi.frame = frame_in_reel; + if (film()->three_d() && eyes == Eyes::BOTH) { + qi.eyes = Eyes::LEFT; _queue.push_back (qi); - qi.eyes = EYES_RIGHT; + qi.eyes = Eyes::RIGHT; _queue.push_back (qi); } else { qi.eyes = eyes; @@ -260,16 +255,85 @@ Writer::fake_write (int frame, Eyes eyes) _empty_condition.notify_all (); } -/** This method is not thread safe */ + +/** Write some audio frames to the DCP. + * @param audio Audio data. + * @param time Time of this data within the DCP. + * This method is not thread safe. + */ void -Writer::write (shared_ptr audio) +Writer::write (shared_ptr audio, DCPTime const time) { - if (_sound_asset_writer) { - _sound_asset_writer->write (audio->data(), audio->frames()); + DCPOMATIC_ASSERT (audio); + + int const afr = film()->audio_frame_rate(); + + DCPTime const end = time + DCPTime::from_frames(audio->frames(), afr); + + /* The audio we get might span a reel boundary, and if so we have to write it in bits */ + + DCPTime t = time; + while (t < end) { + + if (_audio_reel == _reels.end ()) { + /* This audio is off the end of the last reel; ignore it */ + return; + } + + if (end <= _audio_reel->period().to) { + /* Easy case: we can write all the audio to this reel */ + _audio_reel->write (audio); + t = end; + } else if (_audio_reel->period().to <= t) { + /* This reel is entirely before the start of our audio; just skip the reel */ + ++_audio_reel; + } else { + /* This audio is over a reel boundary; split the audio into two and write the first part */ + DCPTime part_lengths[2] = { + _audio_reel->period().to - t, + end - _audio_reel->period().to + }; + + /* Be careful that part_lengths[0] + part_lengths[1] can't be bigger than audio->frames() */ + Frame part_frames[2] = { + part_lengths[0].frames_ceil(afr), + part_lengths[1].frames_floor(afr) + }; + + DCPOMATIC_ASSERT ((part_frames[0] + part_frames[1]) <= audio->frames()); + + if (part_frames[0]) { + auto part = make_shared(audio, part_frames[0], 0); + _audio_reel->write (part); + } + + if (part_frames[1]) { + audio = make_shared(audio, part_frames[1], part_frames[0]); + } else { + audio.reset (); + } + + ++_audio_reel; + t += part_lengths[0]; + } + } +} + + +void +Writer::write (shared_ptr atmos, DCPTime time, AtmosMetadata metadata) +{ + if (_atmos_reel->period().to == time) { + ++_atmos_reel; + DCPOMATIC_ASSERT (_atmos_reel != _reels.end()); } + + /* We assume that we get a video frame's worth of data here */ + _atmos_reel->write (atmos, metadata); } -/** This must be called from Writer::thread() with an appropriate lock held */ + +/** Caller must hold a lock on _state_mutex */ bool Writer::have_sequenced_image_at_queue_head () { @@ -278,50 +342,47 @@ Writer::have_sequenced_image_at_queue_head () } _queue.sort (); + auto const & f = _queue.front(); + return _last_written[f.reel].next(f); +} - /* The queue should contain only EYES_LEFT/EYES_RIGHT pairs or EYES_BOTH */ - if (_queue.front().eyes == EYES_BOTH) { +bool +Writer::LastWritten::next (QueueItem qi) const +{ + if (qi.eyes == Eyes::BOTH) { /* 2D */ - return _queue.front().frame == (_last_written_frame + 1); + return qi.frame == (_frame + 1); } /* 3D */ - if (_last_written_eyes == EYES_LEFT && _queue.front().frame == _last_written_frame && _queue.front().eyes == EYES_RIGHT) { + if (_eyes == Eyes::LEFT && qi.frame == _frame && qi.eyes == Eyes::RIGHT) { return true; } - if (_last_written_eyes == EYES_RIGHT && _queue.front().frame == (_last_written_frame + 1) && _queue.front().eyes == EYES_LEFT) { + if (_eyes == Eyes::RIGHT && qi.frame == (_frame + 1) && qi.eyes == Eyes::LEFT) { return true; } return false; } + void -Writer::write_frame_info (int frame, Eyes eyes, dcp::FrameInfo info) const +Writer::LastWritten::update (QueueItem qi) { - FILE* file = 0; - if (boost::filesystem::exists (_film->info_file ())) { - file = fopen_boost (_film->info_file(), "r+b"); - } else { - file = fopen_boost (_film->info_file(), "wb"); - } - if (!file) { - throw OpenFileError (_film->info_file ()); - } - dcpomatic_fseek (file, frame_info_position (frame, eyes), SEEK_SET); - fwrite (&info.offset, sizeof (info.offset), 1, file); - fwrite (&info.size, sizeof (info.size), 1, file); - fwrite (info.hash.c_str(), 1, info.hash.size(), file); - fclose (file); + _frame = qi.frame; + _eyes = qi.eyes; } + void Writer::thread () try { + start_of_thread ("Writer"); + while (true) { boost::mutex::scoped_lock lock (_state_mutex); @@ -339,10 +400,6 @@ try LOG_TIMING (N_("writer-wake queue=%1"), _queue.size()); } - if (_finish && _queue.empty()) { - return; - } - /* We stop here if we have been asked to finish, and if either the queue is empty or we do not have a sequenced image at its head (if this is the case we will never terminate as no new frames will be sent once @@ -352,73 +409,53 @@ try /* (Hopefully temporarily) log anything that was not written */ if (!_queue.empty() && !have_sequenced_image_at_queue_head()) { LOG_WARNING (N_("Finishing writer with a left-over queue of %1:"), _queue.size()); - for (list::const_iterator i = _queue.begin(); i != _queue.end(); ++i) { - if (i->type == QueueItem::FULL) { - LOG_WARNING (N_("- type FULL, frame %1, eyes %2"), i->frame, i->eyes); + for (auto const& i: _queue) { + if (i.type == QueueItem::Type::FULL) { + LOG_WARNING (N_("- type FULL, frame %1, eyes %2"), i.frame, (int) i.eyes); } else { - LOG_WARNING (N_("- type FAKE, size %1, frame %2, eyes %3"), i->size, i->frame, i->eyes); + LOG_WARNING (N_("- type FAKE, size %1, frame %2, eyes %3"), i.size, i.frame, (int) i.eyes); } } - LOG_WARNING (N_("Last written frame %1, last written eyes %2"), _last_written_frame, _last_written_eyes); } return; } + /* Write any frames that we can write; i.e. those that are in sequence. */ while (have_sequenced_image_at_queue_head ()) { - QueueItem qi = _queue.front (); + auto qi = _queue.front (); + _last_written[qi.reel].update (qi); _queue.pop_front (); - if (qi.type == QueueItem::FULL && qi.encoded) { + if (qi.type == QueueItem::Type::FULL && qi.encoded) { --_queued_full_in_memory; } lock.unlock (); + + auto& reel = _reels[qi.reel]; + switch (qi.type) { - case QueueItem::FULL: - { - LOG_DEBUG_ENCODE (N_("Writer FULL-writes %1 (%2)"), qi.frame, qi.eyes); + case QueueItem::Type::FULL: + LOG_DEBUG_ENCODE (N_("Writer FULL-writes %1 (%2)"), qi.frame, (int) qi.eyes); if (!qi.encoded) { - qi.encoded = Data (_film->j2c_path (qi.frame, qi.eyes, false)); + qi.encoded.reset (new ArrayData(film()->j2c_path(qi.reel, qi.frame, qi.eyes, false))); } - - dcp::FrameInfo fin = _picture_asset_writer->write (qi.encoded->data().get (), qi.encoded->size()); - write_frame_info (qi.frame, qi.eyes, fin); - _last_written[qi.eyes] = qi.encoded; + reel.write (qi.encoded, qi.frame, qi.eyes); ++_full_written; break; - } - case QueueItem::FAKE: + case QueueItem::Type::FAKE: LOG_DEBUG_ENCODE (N_("Writer FAKE-writes %1"), qi.frame); - _picture_asset_writer->fake_write (qi.size); - _last_written[qi.eyes].reset (); + reel.fake_write (qi.size); ++_fake_written; break; - case QueueItem::REPEAT: + case QueueItem::Type::REPEAT: LOG_DEBUG_ENCODE (N_("Writer REPEAT-writes %1"), qi.frame); - dcp::FrameInfo fin = _picture_asset_writer->write ( - _last_written[qi.eyes]->data().get(), - _last_written[qi.eyes]->size() - ); - write_frame_info (qi.frame, qi.eyes, fin); + reel.repeat_write (qi.frame, qi.eyes); ++_repeat_written; break; } - lock.lock (); - _last_written_frame = qi.frame; - _last_written_eyes = qi.eyes; - - shared_ptr job = _job.lock (); - DCPOMATIC_ASSERT (job); - int64_t total = _film->length().frames_round (_film->video_frame_rate ()); - if (_film->three_d ()) { - /* _full_written and so on are incremented for each eye, so we need to double the total - frames to get the correct progress. - */ - total *= 2; - } - if (total) { - job->set_progress (float (_full_written + _fake_written + _repeat_written) / total); - } + lock.lock (); + _full_condition.notify_all (); } while (_queued_full_in_memory > _maximum_frames_in_memory) { @@ -428,13 +465,15 @@ try /* Find one from the back of the queue */ _queue.sort (); - list::reverse_iterator i = _queue.rbegin (); - while (i != _queue.rend() && (i->type != QueueItem::FULL || !i->encoded)) { + auto i = _queue.rbegin (); + while (i != _queue.rend() && (i->type != QueueItem::Type::FULL || !i->encoded)) { ++i; } DCPOMATIC_ASSERT (i != _queue.rend()); ++_pushed_to_disk; + /* For the log message below */ + int const awaiting = _last_written[_queue.front().reel].frame() + 1; lock.unlock (); /* i is valid here, even though we don't hold a lock on the mutex, @@ -442,21 +481,18 @@ try thread could erase the last item in the list. */ - LOG_GENERAL ( - "Writer full (awaiting %1 [last eye was %2]); pushes %3 to disk", - _last_written_frame + 1, - _last_written_eyes, i->frame - ); + LOG_GENERAL ("Writer full; pushes %1 to disk while awaiting %2", i->frame, awaiting); - i->encoded->write_via_temp (_film->j2c_path (i->frame, i->eyes, true), _film->j2c_path (i->frame, i->eyes, false)); + i->encoded->write_via_temp ( + film()->j2c_path(i->reel, i->frame, i->eyes, true), + film()->j2c_path(i->reel, i->frame, i->eyes, false) + ); lock.lock (); i->encoded.reset (); --_queued_full_in_memory; + _full_condition.notify_all (); } - - /* The queue has probably just gone down a bit; notify anything wait()ing on _full_condition */ - _full_condition.notify_all (); } } catch (...) @@ -464,359 +500,445 @@ catch (...) store_current (); } + void Writer::terminate_thread (bool can_throw) { + boost::this_thread::disable_interruption dis; + boost::mutex::scoped_lock lock (_state_mutex); - if (_thread == 0) { - return; - } _finish = true; _empty_condition.notify_all (); _full_condition.notify_all (); lock.unlock (); - DCPOMATIC_ASSERT (_thread->joinable ()); - _thread->join (); + try { + _thread.join (); + } catch (...) {} + if (can_throw) { rethrow (); } - - delete _thread; - _thread = 0; } + void -Writer::finish () +Writer::calculate_digests () { - if (!_thread) { - return; + auto job = _job.lock (); + if (job) { + job->sub (_("Computing digests")); } - terminate_thread (true); + boost::asio::io_service service; + boost::thread_group pool; - if (!_picture_asset_writer->finalize ()) { - /* Nothing was written to the picture asset */ - _picture_asset.reset (); - } + auto work = make_shared(service); - if (_sound_asset_writer) { - if (!_sound_asset_writer->finalize ()) { - /* Nothing was written to the sound asset */ - _sound_asset.reset (); - } + int const threads = max (1, Config::instance()->master_encoding_threads()); + + for (int i = 0; i < threads; ++i) { + pool.create_thread (boost::bind (&boost::asio::io_service::run, &service)); } - /* Hard-link any video asset file into the DCP */ - if (_picture_asset) { - boost::filesystem::path video_from = _picture_asset->file (); - boost::filesystem::path video_to; - video_to /= _film->dir (_film->dcp_name()); - video_to /= video_asset_filename (_picture_asset); - - boost::system::error_code ec; - boost::filesystem::create_hard_link (video_from, video_to, ec); - if (ec) { - LOG_WARNING_NC ("Hard-link failed; copying instead"); - boost::filesystem::copy_file (video_from, video_to, ec); - if (ec) { - LOG_ERROR ("Failed to copy video file from %1 to %2 (%3)", video_from.string(), video_to.string(), ec.message ()); - throw FileError (ec.message(), video_from); - } - } + std::function set_progress; + if (job) { + set_progress = boost::bind (&Writer::set_digest_progress, this, job.get(), _1); + } else { + set_progress = [](float) { + boost::this_thread::interruption_point(); + }; + } - _picture_asset->set_file (video_to); + for (auto& i: _reels) { + service.post (boost::bind (&ReelWriter::calculate_digests, &i, set_progress)); + } + service.post (boost::bind (&Writer::calculate_referenced_digests, this, set_progress)); + + work.reset (); + + try { + pool.join_all (); + } catch (boost::thread_interrupted) { + /* join_all was interrupted, so we need to interrupt the threads + * in our pool then try again to join them. + */ + pool.interrupt_all (); + pool.join_all (); } - /* Move the audio asset into the DCP */ - if (_sound_asset) { - boost::filesystem::path audio_to; - audio_to /= _film->dir (_film->dcp_name ()); - audio_to /= audio_asset_filename (_sound_asset); + service.stop (); +} - boost::system::error_code ec; - boost::filesystem::rename (_film->file (audio_asset_filename (_sound_asset)), audio_to, ec); - if (ec) { - throw FileError ( - String::compose (_("could not move audio asset into the DCP (%1)"), ec.value ()), audio_asset_filename (_sound_asset) - ); - } - _sound_asset->set_file (audio_to); +/** @param output_dcp Path to DCP folder to write */ +void +Writer::finish (boost::filesystem::path output_dcp) +{ + if (_thread.joinable()) { + LOG_GENERAL_NC ("Terminating writer thread"); + terminate_thread (true); + } + + LOG_GENERAL_NC ("Finishing ReelWriters"); + + for (auto& i: _reels) { + write_hanging_text (i); + i.finish (output_dcp); } - dcp::DCP dcp (_film->dir (_film->dcp_name())); + LOG_GENERAL_NC ("Writing XML"); - shared_ptr cpl ( - new dcp::CPL ( - _film->dcp_name(), - _film->dcp_content_type()->libdcp_kind () - ) + dcp::DCP dcp (output_dcp); + + auto cpl = make_shared( + film()->dcp_name(), + film()->dcp_content_type()->libdcp_kind(), + film()->interop() ? dcp::Standard::INTEROP : dcp::Standard::SMPTE ); dcp.add (cpl); - shared_ptr reel (new dcp::Reel ()); - - shared_ptr reel_picture_asset; + calculate_digests (); - if (_picture_asset) { - /* We have made a picture asset of our own. Put it into the reel */ - shared_ptr mono = dynamic_pointer_cast (_picture_asset); - if (mono) { - reel_picture_asset.reset (new dcp::ReelMonoPictureAsset (mono, 0)); - } + /* Add reels */ - shared_ptr stereo = dynamic_pointer_cast (_picture_asset); - if (stereo && boost::filesystem::exists (stereo->file ())) { - reel_picture_asset.reset (new dcp::ReelStereoPictureAsset (stereo, 0)); - } - } else { - /* We don't have a picture asset of our own; maybe we need to reference one */ - /* XXX: this is all a hack */ - BOOST_FOREACH (shared_ptr i, _reel_assets) { - shared_ptr j = dynamic_pointer_cast (i); - if (j) { - reel_picture_asset = j; - } - } + for (auto& i: _reels) { + cpl->add (i.create_reel(_reel_assets, _fonts, _chosen_interop_font, output_dcp, _have_subtitles, _have_closed_captions)); } - reel->add (reel_picture_asset); + /* Add metadata */ - if (_sound_asset) { - /* We have made a sound asset of our own. Put it into the reel */ - reel->add (shared_ptr (new dcp::ReelSoundAsset (_sound_asset, 0))); - } else { - /* We don't have a sound asset of our own; maybe we need to reference one */ - /* XXX: this is all a hack */ - BOOST_FOREACH (shared_ptr i, _reel_assets) { - if (dynamic_pointer_cast (i)) { - reel->add (i); - } - } + auto creator = Config::instance()->dcp_creator(); + if (creator.empty()) { + creator = String::compose("DCP-o-matic %1 %2", dcpomatic_version, dcpomatic_git_commit); } - if (_subtitle_asset) { - boost::filesystem::path liberation; - try { - liberation = shared_path () / "LiberationSans-Regular.ttf"; - } catch (boost::filesystem::filesystem_error& e) { - /* Hack: try the debian/ubuntu location if getting the shared path failed */ - liberation = "/usr/share/fonts/truetype/liberation/LiberationSans-Regular.ttf"; - } - - /* Add all the fonts to the subtitle content */ - BOOST_FOREACH (shared_ptr i, _fonts) { - _subtitle_asset->add_font (i->id(), i->file().get_value_or (liberation)); - } + auto issuer = Config::instance()->dcp_issuer(); + if (issuer.empty()) { + issuer = String::compose("DCP-o-matic %1 %2", dcpomatic_version, dcpomatic_git_commit); + } - if (dynamic_pointer_cast (_subtitle_asset)) { - boost::filesystem::path directory = _film->dir (_film->dcp_name ()) / _subtitle_asset->id (); - boost::filesystem::create_directories (directory); - _subtitle_asset->write (directory / ("sub_" + _subtitle_asset->id() + ".xml")); - } else { - /* All our assets should be the same length; use the picture asset length here - as a reference to set the subtitle one. - */ - dynamic_pointer_cast(_subtitle_asset)->set_intrinsic_duration ( - reel_picture_asset->intrinsic_duration () - ); + cpl->set_creator (creator); + cpl->set_issuer (issuer); - _subtitle_asset->write ( - _film->dir (_film->dcp_name ()) / ("sub_" + _subtitle_asset->id() + ".mxf") - ); - } + cpl->set_ratings (film()->ratings()); - reel->add (shared_ptr ( - new dcp::ReelSubtitleAsset ( - _subtitle_asset, - dcp::Fraction (_film->video_frame_rate(), 1), - reel_picture_asset->intrinsic_duration (), - 0 - ) - )); - } else { - /* We don't have a subtitle asset of our own; maybe we need to reference one */ - /* XXX: this is all a hack */ - BOOST_FOREACH (shared_ptr i, _reel_assets) { - if (dynamic_pointer_cast (i)) { - reel->add (i); - } - } + vector cv; + for (auto i: film()->content_versions()) { + cv.push_back (dcp::ContentVersion(i)); } + if (cv.empty()) { + cv = { dcp::ContentVersion("1") }; + } + cpl->set_content_versions (cv); - cpl->add (reel); + cpl->set_full_content_title_text (film()->name()); + cpl->set_full_content_title_text_language (film()->name_language()); + if (film()->release_territory()) { + cpl->set_release_territory (*film()->release_territory()); + } + cpl->set_version_number (film()->version_number()); + cpl->set_status (film()->status()); + if (film()->chain()) { + cpl->set_chain (*film()->chain()); + } + if (film()->distributor()) { + cpl->set_distributor (*film()->distributor()); + } + if (film()->facility()) { + cpl->set_facility (*film()->facility()); + } + if (film()->luminance()) { + cpl->set_luminance (*film()->luminance()); + } + if (film()->sign_language_video_language()) { + cpl->set_sign_language_video_language (*film()->sign_language_video_language()); + } - shared_ptr job = _job.lock (); - DCPOMATIC_ASSERT (job); + auto ac = film()->mapped_audio_channels(); + dcp::MCASoundField field = ( + find(ac.begin(), ac.end(), static_cast(dcp::Channel::BSL)) != ac.end() || + find(ac.begin(), ac.end(), static_cast(dcp::Channel::BSR)) != ac.end() + ) ? dcp::MCASoundField::SEVEN_POINT_ONE : dcp::MCASoundField::FIVE_POINT_ONE; - job->sub (_("Computing image digest")); - if (_picture_asset) { - _picture_asset->hash (boost::bind (&Job::set_progress, job.get(), _1, false)); + dcp::MainSoundConfiguration msc (field, film()->audio_channels()); + for (auto i: ac) { + if (static_cast(i) < film()->audio_channels()) { + msc.set_mapping (i, static_cast(i)); + } } - if (_sound_asset) { - job->sub (_("Computing audio digest")); - _sound_asset->hash (boost::bind (&Job::set_progress, job.get(), _1, false)); - } + cpl->set_main_sound_configuration (msc.to_string()); + cpl->set_main_sound_sample_rate (film()->audio_frame_rate()); + cpl->set_main_picture_stored_area (film()->frame_size()); - dcp::XMLMetadata meta; - meta.creator = Config::instance()->dcp_creator (); - if (meta.creator.empty ()) { - meta.creator = String::compose ("DCP-o-matic %1 %2", dcpomatic_version, dcpomatic_git_commit); + auto active_area = film()->active_area(); + if (active_area.width > 0 && active_area.height > 0) { + /* It's not allowed to have a zero active area width or height */ + cpl->set_main_picture_active_area (active_area); } - meta.issuer = Config::instance()->dcp_issuer (); - if (meta.issuer.empty ()) { - meta.issuer = String::compose ("DCP-o-matic %1 %2", dcpomatic_version, dcpomatic_git_commit); - } - meta.set_issue_date_now (); - cpl->set_metadata (meta); + auto sl = film()->subtitle_languages().second; + if (!sl.empty()) { + cpl->set_additional_subtitle_languages(sl); + } - shared_ptr signer; - if (_film->is_signed ()) { - signer = Config::instance()->signer_chain (); - /* We did check earlier, but check again here to be on the safe side */ - if (!signer->valid ()) { - throw InvalidSignerError (); - } + auto signer = Config::instance()->signer_chain(); + /* We did check earlier, but check again here to be on the safe side */ + string reason; + if (!signer->valid (&reason)) { + throw InvalidSignerError (reason); } - dcp.write_xml (_film->interop () ? dcp::INTEROP : dcp::SMPTE, meta, signer); + dcp.set_issuer(issuer); + dcp.set_creator(creator); + dcp.set_annotation_text(film()->dcp_name()); + + dcp.write_xml (signer, Config::instance()->dcp_metadata_filename_format()); LOG_GENERAL ( N_("Wrote %1 FULL, %2 FAKE, %3 REPEAT, %4 pushed to disk"), _full_written, _fake_written, _repeat_written, _pushed_to_disk ); + + write_cover_sheet (output_dcp); } + void -Writer::check_existing_picture_asset () +Writer::write_cover_sheet (boost::filesystem::path output_dcp) { - /* Try to open the existing asset */ - FILE* asset_file = fopen_boost (_picture_asset->file(), "rb"); - if (!asset_file) { - LOG_GENERAL ("Could not open existing asset at %1 (errno=%2)", _picture_asset->file().string(), errno); - return; + auto const cover = film()->file("COVER_SHEET.txt"); + dcp::File f(cover, "w"); + if (!f) { + throw OpenFileError (cover, errno, OpenFileError::WRITE); } - /* Offset of the last dcp::FrameInfo in the info file */ - int const n = (boost::filesystem::file_size (_film->info_file ()) / _info_size) - 1; - - FILE* info_file = fopen_boost (_film->info_file (), "rb"); - if (!info_file) { - LOG_GENERAL_NC ("Could not open film info file"); - fclose (asset_file); - return; + auto text = Config::instance()->cover_sheet (); + boost::algorithm::replace_all (text, "$CPL_NAME", film()->name()); + auto cpls = film()->cpls(); + if (!cpls.empty()) { + boost::algorithm::replace_all (text, "$CPL_FILENAME", cpls[0].cpl_file.filename().string()); } + boost::algorithm::replace_all (text, "$TYPE", film()->dcp_content_type()->pretty_name()); + boost::algorithm::replace_all (text, "$CONTAINER", film()->container()->container_nickname()); - if (_film->three_d ()) { - /* Start looking at the last left frame */ - _first_nonexistant_frame = n / 2; + auto audio_language = film()->audio_language(); + if (audio_language) { + boost::algorithm::replace_all (text, "$AUDIO_LANGUAGE", audio_language->description()); } else { - _first_nonexistant_frame = n; + boost::algorithm::replace_all (text, "$AUDIO_LANGUAGE", _("None")); } - bool ok = false; - - while (!ok) { - /* Read the data from the info file; for 3D we just check the left - frames until we find a good one. - */ - dcp::FrameInfo info = read_frame_info (info_file, _first_nonexistant_frame, _film->three_d () ? EYES_LEFT : EYES_BOTH); - - ok = true; + auto subtitle_languages = film()->subtitle_languages(); + if (subtitle_languages.first) { + boost::algorithm::replace_all (text, "$SUBTITLE_LANGUAGE", subtitle_languages.first->description()); + } else { + boost::algorithm::replace_all (text, "$SUBTITLE_LANGUAGE", _("None")); + } - /* Read the data from the asset and hash it */ - dcpomatic_fseek (asset_file, info.offset, SEEK_SET); - Data data (info.size); - size_t const read = fread (data.data().get(), 1, data.size(), asset_file); - if (read != static_cast (data.size ())) { - LOG_GENERAL ("Existing frame %1 is incomplete", _first_nonexistant_frame); - ok = false; - } else { - MD5Digester digester; - digester.add (data.data().get(), data.size()); - if (digester.get() != info.hash) { - LOG_GENERAL ("Existing frame %1 failed hash check", _first_nonexistant_frame); - ok = false; - } + boost::uintmax_t size = 0; + for ( + auto i = boost::filesystem::recursive_directory_iterator(output_dcp); + i != boost::filesystem::recursive_directory_iterator(); + ++i) { + if (boost::filesystem::is_regular_file (i->path())) { + size += boost::filesystem::file_size (i->path()); } + } - if (!ok) { - --_first_nonexistant_frame; - } + if (size > (1000000000L)) { + boost::algorithm::replace_all (text, "$SIZE", String::compose("%1GB", dcp::locale_convert(size / 1000000000.0, 1, true))); + } else { + boost::algorithm::replace_all (text, "$SIZE", String::compose("%1MB", dcp::locale_convert(size / 1000000.0, 1, true))); } - if (!_film->three_d ()) { - /* If we are doing 3D we might have found a good L frame with no R, so only - do this if we're in 2D and we've just found a good B(oth) frame. - */ - ++_first_nonexistant_frame; + auto ch = audio_channel_types (film()->mapped_audio_channels(), film()->audio_channels()); + auto description = String::compose("%1.%2", ch.first, ch.second); + + if (description == "0.0") { + description = _("None"); + } else if (description == "1.0") { + description = _("Mono"); + } else if (description == "2.0") { + description = _("Stereo"); + } + boost::algorithm::replace_all (text, "$AUDIO", description); + + auto const hmsf = film()->length().split(film()->video_frame_rate()); + string length; + if (hmsf.h == 0 && hmsf.m == 0) { + length = String::compose("%1s", hmsf.s); + } else if (hmsf.h == 0 && hmsf.m > 0) { + length = String::compose("%1m%2s", hmsf.m, hmsf.s); + } else if (hmsf.h > 0 && hmsf.m > 0) { + length = String::compose("%1h%2m%3s", hmsf.h, hmsf.m, hmsf.s); } - fclose (asset_file); - fclose (info_file); + boost::algorithm::replace_all (text, "$LENGTH", length); + + f.checked_write(text.c_str(), text.length()); } -/** @param frame Frame index. + +/** @param frame Frame index within the whole DCP. * @return true if we can fake-write this frame. */ bool -Writer::can_fake_write (int frame) const +Writer::can_fake_write (Frame frame) const { + if (film()->encrypted()) { + /* We need to re-write the frame because the asset ID is embedded in the HMAC... I think... */ + return false; + } + /* We have to do a proper write of the first frame so that we can set up the JPEG2000 parameters in the asset writer. */ - return (frame != 0 && frame < _first_nonexistant_frame); + + auto const & reel = _reels[video_reel(frame)]; + + /* Make frame relative to the start of the reel */ + frame -= reel.start (); + return (frame != 0 && frame < reel.first_nonexistent_frame()); } + +/** @param track Closed caption track if type == TextType::CLOSED_CAPTION */ void -Writer::write (PlayerSubtitles subs) +Writer::write (PlayerText text, TextType type, optional track, DCPTimePeriod period) { - if (subs.text.empty ()) { - return; + vector::iterator* reel = nullptr; + + switch (type) { + case TextType::OPEN_SUBTITLE: + reel = &_subtitle_reel; + _have_subtitles = true; + break; + case TextType::CLOSED_CAPTION: + DCPOMATIC_ASSERT (track); + DCPOMATIC_ASSERT (_caption_reels.find(*track) != _caption_reels.end()); + reel = &_caption_reels[*track]; + _have_closed_captions.insert (*track); + break; + default: + DCPOMATIC_ASSERT (false); } - if (!_subtitle_asset) { - string lang = _film->subtitle_language (); - if (lang.empty ()) { - lang = "Unknown"; - } - if (_film->interop ()) { - shared_ptr s (new dcp::InteropSubtitleAsset ()); - s->set_movie_title (_film->name ()); - s->set_language (lang); - s->set_reel_number ("1"); - _subtitle_asset = s; - } else { - shared_ptr s (new dcp::SMPTESubtitleAsset ()); - s->set_content_title_text (_film->name ()); - s->set_language (lang); - s->set_edit_rate (dcp::Fraction (_film->video_frame_rate (), 1)); - s->set_reel_number (1); - s->set_time_code_rate (_film->video_frame_rate ()); - s->set_start_time (dcp::Time ()); - _subtitle_asset = s; - } + DCPOMATIC_ASSERT (*reel != _reels.end()); + while ((*reel)->period().to <= period.from) { + ++(*reel); + DCPOMATIC_ASSERT (*reel != _reels.end()); + write_hanging_text (**reel); } - for (list::const_iterator i = subs.text.begin(); i != subs.text.end(); ++i) { - _subtitle_asset->add (*i); + auto back_off = [this](DCPTimePeriod period) { + period.to -= DCPTime::from_frames(2, film()->video_frame_rate()); + return period; + }; + + if (period.to > (*reel)->period().to) { + /* This text goes off the end of the reel. Store parts of it that should go into + * other reels. + */ + for (auto i = std::next(*reel); i != _reels.end(); ++i) { + auto overlap = i->period().overlap(period); + if (overlap) { + _hanging_texts.push_back (HangingText{text, type, track, back_off(*overlap)}); + } + } + /* Back off from the reel boundary by a couple of frames to avoid tripping checks + * for subtitles being too close together. + */ + period.to = (*reel)->period().to; + period = back_off(period); } + + (*reel)->write(text, type, track, period, _fonts); } + void -Writer::write (list > fonts) +Writer::write (vector> fonts) { - /* Just keep a list of fonts and we'll deal with them in ::finish */ - copy (fonts.begin (), fonts.end (), back_inserter (_fonts)); + if (fonts.empty()) { + return; + } + + /* Fonts may come in with empty IDs but we don't want to put those in the DCP */ + auto fix_id = [](string id) { + return id.empty() ? "font" : id; + }; + + if (film()->interop()) { + /* Interop will ignore second and subsequent s so we don't want to + * even write them as they upset some validators. Set up _fonts so that every + * font used by any subtitle will be written with the same ID. + */ + for (size_t i = 0; i < fonts.size(); ++i) { + _fonts.put(fonts[i], fix_id(fonts[0]->id())); + } + _chosen_interop_font = fonts[0]; + } else { + set used_ids; + + /* Return the index of a _N at the end of a string, or string::npos */ + auto underscore_number_position = [](string s) { + auto last_underscore = s.find_last_of("_"); + if (last_underscore == string::npos) { + return string::npos; + } + + for (auto i = last_underscore + 1; i < s.size(); ++i) { + if (!isdigit(s[i])) { + return string::npos; + } + } + + return last_underscore; + }; + + /* Write fonts to _fonts, changing any duplicate IDs so that they are unique */ + for (auto font: fonts) { + auto id = fix_id(font->id()); + if (used_ids.find(id) == used_ids.end()) { + /* This ID is unique so we can just use it as-is */ + _fonts.put(font, id); + used_ids.insert(id); + } else { + auto end = underscore_number_position(id); + if (end == string::npos) { + /* This string has no _N suffix, so add one */ + id += "_0"; + end = underscore_number_position(id); + } + + ++end; + + /* Increment the suffix until we find a unique one */ + auto number = dcp::raw_convert(id.substr(end)); + while (used_ids.find(id) != used_ids.end()) { + ++number; + id = String::compose("%1_%2", id.substr(0, end - 1), number); + } + used_ids.insert(id); + } + _fonts.put(font, id); + } + + DCPOMATIC_ASSERT(_fonts.map().size() == used_ids.size()); + } } + bool operator< (QueueItem const & a, QueueItem const & b) { + if (a.reel != b.reel) { + return a.reel < b.reel; + } + if (a.frame != b.frame) { return a.frame < b.frame; } @@ -824,53 +946,93 @@ operator< (QueueItem const & a, QueueItem const & b) return static_cast (a.eyes) < static_cast (b.eyes); } + bool operator== (QueueItem const & a, QueueItem const & b) { - return a.frame == b.frame && a.eyes == b.eyes; + return a.reel == b.reel && a.frame == b.frame && a.eyes == b.eyes; } + void Writer::set_encoder_threads (int threads) { - _maximum_frames_in_memory = lrint (threads * 1.1); + boost::mutex::scoped_lock lm (_state_mutex); + _maximum_frames_in_memory = lrint (threads * Config::instance()->frames_in_memory_multiplier()); + _maximum_queue_size = threads * 16; } -long -Writer::frame_info_position (int frame, Eyes eyes) const + +void +Writer::write (ReferencedReelAsset asset) { - switch (eyes) { - case EYES_BOTH: - return frame * _info_size; - case EYES_LEFT: - return frame * _info_size * 2; - case EYES_RIGHT: - return frame * _info_size * 2 + _info_size; - default: - DCPOMATIC_ASSERT (false); + _reel_assets.push_back (asset); +} + + +size_t +Writer::video_reel (int frame) const +{ + auto t = DCPTime::from_frames (frame, film()->video_frame_rate()); + size_t i = 0; + while (i < _reels.size() && !_reels[i].period().contains (t)) { + ++i; } - DCPOMATIC_ASSERT (false); + DCPOMATIC_ASSERT (i < _reels.size ()); + return i; } -dcp::FrameInfo -Writer::read_frame_info (FILE* file, int frame, Eyes eyes) const + +void +Writer::set_digest_progress (Job* job, float progress) { - dcp::FrameInfo info; - dcpomatic_fseek (file, frame_info_position (frame, eyes), SEEK_SET); - fread (&info.offset, sizeof (info.offset), 1, file); - fread (&info.size, sizeof (info.size), 1, file); + boost::mutex::scoped_lock lm (_digest_progresses_mutex); - char hash_buffer[33]; - fread (hash_buffer, 1, 32, file); - hash_buffer[32] = '\0'; - info.hash = hash_buffer; + _digest_progresses[boost::this_thread::get_id()] = progress; + float min_progress = FLT_MAX; + for (auto const& i: _digest_progresses) { + min_progress = min (min_progress, i.second); + } + + job->set_progress (min_progress); - return info; + Waker waker; + waker.nudge (); + + boost::this_thread::interruption_point(); } + +/** Calculate hashes for any referenced MXF assets which do not already have one */ void -Writer::write (shared_ptr asset) +Writer::calculate_referenced_digests (std::function set_progress) +try { - _reel_assets.push_back (asset); + for (auto const& i: _reel_assets) { + auto file = dynamic_pointer_cast(i.asset); + if (file && !file->hash()) { + file->asset_ref().asset()->hash (set_progress); + file->set_hash (file->asset_ref().asset()->hash()); + } + } +} catch (boost::thread_interrupted) { + /* set_progress contains an interruption_point, so any of these methods + * may throw thread_interrupted, at which point we just give up. + */ +} + + +void +Writer::write_hanging_text (ReelWriter& reel) +{ + vector new_hanging_texts; + for (auto i: _hanging_texts) { + if (i.period.from == reel.period().from) { + reel.write (i.text, i.type, i.track, i.period, _fonts); + } else { + new_hanging_texts.push_back (i); + } + } + _hanging_texts = new_hanging_texts; }