//
// MessagePack for C++ static resolution routine
//
// Copyright (C) 2008-2015 FURUHASHI Sadayuki
//
//    Licensed under the Apache License, Version 2.0 (the "License");
//    you may not use this file except in compliance with the License.
//    You may obtain a copy of the License at
//
//        http://www.apache.org/licenses/LICENSE-2.0
//
//    Unless required by applicable law or agreed to in writing, software
//    distributed under the License is distributed on an "AS IS" BASIS,
//    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
//    See the License for the specific language governing permissions and
//    limitations under the License.
//
#ifndef MSGPACK_TYPE_MAP_HPP
#define MSGPACK_TYPE_MAP_HPP

#include "msgpack/versioning.hpp"
#include "msgpack/object_fwd.hpp"
#include "msgpack/adaptor/check_container_size.hpp"

#include <map>
#include <vector>
#include <algorithm>

namespace msgpack {

MSGPACK_API_VERSION_NAMESPACE(v1) {

namespace type {

template <typename K, typename V>
class assoc_vector : public std::vector< std::pair<K, V> > {};

namespace detail {
    template <typename K, typename V>
    struct pair_first_less {
        bool operator() (const std::pair<K, V>& x, const std::pair<K, V>& y) const
            { return x.first < y.first; }
    };
}

}  //namespace type


template <typename K, typename V>
inline msgpack::object const& operator>> (msgpack::object const& o, type::assoc_vector<K,V>& v)
{
    if(o.type != msgpack::type::MAP) { throw msgpack::type_error(); }
    v.resize(o.via.map.size);
    msgpack::object_kv* p = o.via.map.ptr;
    msgpack::object_kv* const pend = o.via.map.ptr + o.via.map.size;
    std::pair<K, V>* it(&v.front());
    for(; p < pend; ++p, ++it) {
        p->key.convert(it->first);
        p->val.convert(it->second);
    }
    std::sort(v.begin(), v.end(), type::detail::pair_first_less<K,V>());
    return o;
}

template <typename Stream, typename K, typename V>
inline msgpack::packer<Stream>& operator<< (msgpack::packer<Stream>& o, const type::assoc_vector<K,V>& v)
{
    uint32_t size = checked_get_container_size(v.size());
    o.pack_map(size);
    for(typename type::assoc_vector<K,V>::const_iterator it(v.begin()), it_end(v.end());
        it != it_end; ++it) {
        o.pack(it->first);
        o.pack(it->second);
    }
    return o;
}

template <typename K, typename V>
inline void operator<< (msgpack::object::with_zone& o, const type::assoc_vector<K,V>& v)
{
    o.type = msgpack::type::MAP;
    if(v.empty()) {
        o.via.map.ptr  = nullptr;
        o.via.map.size = 0;
    } else {
        uint32_t size = checked_get_container_size(v.size());
        msgpack::object_kv* p = static_cast<msgpack::object_kv*>(o.zone.allocate_align(sizeof(msgpack::object_kv)*size));
        msgpack::object_kv* const pend = p + size;
        o.via.map.ptr  = p;
        o.via.map.size = size;
        typename type::assoc_vector<K,V>::const_iterator it(v.begin());
        do {
            p->key = msgpack::object(it->first, o.zone);
            p->val = msgpack::object(it->second, o.zone);
            ++p;
            ++it;
        } while(p < pend);
    }
}


template <typename K, typename V>
inline msgpack::object const& operator>> (msgpack::object const& o, std::map<K, V>& v)
{
    if(o.type != msgpack::type::MAP) { throw msgpack::type_error(); }
    msgpack::object_kv* p(o.via.map.ptr);
    msgpack::object_kv* const pend(o.via.map.ptr + o.via.map.size);
    std::map<K, V> tmp;
    for(; p != pend; ++p) {
        K key;
        p->key.convert(key);
        typename std::map<K,V>::iterator it(tmp.lower_bound(key));
        if(it != tmp.end() && !(key < it->first)) {
            p->val.convert(it->second);
        } else {
            V val;
            p->val.convert(val);
            tmp.insert(it, std::pair<K,V>(key, val));
        }
    }
    tmp.swap(v);
    return o;
}

template <typename Stream, typename K, typename V>
inline msgpack::packer<Stream>& operator<< (msgpack::packer<Stream>& o, const std::map<K,V>& v)
{
    uint32_t size = checked_get_container_size(v.size());
    o.pack_map(size);
    for(typename std::map<K,V>::const_iterator it(v.begin()), it_end(v.end());
        it != it_end; ++it) {
        o.pack(it->first);
        o.pack(it->second);
    }
    return o;
}

template <typename K, typename V>
inline void operator<< (msgpack::object::with_zone& o, const std::map<K,V>& v)
{
    o.type = msgpack::type::MAP;
    if(v.empty()) {
        o.via.map.ptr  = nullptr;
        o.via.map.size = 0;
    } else {
        uint32_t size = checked_get_container_size(v.size());
        msgpack::object_kv* p = static_cast<msgpack::object_kv*>(o.zone.allocate_align(sizeof(msgpack::object_kv)*size));
        msgpack::object_kv* const pend = p + size;
        o.via.map.ptr  = p;
        o.via.map.size = size;
        typename std::map<K,V>::const_iterator it(v.begin());
        do {
            p->key = msgpack::object(it->first, o.zone);
            p->val = msgpack::object(it->second, o.zone);
            ++p;
            ++it;
        } while(p < pend);
    }
}


template <typename K, typename V>
inline msgpack::object const& operator>> (msgpack::object const& o, std::multimap<K, V>& v)
{
    if(o.type != msgpack::type::MAP) { throw msgpack::type_error(); }
    msgpack::object_kv* p(o.via.map.ptr);
    msgpack::object_kv* const pend(o.via.map.ptr + o.via.map.size);
    std::multimap<K, V> tmp;
    for(; p != pend; ++p) {
        std::pair<K, V> value;
        p->key.convert(value.first);
        p->val.convert(value.second);
        tmp.insert(value);
    }
    tmp.swap(v);
    return o;
}

template <typename Stream, typename K, typename V>
inline msgpack::packer<Stream>& operator<< (msgpack::packer<Stream>& o, const std::multimap<K,V>& v)
{
    uint32_t size = checked_get_container_size(v.size());
    o.pack_map(size);
    for(typename std::multimap<K,V>::const_iterator it(v.begin()), it_end(v.end());
        it != it_end; ++it) {
        o.pack(it->first);
        o.pack(it->second);
    }
    return o;
}

template <typename K, typename V>
inline void operator<< (msgpack::object::with_zone& o, const std::multimap<K,V>& v)
{
    o.type = msgpack::type::MAP;
    if(v.empty()) {
        o.via.map.ptr  = nullptr;
        o.via.map.size = 0;
    } else {
        uint32_t size = checked_get_container_size(v.size());
        msgpack::object_kv* p = static_cast<msgpack::object_kv*>(o.zone.allocate_align(sizeof(msgpack::object_kv)*size));
        msgpack::object_kv* const pend = p + size;
        o.via.map.ptr  = p;
        o.via.map.size = size;
        typename std::multimap<K,V>::const_iterator it(v.begin());
        do {
            p->key = msgpack::object(it->first, o.zone);
            p->val = msgpack::object(it->second, o.zone);
            ++p;
            ++it;
        } while(p < pend);
    }
}

}  // MSGPACK_API_VERSION_NAMESPACE(v1)

}  // namespace msgpack

#endif // MSGPACK_TYPE_MAP_HPP