package main

import (
	"errors"
	ricochet "github.com/ricochet-im/ricochet-go/core"
	rpc "github.com/ricochet-im/ricochet-go/rpc"
	"golang.org/x/net/context"
	"log"
)

var NotImplementedError error = errors.New("Not implemented")

type RpcServer struct {
	core *ricochet.Ricochet
}

func (s *RpcServer) GetServerStatus(ctx context.Context, req *rpc.ServerStatusRequest) (*rpc.ServerStatusReply, error) {
	if req.RpcVersion != 1 {
		return nil, errors.New("Unsupported RPC protocol version")
	}

	return &rpc.ServerStatusReply{
		RpcVersion:    1,
		ServerVersion: "0.0.0",
	}, nil
}

func (s *RpcServer) MonitorNetwork(req *rpc.MonitorNetworkRequest, stream rpc.RicochetCore_MonitorNetworkServer) error {
	events := s.core.Network.EventMonitor().Subscribe(20)
	defer s.core.Network.EventMonitor().Unsubscribe(events)

	// Send initial status event
	{
		event := s.core.Network.GetStatus()
		if err := stream.Send(&event); err != nil {
			return err
		}
	}

	for {
		event, ok := (<-events).(rpc.NetworkStatus)
		if !ok {
			break
		}

		log.Printf("RPC monitor event: %v", event)
		if err := stream.Send(&event); err != nil {
			return err
		}
	}

	return nil
}

func (s *RpcServer) StartNetwork(ctx context.Context, req *rpc.StartNetworkRequest) (*rpc.NetworkStatus, error) {
	// err represents the result of the first connection attempt, but as long
	// as 'ok' is true, the network has started and this call was successful.
	ok, err := s.core.Network.Start("tcp://127.0.0.1:9051", "")
	if !ok {
		return nil, err
	}

	status := s.core.Network.GetStatus()
	return &status, nil
}

func (s *RpcServer) StopNetwork(ctx context.Context, req *rpc.StopNetworkRequest) (*rpc.NetworkStatus, error) {
	s.core.Network.Stop()
	status := s.core.Network.GetStatus()
	return &status, nil
}

func (s *RpcServer) GetIdentity(ctx context.Context, req *rpc.IdentityRequest) (*rpc.Identity, error) {
	reply := rpc.Identity{
		Address: s.core.Identity.Address(),
	}
	return &reply, nil
}

func (s *RpcServer) MonitorContacts(req *rpc.MonitorContactsRequest, stream rpc.RicochetCore_MonitorContactsServer) error {
	monitor := s.core.Identity.ContactList().EventMonitor().Subscribe(20)
	defer s.core.Identity.ContactList().EventMonitor().Unsubscribe(monitor)

	// Populate
	contacts := s.core.Identity.ContactList().Contacts()
	for _, contact := range contacts {
		event := &rpc.ContactEvent{
			Type: rpc.ContactEvent_POPULATE,
			Subject: &rpc.ContactEvent_Contact{
				Contact: contact.Data(),
			},
		}
		if err := stream.Send(event); err != nil {
			return err
		}
	}
	// Terminate populate list with a null subject
	{
		event := &rpc.ContactEvent{
			Type: rpc.ContactEvent_POPULATE,
		}
		if err := stream.Send(event); err != nil {
			return err
		}
	}

	for {
		event, ok := (<-monitor).(rpc.ContactEvent)
		if !ok {
			break
		}

		log.Printf("Contact event: %v", event)
		if err := stream.Send(&event); err != nil {
			return err
		}
	}

	return nil
}

func (s *RpcServer) AddContactRequest(ctx context.Context, req *rpc.ContactRequest) (*rpc.Contact, error) {
	contactList := s.core.Identity.ContactList()
	if req.Direction != rpc.ContactRequest_OUTBOUND {
		return nil, errors.New("Request must be outbound")
	}

	contact, err := contactList.AddContactRequest(req.Address, req.Nickname, req.FromNickname, req.Text)
	if err != nil {
		return nil, err
	}

	return contact.Data(), nil
}

