/*
    Copyright (C) 2013-2015 Carl Hetherington <cth@carlh.net>

    This program 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,
    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.

*/

#include "ffmpeg_content.h"
#include "ffmpeg_examiner.h"
#include "ffmpeg_subtitle_stream.h"
#include "ffmpeg_audio_stream.h"
#include "compose.hpp"
#include "job.h"
#include "util.h"
#include "filter.h"
#include "film.h"
#include "log.h"
#include "exceptions.h"
#include "frame_rate_change.h"
#include "safe_stringstream.h"
#include "raw_convert.h"
#include <libcxml/cxml.h>
extern "C" {
#include <libavformat/avformat.h>
#include <libavutil/pixdesc.h>
}
#include <libxml++/libxml++.h>
#include <boost/foreach.hpp>
#include <iostream>

#include "i18n.h"

#define LOG_GENERAL(...) film->log()->log (String::compose (__VA_ARGS__), LogEntry::TYPE_GENERAL);

using std::string;
using std::vector;
using std::list;
using std::cout;
using std::pair;
using std::make_pair;
using boost::shared_ptr;
using boost::dynamic_pointer_cast;
using boost::optional;

int const FFmpegContentProperty::SUBTITLE_STREAMS = 100;
int const FFmpegContentProperty::SUBTITLE_STREAM = 101;
int const FFmpegContentProperty::FILTERS = 102;

FFmpegContent::FFmpegContent (shared_ptr<const Film> film, boost::filesystem::path p)
	: Content (film, p)
	, VideoContent (film, p)
	, AudioContent (film, p)
	, SubtitleContent (film, p)
{

}

FFmpegContent::FFmpegContent (shared_ptr<const Film> film, cxml::ConstNodePtr node, int version, list<string>& notes)
	: Content (film, node)
	, VideoContent (film, node, version)
	, AudioContent (film, node)
	, SubtitleContent (film, node, version)
{
	list<cxml::NodePtr> c = node->node_children ("SubtitleStream");
	for (list<cxml::NodePtr>::const_iterator i = c.begin(); i != c.end(); ++i) {
		_subtitle_streams.push_back (shared_ptr<FFmpegSubtitleStream> (new FFmpegSubtitleStream (*i)));
		if ((*i)->optional_number_child<int> ("Selected")) {
			_subtitle_stream = _subtitle_streams.back ();
		}
	}

	c = node->node_children ("AudioStream");
	for (list<cxml::NodePtr>::const_iterator i = c.begin(); i != c.end(); ++i) {
		_audio_streams.push_back (shared_ptr<FFmpegAudioStream> (new FFmpegAudioStream (*i, version)));
		if (version < 11 && !(*i)->optional_node_child ("Selected")) {
			/* This is an old file and this stream is not selected, so un-map it */
			_audio_streams.back()->set_mapping (AudioMapping (_audio_streams.back()->channels (), MAX_DCP_AUDIO_CHANNELS));
		}
	}

	c = node->node_children ("Filter");
	for (list<cxml::NodePtr>::iterator i = c.begin(); i != c.end(); ++i) {
		Filter const * f = Filter::from_id ((*i)->content ());
		if (f) {
			_filters.push_back (f);
		} else {
			notes.push_back (String::compose (_("DCP-o-matic no longer supports the `%1' filter, so it has been turned off."), (*i)->content()));
		}
	}

	optional<ContentTime::Type> const f = node->optional_number_child<ContentTime::Type> ("FirstVideo");
	if (f) {
		_first_video = ContentTime (f.get ());
	}

	_color_range = static_cast<AVColorRange> (node->optional_number_child<int>("ColorRange").get_value_or (AVCOL_RANGE_UNSPECIFIED));
	_color_primaries = static_cast<AVColorPrimaries> (node->optional_number_child<int>("ColorPrimaries").get_value_or (AVCOL_PRI_UNSPECIFIED));
	_color_trc = static_cast<AVColorTransferCharacteristic> (
		node->optional_number_child<int>("ColorTransferCharacteristic").get_value_or (AVCOL_TRC_UNSPECIFIED)
		);
	_colorspace = static_cast<AVColorSpace> (node->optional_number_child<int>("Colorspace").get_value_or (AVCOL_SPC_UNSPECIFIED));
	_bits_per_pixel = node->optional_number_child<int> ("BitsPerPixel");

}

