#pragma once

#include <iostream>
#include <thread>
#include <chrono>
#include <assert.h>
#include <list>
#include <mutex>

#ifdef __cplusplus 
extern "C" {

#include "libavcodec/avcodec.h"
#include "libavformat/avformat.h"
#include "libavutil/avutil.h"
#include "libavutil/time.h"

}
#endif

class FfmpegOutputer {
    enum State {INIT=0, SERVICE, DOWN};
    AVFormatContext *m_ofmt_ctx {nullptr};
    std::string m_url;

    std::thread *m_thread_output {nullptr};
    bool m_thread_output_is_running {false};

    State m_output_state;
    std::mutex m_list_packets_lock;
    std::list<AVPacket*> m_list_packets;
    bool m_repeat {true};

    bool string_start_with(const std::string& s, const std::string& prefix){
        return (s.compare(0, prefix.size(), prefix) == 0);
    }

    int output_initialize(){
        std::cout<<"init. "<<std::endl;
        int ret = 0;
        if (!(m_ofmt_ctx->oformat->flags & AVFMT_NOFILE)) {
            ret = avio_open(&m_ofmt_ctx->pb, m_url.c_str(), AVIO_FLAG_WRITE);
            if (ret < 0) {
                printf("Could not open output URL '%s'", m_url.c_str());
                return -1;
            }
        }

        AVDictionary *opts = NULL;
        if (string_start_with(m_url, "rtsp://")) {
            av_dict_set(&opts, "rtsp_transport", "tcp", 0);
            av_dict_set(&opts, "muxdelay", "0.1", 0);
 //           av_dict_set(&opts, "fps", "30", 0);
        }

        assert(opts!= NULL);
        assert(m_ofmt_ctx != NULL);

        //Write file header
        ret = avformat_write_header(m_ofmt_ctx, &opts);
 //       std::cout<<" run hear. "<<std::endl;
        if (ret < 0) {
            printf("Error occurred when opening output URL\n");
            return -1;
        }

        m_output_state = SERVICE;
        std::cout<<"init "<<m_url<<" ok.service."<<std::endl;
        m_list_packets.clear();
        return 0;
    }

    void output_service() {
        int ret = 0;
        if(m_list_packets.size() == 0)
        {
            std::this_thread::sleep_for(std::chrono::microseconds(3000));
            return;
        }
        while(m_list_packets.size() > 0) {
            AVPacket *pkt = m_list_packets.front();
 //           std::cout<<"send "<<std::endl;
            m_list_packets.pop_front();
            ret = av_interleaved_write_frame(m_ofmt_ctx, pkt);
            av_packet_free(&pkt);
            if (ret != 0) {
                std::cout << "av_interleaved_write_frame err" << ret << std::endl;
                m_output_state = DOWN;
                break;
            }
            else
            {
#ifdef SHOWINFO
                int64_t now = std::chrono::system_clock::now().time_since_epoch().count()/1000000;
                std::cout<<now<<" "<<m_url<<" up a frame. "<<std::endl;
#endif
            }
        }
    }

    void output_down() {
        if (m_repeat) {
            m_output_state = INIT;
        }else{
            av_write_trailer(m_ofmt_ctx);
            if (!(m_ofmt_ctx->oformat->flags & AVFMT_NOFILE)) {
                avio_closep(&m_ofmt_ctx->pb);
            }

            // Set exit flag
            m_thread_output_is_running = false;
        }
    }

    void output_process_thread_proc() {
        m_thread_output_is_running = true;
        while(m_thread_output_is_running) {
            switch(m_output_state) {
                case INIT:
                    if (output_initialize() < 0) m_output_state = DOWN;
                    break;
                case SERVICE:
                    output_service();
                    break;
                case DOWN:
                    output_down();
                    break;
            }
        }

        std::cout << "output thread exit!" << std::endl;
    }

public:
    FfmpegOutputer():m_ofmt_ctx(NULL){
        
    }
    virtual ~FfmpegOutputer()
    {
        CloseOutputStream();
    }

    int OpenOutputStream(const std::string& url, AVFormatContext *ifmt_ctx)
    {
        int ret = 0;
        const char* format_name = NULL;
        m_url = url;
        if (string_start_with(m_url, "rtsp://")) {
            format_name = "rtsp";
        }else if(string_start_with(m_url, "udp://") || string_start_with(m_url, "tcp://")) {
            format_name = "h264";
        }else if(string_start_with(m_url, "rtp://")) {
            format_name = "rtp";
        }else if(string_start_with(m_url, "rtmp://")) {
            format_name = "flv";
        }
        else{
            std::cout << "Not support this Url:" << m_url << std::endl;
            return -1;
        }

        if (nullptr == m_ofmt_ctx) {
            ret = avformat_alloc_output_context2(&m_ofmt_ctx, NULL, format_name, m_url.c_str());
            if (ret < 0 || m_ofmt_ctx == NULL) {
                std::cout << "avformat_alloc_output_context2() err=" << ret << std::endl;
                return -1;
            }

            for(int i = 0;i < ifmt_ctx->nb_streams; ++i) {
                AVStream *ostream = avformat_new_stream(m_ofmt_ctx, NULL);
                if (NULL == ostream) {
                    std::cout << "Can't create new stream!" << std::endl;
                    return -1;
                }
#if LIBAVCODEC_VERSION_MAJOR > 56
                ret = avcodec_parameters_copy(ostream->codecpar, ifmt_ctx->streams[i]->codecpar);
                if (ret < 0) {
                    std::cout << "avcodec_parameters_copy() err=" << ret << std::endl;
                    return -1;
                }

#else
                ret = avcodec_copy_context(ostream->codec, ifmt_ctx->streams[i]->codec);
                if (ret < 0){
                    flog(LOG_ERROR, "avcodec_copy_context() err=%d", ret);
                    return -1;
                }
#endif
                m_ofmt_ctx->oformat->flags |= AVFMT_TS_NONSTRICT;
                if (m_ofmt_ctx->oformat->flags & AVFMT_GLOBALHEADER) {
                    ostream->codec->flags |= AV_CODEC_FLAG_GLOBAL_HEADER;
                }
            }
        }

        if (!m_ofmt_ctx) {
            printf("Could not create output context\n");
            return -1;
        }

        av_dump_format(m_ofmt_ctx, 0, m_url.c_str(), 1);
        ret = output_initialize();
        if (ret != 0) {
            return -1;
        }

        m_thread_output = new std::thread(&FfmpegOutputer::output_process_thread_proc, this);
        return 0;
    }



    int InputPacket(AVPacket *pkt) {
        if(m_list_packets.size()>90)
        {
            int64_t now = std::chrono::system_clock::now().time_since_epoch().count()/1000000;
            std::cout<<now<<" ignore packete. buffer full."<<std::endl;
            return -1;
        }
        AVPacket *pkt1 = av_packet_alloc();
        av_packet_ref(pkt1, pkt);

        m_list_packets.push_back(pkt1);
        return 0;
    }

    int CloseOutputStream() {
        std::cout << "call CloseOutputStream()" << std::endl;
        m_repeat = false;
        m_output_state = DOWN;
        if (m_thread_output) {
            m_thread_output->join();
            delete m_thread_output;
            m_thread_output = nullptr;
        }

        if (m_ofmt_ctx) {
            avformat_free_context(m_ofmt_ctx);
            m_ofmt_ctx = NULL;
        }

        return 0;
    }
};