artis-star/src/artis-star/common/Any.hpp

/**
 * @file Any.hpp
 * @author The ARTIS Development Team
 * See the AUTHORS or Authors.txt file
 */

/*
 * ARTIS - the multimodeling and simulation environment
 * This file is a part of the ARTIS environment
 *
 * Copyright (C) 2013-2019 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 COMMON_ANY_HPP
#define COMMON_ANY_HPP

#include <artis-star/common/Value.hpp>

#include <string>
#include <tuple>
#include <utility>
#include <vector>

namespace artis {
    namespace common {

        class Any {
        private:
            struct base {
                virtual ~base() { }

                virtual base* clone() const = 0;
            };

            template<typename T, typename V>
            struct data : base {
                data(V T::* const& value)
                        :value_(value) { }

                base* clone() const { return new data<T, V>(*this); }

                V T::* value_;
            };

            base* ptr_;

        public:
            Any()
                    :ptr_(nullptr) { }

            template<typename T, typename V>
            Any(V T::* const& value)
                    : ptr_(new data<T, V>(value)) { }

            Any(Any const& other)
                    :ptr_(other.ptr_ ? other.ptr_->clone() : nullptr) { }

            virtual ~Any() { if (ptr_) delete ptr_; }

            void operator=(Any const& other) { Any(other).swap(*this); }

            void swap(Any& other) { std::swap(ptr_, other.ptr_); }

            template<typename T, typename V>
            V T::* get() const { return dynamic_cast < data<T, V>* >(ptr_)->value_; }

            bool is_null() const { return ptr_ == nullptr; }

            template<typename T, typename V>
            void put(T* o, const V& value)
            {
                V T::* p = dynamic_cast <data<T, V>* >(ptr_)->value_;
                o->*(p) = value;
            }

            template<typename T>
            void restore(T* o, const common::Value& value)
            {
                if (value.is_type<double>()) {
                    double v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<unsigned int>()) {
                    unsigned int v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<int>()) {
                    int v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<bool>()) {
                    bool v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<std::vector<double> >()) {
                    std::vector<double> v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<std::vector<unsigned int> >()) {
                    std::vector<unsigned int> v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<std::vector<int> >()) {
                    std::vector<int> v;

                    value(v);
                    put(o, v);
                } else if (value.is_type<std::vector<bool> >()) {
                    std::vector<bool> v;

                    value(v);
                    put(o, v);
                } else {
                    assert(false);
                }
            }

            template<typename T>
            common::Value save(const T* o) const
            {
                if (ptr_) {
                    data<T, double>* q_double =
                            dynamic_cast < data<T, double>* >(ptr_);

                    if (q_double) {
                        return common::Value(o->*(q_double->value_));
                    } else {
                        data<T, unsigned int>* q_uint =
                                dynamic_cast < data<T, unsigned int>* >(ptr_);

                        if (q_uint) {
                            return common::Value(o->*(q_uint->value_));
                        } else {
                            data<T, int>* q_int =
                                    dynamic_cast < data<T, int>* >(ptr_);

                            if (q_int) {
                                return common::Value(o->*(q_int->value_));
                            } else {
                                data<T, bool>* q_bool =
                                        dynamic_cast < data<T, bool>* >(ptr_);

                                if (q_bool) {
                                    return common::Value(o->*(q_bool->value_));
                                } else {
                                    data<T, std::vector<double> >* q_double_v =
                                            dynamic_cast < data<T, std::vector<
                                                    double> >* >(ptr_);

                                    if (q_double_v) {
                                        return common::Value(o->*(q_double_v->value_));
                                    } else {
                                        data<T, std::vector<int> >* q_int_v =
                                                dynamic_cast < data<T, std::vector<
                                                        int> >* >(ptr_);

                                        if (q_int_v) {
                                            return common::Value(o->*(q_int_v->value_));
                                        } else {
                                            data<T, std::vector<bool> >* q_bool_v =
                                                    dynamic_cast < data<T, std::vector<
                                                            bool> >* >(ptr_);

                                            if (q_bool_v) {
                                                return common::Value(
                                                        o->*(q_bool_v->value_));
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                }
                assert(false);
                return common::Value();
            }

            template<typename T>
            std::string to_string(const T* o) const
            {
                if (ptr_) {
                    data<T, double>* q_double =
                            dynamic_cast < data<T, double>* >(ptr_);

                    if (q_double) {
                        return std::to_string(o->*(q_double->value_));
                    } else {
                        data<T, unsigned int>* q_uint =
                                dynamic_cast < data<T, unsigned int>* >(ptr_);

                        if (q_uint) {
                            return std::to_string(o->*(q_uint->value_));
                        } else {
                            data<T, int>* q_int =
                                    dynamic_cast < data<T, int>* >(ptr_);

                            if (q_int) {
                                return std::to_string(o->*(q_int->value_));
                            } else {
                                data<T, bool>* q_bool =
                                        dynamic_cast < data<T, bool>* >(ptr_);

                                if (q_bool) {
                                    return o->*(q_bool->value_) ? "true" : "false";
                                } else {
                                    data<T, std::vector<double> >* q_double_v =
                                            dynamic_cast < data<T, std::vector<
                                                    double> >* >(ptr_);

                                    if (q_double_v) {
                                        return "";
                                    } else {
                                        data<T, std::vector<int> >* q_int_v =
                                                dynamic_cast < data<T, std::vector<
                                                        int> >* >(ptr_);

                                        if (q_int_v) {
                                            return "";
                                        } else {
                                            data<T, std::vector<bool> >* q_bool_v =
                                                    dynamic_cast < data<T, std::vector<
                                                            bool> >* >(ptr_);

                                            if (q_bool_v) {
                                                return "";
                                            } else {
                                                return "NA";
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                } else {
                    return "NA";
                }
            }
        };

    }
}

#endif