package udp

import (
	"bytes"
	"context"
	"encoding/binary"
	"io"
	"net"
	"time"

	"github.com/pkg/errors"
	"golang.org/x/crypto/nacl/secretbox"
)

// Dialer is the default dialer that this package uses for all its dialing.
var Dialer = net.Dialer{
	Timeout: 10 * time.Second,
}

type Connection struct {
	GatewayIP   string
	GatewayPort uint16

	ssrc uint32

	sequence  uint16
	timestamp uint32
	nonce     [24]byte

	conn   net.Conn
	close  chan struct{}
	closed chan struct{}

	send  chan []byte
	reply chan error
}

func DialConnectionCtx(ctx context.Context, addr string, ssrc uint32) (*Connection, error) {
	// // Resolve the host.
	// a, err := net.ResolveUDPAddr("udp", addr)
	// if err != nil {
	// 	return nil, errors.Wrap(err, "failed to resolve host")
	// }

	// Create a new UDP connection.
	conn, err := Dialer.DialContext(ctx, "udp", addr)
	if err != nil {
		return nil, errors.Wrap(err, "failed to dial host")
	}

	// https://discordapp.com/developers/docs/topics/voice-connections#ip-discovery
	ssrcBuffer := [70]byte{
		0x1, 0x2,
	}
	binary.BigEndian.PutUint16(ssrcBuffer[2:4], 70)
	binary.BigEndian.PutUint32(ssrcBuffer[4:8], ssrc)

	_, err = conn.Write(ssrcBuffer[:])
	if err != nil {
		return nil, errors.Wrap(err, "failed to write SSRC buffer")
	}

	var ipBuffer [70]byte

	// ReadFull makes sure to read all 70 bytes.
	_, err = io.ReadFull(conn, ipBuffer[:])
	if err != nil {
		return nil, errors.Wrap(err, "failed to read IP buffer")
	}

	ipbody := ipBuffer[4:68]

	nullPos := bytes.Index(ipbody, []byte{'\x00'})
	if nullPos < 0 {
		return nil, errors.New("UDP IP discovery did not contain a null terminator")
	}

	ip := ipbody[:nullPos]
	port := binary.LittleEndian.Uint16(ipBuffer[68:70])

	return &Connection{
		GatewayIP:   string(ip),
		GatewayPort: port,

		ssrc:   ssrc,
		conn:   conn,
		send:   make(chan []byte),
		reply:  make(chan error),
		close:  make(chan struct{}),
		closed: make(chan struct{}),
	}, nil
}

func (c *Connection) Start(secret *[32]byte) {
	// https://discordapp.com/developers/docs/topics/voice-connections#encrypting-and-sending-voice
	packet := [12]byte{
		0: 0x80, // Version + Flags
		1: 0x78, // Payload Type
		// [2:4] // Sequence
		// [4:8] // Timestamp
	}

	// Write SSRC to the header.
	binary.BigEndian.PutUint32(packet[8:12], c.ssrc) // SSRC

	// 50 sends per second, 960 samples each at 48kHz
	frequency := time.NewTicker(time.Millisecond * 20)
	defer frequency.Stop()

	var b []byte
	var ok bool

	// Close these channels at the end so Write() doesn't block.
	defer func() {
		close(c.send)
		close(c.closed)
	}()

	for {
		select {
		case b, ok = <-c.send:
			if !ok {
				return
			}
		case <-c.close:
			return
		}

		// Write a new sequence.
		binary.BigEndian.PutUint16(packet[2:4], c.sequence)
		c.sequence++

		binary.BigEndian.PutUint32(packet[4:8], c.timestamp)
		c.timestamp += 960 // Samples

		copy(c.nonce[:], packet[:])

		toSend := secretbox.Seal(packet[:], b, &c.nonce, secret)

		select {
		case <-frequency.C:
		case <-c.close:
			// Prevent Write() from stalling before exiting.
			c.reply <- nil

			return
		}

		_, err := c.conn.Write(toSend)
		c.reply <- err
	}
}

func (c *Connection) Close() error {
	close(c.close)
	<-c.closed

	return c.conn.Close()
}

// Write sends bytes into the voice UDP connection.
func (c *Connection) Write(b []byte) (int, error) {
	return c.WriteCtx(context.Background(), b)
}

// WriteCtx sends bytes into the voice UDP connection with a timeout.
func (c *Connection) WriteCtx(ctx context.Context, b []byte) (int, error) {
	select {
	case c.send <- b:
		break
	case <-ctx.Done():
		return 0, ctx.Err()
	}

	select {
	case err := <-c.reply:
		return len(b), err
	case <-ctx.Done():
		return len(b), ctx.Err()
	}
}