/**
 * @file artis/kernel/Internals.hpp
 * @author See the AUTHORS file
 */

/*
 * Copyright (C) 2012-2017 ULCO http://www.univ-littoral.fr
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#ifndef __ARTIS_KERNEL_INTERNALS_HPP
#define __ARTIS_KERNEL_INTERNALS_HPP

#include <artis/context/State.hpp>
#include <artis/kernel/Any.hpp>
#include <artis/kernel/Macro.hpp>

#include <vector>

namespace artis { namespace kernel {

template < typename T, typename U, typename V >
class Internals
{
    template < typename W >
    struct element
    {
        unsigned int index;
        const std::string name;
        W T::* var;

        element(unsigned int index, const std::string& name, W T::* var) :
            index(index), name(name), var(var)
        { }
    };

public:
    Internals()
    { }

    virtual ~Internals()
    { }

    const Any& get(unsigned int index) const
    { return internals.at(index); }

    template < typename W >
    void I_(std::initializer_list < element < W > > list)
    {
        for (typename std::initializer_list <element < W > >::iterator it =
             list.begin(); it != list.end(); ++it) {
            if (internals.size() <= it->index) {
                internals.resize(it->index + 1);
                internal_names.resize(it->index + 1, std::string());
            }
            internals[it->index] = it->var;
            internal_names[it->index] = it->name;

#ifdef WITH_TRACE
            utils::Trace < utils::DoubleTime >::trace()
                    << utils::TraceElement < utils::DoubleTime >(
                           dynamic_cast<T*>(this)->path(dynamic_cast<T*>(this)),
                           utils::DoubleTime::null,
                           utils::INTERNAL_DECL)
                    << utils::KernelInfo(it->name, true);
            utils::Trace < utils::DoubleTime >::trace().flush();
#endif
        }

    }

    template < typename W >
    void internal_(unsigned int index, const std::string& name, W T::* var)
    {
        if (internals.size() <= index) {
            internals.resize(index + 1, Any());
            internal_names.resize(index + 1, std::string());
        }
        internals[index] = Any(var);
        internal_names[index] = name;

#ifdef WITH_TRACE
        utils::Trace < utils::DoubleTime >::trace()
                << utils::TraceElement < utils::DoubleTime >(
                       dynamic_cast<T*>(this)->path(dynamic_cast<T*>(this)),
                       utils::DoubleTime::null,
                       utils::INTERNAL_DECL)
                << utils::KernelInfo(name, true);
        utils::Trace < utils::DoubleTime >::trace().flush();
#endif
    }

    const std::string& name(unsigned int index) const
    { return internal_names.at(index); }

    virtual void restore(AbstractModel < U, V >* model,
                         const context::State < U >& state)
    {
        unsigned int index = 0;

        for (typename std::vector < Any >::iterator it = internals.begin();
             it != internals.end(); ++it) {
            if (not it->is_null()) {
                it->restore < T >(static_cast < T* >(model),
                                  state.get_internal(index));
            }
            ++index;
        }
    }

    virtual void save(const AbstractModel < U, V >* model,
                      context::State < U >& state) const
    {
        unsigned int index = 0;

        for (typename std::vector < Any >::const_iterator it =
             internals.begin(); it != internals.end(); ++it) {
            if (not it->is_null()) {
                state.add_internal(index,
                                   it->save < T >(
                                       static_cast < const T* >(model)));
            }
            ++index;
        }
    }

    unsigned int size() const
    { return internals.size(); }

private:
    std::vector < std::string > internal_names;
    std::vector < Any > internals;
};

#define Internal(index, var)                                    \
    internal_(index, std::string(ESCAPEQUOTE(index)), var)

#define Internals(W,L) I_< W >(UNWRAP2 L)

} } // namespace artis kernel

#endif