/*
 * Copyright (c) 2014 Cisco Systems, Inc. and others.  All rights reserved.
 *
 * This program and the accompanying materials are made available under the
 * terms of the Eclipse Public License v1.0 which accompanies this distribution,
 * and is available at http://www.eclipse.org/legal/epl-v10.html
 */

package org.opendaylight.protocol.bgp.rib.impl;

import com.google.common.base.MoreObjects;
import com.google.common.base.Preconditions;
import com.google.common.collect.Maps;
import com.google.common.net.InetAddresses;
import com.google.common.primitives.UnsignedInts;
import java.net.Inet4Address;
import java.net.Inet6Address;
import java.net.InetAddress;
import java.net.InetSocketAddress;
import java.net.SocketAddress;
import java.util.Map;
import javax.annotation.concurrent.GuardedBy;
import javax.annotation.concurrent.ThreadSafe;
import org.opendaylight.protocol.bgp.parser.BGPDocumentedException;
import org.opendaylight.protocol.bgp.parser.BGPError;
import org.opendaylight.protocol.bgp.rib.impl.spi.BGPPeerRegistry;
import org.opendaylight.protocol.bgp.rib.impl.spi.BGPSessionPreferences;
import org.opendaylight.protocol.bgp.rib.impl.spi.ReusableBGPPeer;
import org.opendaylight.protocol.bgp.rib.spi.BGPSessionListener;
import org.opendaylight.yang.gen.v1.urn.ietf.params.xml.ns.yang.ietf.inet.types.rev100924.AsNumber;
import org.opendaylight.yang.gen.v1.urn.ietf.params.xml.ns.yang.ietf.inet.types.rev100924.IpAddress;
import org.opendaylight.yang.gen.v1.urn.ietf.params.xml.ns.yang.ietf.inet.types.rev100924.Ipv4Address;
import org.opendaylight.yang.gen.v1.urn.ietf.params.xml.ns.yang.ietf.inet.types.rev100924.Ipv6Address;
import org.slf4j.Logger;
import org.slf4j.LoggerFactory;

/**
 * BGP peer registry that allows only 1 session per BGP peer.
 * If second session with peer is established, one of the sessions will be dropped.
 * The session with lower source BGP id will be dropped.
 */
@ThreadSafe
public final class StrictBGPPeerRegistry implements BGPPeerRegistry {

    private static final Logger LOG = LoggerFactory.getLogger(StrictBGPPeerRegistry.class);

    // TODO remove backwards compatibility
    public static final StrictBGPPeerRegistry GLOBAL = new StrictBGPPeerRegistry();

    @GuardedBy("this")
    private final Map<IpAddress, ReusableBGPPeer> peers = Maps.newHashMap();
    @GuardedBy("this")
    private final Map<IpAddress, BGPSessionId> sessionIds = Maps.newHashMap();
    @GuardedBy("this")
    private final Map<IpAddress, BGPSessionPreferences> peerPreferences = Maps.newHashMap();

    @Override
    public synchronized void addPeer(final IpAddress ip, final ReusableBGPPeer peer, final BGPSessionPreferences preferences) {
        Preconditions.checkNotNull(ip);
        Preconditions.checkArgument(!this.peers.containsKey(ip), "Peer for %s already present", ip);
        this.peers.put(ip, Preconditions.checkNotNull(peer));
        this.peerPreferences.put(ip, Preconditions.checkNotNull(preferences));
    }

    @Override
    public synchronized void removePeer(final IpAddress ip) {
        Preconditions.checkNotNull(ip);
        this.peers.remove(ip);
    }

    @Override
    public synchronized void removePeerSession(final IpAddress ip) {
        Preconditions.checkNotNull(ip);
        this.sessionIds.remove(ip);
    }

    @Override
    public boolean isPeerConfigured(final IpAddress ip) {
        Preconditions.checkNotNull(ip);
        return this.peers.containsKey(ip);
    }

    private void checkPeerConfigured(final IpAddress ip) {
        Preconditions.checkState(isPeerConfigured(ip), "BGP peer with ip: %s not configured, configured peers are: %s", ip, this.peers.keySet());
    }

