#include "avutils.h"

#include <cstdint>

extern "C" {
#include <libavcodec/avcodec.h>
#include <libavutil/pixdesc.h>
}

#include <spdlog/spdlog.h>

#include "conversions.h"
#include "logger_manager.h"

namespace video2x {
namespace avutils {

AVRational get_video_frame_rate(AVFormatContext* ifmt_ctx, int in_vstream_idx) {
    AVRational frame_rate = ifmt_ctx->streams[in_vstream_idx]->avg_frame_rate;
    if (frame_rate.num == 0 && frame_rate.den == 0) {
        frame_rate = ifmt_ctx->streams[in_vstream_idx]->r_frame_rate;
    }
    if (frame_rate.num == 0 && frame_rate.den == 0) {
        frame_rate = av_guess_frame_rate(ifmt_ctx, ifmt_ctx->streams[in_vstream_idx], nullptr);
    }
    if (frame_rate.num == 0 && frame_rate.den == 0) {
        frame_rate = ifmt_ctx->streams[in_vstream_idx]->time_base;
    }
    if (frame_rate.num == 0 && frame_rate.den == 0) {
        logger()->warn("Unable to determine the video's frame rate");
    }
    return frame_rate;
}

int64_t get_video_frame_count(AVFormatContext* ifmt_ctx, int in_vstream_idx) {
    // Use the 'nb_frames' field if it is available
    int64_t nb_frames = ifmt_ctx->streams[in_vstream_idx]->nb_frames;
    if (nb_frames != AV_NOPTS_VALUE && nb_frames > 0) {
        logger()->debug("Read total number of frames from 'nb_frames': {}", nb_frames);
        return nb_frames;
    }
    logger()->warn("Estimating the total number of frames using duration * fps");

    // Get the duration of the video
    double duration_secs = 0.0;
    if (ifmt_ctx->duration != AV_NOPTS_VALUE) {
        duration_secs = static_cast<double>(ifmt_ctx->duration) / static_cast<double>(AV_TIME_BASE);
    } else if (ifmt_ctx->streams[in_vstream_idx]->duration != AV_NOPTS_VALUE) {
        duration_secs = static_cast<double>(ifmt_ctx->streams[in_vstream_idx]->duration) *
                        av_q2d(ifmt_ctx->streams[in_vstream_idx]->time_base);
    }
    if (duration_secs <= 0) {
        logger()->warn("Unable to determine the video's duration");
        return -1;
    }
    logger()->debug("Video duration: {}s", duration_secs);

    // Calculate average FPS
    double fps = av_q2d(get_video_frame_rate(ifmt_ctx, in_vstream_idx));
    if (fps <= 0) {
        logger()->warn("Unable to estimate the video's average frame rate");
        return -1;
    }
    logger()->debug("Video average frame rate: {}", fps);

    // Estimate and return the total number of frames
    return static_cast<int64_t>(duration_secs * fps);
}

AVPixelFormat get_encoder_default_pix_fmt(const AVCodec* encoder, AVPixelFormat target_pix_fmt) {
    int ret;
    char errbuf[AV_ERROR_MAX_STRING_SIZE];

    // Retrieve the list of supported pixel formats
#if LIBAVCODEC_BUILD >= AV_VERSION_INT(61, 13, 100)
    const AVPixelFormat* supported_pix_fmts = nullptr;
    ret = avcodec_get_supported_config(
        nullptr, encoder, AV_CODEC_CONFIG_PIX_FORMAT, 0, (const void**)&supported_pix_fmts, nullptr
    );
    if (ret < 0) {
        av_strerror(ret, errbuf, sizeof(errbuf));
        logger()->error("Failed to get supported pixel formats: {}", errbuf);
        return AV_PIX_FMT_NONE;
    }

    if (supported_pix_fmts == nullptr) {
        if (target_pix_fmt == AV_PIX_FMT_NONE) {
            logger()->warn("Encoder supports all pixel formats; defaulting to yuv420p");
            return AV_PIX_FMT_YUV420P;
        } else {
            logger()->warn("Encoder supports all pixel formats; defaulting to the decoder's format"
            );
            return target_pix_fmt;
        }
    }
#else
    const AVPixelFormat* supported_pix_fmts = encoder->pix_fmts;
#endif

    // Determine if the target pixel format has an alpha channel
    const AVPixFmtDescriptor* desc = nullptr;
    int has_alpha = 0;
    if (target_pix_fmt != AV_PIX_FMT_NONE) {
        desc = av_pix_fmt_desc_get(target_pix_fmt);
        has_alpha = desc ? (desc->nb_components % 2 == 0) : 0;
    }

    // Iterate over supported pixel formats to find the best match
    AVPixelFormat best_pix_fmt = AV_PIX_FMT_NONE;
    for (const AVPixelFormat* p = supported_pix_fmts; *p != AV_PIX_FMT_NONE; p++) {
        if (target_pix_fmt != AV_PIX_FMT_NONE) {
            best_pix_fmt =
                av_find_best_pix_fmt_of_2(best_pix_fmt, *p, target_pix_fmt, has_alpha, nullptr);
            if (*p == target_pix_fmt) {
                best_pix_fmt = target_pix_fmt;
                break;
            }
        } else {
            best_pix_fmt = *p;
            break;
        }
    }
    if (best_pix_fmt == AV_PIX_FMT_NONE) {
        logger()->error("No suitable pixel format found for encoder");
    }

    if (target_pix_fmt != AV_PIX_FMT_NONE && best_pix_fmt != target_pix_fmt) {
        logger()->warn(
            "Incompatible pixel format '%s' for encoder '%s'; auto-selecting format '%s'",
            av_get_pix_fmt_name(target_pix_fmt),
            encoder->name,
            av_get_pix_fmt_name(best_pix_fmt)
        );
    }

    return best_pix_fmt;
}

[[gnu::target_clones("arch=x86-64-v4", "arch=x86-64-v3", "default")]]
float get_frame_diff(AVFrame* frame1, AVFrame* frame2) {
    if (!frame1 || !frame2) {
        logger()->error("Invalid frame(s) provided for comparison");
        return -1.0f;
    }

    if (frame1->width != frame2->width || frame1->height != frame2->height) {
        logger()->error("Frame dimensions do not match");
        return -1.0f;
    }

    int width = frame1->width;
    int height = frame1->height;

    // Convert both frames to the target pixel format using the provided function
    AVPixelFormat target_pix_fmt = AV_PIX_FMT_RGB24;
    AVFrame* rgb_frame1 = conversions::convert_avframe_pix_fmt(frame1, target_pix_fmt);
    AVFrame* rgb_frame2 = conversions::convert_avframe_pix_fmt(frame2, target_pix_fmt);

    if (!rgb_frame1 || !rgb_frame2) {
        logger()->error("Failed to convert frames to target pixel format");
        if (rgb_frame1) {
            av_frame_free(&rgb_frame1);
        }
        if (rgb_frame2) {
            av_frame_free(&rgb_frame2);
        }
        return -1.0f;
    }

    uint64_t sum_diff = 0;
    uint64_t max_diff = 0;

    // Calculate difference pixel by pixel
    for (int y = 0; y < height; y++) {
        uint8_t* ptr1 = rgb_frame1->data[0] + y * rgb_frame1->linesize[0];
        uint8_t* ptr2 = rgb_frame2->data[0] + y * rgb_frame2->linesize[0];
        for (int x = 0; x < width * 3; x++) {
            sum_diff +=
                static_cast<uint64_t>(ptr1[x] > ptr2[x] ? ptr1[x] - ptr2[x] : ptr2[x] - ptr1[x]);
            max_diff += 255;
        }
    }

    // Clean up
    av_frame_free(&rgb_frame1);
    av_frame_free(&rgb_frame2);

    // Calculate percentage difference
    float percent_diff = (static_cast<float>(sum_diff) / static_cast<float>(max_diff)) * 100.0f;

    return percent_diff;
}

// Deleter for AVBufferRef unique_ptr
void av_bufferref_deleter(AVBufferRef* bufferref) {
    if (bufferref != nullptr) {
        av_buffer_unref(&bufferref);
    }
}

// Deleter for AVFrame unique_ptr
void av_frame_deleter(AVFrame* frame) {
    if (frame != nullptr) {
        av_frame_free(&frame);
        frame = nullptr;
    }
}

// Deleter for AVPacket unique_ptr
void av_packet_deleter(AVPacket* packet) {
    if (packet != nullptr) {
        av_packet_unref(packet);
        av_packet_free(&packet);
        packet = nullptr;
    }
}

}  // namespace avutils
}  // namespace video2x