package stream

import (
	"fmt"
	"github.com/yangjiechina/live-server/log"
	"net"
	"net/http"
	"time"

	"github.com/yangjiechina/avformat/stream"
	"github.com/yangjiechina/avformat/utils"
	"github.com/yangjiechina/live-server/transcode"
)

// SourceType 推流类型
type SourceType byte

// Protocol 输出的流协议
type Protocol uint32

type SourceEvent byte

// SessionState 推拉流Session的状态
// 包含握手和Hook授权阶段
type SessionState uint32

const (
	SourceTypeRtmp  = SourceType(1)
	SourceType28181 = SourceType(2)
	SourceType1078  = SourceType(3)

	ProtocolRtmp = Protocol(1)
	ProtocolFlv  = Protocol(2)
	ProtocolRtsp = Protocol(3)
	ProtocolHls  = Protocol(4)
	ProtocolRtc  = Protocol(5)

	SourceEventPlay         = SourceEvent(1)
	SourceEventPlayDone     = SourceEvent(2)
	SourceEventInput        = SourceEvent(3)
	SourceEventClose        = SourceEvent(4)
	SourceEventProbeTimeout = SourceEvent(5)
)

const (
	SessionStateCreate           = SessionState(1) //新建状态
	SessionStateHandshaking      = SessionState(2) //握手中
	SessionStateHandshakeFailure = SessionState(3) //握手失败
	SessionStateHandshakeDone    = SessionState(4) //握手完成
	SessionStateWait             = SessionState(5) //位于等待队列中
	SessionStateTransferring     = SessionState(6) //推拉流中
	SessionStateClose            = SessionState(7) //关闭状态
)

func (s SourceType) ToString() string {
	if SourceTypeRtmp == s {
		return "rtmp"
	} else if SourceType28181 == s {
		return "28181"
	} else if SourceType1078 == s {
		return "jt1078"
	}

	panic(fmt.Sprintf("unknown source type %d", s))
}

func (p Protocol) ToString() string {
	if ProtocolRtmp == p {
		return "rtmp"
	} else if ProtocolFlv == p {
		return "flv"
	} else if ProtocolRtsp == p {
		return "rtsp"
	} else if ProtocolHls == p {
		return "hls"
	} else if ProtocolRtc == p {
		return "rtc"
	}

	panic(fmt.Sprintf("unknown stream protocol %d", p))
}

// ISource 父类Source负责, 除解析流以外的所有事情
type ISource interface {
	// Id Source的唯一ID/**
	Id() string

	// Input 输入推流数据
	//@Return bool fatal error.释放Source
	Input(data []byte) error

	// OriginStreams 返回推流的原始Streams
	OriginStreams() []utils.AVStream

	// TranscodeStreams 返回转码的Streams
	TranscodeStreams() []utils.AVStream

	// AddSink 添加Sink, 在此之前请确保Sink已经握手、授权通过. 如果Source还未WriteHeader，先将Sink添加到等待队列.
	// 匹配拉流的编码器, 创建TransStream或向存在TransStream添加Sink
	AddSink(sink ISink) bool

	// RemoveSink 删除Sink/**
	RemoveSink(sink ISink) bool

	AddEvent(event SourceEvent, data interface{})

	SetState(state SessionState)

	// Close 关闭Source
	// 停止一切封装和转发流以及转码工作
	// 将Sink添加到等待队列
	Close()

	// Type 推流类型
	Type() SourceType

	// FindOrCreatePacketBuffer 查找或者创建AVPacket的内存池
	FindOrCreatePacketBuffer(index int, mediaType utils.AVMediaType) MemoryPool

	// OnDiscardPacket GOP缓存溢出回调, 释放AVPacket
	OnDiscardPacket(pkt interface{})

	// OnDeMuxStream 解析出AVStream回调
	OnDeMuxStream(stream utils.AVStream)

	// IsCompleted 是否已经WireHeader
	IsCompleted() bool

	// OnDeMuxStreamDone 所有track解析完毕, 后续的OnDeMuxStream回调不再处理
	OnDeMuxStreamDone()

	// OnDeMuxPacket 解析出AvPacket回调
	OnDeMuxPacket(packet utils.AVPacket)

	// OnDeMuxDone 所有流解析完毕回调
	OnDeMuxDone()

	LoopEvent()

	Init(input func(data []byte) error)
}

