abstractpropertytype.h

/*
    Copyright (C) 2012  Intel Corporation

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*/

#ifndef _ABSTRACTPROPERTYTYPE_H_
#define _ABSTRACTPROPERTYTYPE_H_

#include <string>
#include <sstream>
#include <stdexcept>
#include <vector>
#include <iostream>
#include <memory>
#include <boost/any.hpp>
#include <boost/lexical_cast.hpp>
#include <boost/utility.hpp>
#include <type_traits>
#include <glib.h>
#include <list>
#include "timestamp.h"
#include <debugout.h>
#include <boost/algorithm/string.hpp>
#include <superptr.hpp>

class Zone {

public:

    typedef int Type;

    enum {
        None = 0,
        Front = 1,
        Middle = 1 << 1,
        Right = 1 << 2,
        Left = 1 << 3,
        Rear = 1 << 4,
        Center = 1 << 5,
        LeftSide = 1 << 6,
        RightSide = 1 << 7,
        FrontSide = 1 << 8,
        BackSide = 1 << 9
    };

static const Zone::Type FrontRight;
static const Zone::Type FrontLeft;
static const Zone::Type MiddleRight;
static const Zone::Type MiddleLeft;
static const Zone::Type RearRight;
static const Zone::Type RearLeft;

typedef std::vector<Zone::Type> ZoneList;

};

class AbstractPropertyType
{
public:

    enum Priority
    {
        Normal = 0,
        Low,
        High,
        Instant
    };

    AbstractPropertyType(std::string property)
        : name(property), timestamp(amb::currentTime()), sequence(-1), zone(Zone::None), priority(Normal)
    {

    }

    virtual ~AbstractPropertyType()
    {
        for(auto i : destroyed)
        {
            if(i) i(this);
        }
    }

    virtual std::string toString() const = 0;

    virtual void fromString(std::string)= 0;

    virtual GVariant* toVariant() = 0;

    virtual void fromVariant(GVariant*) = 0;

    virtual AbstractPropertyType* copy() = 0;

    virtual void quickCopy(AbstractPropertyType* other)
    {
        sequence = other->sequence;
        mValue = other->anyValue();
        timestamp = other->timestamp;
    }

    bool operator == (AbstractPropertyType &other)
    {
        std::string one = toString();
        std::string two = other.toString();
        return one == two
                && zone == other.zone
                && sourceUuid == other.sourceUuid
                && name == other.name;
    }

    bool operator != (AbstractPropertyType &other)
    {
        std::string one = toString();
        std::string two = other.toString();
        return one != two;
    }

    std::string name;

    double timestamp;

    int32_t sequence;

    std::string sourceUuid;

    Zone::Type zone;

    Priority priority;

    virtual void setValue(boost::any val)
    {
        mValue = val;
        timestamp = amb::currentTime();
    }

    template <typename T>
    T value() const
    {
        return boost::any_cast<T>(mValue);
    }

    boost::any anyValue()
    {
        return mValue;
    }

    virtual const string signature()
    {
        auto var = amb::make_super(toVariant());
        if(!var) return "";

        const string s = g_variant_get_type_string(var.get());

        DebugOut() << "returning signature: " << s << " for "<< name << endl;

        return s;
    }

    std::vector<std::function<void(AbstractPropertyType*)>> destroyed;

protected:

    boost::any mValue;

};

namespace amb
{

struct PropertyCompare
{
    bool operator()(AbstractPropertyType* const & lhs, AbstractPropertyType* & rhs) const
    {
        if (lhs->name == rhs->name
                && lhs->sourceUuid == rhs->sourceUuid
                && lhs->zone == rhs->zone)
        {
            return true;
        }

        return false;
    }

};

}


template <typename T>
class GVS;

template <>
class GVS<int>
{
public:
    static const char* signature() { return "i"; }

