package rtpav1

import (
	"crypto/rand"

	"github.com/bluenviron/mediacommon/v2/pkg/codecs/av1"
	"github.com/pion/rtp"
)

const (
	rtpVersion            = 2
	defaultPayloadMaxSize = 1450 // 1500 (UDP MTU) - 20 (IP header) - 8 (UDP header) - 12 (RTP header) - 10 (SRTP overhead)
)

func randUint32() (uint32, error) {
	var b [4]byte
	_, err := rand.Read(b[:])
	if err != nil {
		return 0, err
	}
	return uint32(b[0])<<24 | uint32(b[1])<<16 | uint32(b[2])<<8 | uint32(b[3]), nil
}

// Encoder is a RTP/AV1 encoder.
// Specification: RTP Payload Format For AV1 (v1.0)
type Encoder struct {
	// payload type of packets.
	PayloadType uint8

	// SSRC of packets (optional).
	// It defaults to a random value.
	SSRC *uint32

	// initial sequence number of packets (optional).
	// It defaults to a random value.
	InitialSequenceNumber *uint16

	// maximum size of packet payloads (optional).
	// It defaults to 1450.
	PayloadMaxSize int

	sequenceNumber uint16
}

// Init initializes the encoder.
func (e *Encoder) Init() error {
	if e.SSRC == nil {
		v, err := randUint32()
		if err != nil {
			return err
		}
		e.SSRC = &v
	}
	if e.InitialSequenceNumber == nil {
		v, err := randUint32()
		if err != nil {
			return err
		}
		v2 := uint16(v)
		e.InitialSequenceNumber = &v2
	}
	if e.PayloadMaxSize == 0 {
		e.PayloadMaxSize = defaultPayloadMaxSize
	}

	e.sequenceNumber = *e.InitialSequenceNumber
	return nil
}

// Encode encodes OBUs into RTP packets.
func (e *Encoder) Encode(obus [][]byte) ([]*rtp.Packet, error) {
	var curPacket *rtp.Packet
	var packets []*rtp.Packet
	obusInPacket := 0

	createNewPacket := func(z bool) {
		curPacket = &rtp.Packet{
			Header: rtp.Header{
				Version:        rtpVersion,
				PayloadType:    e.PayloadType,
				SequenceNumber: e.sequenceNumber,
				SSRC:           *e.SSRC,
			},
			Payload: []byte{0},
		}
		e.sequenceNumber++
		packets = append(packets, curPacket)
		obusInPacket = 0

		if z {
			curPacket.Payload[0] |= 1 << 7
		}
	}

	finalizeCurPacket := func(y bool) {
		if y {
			curPacket.Payload[0] |= 1 << 6
		}
	}

	createNewPacket(false)

	maxFragmentedLEBSize := av1.LEB128(e.PayloadMaxSize).MarshalSize()

	for i, obu := range obus {
		for {
			avail := e.PayloadMaxSize - len(curPacket.Payload)
			obuLen := len(obu)
			omitSize := (i == (len(obus)-1) && obusInPacket < 3)

			var obuLenLEB av1.LEB128
			var obuLenLEBSize int
			var needed int

			if omitSize {
				needed = obuLen
			} else {
				obuLenLEB = av1.LEB128(obuLen)
				obuLenLEBSize = obuLenLEB.MarshalSize()
				needed = obuLen + obuLenLEBSize
			}

			if needed <= avail {
				if omitSize {
					curPacket.Payload[0] |= byte((obusInPacket + 1) << 4) // W
					curPacket.Payload = append(curPacket.Payload, obu...)
				} else {
					buf := make([]byte, obuLenLEBSize)
					obuLenLEB.MarshalTo(buf)
					curPacket.Payload = append(curPacket.Payload, buf...)
					curPacket.Payload = append(curPacket.Payload, obu...)
					obusInPacket++
				}
				break
			}

			if omitSize {
				if avail > 0 {
					curPacket.Payload[0] |= byte((obusInPacket + 1) << 4) // W
					curPacket.Payload = append(curPacket.Payload, obu[:avail]...)
					obu = obu[avail:]
				}
			} else {
				if avail > maxFragmentedLEBSize {
					fragmentLen := avail - maxFragmentedLEBSize
					fragmentLenLEB := av1.LEB128(fragmentLen)
					fragmentLenLEBSize := fragmentLenLEB.MarshalSize()

					buf := make([]byte, fragmentLenLEBSize)
					fragmentLenLEB.MarshalTo(buf)
					curPacket.Payload = append(curPacket.Payload, buf...)
					curPacket.Payload = append(curPacket.Payload, obu[:fragmentLen]...)
					obu = obu[fragmentLen:]
				}
			}

			finalizeCurPacket(true)
			createNewPacket(true)
		}
	}

	finalizeCurPacket(false)

	if av1.IsRandomAccess2(obus) {
		packets[0].Payload[0] |= 1 << 3
	}

	packets[len(packets)-1].Marker = true

	return packets, nil
}