var TranscoderFactory func(src utils.AVStream, dst utils.AVStream) transcode.ITranscoder

type SourceImpl struct {
	hookSessionImpl

	Id_   string
	Type_ SourceType
	state SessionState
	Conn  net.Conn

	TransDeMuxer     stream.DeMuxer          //负责从推流协议中解析出AVStream和AVPacket
	recordSink       ISink                   //每个Source的录制流
	hlsStream        ITransStream            //如果开开启HLS传输流, 不等拉流时, 创建直接生成
	audioTranscoders []transcode.ITranscoder //音频解码器
	videoTranscoders []transcode.ITranscoder //视频解码器
	originStreams    StreamManager           //推流的音视频Streams
	allStreams       StreamManager           //推流Streams+转码器获得的Stream
	gopBuffers       []StreamBuffer          //推流每路的GOP缓存
	pktBuffers       [8]MemoryPool           //推流每路的AVPacket缓存, AVPacket的data从该内存池中分配. 在GOP缓存溢出时,释放池中内存.

	Input_ func(data []byte) error //解决多态无法传递给子类的问题

	completed  bool
	probeTimer *time.Timer

	//所有的输出协议, 持有Sink
	transStreams map[TransStreamId]ITransStream

	//sink的拉流和断开拉流事件，都通过管道交给Source处理. 意味着Source内部解析流、封装流、传输流都可以做到无锁操作
	//golang的管道是有锁的(https://github.com/golang/go/blob/d38f1d13fa413436d38d86fe86d6a146be44bb84/src/runtime/chan.go#L202), 后面使用cas队列传输事件, 并且可以做到一次读取多个事件
	inputEvent            chan []byte
	responseEvent         chan byte //解析完input的数据后，才能继续从网络io中读取流
	closeEvent            chan byte
	playingEventQueue     chan ISink
	playingDoneEventQueue chan ISink
	probeTimoutEvent      chan bool
}

func (s *SourceImpl) Id() string {
	return s.Id_
}

func (s *SourceImpl) Init(input func(data []byte) error) {
	s.Input_ = input

	//初始化事件接收缓冲区
	s.SetState(SessionStateTransferring)

	//收流和网络断开的chan都阻塞执行
	s.inputEvent = make(chan []byte)
	s.responseEvent = make(chan byte)
	s.closeEvent = make(chan byte)
	s.playingEventQueue = make(chan ISink, 128)
	s.playingDoneEventQueue = make(chan ISink, 128)
	s.probeTimoutEvent = make(chan bool)

	if s.transStreams == nil {
		s.transStreams = make(map[TransStreamId]ITransStream, 10)
	}

	//创建录制流
	if AppConfig.Record.Enable {

	}

	//创建HLS输出流
	if AppConfig.Hls.Enable {
		hlsStream, err := CreateTransStream(s, ProtocolHls, nil)
		if err != nil {
			panic(err)
		}

		s.hlsStream = hlsStream
		s.transStreams[0x100] = s.hlsStream
	}
}

// FindOrCreatePacketBuffer 查找或者创建AVPacket的内存池
func (s *SourceImpl) FindOrCreatePacketBuffer(index int, mediaType utils.AVMediaType) MemoryPool {
	if index >= cap(s.pktBuffers) {
		panic("流路数过多...")
	}

	if s.pktBuffers[index] == nil {
		if utils.AVMediaTypeAudio == mediaType {
			s.pktBuffers[index] = NewMemoryPool(48000 * 64)
		} else if AppConfig.GOPCache {
			//开启GOP缓存
			//以每秒钟4M码率大小创建视频内存池
			s.pktBuffers[index] = NewMemoryPool(4096 * 1024)
		} else {
			//未开启GOP缓存
			//以每秒钟4M的1/8码率大小创建视频内存池
			s.pktBuffers[index] = NewMemoryPool(4096 * 1024 / 8)
		}
	}

	return s.pktBuffers[index]
}

