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

    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.

    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 DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.

*/


#include "dcpomatic_log.h"
#include "ffmpeg_examiner.h"
#include "ffmpeg_content.h"
#include "job.h"
#include "ffmpeg_audio_stream.h"
#include "ffmpeg_subtitle_stream.h"
#include "util.h"
#include <dcp/warnings.h>
LIBDCP_DISABLE_WARNINGS
extern "C" {
#include <libavcodec/avcodec.h>
#include <libavformat/avformat.h>
#include <libavutil/pixfmt.h>
#include <libavutil/pixdesc.h>
#include <libavutil/channel_layout.h>
#include <libavutil/display.h>
#include <libavutil/eval.h>
}
LIBDCP_ENABLE_WARNINGS
#include <iostream>

#include "i18n.h"


using std::cout;
using std::make_shared;
using std::max;
using std::shared_ptr;
using std::string;
using std::vector;
using boost::optional;
using namespace dcpomatic;


/* This is how many frames from the start of any video that we will examine to see if we
 * can spot soft 2:3 pull-down ("telecine").
 */
static const int PULLDOWN_CHECK_FRAMES = 16;


/** @param job job that the examiner is operating in, or 0 */
FFmpegExaminer::FFmpegExaminer(shared_ptr<const FFmpegContent> c, shared_ptr<Job> job)
	: FFmpeg(c)
{
	_need_length = _format_context->duration == AV_NOPTS_VALUE;
	/* Find audio and subtitle streams */

	for (uint32_t i = 0; i < _format_context->nb_streams; ++i) {
		auto s = _format_context->streams[i];
		auto codec = _codec_context[i] ? _codec_context[i]->codec : nullptr;
		if (s->codecpar->codec_type == AVMEDIA_TYPE_AUDIO && codec) {

			DCPOMATIC_ASSERT(codec->name);

			_audio_streams.push_back(
				make_shared<FFmpegAudioStream>(
					stream_name(s),
					codec->name,
					s->id,
					i,
					s->codecpar->sample_rate,
					_need_length ? 0 : rint((double(_format_context->duration) / AV_TIME_BASE) * s->codecpar->sample_rate),
					s->codecpar->ch_layout.nb_channels,
					s->codecpar->bits_per_raw_sample ? s->codecpar->bits_per_raw_sample : s->codecpar->bits_per_coded_sample
					)
				);

		} else if (s->codecpar->codec_type == AVMEDIA_TYPE_SUBTITLE) {
			_subtitle_streams.push_back(make_shared<FFmpegSubtitleStream>(subtitle_stream_name(s), s->id, i));
		}
	}

	if (has_video()) {
		_video_length = _need_length ? 0 : llrint((double(_format_context->duration) / AV_TIME_BASE) * video_frame_rate().get());
	}

	if (job && _need_length) {
		job->sub(_("Finding length"));
	}

	/* Run through until we find:
	 *   - the first video.
	 *   - the first audio for each stream.
	 *   - the top-field-first and repeat-first-frame values ("temporal_reference") for the first PULLDOWN_CHECK_FRAMES video frames.
	 * or forever if _need_length is true.
	 */

	int64_t const len = _file_group.length();
	/* A string which we build up to describe the top-field-first and repeat-first-frame values for the first few frames.
	 * It would be nicer to use something like vector<bool> here but we want to search the array for a pattern later,
	 * and a string seems a reasonably neat way to do that.
	 */
	string temporal_reference;
	bool carry_on_video = has_video();
	std::vector<bool> carry_on_audio(_audio_streams.size(), true);
	while (true) {
		auto packet = av_packet_alloc();
		DCPOMATIC_ASSERT(packet);
		int r = av_read_frame(_format_context, packet);
		if (r < 0) {
			av_packet_free(&packet);
			break;
		}

		if (job) {
			if (len > 0) {
				job->set_progress(float(_format_context->pb->pos) / len);
			} else {
				job->set_progress_unknown();
			}
		}

		if (packet->stream_index >= static_cast<int>(_codec_context.size())) {
			setup_decoder(packet->stream_index);
			check_for_duplicate_ids();
		}

		auto context = _codec_context[packet->stream_index];

		boost::optional<size_t> audio_stream_index;
		for (size_t i = 0; i < _audio_streams.size(); ++i) {
			if (_audio_streams[i]->uses_index(_format_context, packet->stream_index)) {
				audio_stream_index = i;
			}
		}

		bool const video = _video_stream && packet->stream_index == *_video_stream;

		if (!video && !audio_stream_index) {
			av_packet_free(&packet);
			continue;
		}

		if (video) {
			carry_on_video = video_packet(context, temporal_reference, packet);
		}

		if (audio_stream_index) {
			carry_on_audio[*audio_stream_index] = audio_packet(context, _audio_streams[*audio_stream_index], packet);
		}

		av_packet_free(&packet);

		if (!carry_on_video) {
			if (std::find(carry_on_audio.begin(), carry_on_audio.end(), true) == carry_on_audio.end()) {
				/* All done */
				break;
			}
		}
	}

	if (_video_stream) {
		auto context = _codec_context[_video_stream.get()];
		while (video_packet(context, temporal_reference, nullptr)) {}
	}

	for (auto i: _audio_streams) {
		auto context = _codec_context[i->index(_format_context)];
		audio_packet(context, i, nullptr);
	}

	if (_video_stream) {
		/* This code taken from get_rotation() in ffmpeg:cmdutils.c */
		auto stream = _format_context->streams[*_video_stream];
		auto rotate_tag = av_dict_get(stream->metadata, "rotate", 0, 0);
		if (rotate_tag && *rotate_tag->value && strcmp(rotate_tag->value, "0")) {
			char *tail;
			_rotation = av_strtod(rotate_tag->value, &tail);
			if (*tail) {
				_rotation = 0;
			}
		}

		auto side_data = av_packet_side_data_get(stream->codecpar->coded_side_data, stream->codecpar->nb_coded_side_data, AV_PKT_DATA_DISPLAYMATRIX);
		if (side_data && !_rotation) {
			_rotation = - av_display_rotation_get(reinterpret_cast<int32_t*>(side_data->data));
		}

		if (_rotation) {
			_rotation = *_rotation - 360 * floor(*_rotation / 360 + 0.9 / 360);
		}
	}

	LOG_GENERAL("Temporal reference was {}", temporal_reference);
	if (temporal_reference.find("T2T3B2B3T2T3B2B3") != string::npos || temporal_reference.find("B2B3T2T3B2B3T2T3") != string::npos) {
		/* The magical sequence (taken from mediainfo) suggests that 2:3 pull-down is in use */
		_pulldown = true;
		LOG_GENERAL_NC("Suggest that this may be 2:3 pull-down (soft telecine)");
	}

	check_for_duplicate_ids();
}