    @Override
    public synchronized BGPSessionListener getPeer(final IpAddress ip,
        final Ipv4Address sourceId, final Ipv4Address remoteId, final AsNumber asNumber)
            throws BGPDocumentedException {
        Preconditions.checkNotNull(ip);
        Preconditions.checkNotNull(sourceId);
        Preconditions.checkNotNull(remoteId);

        checkPeerConfigured(ip);

        final BGPSessionId currentConnection = new BGPSessionId(sourceId, remoteId, asNumber);
        final BGPSessionListener p = this.peers.get(ip);

        final BGPSessionId previousConnection = this.sessionIds.get(ip);

        if (previousConnection != null) {

            LOG.warn("Duplicate BGP session established with {}", ip);

            // Session reestablished with different ids
            if (!previousConnection.equals(currentConnection)) {
                LOG.warn("BGP session with {} {} has to be dropped. Same session already present {}", ip, currentConnection, previousConnection);
                throw new BGPDocumentedException(
                    String.format("BGP session with %s %s has to be dropped. Same session already present %s",
                        ip, currentConnection, previousConnection),
                        BGPError.CEASE);

                // Session reestablished with lower source bgp id, dropping current
            } else if (previousConnection.isHigherDirection(currentConnection)) {
                LOG.warn("BGP session with {} {} has to be dropped. Opposite session already present", ip, currentConnection);
                throw new BGPDocumentedException(
                    String.format("BGP session with %s initiated %s has to be dropped. Opposite session already present",
                        ip, currentConnection),
                        BGPError.CEASE);

                // Session reestablished with higher source bgp id, dropping previous
            } else if (currentConnection.isHigherDirection(previousConnection)) {
                LOG.warn("BGP session with {} {} released. Replaced by opposite session", ip, previousConnection);
                this.peers.get(ip).releaseConnection();
                return this.peers.get(ip);

            } else if (previousConnection.hasHigherAsNumber(currentConnection)) {
                LOG.warn("BGP session with {} {} has to be dropped. Opposite session already present", ip, currentConnection);
                throw new BGPDocumentedException(
                    String.format("BGP session with %s initiated %s has to be dropped. Opposite session already present",
                        ip, currentConnection),
                        BGPError.CEASE);
            } else if (currentConnection.hasHigherAsNumber(previousConnection)) {
                LOG.warn("BGP session with {} {} released. Replaced by opposite session", ip, previousConnection);
                this.peers.get(ip).releaseConnection();
                return this.peers.get(ip);
            // Session reestablished with same source bgp id, dropping current as duplicate
            } else {
                LOG.warn("BGP session with %s initiated from %s to %s has to be dropped. Same session already present", ip, sourceId, remoteId);
                throw new BGPDocumentedException(
                    String.format("BGP session with %s initiated %s has to be dropped. Same session already present",
                        ip, currentConnection),
                        BGPError.CEASE);
            }
        }

        // Map session id to peer IP address
        this.sessionIds.put(ip, currentConnection);
        return p;
    }

    @Override
    public BGPSessionPreferences getPeerPreferences(final IpAddress ip) {
        Preconditions.checkNotNull(ip);
        checkPeerConfigured(ip);
        return this.peerPreferences.get(ip);
    }

    /**
     * Create IpAddress from SocketAddress. Only InetSocketAddress is accepted with inner address: Inet4Address and Inet6Address.
     *
     * @throws IllegalArgumentException if submitted socket address is not InetSocketAddress[ipv4 | ipv6]
     * @param socketAddress socket address to transform
     */
    public static IpAddress getIpAddress(final SocketAddress socketAddress) {
        Preconditions.checkNotNull(socketAddress);
        Preconditions.checkArgument(socketAddress instanceof InetSocketAddress, "Expecting InetSocketAddress but was %s", socketAddress.getClass());
        final InetAddress inetAddress = ((InetSocketAddress) socketAddress).getAddress();

        if(inetAddress instanceof Inet4Address) {
            return new IpAddress(new Ipv4Address(inetAddress.getHostAddress()));
        } else if(inetAddress instanceof Inet6Address) {
            return new IpAddress(new Ipv6Address(inetAddress.getHostAddress()));
        }

        throw new IllegalArgumentException("Expecting " + Inet4Address.class + " or " + Inet6Address.class + " but was " + inetAddress.getClass());
    }

    @Override
    public synchronized void close() {
        this.peers.clear();
        this.sessionIds.clear();
    }

    @Override
    public String toString() {
        return MoreObjects.toStringHelper(this)
            .add("peers", this.peers.keySet())
            .toString();
    }

    /**
     * Session identifier that contains (source Bgp Id) -> (destination Bgp Id)
     */
    private static final class BGPSessionId {

        private final Ipv4Address from, to;
        private final AsNumber asNumber;

        BGPSessionId(final Ipv4Address from, final Ipv4Address to, final AsNumber asNumber) {
            this.from = Preconditions.checkNotNull(from);
            this.to = Preconditions.checkNotNull(to);
            this.asNumber = Preconditions.checkNotNull(asNumber);
        }

        /**
         * Equals does not take direction of connection into account id1 -> id2 and id2 -> id1 are equal
         */
        @Override
        public boolean equals(final Object o) {
            if (this == o) {
                return true;
            }
            if (o == null || getClass() != o.getClass()) {
                return false;
            }

            final BGPSessionId bGPSessionId = (BGPSessionId) o;

            if (!this.from.equals(bGPSessionId.from) && !this.from.equals(bGPSessionId.to)) {
                return false;
            }
            if (!this.to.equals(bGPSessionId.to) && !this.to.equals(bGPSessionId.from)) {
                return false;
            }

            return true;
        }

        @Override
        public int hashCode() {
            final int prime = 31;
            int result = this.from.hashCode() + this.to.hashCode();
            result = prime * result;
            return result;
        }

        /**
         * Check if this connection is equal to other and if it contains higher source bgp id
         */
        boolean isHigherDirection(final BGPSessionId other) {
            return toLong(this.from) > toLong(other.from);
        }

        boolean hasHigherAsNumber(final BGPSessionId other) {
            return this.asNumber.getValue() > other.asNumber.getValue();
        }

        private long toLong(final Ipv4Address from) {
            final int i = InetAddresses.coerceToInteger(InetAddresses.forString(from.getValue()));
            return UnsignedInts.toLong(i);
        }

        @Override
        public String toString() {
            return MoreObjects.toStringHelper(this)
                .add("from", this.from)
                .add("to", this.to)
                .toString();
        }
    }
}