func (s *SourceImpl) LoopEvent() {
	for {
		select {
		case data := <-s.inputEvent:
			if err := s.Input_(data); err != nil {
				log.Sugar.Errorf("处理输入流失败 释放source:%s err:%s", s.Id_, err.Error())
				s.Close()
			}

			s.responseEvent <- 0
			break
		case sink := <-s.playingEventQueue:
			if !s.completed {
				AddSinkToWaitingQueue(sink.SourceId(), sink)
			} else {
				if !s.AddSink(sink) {
					sink.Close()
				}
			}
			break
		case sink := <-s.playingDoneEventQueue:
			s.RemoveSink(sink)
			break
		case _ = <-s.closeEvent:
			s.Close()
			return
		case _ = <-s.probeTimoutEvent:
			s.writeHeader()
			break
		}
	}
}

func (s *SourceImpl) Input(data []byte) error {
	return nil
}

func (s *SourceImpl) OriginStreams() []utils.AVStream {
	return s.originStreams.All()
}

func (s *SourceImpl) TranscodeStreams() []utils.AVStream {
	return s.allStreams.All()
}

func IsSupportMux(protocol Protocol, audioCodecId, videoCodecId utils.AVCodecID) bool {
	if ProtocolRtmp == protocol || ProtocolFlv == protocol {

	}

	return true
}

// 将GOP缓存发送给TransStream
// 按照时间戳升序发送
func (s *SourceImpl) dispatchStreamBuffer(transStream ITransStream, streams []utils.AVStream) {
	size := len(streams)
	indexs := make([]int, size)

	for {
		min := int64(0xFFFFFFFF)

		//找出最小的时间戳
		for index, stream_ := range streams[:size] {
			if s.gopBuffers[stream_.Index()].Size() == indexs[index] {
				continue
			}

			pkt := s.gopBuffers[stream_.Index()].Peek(indexs[index]).(utils.AVPacket)
			v := pkt.Dts()
			if min == 0xFFFFFFFF {
				min = v
			} else if v < min {
				min = v
			}
		}

		if min == 0xFFFFFFFF {
			break
		}

		for index, stream_ := range streams[:size] {
			buffer := s.gopBuffers[stream_.Index()]
			if buffer.Size() == indexs[index] {
				continue
			}

			for i := indexs[index]; i < buffer.Size(); i++ {
				packet := buffer.Peek(i).(utils.AVPacket)
				if packet.Dts() > min {
					break
				}

				transStream.Input(packet)
				indexs[index]++
			}
		}
	}
}

