package main

import (
	"math/rand"
	"sync"
	"time"

	"github.com/aler9/gortsplib"
)

const (
	sourceRetryInterval     = 5 * time.Second
	sourceUDPReadBufferSize = 2048
	sourceTCPReadBufferSize = 128 * 1024
)

type sourceFrameReq struct {
	source     *source
	trackId    int
	streamType gortsplib.StreamType
	buf        []byte
}

type sourceState int

const (
	sourceStateStopped sourceState = iota
	sourceStateRunning
)

type source struct {
	p            *program
	path         *path
	confp        *confPath
	state        sourceState
	tracks       []*gortsplib.Track
	innerRunning bool

	innerTerminate chan struct{}
	innerDone      chan struct{}
	setState       chan sourceState
	terminate      chan struct{}
	done           chan struct{}
}

func newSource(p *program, path *path, confp *confPath) *source {
	s := &source{
		p:         p,
		path:      path,
		confp:     confp,
		setState:  make(chan sourceState),
		terminate: make(chan struct{}),
		done:      make(chan struct{}),
	}

	if confp.SourceOnDemand {
		s.state = sourceStateStopped
	} else {
		s.state = sourceStateRunning
	}

	return s
}

func (s *source) isPublisher() {}

func (s *source) run(initialState sourceState) {
	s.applyState(initialState)

outer:
	for {
		select {
		case state := <-s.setState:
			s.applyState(state)

		case <-s.terminate:
			break outer
		}
	}

	if s.innerRunning {
		close(s.innerTerminate)
		<-s.innerDone
	}

	close(s.setState)
	close(s.done)
}

func (s *source) applyState(state sourceState) {
	if state == sourceStateRunning {
		if !s.innerRunning {
			s.path.log("source started")
			s.innerRunning = true
			s.innerTerminate = make(chan struct{})
			s.innerDone = make(chan struct{})
			go s.runInner()
		}
	} else {
		if s.innerRunning {
			close(s.innerTerminate)
			<-s.innerDone
			s.innerRunning = false
			s.path.log("source stopped")
		}
	}
}

func (s *source) runInner() {
	defer close(s.innerDone)

	for {
		ok := func() bool {
			ok := s.runInnerInner()
			if !ok {
				return false
			}

			t := time.NewTimer(sourceRetryInterval)
			defer t.Stop()

			select {
			case <-s.innerTerminate:
				return false
			case <-t.C:
			}

			return true
		}()
		if !ok {
			break
		}
	}
}

func (s *source) runInnerInner() bool {
	s.path.log("source connecting")

	var conn *gortsplib.ConnClient
	var err error
	dialDone := make(chan struct{})
	go func() {
		conn, err = gortsplib.NewConnClient(gortsplib.ConnClientConf{
			Host:         s.confp.sourceUrl.Host,
			ReadTimeout:  s.p.conf.ReadTimeout,
			WriteTimeout: s.p.conf.WriteTimeout,
		})
		close(dialDone)
	}()

	select {
	case <-s.innerTerminate:
		return false
	case <-dialDone:
	}

	if err != nil {
		s.path.log("source ERR: %s", err)
		return true
	}

	_, err = conn.Options(s.confp.sourceUrl)
	if err != nil {
		conn.Close()
		s.path.log("source ERR: %s", err)
		return true
	}

	tracks, _, err := conn.Describe(s.confp.sourceUrl)
	if err != nil {
		conn.Close()
		s.path.log("source ERR: %s", err)
		return true
	}

	// create a filtered SDP that is used by the server (not by the client)
	serverSdp := tracks.Write()

	s.tracks = tracks
	s.path.publisherTrackCount = len(tracks)
	s.path.publisherSdp = serverSdp

	if s.confp.sourceProtocolParsed == gortsplib.StreamProtocolUDP {
		return s.runUDP(conn)
	} else {
		return s.runTCP(conn)
	}
}