FFmpegContent::FFmpegContent (shared_ptr<const Film> film, vector<boost::shared_ptr<Content> > c)
	: Content (film, c)
	, VideoContent (film, c)
	, AudioContent (film, c)
	, SubtitleContent (film, c)
{
	shared_ptr<FFmpegContent> ref = dynamic_pointer_cast<FFmpegContent> (c[0]);
	DCPOMATIC_ASSERT (ref);

	for (size_t i = 0; i < c.size(); ++i) {
		shared_ptr<FFmpegContent> fc = dynamic_pointer_cast<FFmpegContent> (c[i]);
		if (fc->use_subtitles() && *(fc->_subtitle_stream.get()) != *(ref->_subtitle_stream.get())) {
			throw JoinError (_("Content to be joined must use the same subtitle stream."));
		}
	}

	_subtitle_streams = ref->subtitle_streams ();
	_subtitle_stream = ref->subtitle_stream ();
	_audio_streams = ref->ffmpeg_audio_streams ();
	_first_video = ref->_first_video;
}

void
FFmpegContent::as_xml (xmlpp::Node* node) const
{
	node->add_child("Type")->add_child_text ("FFmpeg");
	Content::as_xml (node);
	VideoContent::as_xml (node);
	AudioContent::as_xml (node);
	SubtitleContent::as_xml (node);

	boost::mutex::scoped_lock lm (_mutex);

	for (vector<shared_ptr<FFmpegSubtitleStream> >::const_iterator i = _subtitle_streams.begin(); i != _subtitle_streams.end(); ++i) {
		xmlpp::Node* t = node->add_child("SubtitleStream");
		if (_subtitle_stream && *i == _subtitle_stream) {
			t->add_child("Selected")->add_child_text("1");
		}
		(*i)->as_xml (t);
	}

	for (vector<shared_ptr<FFmpegAudioStream> >::const_iterator i = _audio_streams.begin(); i != _audio_streams.end(); ++i) {
		(*i)->as_xml (node->add_child("AudioStream"));
	}

	for (vector<Filter const *>::const_iterator i = _filters.begin(); i != _filters.end(); ++i) {
		node->add_child("Filter")->add_child_text ((*i)->id ());
	}

	if (_first_video) {
		node->add_child("FirstVideo")->add_child_text (raw_convert<string> (_first_video.get().get()));
	}

	node->add_child("ColorRange")->add_child_text (raw_convert<string> (_color_range));
	node->add_child("ColorPrimaries")->add_child_text (raw_convert<string> (_color_primaries));
	node->add_child("ColorTransferCharacteristic")->add_child_text (raw_convert<string> (_color_trc));
	node->add_child("Colorspace")->add_child_text (raw_convert<string> (_colorspace));
	if (_bits_per_pixel) {
		node->add_child("BitsPerPixel")->add_child_text (raw_convert<string> (_bits_per_pixel.get ()));
	}
}

void
FFmpegContent::examine (shared_ptr<Job> job)
{
	job->set_progress_unknown ();

	Content::examine (job);

	shared_ptr<FFmpegExaminer> examiner (new FFmpegExaminer (shared_from_this (), job));
	take_from_video_examiner (examiner);

	shared_ptr<const Film> film = _film.lock ();
	DCPOMATIC_ASSERT (film);

	{
		boost::mutex::scoped_lock lm (_mutex);

		_subtitle_streams = examiner->subtitle_streams ();
		if (!_subtitle_streams.empty ()) {
			_subtitle_stream = _subtitle_streams.front ();
		}

		_audio_streams = examiner->audio_streams ();

		if (!_audio_streams.empty ()) {
			AudioMapping m = _audio_streams.front()->mapping ();
			film->make_audio_mapping_default (m);
			_audio_streams.front()->set_mapping (m);
		}

		_first_video = examiner->first_video ();

		_color_range = examiner->color_range ();
		_color_primaries = examiner->color_primaries ();
		_color_trc = examiner->color_trc ();
		_colorspace = examiner->colorspace ();
		_bits_per_pixel = examiner->bits_per_pixel ();
	}

	signal_changed (FFmpegContentProperty::SUBTITLE_STREAMS);
	signal_changed (FFmpegContentProperty::SUBTITLE_STREAM);
	signal_changed (AudioContentProperty::AUDIO_STREAMS);
}