func (s *SourceImpl) AddSink(sink ISink) bool {
	// 暂时不考虑多路视频流，意味着只能1路视频流和多路音频流，同理originStreams和allStreams里面的Stream互斥. 同时多路音频流的Codec必须一致
	audioCodecId, videoCodecId := sink.DesiredAudioCodecId(), sink.DesiredVideoCodecId()
	audioStream := s.originStreams.FindStreamWithType(utils.AVMediaTypeAudio)
	videoStream := s.originStreams.FindStreamWithType(utils.AVMediaTypeVideo)

	disableAudio := audioStream == nil
	disableVideo := videoStream == nil || !sink.EnableVideo()
	if disableAudio && disableVideo {
		return false
	}

	//不支持对期望编码的流封装. 降级
	if (utils.AVCodecIdNONE != audioCodecId || utils.AVCodecIdNONE != videoCodecId) && !IsSupportMux(sink.Protocol(), audioCodecId, videoCodecId) {
		audioCodecId = utils.AVCodecIdNONE
		videoCodecId = utils.AVCodecIdNONE
	}

	if !disableAudio && utils.AVCodecIdNONE == audioCodecId {
		audioCodecId = audioStream.CodecId()
	}
	if !disableVideo && utils.AVCodecIdNONE == videoCodecId {
		videoCodecId = videoStream.CodecId()
	}

	//创建音频转码器
	if !disableAudio && audioCodecId != audioStream.CodecId() {
		utils.Assert(false)
	}

	//创建视频转码器
	if !disableVideo && videoCodecId != videoStream.CodecId() {
		utils.Assert(false)
	}

	var streams [5]utils.AVStream
	var size int

	for _, stream_ := range s.originStreams.All() {
		if disableVideo && stream_.Type() == utils.AVMediaTypeVideo {
			continue
		}

		streams[size] = stream_
		size++
	}

	transStreamId := GenerateTransStreamId(sink.Protocol(), streams[:size]...)
	transStream, ok := s.transStreams[transStreamId]
	if !ok {
		if s.transStreams == nil {
			s.transStreams = make(map[TransStreamId]ITransStream, 10)
		}
		//创建一个新的传输流
		log.Sugar.Debugf("创建%s-stream", sink.Protocol().ToString())

		var err error
		transStream, err = CreateTransStream(s, sink.Protocol(), streams[:size])
		if err != nil {
			log.Sugar.Errorf("创建传输流失败 err:%s source:%s", err.Error(), s.Id_)
			return false
		}

		s.transStreams[transStreamId] = transStream

		for i := 0; i < size; i++ {
			transStream.AddTrack(streams[i])
		}

		_ = transStream.WriteHeader()
	}

	sink.SetTransStreamId(transStreamId)

	{
		sink.Lock()
		defer sink.UnLock()

		if SessionStateClose == sink.State() {
			log.Sugar.Warnf("AddSink失败, sink已经断开链接 %s", sink.PrintInfo())
		} else {
			transStream.AddSink(sink)
		}
		sink.SetState(SessionStateTransferring)
	}

	//新的传输流，发送缓存的音视频帧
	if !ok && AppConfig.GOPCache {
		s.dispatchStreamBuffer(transStream, streams[:size])
	}

	return true
}

func (s *SourceImpl) RemoveSink(sink ISink) bool {
	id := sink.TransStreamId()
	if id > 0 {
		transStream := s.transStreams[id]
		//如果从传输流没能删除sink, 再从等待队列删除
		_, b := transStream.RemoveSink(sink.Id())
		if b {
			HookPlayingDone(sink, nil, nil)
			return true
		}
	}

	_, b := RemoveSinkFromWaitingQueue(sink.SourceId(), sink.Id())
	return b
}

func (s *SourceImpl) AddEvent(event SourceEvent, data interface{}) {
	if SourceEventInput == event {
		s.inputEvent <- data.([]byte)
		<-s.responseEvent
	} else if SourceEventPlay == event {
		s.playingEventQueue <- data.(ISink)
	} else if SourceEventPlayDone == event {
		s.playingDoneEventQueue <- data.(ISink)
	} else if SourceEventClose == event {
		s.closeEvent <- 0
	}
}

func (s *SourceImpl) SetState(state SessionState) {
	s.state = state
}

func (s *SourceImpl) Close() {
	//释放解复用器
	//释放转码器
	//释放每路转协议流， 将所有sink添加到等待队列
	_, _ = SourceManager.Remove(s.Id_)
	for _, transStream := range s.transStreams {
		transStream.PopAllSink(func(sink ISink) {
			sink.SetTransStreamId(0)
			{
				sink.Lock()
				defer sink.UnLock()

				if SessionStateClose == sink.State() {
					log.Sugar.Warnf("添加到sink到等待队列失败, sink已经断开链接 %s", sink.PrintInfo())
				} else {
					AddSinkToWaitingQueue(s.Id_, sink)
				}
			}
		})
	}

	s.transStreams = nil
}

func (s *SourceImpl) OnDiscardPacket(pkt interface{}) {
	packet := pkt.(utils.AVPacket)
	s.FindOrCreatePacketBuffer(packet.Index(), packet.MediaType()).FreeHead()
}