func (s *source) runUDP(conn *gortsplib.ConnClient) bool {
	var rtpReads []gortsplib.UDPReadFunc
	var rtcpReads []gortsplib.UDPReadFunc

	for _, track := range s.tracks {
		for {
			// choose two consecutive ports in range 65535-10000
			// rtp must be even and rtcp odd
			rtpPort := (rand.Intn((65535-10000)/2) * 2) + 10000
			rtcpPort := rtpPort + 1

			rtpRead, rtcpRead, _, err := conn.SetupUDP(s.confp.sourceUrl, track, rtpPort, rtcpPort)
			if err != nil {
				if isBindError(err) {
					continue // retry
				}

				conn.Close()
				s.path.log("source ERR: %s", err)
				return true
			}

			rtpReads = append(rtpReads, rtpRead)
			rtcpReads = append(rtcpReads, rtcpRead)
			break
		}
	}

	_, err := conn.Play(s.confp.sourceUrl)
	if err != nil {
		conn.Close()
		s.path.log("source ERR: %s", err)
		return true
	}

	s.p.sourceReady <- s

	var wg sync.WaitGroup

	// receive RTP packets
	for trackId, rtpRead := range rtpReads {
		wg.Add(1)
		go func(trackId int, rtpRead gortsplib.UDPReadFunc) {
			defer wg.Done()

			multiBuf := newMultiBuffer(3, sourceUDPReadBufferSize)
			for {
				buf := multiBuf.next()

				n, err := rtpRead(buf)
				if err != nil {
					break
				}

				s.p.sourceFrame <- sourceFrameReq{s, trackId, gortsplib.StreamTypeRtp, buf[:n]}
			}
		}(trackId, rtpRead)
	}

	// receive RTCP packets
	for trackId, rtcpRead := range rtcpReads {
		wg.Add(1)
		go func(trackId int, rtcpRead gortsplib.UDPReadFunc) {
			defer wg.Done()

			multiBuf := newMultiBuffer(3, sourceUDPReadBufferSize)
			for {
				buf := multiBuf.next()

				n, err := rtcpRead(buf)
				if err != nil {
					break
				}

				s.p.sourceFrame <- sourceFrameReq{s, trackId, gortsplib.StreamTypeRtcp, buf[:n]}
			}
		}(trackId, rtcpRead)
	}

	tcpConnDone := make(chan error)
	go func() {
		tcpConnDone <- conn.LoopUDP(s.confp.sourceUrl)
	}()

	var ret bool

outer:
	for {
		select {
		case <-s.innerTerminate:
			conn.Close()
			<-tcpConnDone
			ret = false
			break outer

		case err := <-tcpConnDone:
			conn.Close()
			s.path.log("source ERR: %s", err)
			ret = true
			break outer
		}
	}

	wg.Wait()

	s.p.sourceNotReady <- s

	return ret
}

func (s *source) runTCP(conn *gortsplib.ConnClient) bool {
	for _, track := range s.tracks {
		_, err := conn.SetupTCP(s.confp.sourceUrl, track)
		if err != nil {
			conn.Close()
			s.path.log("source ERR: %s", err)
			return true
		}
	}

	_, err := conn.Play(s.confp.sourceUrl)
	if err != nil {
		conn.Close()
		s.path.log("source ERR: %s", err)
		return true
	}

	s.p.sourceReady <- s

	frame := &gortsplib.InterleavedFrame{}
	multiBuf := newMultiBuffer(3, sourceTCPReadBufferSize)

	tcpConnDone := make(chan error)
	go func() {
		for {
			frame.Content = multiBuf.next()
			frame.Content = frame.Content[:cap(frame.Content)]

			err := conn.ReadFrame(frame)
			if err != nil {
				tcpConnDone <- err
				return
			}

			s.p.sourceFrame <- sourceFrameReq{s, frame.TrackId, frame.StreamType, frame.Content}
		}
	}()

	var ret bool

outer:
	for {
		select {
		case <-s.innerTerminate:
			conn.Close()
			<-tcpConnDone
			ret = false
			break outer

		case err := <-tcpConnDone:
			conn.Close()
			s.path.log("source ERR: %s", err)
			ret = true
			break outer
		}
	}

	s.p.sourceNotReady <- s

	return ret
}