string
FFmpegContent::summary () const
{
	/* Get the string() here so that the name does not have quotes around it */
	return String::compose (_("%1 [movie]"), path_summary ());
}

string
FFmpegContent::technical_summary () const
{
	string as = "";
	BOOST_FOREACH (shared_ptr<FFmpegAudioStream> i, ffmpeg_audio_streams ()) {
		as += i->technical_summary () + " " ;
	}

	if (as.empty ()) {
		as = "none";
	}

	string ss = "none";
	if (_subtitle_stream) {
		ss = _subtitle_stream->technical_summary ();
	}

	string filt = Filter::ffmpeg_string (_filters);

	return Content::technical_summary() + " - "
		+ VideoContent::technical_summary() + " - "
		+ AudioContent::technical_summary() + " - "
		+ String::compose (
			"ffmpeg: audio %1 subtitle %2 filters %3", as, ss, filt
			);
}

void
FFmpegContent::set_subtitle_stream (shared_ptr<FFmpegSubtitleStream> s)
{
	{
		boost::mutex::scoped_lock lm (_mutex);
		_subtitle_stream = s;
	}

	signal_changed (FFmpegContentProperty::SUBTITLE_STREAM);
}

bool
operator== (FFmpegStream const & a, FFmpegStream const & b)
{
	return a._id == b._id;
}

bool
operator!= (FFmpegStream const & a, FFmpegStream const & b)
{
	return a._id != b._id;
}

DCPTime
FFmpegContent::full_length () const
{
	shared_ptr<const Film> film = _film.lock ();
	DCPOMATIC_ASSERT (film);
	FrameRateChange const frc (video_frame_rate (), film->video_frame_rate ());
	return DCPTime::from_frames (llrint (video_length_after_3d_combine() * frc.factor()), film->video_frame_rate());
}

void
FFmpegContent::set_filters (vector<Filter const *> const & filters)
{
	{
		boost::mutex::scoped_lock lm (_mutex);
		_filters = filters;
	}

	signal_changed (FFmpegContentProperty::FILTERS);
}

string
FFmpegContent::identifier () const
{
	SafeStringStream s;

	s << VideoContent::identifier() << "_"
	  << SubtitleContent::identifier();

	boost::mutex::scoped_lock lm (_mutex);

	if (_subtitle_stream) {
		s << "_" << _subtitle_stream->identifier ();
	}

	for (vector<Filter const *>::const_iterator i = _filters.begin(); i != _filters.end(); ++i) {
		s << "_" << (*i)->id ();
	}

	return s.str ();
}

list<ContentTimePeriod>
FFmpegContent::subtitles_during (ContentTimePeriod period, bool starting) const
{
	shared_ptr<FFmpegSubtitleStream> stream = subtitle_stream ();
	if (!stream) {
		return list<ContentTimePeriod> ();
	}

	return stream->subtitles_during (period, starting);
}

bool
FFmpegContent::has_text_subtitles () const
{
	return false;
}

bool
FFmpegContent::has_image_subtitles () const
{
	return !subtitle_streams().empty ();
}

void
FFmpegContent::set_default_colour_conversion ()
{
	dcp::Size const s = video_size ();

	boost::mutex::scoped_lock lm (_mutex);

	if (s.width < 1080) {
		_colour_conversion = PresetColourConversion::from_id ("rec601").conversion;
	} else {
		_colour_conversion = PresetColourConversion::from_id ("rec709").conversion;
	}
}

