package ipstack

import (
	"fmt"
	"github.com/pkg/errors"
	"iptcp/pkg/lnxconfig"
	"net"
	"net/netip"
	"time"
)

const (
	MAX_IP_PACKET_SIZE        = 1400
	LOCAL_COST         uint32 = 0
	STATIC_COST        uint32 = 4294967295 // 2^32 - 1
)

// STRUCTS ---------------------------------------------------------------------
type Interface struct {
	Name     string
	IpPrefix netip.Prefix

	RecvSocket    net.UDPConn
	SocketChannel chan bool
	State         bool
}

type Neighbor struct {
	VipAddr netip.Addr
	UdpAddr netip.AddrPort

	SendSocket    net.UDPConn
	SocketChannel chan bool
}

type RIPMessage struct {
	command    uint8
	numEntries uint8
	entries    []RIPEntry
}

type RIPEntry struct {
	addr netip.Addr
	cost uint32
	mask netip.Prefix
}

type Hop struct {
	Cost     uint32
	VipAsStr string
}

// GLOBAL VARIABLES (data structures) ------------------------------------------
var myInterfaces []*Interface
var myNeighbors = make(map[string][]*Neighbor)

// var myRIPNeighbors = make(map[string]Neighbor)
type HandlerFunc func(int, string, *[]byte) error

var protocolHandlers = make(map[uint16]HandlerFunc)

// var routingTable = routingtable.New()
var routingTable = make(map[netip.Prefix]Hop)

// reference: https://github.com/brown-csci1680/lecture-examples/blob/main/ip-demo/cmd/udp-ip-recv/main.go
func createUDPConn(UdpAddr netip.AddrPort, conn *net.UDPConn) error {
	listenString := UdpAddr.String()
	listenAddr, err := net.ResolveUDPAddr("udp4", listenString)
	if err != nil {
		return errors.WithMessage(err, "Error resolving address->\t"+listenString)
	}
	tmpConn, err := net.ListenUDP("udp4", listenAddr)
	if err != nil {
		return errors.WithMessage(err, "Could not bind to UDP port->\t"+listenString)
	}
	*conn = *tmpConn

	return nil
}

func Initialize(lnxFilePath string) error {
	//if len(os.Args) != 2 {
	//	fmt.Printf("Usage:  %s <configFile>\n", os.Args[0])
	//	os.Exit(1)
	//}
	//lnxFilePath := os.Args[1]

	// Parse the file
	lnxConfig, err := lnxconfig.ParseConfig(lnxFilePath)
	if err != nil {
		return errors.WithMessage(err, "Error parsing config file->\t"+lnxFilePath)
	}

	// 1) initialize the interfaces on this node here and into the routing table
	static := false
	for _, iface := range lnxConfig.Interfaces {
		prefix := netip.PrefixFrom(iface.AssignedIP, iface.AssignedPrefix.Bits())
		i := &Interface{
			Name:          iface.Name,
			IpPrefix:      prefix,
			RecvSocket:    net.UDPConn{},
			SocketChannel: make(chan bool),
			State:         false,
		}

		err := createUDPConn(iface.UDPAddr, &i.RecvSocket)
		if err != nil {
			return errors.WithMessage(err, "Error creating UDP socket for interface->\t"+iface.Name)
		}
		go InterfaceListenerRoutine(i.RecvSocket, i.SocketChannel)
		myInterfaces = append(myInterfaces, i)

		// TODO: (FOR HOSTS ONLY)
		// add STATIC to routing table
		if !static {
			ifacePrefix := netip.MustParsePrefix("0.0.0.0/0")
			routingTable[ifacePrefix] = Hop{STATIC_COST, iface.Name}
			static = true
		}
	}

	// 2) initialize the neighbors connected to the node and into the routing table
	for _, neighbor := range lnxConfig.Neighbors {
		n := &Neighbor{
			VipAddr:       neighbor.DestAddr,
			UdpAddr:       neighbor.UDPAddr,
			SendSocket:    net.UDPConn{},
			SocketChannel: make(chan bool),
		}

		err := createUDPConn(neighbor.UDPAddr, &n.SendSocket)
		if err != nil {
			return errors.WithMessage(err, "Error creating UDP socket for neighbor->\t"+neighbor.DestAddr.String())
		}
		// go InterfaceListenerRoutine(n.SendSocket, n.SocketChannel)

		myNeighbors[neighbor.InterfaceName] = append(myNeighbors[neighbor.InterfaceName], n)

		// add to routing table
		neighborPrefix := netip.PrefixFrom(neighbor.DestAddr, 24)
		routingTable[neighborPrefix] = Hop{LOCAL_COST, neighbor.InterfaceName}
	}

	return nil
}

