/*
 * Copyright 2015 Cloudius Systems
 */

#include "row_cache.hh"
#include "core/memory.hh"
#include "core/do_with.hh"
#include "core/future-util.hh"
#include <seastar/core/scollectd.hh>
#include "memtable.hh"

static logging::logger logger("cache");

cache_tracker& global_cache_tracker() {
    static thread_local cache_tracker instance;
    return instance;
}

cache_tracker::cache_tracker()
    : _reclaimer([this] {
        logger.warn("Clearing cache from reclaimer hook");
        // FIXME: perform incremental eviction. We should first switch to a
        // compacting memory allocator to avoid problems with memory
        // fragmentation.
        clear();
    }) {
    setup_collectd();
}

cache_tracker::~cache_tracker() {
    clear();
}

void
cache_tracker::setup_collectd() {
    _collectd_registrations = std::make_unique<scollectd::registrations>(scollectd::registrations({
        scollectd::add_polled_metric(scollectd::type_instance_id("cache"
                , scollectd::per_cpu_plugin_instance
                , "queue_length", "total_rows")
                , scollectd::make_typed(scollectd::data_type::GAUGE, _lru_len)
        ),
        scollectd::add_polled_metric(scollectd::type_instance_id("cache"
                , scollectd::per_cpu_plugin_instance
                , "total_operations", "hits")
                , scollectd::make_typed(scollectd::data_type::DERIVE, _hits)
        ),
        scollectd::add_polled_metric(scollectd::type_instance_id("cache"
                , scollectd::per_cpu_plugin_instance
                , "total_operations", "misses")
                , scollectd::make_typed(scollectd::data_type::DERIVE, _misses)
        ),
    }));
}

void cache_tracker::clear() {
    _lru_len = 0;
    with_allocator(_region.allocator(), [this] {
        _lru.clear_and_dispose(current_deleter<cache_entry>());
    });
}

void cache_tracker::touch(cache_entry& e) {
    ++_hits;
    _lru.erase(_lru.iterator_to(e));
    _lru.push_front(e);
}

void cache_tracker::insert(cache_entry& entry) {
    ++_misses;
    ++_lru_len;
    _lru.push_front(entry);
}

allocation_strategy& cache_tracker::allocator() {
    return _region.allocator();
}

logalloc::region& cache_tracker::region() {
    return _region;
}

// Reader which populates the cache using data from the delegate.
class populating_reader {
    row_cache& _cache;
    mutation_reader _delegate;
public:
    populating_reader(row_cache& cache, mutation_reader delegate)
        : _cache(cache)
        , _delegate(std::move(delegate))
    { }

    future<mutation_opt> operator()() {
        return _delegate().then([this] (mutation_opt&& mo) {
            if (mo) {
                _cache.populate(*mo);
            }
            return std::move(mo);
        });
    }
};

mutation_reader
row_cache::make_reader(const query::partition_range& range) {
    if (range.is_singular()) {
        const query::ring_position& pos = range.start()->value();

        if (!pos.has_key()) {
            warn(unimplemented::cause::RANGE_QUERIES);
            return populating_reader(*this, _underlying(range));
        }

        const dht::decorated_key& dk = pos.as_decorated_key();
        auto i = _partitions.find(dk, cache_entry::compare(_schema));
        if (i != _partitions.end()) {
            cache_entry& e = *i;
            _tracker.touch(e);
            ++_stats.hits;
            return make_reader_returning(mutation(_schema, dk, e.partition()));
        } else {
            ++_stats.misses;
            return populating_reader(*this, _underlying(range));
        }
    }

    warn(unimplemented::cause::RANGE_QUERIES);
    return populating_reader(*this, _underlying(range));
}

row_cache::~row_cache() {
    with_allocator(_tracker.allocator(), [this] {
        _partitions.clear_and_dispose(current_deleter<cache_entry>());
    });
}

void row_cache::populate(const mutation& m) {
    with_allocator(_tracker.allocator(), [this, &m] {
        auto i = _partitions.lower_bound(m.decorated_key(), cache_entry::compare(_schema));
        if (i == _partitions.end() || !i->key().equal(*_schema, m.decorated_key())) {
            cache_entry* entry = current_allocator().construct<cache_entry>(m.decorated_key(), m.partition());
            _tracker.insert(*entry);
            _partitions.insert(i, *entry);
        } else {
            _tracker.touch(*i);
            // We cache whole partitions right now, so if cache already has this partition,
            // it must be complete, so do nothing.
        }
    });
}

future<> row_cache::update(memtable& m) {
    _tracker.region().merge(m._region); // Now all data in memtable belongs to cache
    with_allocator(_tracker.allocator(), [this, &m] {
        auto i = m.partitions.begin();
        const schema& s = *m.schema();
        while (i != m.partitions.end()) {
            partition_entry& mem_e = *i;
            // FIXME: Optimize knowing we lookup in-order.
            auto cache_i = _partitions.lower_bound(mem_e.key(), cache_entry::compare(_schema));
            // If cache doesn't contain the entry we cannot insert it because the mutation may be incomplete.
            // FIXME: if the bloom filters say the data isn't in any sstable yet (other than the
            //        one we are caching now), we can.
            //        Alternatively, keep a bitmap indicating which sstables we do cover, so we don't have to
            //        search it.
            if (cache_i != _partitions.end() && cache_i->key().equal(s, mem_e.key())) {
                cache_entry& entry = *cache_i;
                _tracker.touch(entry);
                entry.partition().apply(s, std::move(mem_e.partition()));
            }
            i = m.partitions.erase(i);
            current_allocator().destroy(&mem_e);
        }
    });
    // FIXME: yield voluntarily every now and then to cap latency.
    return make_ready_future<>();
}

row_cache::row_cache(schema_ptr s, mutation_source fallback_factory, cache_tracker& tracker)
    : _tracker(tracker)
    , _schema(std::move(s))
    , _partitions(cache_entry::compare(_schema))
    , _underlying(std::move(fallback_factory))
{ }

cache_entry::cache_entry(cache_entry&& o) noexcept
    : _key(std::move(o._key))
    , _p(std::move(o._p))
    , _lru_link()
    , _cache_link()
{
    {
        auto prev = o._lru_link.prev_;
        o._lru_link.unlink();
        cache_tracker::lru_type::node_algorithms::link_after(prev, _lru_link.this_ptr());
    }

    {
        using container_type = row_cache::partitions_type;
        container_type::node_algorithms::replace_node(o._cache_link.this_ptr(), _cache_link.this_ptr());
        container_type::node_algorithms::init(o._cache_link.this_ptr());
    }
}