func (s *SourceImpl) OnDeMuxStream(stream utils.AVStream) {
	if s.completed {
		log.Sugar.Warnf("添加Stream失败 Source: %s已经WriteHeader", s.Id_)
		return
	}

	s.originStreams.Add(stream)
	s.allStreams.Add(stream)

	//启动探测超时计时器
	if len(s.originStreams.All()) == 1 {
		if AppConfig.ProbeTimeout == 0 {
			AppConfig.ProbeTimeout = 2000
		}

		s.probeTimer = time.AfterFunc(time.Duration(AppConfig.ProbeTimeout)*time.Millisecond, func() {
			s.probeTimoutEvent <- true
		})
	}

	//为每个Stream创建对应的Buffer
	if AppConfig.GOPCache {
		buffer := NewStreamBuffer(200)
		//OnDeMuxStream的调用顺序，就是AVStream和AVPacket的Index的递增顺序
		s.gopBuffers = append(s.gopBuffers, buffer)
		//设置GOP缓存溢出回调
		buffer.SetDiscardHandler(s.OnDiscardPacket)
	}
}

// 从DeMuxer解析完Stream后, 处理等待Sinks
func (s *SourceImpl) writeHeader() {
	if s.completed {
		fmt.Printf("添加Stream失败 Source: %s已经WriteHeader", s.Id_)
		return
	}

	s.completed = true

	if s.probeTimer != nil {
		s.probeTimer.Stop()
	}

	sinks := PopWaitingSinks(s.Id_)
	for _, sink := range sinks {
		if !s.AddSink(sink) {
			sink.Close()
		}
	}

	if s.hlsStream != nil {
		for _, stream_ := range s.originStreams.All() {
			s.hlsStream.AddTrack(stream_)
		}

		s.hlsStream.WriteHeader()
	}
}

func (s *SourceImpl) IsCompleted() bool {
	return s.completed
}

func (s *SourceImpl) OnDeMuxStreamDone() {
	s.writeHeader()
}

func (s *SourceImpl) OnDeMuxPacket(packet utils.AVPacket) {
	if AppConfig.GOPCache {
		buffer := s.gopBuffers[packet.Index()]
		buffer.AddPacket(packet, packet.KeyFrame(), packet.Dts())
	}

	//分发给各个传输流
	for _, stream_ := range s.transStreams {
		stream_.Input(packet)
	}

	if AppConfig.GOPCache {
		return
	}

	//未开启GOP缓存，释放掉内存
	s.FindOrCreatePacketBuffer(packet.Index(), packet.MediaType()).FreeTail()
}

func (s *SourceImpl) OnDeMuxDone() {

}

func (s *SourceImpl) Publish(source ISource, success func(), failure func(state utils.HookState)) {
	//streamId 已经被占用
	if source_ := SourceManager.Find(source.Id()); source_ != nil {
		fmt.Printf("推流已经占用 Source:%s", source.Id())
		failure(utils.HookStateOccupy)
	}

	if !AppConfig.Hook.EnableOnPublish() {
		if err := SourceManager.Add(source); err == nil {
			success()
		} else {
			fmt.Printf("添加失败 Source:%s", source.Id())
			failure(utils.HookStateOccupy)
		}

		return
	}

	err := s.Hook(HookEventPublish, NewPublishHookEventInfo(source.Id(), "", source.Type()),
		func(response *http.Response) {
			if err := SourceManager.Add(source); err == nil {
				success()
			} else {
				failure(utils.HookStateOccupy)
			}
		}, func(response *http.Response, err error) {
			failure(utils.HookStateFailure)
		})

	//hook地址连接失败
	if err != nil {
		failure(utils.HookStateFailure)
		return
	}
}

func (s *SourceImpl) PublishDone(source ISource, success func(), failure func(state utils.HookState)) {

}

func (s *SourceImpl) Type() SourceType {
	return s.Type_
}