//func InitInterfaceListener(iface *Interface) {
//	// TODO: cleanup syntax
//	iface.State = false
//	go func() {
//		InterfaceListenerRoutine(iface.RecvSocket, iface.SocketChannel)
//	}()
//}

// TODO: differentiate between SEND AND RECV
func InterfaceListenerRoutine(socket net.UDPConn, signal <-chan bool) {
	isUp := false
	closed := false

	// go routine that hangs on the recv
	fmt.Println("MAKING GO ROUTINE TO LISTEN:\t", socket.LocalAddr().String())
	go func() {
		defer func() { // on close, set isUp to false
			fmt.Println("exiting go routine that listens on ", socket.LocalAddr().String())
		}()

		for {
			if closed { // stop this go routine if channel is closed
				return
			}
			if !isUp { // don't call the listeners if interface is down
				continue
			}

			fmt.Println("no activity, actively listening on ", socket.LocalAddr().String())
			// TODO: remove these training wheels, call the listener function
			time.Sleep(1 * time.Millisecond)
		}
	}()

	for {
		select {
		case sig, ok := <-signal:
			if !ok {
				fmt.Println("channel closed, exiting")
				closed = true
				return
			}
			fmt.Println("received isUP SIGNAL with value", sig)
			isUp = sig
		default:
			continue
		}
	}
}

// When an interface goes up, we need to start it's go routine that listens
func InterfaceUp(iface *Interface) {
	iface.State = true
	iface.SocketChannel <- true
}

func InterfaceDown(iface *Interface) {
	iface.SocketChannel <- false
	iface.State = false
}

