/*
 * Copyright (c) 2017, Matias Fontanini
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 * 
 * * Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * * Redistributions in binary form must reproduce the above
 *   copyright notice, this list of conditions and the following disclaimer
 *   in the documentation and/or other materials provided with the
 *   distribution.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 */

#ifdef _WIN32
    #include <ws2tcpip.h>
#else // _WIN32
    #include <sys/socket.h>
    #include <arpa/inet.h>
#endif // _WIN32
#if TINS_IS_CXX11
    // std::hash
    #include <memory>
#endif // TINS_IS_CXX11
#include <sstream>
#include <iostream>
#include <tins/ip_address.h>
#include <tins/endianness.h>
#include <tins/address_range.h>
#include <tins/exceptions.h>


using std::string;
using std::ostringstream;
using std::ostream;

namespace Tins{
const IPv4Address IPv4Address::broadcast("255.255.255.255");

const AddressRange<IPv4Address> private_ranges[] = {
    IPv4Address("192.168.0.0") / 16,
    IPv4Address("10.0.0.0") / 8,
    IPv4Address("172.16.0.0") / 12
};

const AddressRange<IPv4Address> loopback_range = IPv4Address("127.0.0.0") / 8;
const AddressRange<IPv4Address> multicast_range = IPv4Address("224.0.0.0") / 4;

IPv4Address IPv4Address::from_prefix_length(uint32_t prefix_length) {
    return IPv4Address(prefix_length ? Endian::host_to_be(0xffffffff << (32 - prefix_length)) : 0u);
}

IPv4Address::IPv4Address(uint32_t ip) 
: ip_addr_(Endian::be_to_host(ip)) {
    
}

IPv4Address::IPv4Address(const char* ip) {
    ip_addr_ = ip ? ip_to_int(ip) : 0; 
}

IPv4Address::IPv4Address(const std::string& ip) 
: ip_addr_(ip_to_int(ip.c_str())) {
      
} 

IPv4Address::operator uint32_t() const { 
    return Endian::host_to_be(ip_addr_); 
}

string IPv4Address::to_string() const {
    ostringstream oss;
    oss <<* this;
    return oss.str();
}

uint32_t IPv4Address::ip_to_int(const char* ip) {
    #ifdef _WIN32
        in_addr addr;
        if (InetPtonA(AF_INET, ip, &addr)) {
            return Endian::be_to_host(addr.s_addr);
        }
        else {
            throw invalid_address();
        }
    #else // _WIN32
        in_addr addr;
        if (inet_pton(AF_INET, ip, &addr) == 1) {
            return Endian::be_to_host(addr.s_addr);
        }
        else {
            throw invalid_address();
        }
    #endif // _WIN32
}

ostream& operator<<(ostream& output, const IPv4Address& addr) {
    int mask(24);
    uint32_t ip_addr_ = addr.ip_addr_;
    while (mask >=0) {
        output << ((ip_addr_ >> mask) & 0xff);
        if (mask) {
            output <<  '.';
        }
        mask -= 8;
    }
    return output;
}

bool IPv4Address::is_private() const {
    const AddressRange<IPv4Address>* iter = private_ranges;
    while (iter != private_ranges + 3) {
        if (iter->contains(*this)) {
            return true;
        }
        ++iter;
    }
    return false;
}

bool IPv4Address::is_loopback() const {
    return loopback_range.contains(*this);
}

bool IPv4Address::is_multicast() const {
    return multicast_range.contains(*this);
}

bool IPv4Address::is_unicast() const {
    return !is_multicast() && !is_broadcast();
}

bool IPv4Address::is_broadcast() const {
    return* this == broadcast;
}

IPv4Address IPv4Address::operator&(const IPv4Address& mask) const {
    return IPv4Address(Endian::be_to_host(ip_addr_ & mask.ip_addr_));
}

IPv4Address IPv4Address::operator|(const IPv4Address& mask) const {
    return IPv4Address(Endian::be_to_host(ip_addr_ | mask.ip_addr_));
}

IPv4Address IPv4Address::operator~() const {
    return IPv4Address(Endian::be_to_host(~ip_addr_));
}

} // Tins