func (s *RpcServer) UpdateContact(ctx context.Context, req *rpc.Contact) (*rpc.Contact, error) {
	return nil, NotImplementedError
}

func (s *RpcServer) DeleteContact(ctx context.Context, req *rpc.DeleteContactRequest) (*rpc.DeleteContactReply, error) {
	contactList := s.core.Identity.ContactList()
	contact := contactList.ContactByAddress(req.Address)
	if contact == nil || (req.Id != 0 && contact.Id() != int(req.Id)) {
		return nil, errors.New("Contact not found")
	}

	if err := contactList.RemoveContact(contact); err != nil {
		return nil, err
	}

	return &rpc.DeleteContactReply{}, nil
}

func (s *RpcServer) AcceptInboundRequest(ctx context.Context, req *rpc.ContactRequest) (*rpc.Contact, error) {
	return nil, NotImplementedError
}

func (s *RpcServer) RejectInboundRequest(ctx context.Context, req *rpc.ContactRequest) (*rpc.RejectInboundRequestReply, error) {
	return nil, NotImplementedError
}

func (s *RpcServer) MonitorConversations(req *rpc.MonitorConversationsRequest, stream rpc.RicochetCore_MonitorConversationsServer) error {
	// XXX Technically there is a race between starting to monitor
	// and the list and state of messages used to populate, that could
	// result in duplicate messages or other weird behavior.
	// Same problem exists for other places this pattern is used.
	monitor := s.core.Identity.ConversationStream.Subscribe(100)
	defer s.core.Identity.ConversationStream.Unsubscribe(monitor)

	{
		// Populate with existing conversations
		contacts := s.core.Identity.ContactList().Contacts()
		for _, contact := range contacts {
			messages := contact.Conversation().Messages()
			for _, message := range messages {
				event := rpc.ConversationEvent{
					Type: rpc.ConversationEvent_POPULATE,
					Msg:  message,
				}
				if err := stream.Send(&event); err != nil {
					return err
				}
			}
		}

		// End population with an empty populate event
		event := rpc.ConversationEvent{
			Type: rpc.ConversationEvent_POPULATE,
		}
		if err := stream.Send(&event); err != nil {
			return err
		}
	}

	for {
		event, ok := (<-monitor).(rpc.ConversationEvent)
		if !ok {
			break
		}

		if err := stream.Send(&event); err != nil {
			return err
		}
	}

	return nil
}

func (s *RpcServer) SendMessage(ctx context.Context, req *rpc.Message) (*rpc.Message, error) {
	if req.Sender == nil || !req.Sender.IsSelf {
		return nil, errors.New("Invalid message sender")
	} else if req.Recipient == nil || req.Recipient.IsSelf {
		return nil, errors.New("Invalid message recipient")
	}

	contact := s.core.Identity.ContactList().ContactByAddress(req.Recipient.Address)
	if contact == nil || (req.Recipient.ContactId != 0 && int32(contact.Id()) != req.Recipient.ContactId) {
		return nil, errors.New("Unknown recipient")
	}

	// XXX timestamp
	// XXX validate text
	// XXX identifier

	message, err := contact.Conversation().Send(req.Text)
	if err != nil {
		return nil, err
	}

	return message, nil
}

func (s *RpcServer) MarkConversationRead(ctx context.Context, req *rpc.MarkConversationReadRequest) (*rpc.Reply, error) {
	if req.Entity == nil || req.Entity.IsSelf {
		return nil, errors.New("Invalid entity")
	}

	contact := s.core.Identity.ContactList().ContactByAddress(req.Entity.Address)
	if contact == nil || (req.Entity.ContactId != 0 && int32(contact.Id()) != req.Entity.ContactId) {
		return nil, errors.New("Unknown entity")
	}

	contact.Conversation().MarkReadBeforeMessage(req.LastRecvIdentifier)
	return &rpc.Reply{}, nil
}