/*

func ListerToInterfaces() {
	for _, iface := range myInterfaces {
		go RecvIp(iface)
	}
}
func ValidateChecksum(b []byte, fromHeader uint16) uint16 {
	checksum := header.Checksum(b, fromHeader)

	return checksum
}

func SendIp(dst netip.Addr, port uint16, protocolNum uint16, data []byte, iface Interface) error {
	bindLocalAddr, err := net.ResolveUDPAddr("udp4", iface.UDPAddr.String())
	if err != nil {
		log.Panicln("Error resolving address:  ", err)
	}

	addrString := fmt.Sprintf("%s:%s", dst, port)
	remoteAddr, err := net.ResolveUDPAddr("udp4", addrString)
	if err != nil {
		log.Panicln("Error resolving address:  ", err)
	}

	fmt.Printf("Sending to %s:%d\n",
		remoteAddr.IP.String(), remoteAddr.Port)

	// Bind on the local UDP port:  this sets the source port
	// and creates a conn
	conn, err := net.ListenUDP("udp4", bindLocalAddr)
	if err != nil {
		log.Panicln("Dial: ", err)
	}

	// Start filling in the header
	message := data[20:]
	hdr := ipv4header.IPv4Header{
		Version:  data[0] >> 4,
		Len:      20, // Header length is always 20 when no IP options
		TOS:      data[1],
		TotalLen: ipv4header.HeaderLen + len(message),
		ID:       data[4],
		Flags:    data[6] >> 5,
		FragOff:  data[6] & 0x1f,
		TTL:      data[8],
		Protocol: data[9],
		Checksum: 0, // Should be 0 until checksum is computed
		Src:      netip.MustParseAddr(iface.addr.String()),
		Dst:      netip.MustParseAddr(dst.String()),
		Options:  []byte{},
	}

	// Assemble the header into a byte array
	headerBytes, err := hdr.Marshal()
	if err != nil {
		log.Fatalln("Error marshalling header:  ", err)
	}

	// Compute the checksum (see below)
	// Cast back to an int, which is what the Header structure expects
	hdr.Checksum = int(ComputeChecksum(headerBytes))

	headerBytes, err = hdr.Marshal()
	if err != nil {
		log.Fatalln("Error marshalling header:  ", err)
	}

	bytesToSend := make([]byte, 0, len(headerBytes)+len(message))
	bytesToSend = append(bytesToSend, headerBytes...)
	bytesToSend = append(bytesToSend, []byte(message)...)

	// Send the message to the "link-layer" addr:port on UDP
	bytesWritten, err := conn.WriteToUDP(bytesToSend, remoteAddr)
	if err != nil {
		log.Panicln("Error writing to socket: ", err)
	}
	fmt.Printf("Sent %d bytes\n", bytesWritten)
}

func ComputeChecksum(b []byte) uint16 {
	checksum := header.Checksum(b, 0)
	checksumInv := checksum ^ 0xffff

	return checksumInv
}

func ForwardIP(data []byte) error {
}

func AddRecvHandler(protocolNum uint8, callbackFunc HandlerFunc) error {
	if protocolHandlers[protocolNum] != nil {
		fmt.Printf("Warning: Handler for protocol %d already exists", protocolNum)
	}
	protocolHandlers[protocolNum] = callbackFunc
	return nil
}

func RemoveRecvHandler(protocolNum uint8) error {
	// consider error
	if protocolHandlers[protocolNum] == nil {
		return errors.Errorf("No handler for protocol %d", protocolNum)
	}
	delete(protocolHandlers, protocolNum)
	return nil
}

// func routeRip(data []byte) (error) {
// 	// deconstruct packet
// 	newRIPMessage := RIPMessage{}
// 	newRIPMessage.command = data[0]
// 	newRIPMessage.numEntries = data[1]
// 	newRIPMessage.entries = make([]RIPEntry, newRIPMessage.numEntries)
// }

func GetNeighbors() []netip.Addr {
	return myNeighbors
}
*/

func GetInterfaceByName(ifaceName string) (*Interface, error) {
	for _, iface := range myInterfaces {
		if iface.Name == ifaceName {
			return iface, nil
		}
	}

	return nil, errors.Errorf("No interface with name %s", ifaceName)
}

func SprintInterfaces() string {
	buf := ""
	for _, iface := range myInterfaces {
		buf += fmt.Sprintf("%s\t%s\t%t\n", iface.Name, iface.IpPrefix.String(), iface.State)
	}
	return buf
}

func SprintNeighbors() string {
	buf := ""
	for ifaceName, neighbor := range myNeighbors {
		for _, n := range neighbor {
			buf += fmt.Sprintf("%s\t%s\t%s\n", ifaceName, n.UdpAddr.String(), n.VipAddr.String())
		}
	}
	return buf
}

func SprintRoutingTable() string {
	buf := ""
	for prefix, hop := range routingTable {
		buf += fmt.Sprintf("%s\t%s\t%d\n", prefix.String(), hop.VipAsStr, hop.Cost)
	}
	return buf
}

func DebugNeighbors() {
	for ifaceName, neighbor := range myNeighbors {
		for _, n := range neighbor {
			fmt.Printf("%s\t%s\t%s\n", ifaceName, n.UdpAddr.String(), n.VipAddr.String())
		}
	}
}

func CleanUp() {
	fmt.Print("Cleaning up...\n")
	// go through the interfaces, pop thread & close the UDP FDs
	for _, iface := range myInterfaces {
		close(iface.SocketChannel)
		iface.RecvSocket.Close()
	}

	// go through the neighbors, pop thread & close the UDP FDs
	for _, neighbor := range myNeighbors {
		for _, n := range neighbor {
			if n.SocketChannel != nil {
				close(n.SocketChannel)
			}
			n.SendSocket.Close()
		}
	}
}