vector<AudioStreamPtr>
FFmpegContent::audio_streams () const
{
	boost::mutex::scoped_lock lm (_mutex);

	vector<AudioStreamPtr> s;
	copy (_audio_streams.begin(), _audio_streams.end(), back_inserter (s));
	return s;
}

void
FFmpegContent::add_properties (list<pair<string, string> >& p) const
{
	VideoContent::add_properties (p);

	if (_bits_per_pixel) {
		int const sub = 219 * pow (2, _bits_per_pixel.get() - 8);
		int const total = pow (2, _bits_per_pixel.get());

		switch (_color_range) {
		case AVCOL_RANGE_UNSPECIFIED:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is unknown (not specified in the file).
			p.push_back (make_pair (_("Colour range"), _("Unspecified")));
			break;
		case AVCOL_RANGE_MPEG:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is limited, so that not all possible values are valid.
			p.push_back (make_pair (_("Colour range"), String::compose (_("Limited (%1-%2)"), (total - sub) / 2, (total + sub) / 2)));
			break;
		case AVCOL_RANGE_JPEG:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is full, so that all possible pixel values are valid.
			p.push_back (make_pair (_("Colour range"), String::compose (_("Full (0-%1)"), total)));
			break;
		default:
			DCPOMATIC_ASSERT (false);
		}
	} else {
		switch (_color_range) {
		case AVCOL_RANGE_UNSPECIFIED:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is unknown (not specified in the file).
			p.push_back (make_pair (_("Colour range"), _("Unspecified")));
			break;
		case AVCOL_RANGE_MPEG:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is limited, so that not all possible values are valid.
			p.push_back (make_pair (_("Colour range"), _("Limited")));
			break;
		case AVCOL_RANGE_JPEG:
			/// TRANSLATORS: this means that the range of pixel values used in this
			/// file is full, so that all possible pixel values are valid.
			p.push_back (make_pair (_("Colour range"), _("Full")));
			break;
		default:
			DCPOMATIC_ASSERT (false);
		}
	}

	char const * primaries[] = {
		_("Unspecified"),
		_("BT709"),
		_("Unspecified"),
		_("Unspecified"),
		_("BT470M"),
		_("BT470BG"),
		_("SMPTE 170M (BT601)"),
		_("SMPTE 240M"),
		_("Film"),
		_("BT2020")
	};

	DCPOMATIC_ASSERT (AVCOL_PRI_NB == 10);
	p.push_back (make_pair (_("Colour primaries"), primaries[_color_primaries]));

	char const * transfers[] = {
		_("Unspecified"),
		_("BT709"),
		_("Unspecified"),
		_("Unspecified"),
		_("Gamma 22 (BT470M)"),
		_("Gamma 28 (BT470BG)"),
		_("SMPTE 170M (BT601)"),
		_("SMPTE 240M"),
		_("Linear"),
		_("Logarithmic (100:1 range)"),
		_("Logarithmic (316:1 range)"),
		_("IEC61966-2-4"),
		_("BT1361 extended colour gamut"),
		_("IEC61966-2-1 (sRGB or sYCC)"),
		_("BT2020 for a 10-bit system"),
		_("BT2020 for a 12-bit system")
	};

	DCPOMATIC_ASSERT (AVCOL_TRC_NB == 16);
	p.push_back (make_pair (_("Colour transfer characteristic"), transfers[_color_trc]));

	char const * spaces[] = {
		_("RGB / sRGB (IEC61966-2-1)"),
		_("BT709"),
		_("Unspecified"),
		_("Unspecified"),
		_("FCC"),
		_("BT470BG (BT601-6)"),
		_("SMPTE 170M (BT601-6)"),
		_("SMPTE 240M"),
		_("YCOCG"),
		_("BT2020 non-constant luminance"),
		_("BT2020 constant luminance"),
	};

	DCPOMATIC_ASSERT (AVCOL_SPC_NB == 11);
	p.push_back (make_pair (_("Colourspace"), spaces[_colorspace]));

	if (_bits_per_pixel) {
		p.push_back (make_pair (_("Bits per pixel"), raw_convert<string> (_bits_per_pixel.get ())));
	}
}