void
FFmpegExaminer::check_for_duplicate_ids()
{
	bool duplicates = false;
	std::set<int> stream_ids;

	if (_video_stream) {
		stream_ids.insert(*_video_stream);
	}

	for (auto stream: _audio_streams) {
		if (stream->id() && !stream_ids.insert(*stream->id()).second) {
			duplicates = true;
			break;
		}
	}

	for (auto stream: _subtitle_streams) {
		if (stream->id() && !stream_ids.insert(*stream->id()).second) {
			duplicates = true;
			break;
		}
	}

	if (duplicates) {
		for (auto stream: _audio_streams) {
			stream->unset_id();
		}
		for (auto stream: _subtitle_streams) {
			stream->unset_id();
		}
	}
}


/** @param temporal_reference A string to which we should add two characters per frame;
 *  the first   is T or B depending on whether it's top- or bottom-field first,
 *  the second  is 3 or 2 depending on whether "repeat_pict" is true or not.
 *  @return true if some video was decoded, otherwise false.
 */
bool
FFmpegExaminer::video_packet(AVCodecContext* context, string& temporal_reference, AVPacket* packet)
{
	DCPOMATIC_ASSERT(_video_stream);

	if (_first_video && !_need_length && temporal_reference.size() >= (PULLDOWN_CHECK_FRAMES * 2)) {
		return false;
	}

	bool pending = false;
	do {
		int r = avcodec_send_packet(context, packet);
		if (r < 0) {
			LOG_WARNING("avcodec_send_packet returned {} for a video packet", r);
		}

		/* EAGAIN means we should call avcodec_receive_frame and then re-send the same packet */
		pending = r == AVERROR(EAGAIN);

		r = avcodec_receive_frame(context, _video_frame);
		if (r == AVERROR(EAGAIN)) {
			/* More input is required */
			return true;
		} else if (r == AVERROR_EOF) {
			/* No more output is coming */
			return false;
		}
	} while (pending);

	if (!_first_video) {
		_first_video = frame_time(_video_frame, _format_context->streams[_video_stream.get()]);
	}
	if (_need_length) {
		_video_length = frame_time(
			_video_frame,
			_format_context->streams[_video_stream.get()]
			).get_value_or({}).frames_round(video_frame_rate().get()) + 1;
	}
	if (temporal_reference.size() < (PULLDOWN_CHECK_FRAMES * 2)) {
		temporal_reference += ((_video_frame->flags & AV_FRAME_FLAG_TOP_FIELD_FIRST) ? "T" : "B");
		temporal_reference += (_video_frame->repeat_pict ? "3" : "2");
	}

	return true;
}