    static int value(GVariant* v)
    {
        int val = 0;
        g_variant_get(v, signature(), &val);
        return val;
    }

    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<double>
{
public:
    static const char* signature() { return "d"; }

    static double value(GVariant* v)
    {
        return g_variant_get_double(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<uint16_t>
{
public:
    static const char* signature() { return "q"; }

    static uint16_t value(GVariant* v)
    {
        return g_variant_get_uint16(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<int16_t>
{
public:
    static const char* signature() { return "n"; }

    static int16_t value(GVariant* v)
    {
        return g_variant_get_int16(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<char>
{
public:
    static const char* signature() { return "y"; }

    static char value(GVariant* v)
    {
        return g_variant_get_byte(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<uint32_t>
{
public:
    static const char* signature() { return "u"; }

    static uint32_t value(GVariant* v)
    {
        return g_variant_get_uint32(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<int64_t>
{
public:
    static const char* signature() { return "x"; }

    static int64_t value(GVariant* v)
    {
        return g_variant_get_int64(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<uint64_t>
{
public:
    static const char* signature() { return "t"; }

    static uint64_t value(GVariant* v)
    {
        return g_variant_get_uint64(v);
    }
    static std::string stringize(std::string v)
    {
        return v;
    }
};

template <>
class GVS<bool>
{
public:
    static const char* signature() { return "b"; }

    static bool value(GVariant *v)
    {
        return g_variant_get_boolean(v);
    }
    static std::string stringize(std::string v)
    {
        if(v == "0" || v == "1")
            return v;

        boost::algorithm::to_lower(v);
        return v == "true" ? "1":"0";
    }
};

template <typename T>
class BasicPropertyType: public AbstractPropertyType
{
public:
    BasicPropertyType(): AbstractPropertyType("")
    {
        mValue = T();
    }

    BasicPropertyType(BasicPropertyType const & other)
        :AbstractPropertyType(other.name)
    {
        setValue(other.value<T>());
        timestamp = other.timestamp;
        sequence = other.sequence;
        sourceUuid = other.sourceUuid;
        name = other.name;
        zone = other.zone;

    }

    BasicPropertyType & operator = (BasicPropertyType const & other)
    {
        setValue(other.value<T>());
        timestamp = other.timestamp;
        sequence = other.sequence;
        sourceUuid = other.sourceUuid;
        name = other.name;
        zone = other.zone;

        return *this;
    }

    BasicPropertyType & operator = (T const & other)
    {
        setValue(other);
        return *this;
    }

    BasicPropertyType & operator ++ ()
    {
        setValue(basicValue() + 1);
    }

    BasicPropertyType & operator -- ()
    {
        setValue(basicValue() - 1);
    }

    bool operator < (const BasicPropertyType<T>& other) const
    {
        return value<T>() < other.value<T>();
    }

    bool operator > (const BasicPropertyType<T>& other) const
    {
        return value<T>() > other.value<T>();
    }

    BasicPropertyType( T val)
        :AbstractPropertyType("")
    {
        setValue(val);
    }

    BasicPropertyType( std::string propertyName, T val)
        :AbstractPropertyType(propertyName)
    {
        setValue(val);
    }

    BasicPropertyType( std::string propertyName, std::string val)
        :AbstractPropertyType(propertyName)
    {
        if(!val.empty() && val != "")
        {
            serialize<T>(val);
        }
        else setValue(T());
    }

    BasicPropertyType(std::string propertyName)
        :AbstractPropertyType(propertyName)
    {
        mValue = T();
    }

    AbstractPropertyType* copy()
    {
        return new BasicPropertyType<T>(*this);
    }

    void fromString(std::string val)
    {
        if(!val.empty() && val != "")
        {
            serialize<T>(val);
        }
    }

    std::string toString() const
    {
        std::stringstream stream;
        stream.precision(10);
        stream<<value<T>();

        return stream.str();
    }

    GVariant* toVariant()
    {
        return serializeVariant<T>(value<T>());
    }

    void fromVariant(GVariant *v)
    {
        setValue(deserializeVariant<T>(v));
    }

    T basicValue()
    {
        return value<T>();
    }

    void setValue(T val)
    {
        AbstractPropertyType::setValue(val);
    }

    void setValue(boost::any val)
    {
        AbstractPropertyType::setValue(val);
    }

private:

    //GVariant* mVariant;

    template <class N>
    void serialize(std::string val,  typename std::enable_if<std::is_enum<N>::value, N>::type* = 0)
    {
        int someTemp;

        std::stringstream stream(val);

        stream>>someTemp;
        setValue((N)someTemp);
    }

    template <class N>
    void serialize(std::string  val,  typename std::enable_if<!std::is_enum<N>::value, N>::type* = 0)
    {
        std::stringstream stream(GVS<T>::stringize(val));
        N someTemp;
        stream>>someTemp;
        setValue(someTemp);
    }

    template <class N>
    GVariant* serializeVariant(T val, typename std::enable_if<std::is_enum<N>::value, N>::type* = 0)
    {
        //mVariant = Glib::VariantBase(Glib::Variant<gint16>::create((int)val).gobj());

        return (g_variant_new("i",(int)val));
    }

    template <class N>
    GVariant* serializeVariant(T val, typename std::enable_if<!std::is_enum<N>::value, N>::type* = 0)
    {
        //mVariant = Glib::Variant<T>::create(val);
        //mVariant = g_variant_ref(g_variant_new(GVS<T>::signature(),val));
        return g_variant_new(GVS<T>::signature(),val);
    }

    template <class N>
    T deserializeVariant(GVariant* v, typename std::enable_if<std::is_enum<N>::value, N>::type* = 0)
    {
//      return (T)((Glib::Variant<int>::cast_dynamic<Glib::Variant<int> >(*v)).get());

        return (T)GVS<int>::value(v);
    }

    template <class N>
    T deserializeVariant(GVariant* v, typename std::enable_if<!std::is_enum<N>::value, N>::type* = 0)
    {
        //  return Glib::VariantBase::cast_dynamic<Glib::Variant<T> >(*v).get();
        return GVS<T>::value(v);
    }
};

class StringPropertyType: public AbstractPropertyType
{
public:


    StringPropertyType()
        :AbstractPropertyType("")
    {
        setValue(std::string());
    }

    StringPropertyType(std::string propertyName)
        :AbstractPropertyType(propertyName)
    {
        setValue(std::string());
    }

    StringPropertyType(std::string propertyName, std::string val)
        :AbstractPropertyType(propertyName)
    {
        setValue(val);
    }

    StringPropertyType(StringPropertyType const & other)
    :AbstractPropertyType(other.name)
    {
        setValue(other.value<std::string>());
        timestamp = other.timestamp;
        sequence = other.sequence;
        sourceUuid = other.sourceUuid;
        name = other.name;
        zone = other.zone;
    }

    StringPropertyType & operator = (StringPropertyType const & other)
    {
        setValue(other.value<std::string>());
        timestamp = other.timestamp;
        sequence = other.sequence;
        sourceUuid = other.sourceUuid;
        name = other.name;
        zone = other.zone;

        return *this;
    }

    StringPropertyType & operator = (std::string const & other)
    {
        setValue(std::string(other));
        return *this;
    }

    bool operator < (const StringPropertyType& other) const
    {
        return value<std::string>() < other.value<std::string>();
    }


    void fromString(std::string val)
    {
        setValue(val);
    }

    AbstractPropertyType* copy()
    {
        return new StringPropertyType(*this);
    }

    std::string toString() const
    {
        return value<std::string>();
    }

    GVariant* toVariant()
    {
        //mVariant = Glib::Variant<std::string>::create(toString());

        return g_variant_new_string(toString().c_str());

    }

    void fromVariant(GVariant *v)
    {
        setValue(std::string(g_variant_get_string(v,NULL)));
    }
};

template <class T = AbstractPropertyType>
class ListPropertyType: public AbstractPropertyType
{
public:

    ListPropertyType(std::string propertyName)
        : AbstractPropertyType(propertyName), initialized(false)
    {

    }

    ListPropertyType(std::string propertyName, T value)
        : AbstractPropertyType(propertyName), initialized(false)
    {
        appendPriv(value);
    }

    ListPropertyType(ListPropertyType & other)
        :AbstractPropertyType(other.name),initialized(false)
    {
        std::vector<T> l = other.list();
        for(auto i : l)
        {
            append(i);
        }

        timestamp = other.timestamp;
        sequence = other.sequence;
        sourceUuid = other.sourceUuid;
        name = other.name;
        zone = other.zone;
    }

    ~ListPropertyType()
    {
        clear();
    }

    void append(T property)
    {
        if(!initialized)
        {
            mList.clear();
            initialized = true;
        }

        appendPriv(property);
    }

    uint count()
    {
        return mList.size();
    }

    AbstractPropertyType* copy()
    {
        return new ListPropertyType(*this);
    }

    void quickCopy(AbstractPropertyType* other)
    {
        AbstractPropertyType::quickCopy(other);
        ListPropertyType<T>* v = static_cast<ListPropertyType<T>*>(other);
        if(!v)
        {
            DebugOut(DebugOut::Error) << "ListPropertyType Quick Copy failed" << endl;
            return;
        }
        mList = v->list();
    }

    std::string toString() const
    {
        std::string str = "[";

        for(auto itr = mList.begin(); itr != mList.end(); itr++)
        {
            if(str != "[")
                str += ",";

            T t = *itr;

            str += t.toString();
        }

        str += "]";

        return str;
    }


    void fromString(std::string str )
    {
        clear();

        if(!str.length())
            return;

        if(str[0] == '[' && str[str.length()-1] == ']')
        {
            str = str.substr(1,str.length() - 2);
        }

        std::vector<std::string> elements;

        std::istringstream f(str);

        std::string element;
        while(std::getline(f,element,','))
        {
            T foo("", element);
            append (foo);
        }
        timestamp = amb::currentTime();
    }


    GVariant* toVariant()
    {

        GVariantBuilder params;
        g_variant_builder_init(&params, ((const GVariantType *) "av"));

        for(auto itr = mList.begin(); itr != mList.end(); itr++)
        {
            T t = *itr;
            auto var = t.toVariant();
            GVariant *newvar = g_variant_new("v", var);
            g_variant_builder_add_value(&params, newvar);
        }

        GVariant* var =  g_variant_builder_end(&params);
        g_assert(var);
        return var;

    }

    void fromVariant(GVariant* v)
    {
        clear();

        gsize dictsize = g_variant_n_children(v);
        for (int i=0;i<dictsize;i++)
        {
            GVariant *childvariant = g_variant_get_child_value(v,i);
            GVariant *innervariant = g_variant_get_variant(childvariant);
            T t;
            t.fromVariant(innervariant);
            appendPriv(t);
        }
    }

    std::vector<T> list() { return mList; }

private:

    void clear()
    {
        mList.clear();
    }

    void appendPriv(T i)
    {
        mList.push_back(i);
    }

    bool initialized;

    std::vector<T> mList;
};

#endif