package irc

import (
	"encoding/binary"
	"fmt"
	"io"
	"math"
	"net"
	"path"
	"strconv"
	"strings"
	"time"
)

type DCCSend struct {
	File   string `json:"file"`
	IP     string `json:"ip"`
	Port   string `json:"port"`
	Length uint64 `json:"length"`

	dialer Dialer
}

func (c *Client) ParseDCCSend(ctcp *CTCP) *DCCSend {
	params := strings.Split(ctcp.Params, " ")

	if len(params) > 4 {
		ip, err := strconv.Atoi(params[2])
		if err != nil {
			return nil
		}

		length, err := strconv.ParseUint(params[4], 10, 64)
		if err != nil {
			return nil
		}

		filename := path.Base(params[1])
		if filename == "/" || filename == "." {
			filename = ""
		}

		return &DCCSend{
			File:   filename,
			IP:     intToIP(ip),
			Port:   params[3],
			Length: length,
			dialer: c.dialer,
		}
	}

	return nil
}

func (pack *DCCSend) Download(w io.Writer, progress chan DownloadProgress) error {
	if progress != nil {
		progress <- DownloadProgress{
			File: pack.File,
		}
	}

	conn, err := pack.dialer.Dial("tcp", net.JoinHostPort(pack.IP, pack.Port))
	if err != nil {
		return err
	}
	defer conn.Close()

	totalBytes := uint64(0)
	accBytes := uint64(0)
	averageSpeed := float64(0)
	buf := make([]byte, 4*1024)
	start := time.Now()
	prevUpdate := start

	for {
		conn.SetReadDeadline(time.Now().Add(10 * time.Second))
		n, err := conn.Read(buf)
		if err != nil {
			if err != io.EOF {
				return err
			}
			if n == 0 {
				break
			}
		}

		if _, err := w.Write(buf[:n]); err != nil {
			return err
		}

		accBytes += uint64(n)
		totalBytes += uint64(n)

		_, err = conn.Write(uint64Bytes(totalBytes))
		if err != nil {
			return err
		}

		if progress != nil {
			if dt := time.Since(prevUpdate); dt >= time.Second {
				prevUpdate = time.Now()

				speed := float64(accBytes) / dt.Seconds()
				if averageSpeed == 0 {
					averageSpeed = speed
				} else {
					averageSpeed = 0.2*speed + 0.8*averageSpeed
				}
				accBytes = 0

				bytesRemaining := float64(pack.Length - totalBytes)
				percentage := 100 * (float64(totalBytes) / float64(pack.Length))

				progress <- DownloadProgress{
					Speed:          formatByteCount(averageSpeed, true),
					PercCompletion: percentage,
					BytesRemaining: formatByteCount(bytesRemaining, false),
					BytesCompleted: formatByteCount(float64(totalBytes), false),
					SecondsElapsed: secondsSince(start),
					SecondsToGo:    bytesRemaining / averageSpeed,
					File:           pack.File,
				}
			}
		}
	}

	if progress != nil {
		progress <- DownloadProgress{
			PercCompletion: 100,
			BytesCompleted: formatByteCount(float64(totalBytes), false),
			SecondsElapsed: secondsSince(start),
			File:           pack.File,
		}
	}

	return nil
}

func (pack *DCCSend) Size() string {
	return formatByteCount(float64(pack.Length), false)
}

type DownloadProgress struct {
	File           string  `json:"file"`
	Error          error   `json:"error"`
	BytesCompleted string  `json:"bytes_completed"`
	BytesRemaining string  `json:"bytes_remaining"`
	PercCompletion float64 `json:"perc_completion"`
	Speed          string  `json:"speed"`
	SecondsElapsed int64   `json:"elapsed"`
	SecondsToGo    float64 `json:"eta"`
}

func intToIP(n int) string {
	var byte1 = n & 255
	var byte2 = ((n >> 8) & 255)
	var byte3 = ((n >> 16) & 255)
	var byte4 = ((n >> 24) & 255)
	return fmt.Sprintf("%d.%d.%d.%d", byte4, byte3, byte2, byte1)
}

func uint64Bytes(i uint64) []byte {
	b := make([]byte, 8)
	binary.BigEndian.PutUint64(b, i)
	return b
}

func secondsSince(t time.Time) int64 {
	return int64(math.Round(time.Since(t).Seconds()))
}

const (
	_ = 1.0 << (10 * iota)
	kibibyte
	mebibyte
	gibibyte
)

func formatByteCount(b float64, speed bool) string {
	unit := ""
	value := b

	switch {
	case b >= gibibyte:
		unit = "GiB"
		value = value / gibibyte
	case b >= mebibyte:
		unit = "MiB"
		value = value / mebibyte
	case b >= kibibyte:
		unit = "KiB"
		value = value / kibibyte
	case b > 1 || b == 0:
		unit = "bytes"
	case b == 1:
		unit = "byte"
	}

	if speed {
		unit = unit + "/s"
	}

	stringValue := strings.TrimSuffix(
		fmt.Sprintf("%.2f", value), ".00",
	)

	return fmt.Sprintf("%s %s", stringValue, unit)
}