bool
FFmpegExaminer::audio_packet(AVCodecContext* context, shared_ptr<FFmpegAudioStream> stream, AVPacket* packet)
{
	if (stream->first_audio && !_need_length) {
		return false;
	}

	int r = avcodec_send_packet(context, packet);
	if (r < 0) {
		LOG_WARNING("avcodec_send_packet returned {} for an audio packet", r);
		return false;
	}

	auto frame = audio_frame(stream);

	if (avcodec_receive_frame(context, frame) < 0) {
		return false;
	}

	if (!stream->first_audio) {
		stream->first_audio = frame_time(frame, stream->stream(_format_context));
	}

	if (_need_length) {
		stream->set_length(frame_time(frame, stream->stream(_format_context)).get_value_or({}).frames_round(stream->frame_rate()) + frame->nb_samples);
	}

	return true;
}


optional<ContentTime>
FFmpegExaminer::frame_time(AVFrame* frame, AVStream* stream) const
{
	optional<ContentTime> t;

	int64_t const bet = frame->best_effort_timestamp;
	if (bet != AV_NOPTS_VALUE) {
		t = ContentTime::from_seconds(bet * av_q2d(stream->time_base));
	}

	return t;
}


optional<double>
FFmpegExaminer::video_frame_rate() const
{
	DCPOMATIC_ASSERT(_video_stream);
	return av_q2d(av_guess_frame_rate(_format_context, _format_context->streams[_video_stream.get()], 0));
}


optional<dcp::Size>
FFmpegExaminer::video_size() const
{
	return dcp::Size(video_codec_context()->width, video_codec_context()->height);
}


/** @return Length according to our content's header */
Frame
FFmpegExaminer::video_length() const
{
	return max(Frame(1), _video_length);
}


optional<double>
FFmpegExaminer::sample_aspect_ratio() const
{
	DCPOMATIC_ASSERT(_video_stream);
	auto sar = av_guess_sample_aspect_ratio(_format_context, _format_context->streams[_video_stream.get()], 0);
	if (sar.num == 0) {
		/* I assume this means that we don't know */
		return {};
	}
	return double(sar.num) / sar.den;
}


string
FFmpegExaminer::subtitle_stream_name(AVStream* s) const
{
	auto n = stream_name(s);

	if (n.empty()) {
		n = _("unknown");
	}

	return n;
}


string
FFmpegExaminer::stream_name(AVStream* s) const
{
	string n;

	if (s->metadata) {
		auto const lang = av_dict_get(s->metadata, "language", 0, 0);
		if (lang) {
			n = lang->value;
		}

		auto const title = av_dict_get(s->metadata, "title", 0, 0);
		if (title) {
			if (!n.empty()) {
				n += " ";
			}
			n += title->value;
		}
	}

	return n;
}


optional<int>
FFmpegExaminer::bits_per_pixel() const
{
	if (video_codec_context()->pix_fmt == -1) {
		return {};
	}

	auto const d = av_pix_fmt_desc_get(video_codec_context()->pix_fmt);
	DCPOMATIC_ASSERT(d);
	return av_get_bits_per_pixel(d);
}


bool
FFmpegExaminer::has_alpha() const
{
	if (video_codec_context()->pix_fmt == -1) {
		return false;
	}

	auto const d = av_pix_fmt_desc_get(video_codec_context()->pix_fmt);
	DCPOMATIC_ASSERT(d);
	return d->flags & AV_PIX_FMT_FLAG_ALPHA;
}


