package main

import (
	"encoding/binary"
	"fmt"
	"io"
	"log"
	"net"
	"strings"
)

type Quorum interface {
	Negotiate(knownHosts []string) ([]string, error)
	ListChanged([]CartId) error
}

type RemoteHost struct {
	Host       string
	Pool       *RemoteGrainPool
	connection net.Conn
}

type SyncedPool struct {
	listener    net.Listener
	Hostname    string
	local       *GrainLocalPool
	remotes     []RemoteHost
	remoteIndex map[CartId]*RemoteGrainPool
}

func NewSyncedPool(local *GrainLocalPool, hostname string) (*SyncedPool, error) {
	listen := fmt.Sprintf("%s:1338", hostname)
	l, err := net.Listen("tcp", listen)
	if err != nil {
		return nil, err
	}
	pool := &SyncedPool{
		Hostname:    hostname,
		local:       local,
		listener:    l,
		remotes:     make([]RemoteHost, 0),
		remoteIndex: make(map[CartId]*RemoteGrainPool),
	}
	go func() {
		for {
			conn, err := l.Accept()
			if err != nil {
				log.Printf("Error accepting connection: %v\n", err)
				continue
			}
			log.Printf("Got connection from %s", conn.RemoteAddr().String())
			go pool.handleConnection(conn)
		}
	}()
	return pool, nil
}

const (
	RemoteNegotiate    = uint16(3)
	RemoteGrainChanged = uint16(4)
)

func (p *SyncedPool) handleConnection(conn net.Conn) {
	defer conn.Close()
	var packet Packet
	for {
		err := binary.Read(conn, binary.LittleEndian, &packet)
		if err != nil {
			if err == io.EOF {
				break
			}
			log.Printf("Error in connection: %v\n", err)
		}
		// if packet.Version != 1 {
		// 	log.Printf("Invalid version %d\n", packet.Version)
		// 	return
		// }
		switch packet.MessageType {
		case RemoteNegotiate:
			data := make([]byte, packet.DataLength)
			conn.Read(data)
			knownHosts := strings.Split(string(data), ";")
			log.Printf("Negotiated with remote, found %v hosts\n", knownHosts)

			for _, h := range knownHosts {
				err = p.AddRemote(h)
				if err != nil {
					log.Printf("Error adding remote %s: %v\n", h, err)
				}
			}

			SendPacket(conn, RemoteNegotiate, func(w io.Writer) error {
				hostnames := make([]string, 0, len(p.remotes))
				for _, r := range p.remotes {
					hostnames = append(hostnames, r.Host)
				}
				w.Write([]byte(strings.Join(hostnames, ";")))
				return nil
			})
		case RemoteGrainChanged:
			// remote grain changed
			log.Printf("Remote grain changed\n")
			for err == nil {
				id := make([]byte, 16)
				_, err = conn.Read(id)
				log.Printf("Remote grain %s changed\n", id)
			}
		}
	}
}

func (h *RemoteHost) Negotiate(knownHosts []string) ([]string, error) {
	SendPacket(h.connection, RemoteNegotiate, func(w io.Writer) error {
		w.Write([]byte(strings.Join(knownHosts, ";")))
		return nil
	})
	t, data, err := ReceivePacket(h.connection)
	if err != nil {
		return nil, err
	}
	if t != RemoteNegotiate {
		return nil, fmt.Errorf("unexpected message type %d", t)
	}
	return strings.Split(string(data), ";"), nil
}

func (p *SyncedPool) Negotiate(knownHosts []string) ([]string, error) {
	allHosts := make(map[string]struct{}, 0)
	for _, r := range p.remotes {
		hosts, err := r.Negotiate(knownHosts)
		if err != nil {
			return nil, err
		}
		for _, h := range hosts {
			allHosts[h] = struct{}{}
		}
	}
	ret := make([]string, 0, len(allHosts))
	for h := range allHosts {
		ret = append(ret, h)
	}
	return ret, nil
}

func (p *SyncedPool) ListChanged(ids []CartId) error {
	return nil
}

func (p *SyncedPool) AddRemote(address string) error {
	for _, r := range p.remotes {
		if r.Host == address {
			log.Printf("Remote %s already exists\n", address)
			return fmt.Errorf("remote %s already exists", address)
		}
	}
	connection, err := net.Dial("tcp", fmt.Sprintf("%s:1338", address))
	if err != nil {
		return err
	}

	pool := NewRemoteGrainPool(fmt.Sprintf(address, 1337))
	remote := RemoteHost{
		connection: connection,
		Pool:       pool,
		Host:       address,
	}
	p.remotes = append(p.remotes, remote)
	log.Printf("Added remote %s\n", remote.Host)

	return nil
}

func (p *SyncedPool) Process(id CartId, messages ...Message) ([]byte, error) {
	// check if local grain exists
	_, ok := p.local.grains[id]
	if !ok {
		// check if remote grain exists
		remoteGrain, ok := p.remoteIndex[id]
		if ok {
			return remoteGrain.Process(id, messages...)
		}
	}
	return p.local.Process(id, messages...)
}

func (p *SyncedPool) Get(id CartId) ([]byte, error) {
	// check if local grain exists
	_, ok := p.local.grains[id]
	if !ok {
		// check if remote grain exists
		remoteGrain, ok := p.remoteIndex[id]
		if ok {
			return remoteGrain.Get(id)
		}
	}
	return p.local.Get(id)
}