bool
FFmpegExaminer::yuv() const
{
	switch (video_codec_context()->pix_fmt) {
	case AV_PIX_FMT_YUV420P:
	case AV_PIX_FMT_YUYV422:
	case AV_PIX_FMT_YUV422P:
	case AV_PIX_FMT_YUV444P:
	case AV_PIX_FMT_YUV410P:
	case AV_PIX_FMT_YUV411P:
	case AV_PIX_FMT_YUVJ420P:
	case AV_PIX_FMT_YUVJ422P:
	case AV_PIX_FMT_YUVJ444P:
	case AV_PIX_FMT_UYVY422:
	case AV_PIX_FMT_UYYVYY411:
	case AV_PIX_FMT_NV12:
	case AV_PIX_FMT_NV21:
	case AV_PIX_FMT_YUV440P:
	case AV_PIX_FMT_YUVJ440P:
	case AV_PIX_FMT_YUVA420P:
	case AV_PIX_FMT_YUV420P16LE:
	case AV_PIX_FMT_YUV420P16BE:
	case AV_PIX_FMT_YUV422P16LE:
	case AV_PIX_FMT_YUV422P16BE:
	case AV_PIX_FMT_YUV444P16LE:
	case AV_PIX_FMT_YUV444P16BE:
	case AV_PIX_FMT_YUV420P9BE:
	case AV_PIX_FMT_YUV420P9LE:
	case AV_PIX_FMT_YUV420P10BE:
	case AV_PIX_FMT_YUV420P10LE:
	case AV_PIX_FMT_YUV422P10BE:
	case AV_PIX_FMT_YUV422P10LE:
	case AV_PIX_FMT_YUV444P9BE:
	case AV_PIX_FMT_YUV444P9LE:
	case AV_PIX_FMT_YUV444P10BE:
	case AV_PIX_FMT_YUV444P10LE:
	case AV_PIX_FMT_YUV422P9BE:
	case AV_PIX_FMT_YUV422P9LE:
	case AV_PIX_FMT_YUVA420P9BE:
	case AV_PIX_FMT_YUVA420P9LE:
	case AV_PIX_FMT_YUVA422P9BE:
	case AV_PIX_FMT_YUVA422P9LE:
	case AV_PIX_FMT_YUVA444P9BE:
	case AV_PIX_FMT_YUVA444P9LE:
	case AV_PIX_FMT_YUVA420P10BE:
	case AV_PIX_FMT_YUVA420P10LE:
	case AV_PIX_FMT_YUVA422P10BE:
	case AV_PIX_FMT_YUVA422P10LE:
	case AV_PIX_FMT_YUVA444P10BE:
	case AV_PIX_FMT_YUVA444P10LE:
	case AV_PIX_FMT_YUVA420P16BE:
	case AV_PIX_FMT_YUVA420P16LE:
	case AV_PIX_FMT_YUVA422P16BE:
	case AV_PIX_FMT_YUVA422P16LE:
	case AV_PIX_FMT_YUVA444P16BE:
	case AV_PIX_FMT_YUVA444P16LE:
	case AV_PIX_FMT_NV16:
	case AV_PIX_FMT_NV20LE:
	case AV_PIX_FMT_NV20BE:
	case AV_PIX_FMT_YVYU422:
	case AV_PIX_FMT_YUVA444P:
	case AV_PIX_FMT_YUVA422P:
	case AV_PIX_FMT_YUV420P12BE:
	case AV_PIX_FMT_YUV420P12LE:
	case AV_PIX_FMT_YUV420P14BE:
	case AV_PIX_FMT_YUV420P14LE:
	case AV_PIX_FMT_YUV422P12BE:
	case AV_PIX_FMT_YUV422P12LE:
	case AV_PIX_FMT_YUV422P14BE:
	case AV_PIX_FMT_YUV422P14LE:
	case AV_PIX_FMT_YUV444P12BE:
	case AV_PIX_FMT_YUV444P12LE:
	case AV_PIX_FMT_YUV444P14BE:
	case AV_PIX_FMT_YUV444P14LE:
	case AV_PIX_FMT_YUVJ411P:
		return true;
	default:
		return false;
	}
}


bool
FFmpegExaminer::has_video() const
{
	return static_cast<bool>(_video_stream);
}


VideoRange
FFmpegExaminer::range() const
{
	switch (color_range()) {
	case AVCOL_RANGE_MPEG:
	case AVCOL_RANGE_UNSPECIFIED:
		return VideoRange::VIDEO;
	case AVCOL_RANGE_JPEG:
	default:
		return VideoRange::FULL;
	}
}


PixelQuanta
FFmpegExaminer::pixel_quanta() const
{
	auto const desc = av_pix_fmt_desc_get(video_codec_context()->pix_fmt);
	DCPOMATIC_ASSERT(desc);
	return { 1 << desc->log2_chroma_w, 1 << desc->log2_chroma_h };
}