Type.h

/*
 
MIT License
 
Copyright (c) 2017 FMI Open Development / Markus Peura, first.last@fmi.fi
 
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
 
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
 
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
 
*/
/*
Part of Rack development has been done in the BALTRAD projects part-financed
by the European Union (European Regional Development Fund and European
Neighbourhood Partnership Instrument, Baltic Sea Region Programme 2007-2013)
*/
#ifndef DRAIN_TYPE
#define DRAIN_TYPE
 
#include <typeinfo>
//#include <type_traits>
//#include <limits>
#include <list>
#include <set>
#include <stdexcept>
 
//#include "Log.h"
#include "RegExp.h"
 
namespace drain {
 
 
 
class Type {
public:
 
    inline
    Type() : currentType(&typeid(void)) { //, typeMin(0), typeMax(0) {
    }
 
    inline
    Type(const Type & t) : currentType(t.currentType) { //, typeMin(t.typeMin), typeMax(t.typeMax) {  // FIX 0 0
        //std::cerr << __FUNCTION__ << "(const &)" << std::endl;
    }
 
    template <class T>
    Type(const T & t) : currentType(&typeid(void)){
        setType(t);
    }
 
 
    template <class T>
    inline
    void setType(){
        //std::cerr << __FUNCTION__ << "<T>()" << std::endl;
        currentType = & typeid(T);
    }
 
 
 
    template <class T>
    inline
    void setType(const T & t){
        call<typeSetter>(*this, t);
    }
 
    //  TODO for std::strings.
    template <class T>
    inline
    Type & operator=(const T & t){
        setType(t);
        return *this;
    }
 
    inline
    operator const std::type_info & () const {return (*currentType); }
 
    inline
    operator char () const {return getTypeChar(*currentType); }
 
    inline
    operator std::string () const {return std::string(1, getTypeChar(*currentType)); }
 
 
    inline
    const std::type_info & getType() const {
        return *currentType;
    }
 
 
 
    static
    inline
    const std::type_info & getTypeInfo(char t){
 
        switch (t) {
        case 'c':
            return typeid(char);
        case 'C':
            return typeid(unsigned char);
        case 's':
            return typeid(short);
        case 'S':
            return typeid(unsigned short);
        case 'i':
            return typeid(int);
        case 'I':
            return typeid(unsigned int);
        case 'l':
            return typeid(long);
        case 'L':
            return typeid(unsigned long);
        case 'f':
            return typeid(float);
        case 'd':
            return typeid(double);
        case 'B':
            return typeid(bool);
        case '$': // deprecated?
        case '#':
            return typeid(std::string);
        case '*':
            return typeid(void);
        default:
            //Logger mout("Type", std::string(__FUNCTION__)+"(char c)");
            //Logger mout(__FILE__, __FUNCTION__);
            //mout.error(" undefined type: '" , t , "'=" , (int)t );
            std::cerr << __FILE__ << ' ' << __FUNCTION__ << " undefined type: '" << t << "'=" << (int)t << std::endl;
            //mout.error(" undefined type: '" , t , "'=" , (int)t );
            throw std::runtime_error("undefined type");
            return typeid(void);
        }
 
    }
 
    static
    inline
    char getTypeChar(const std::type_info & t){
        if (t == typeid(char))
            return 'c';
        else if (t == typeid(unsigned char))
            return 'C';
        else if (t == typeid(short))
            return 's';
        else if (t == typeid(unsigned short))
            return 'S';
        else if (t == typeid(int))
            return 'i';
        else if (t == typeid(unsigned int))
            return 'I';
        else if (t == typeid(long))
            return 'l';
        else if (t == typeid(unsigned long))
            return 'L';
        else if (t == typeid(float))
            return 'f';
        else if (t == typeid(double))
            return 'd';
        else if (t == typeid(bool))
            return 'B';
        else if (t == typeid(void))
            return '*';
        else if (t == typeid(std::string))
            return '#';
        else if (t == typeid(const char *))
            return '#';
        else if (t == typeid(char *))
            return '#';
        else {
            return 'x'; // = "extension"
        }
    }
 
 
    template <class F, class T>
    static
    T call(const std::type_info & t){  // ORIGINAL
 
        //std::cout << "Calling call with " << t.name() << " (" << getTypeChar(t) << ")\n";
        // NOTE: STL uses string comparison!!!
        if (t == typeid(char)){
            return F::template callback<char,T>();
        }
        else if (t == typeid(unsigned char)) {
            return F::template callback<unsigned char,T>();
        }
        else if (t == typeid(int)) {
            return F::template callback<int,T>();
        }
        else if (t == typeid(unsigned int)) {
            return F::template callback<unsigned int,T>();
        }
        else if (t == typeid(short int)) {
            return F::template callback<short int,T>();
        }
        else if (t == typeid(unsigned short int)) {
            return F::template callback<unsigned short int,T>();
        }
        else if (t == typeid(long int)) {
            return F::template callback<long int,T>();
        }
        else if (t == typeid(unsigned long int)) {
            return F::template callback<unsigned long int,T>();
        }
        else if (t == typeid(float)) {
            return F::template callback<float,T>();
        }
        else if (t == typeid(double)) {
            return F::template callback<double,T>();
        }
        else if (t == typeid(bool)) {
            return F::template callback<bool,T>();
        }
        else if (t == typeid(void)) {
            return F::template callback<void,T>();
        }
        else if (t == typeid(std::string)) {
            return F::template callback<std::string,T>();
        }
        /*
        else if (Type::call<isEnum>(t)){ // NEW 2023
            // Problem: looping if not enum...
            return F::template callback<int,T>();
        }
        */
        else {
            std::cerr << __FILE__ << ' ' << __FUNCTION__ << "unimplemented type: ..." << t.name() << std::endl;
            //mout.error(" undefined type: '" , t , "'=" , (int)t );
            throw std::runtime_error("unimplemented type: ...");
            //Logger mout(__FILE__, __FUNCTION__);
            // mout.error("unimplemented type: ...", t.name(), " NOTE: enums suppressed");
            //return T(); //F::template callback<char,T>();
            // Problem with ref types
            return F::template callback<char,T>();
        }
 
    }
 
 
    template <class F, class D, class S>
    static  inline
    D call(const S & typeCode){
        return call<F,D>(getTypeInfo(typeCode));
    }
 
 
    template <class F, class S>
    static  inline
    typename F::value_t call(const S & typeCode){
        return call<F,typename F::value_t>(getTypeInfo(typeCode));
    }
 
 
 
    template <class F, class T>
    static
    void call(T & target, const std::type_info &t){ // const Type &type){
 
        if (t == typeid(char))
            F::template callback<char>(target);
        else if (t == typeid(unsigned char))
            F::template callback<unsigned char>(target);
        else if (t == typeid(int))
            F::template callback<int>(target);
        else if (t == typeid(unsigned int))
            F::template callback<unsigned int>(target);
        else if (t == typeid(short))
            F::template callback<short>(target);
        else if (t == typeid(unsigned short))
            F::template callback<unsigned short>(target);
        else if (t == typeid(long))
            F::template callback<long>(target);
        else if (t == typeid(unsigned long))
            F::template callback<unsigned long>(target);
        else if (t == typeid(float))
            F::template callback<float>(target);
        else if (t == typeid(double))
            F::template callback<double>(target);
        else if (t == typeid(bool))
            F::template callback<bool>(target);
        else if (t == typeid(std::string))
            F::template callback<std::string>(target);
        else if (t == typeid(void)) {
            F::template callback<void>(target);
        }
        /*
        else if (Type::call<isEnum>(t)){
            F::template callback<int>(target);
        }
        */
        else {
            std::cerr << __FILE__ << ' ' << __FUNCTION__ << "unimplemented type: ..." << t.name() << std::endl;
            //mout.error(" undefined type: '" , t , "'=" , (int)t );
            throw std::runtime_error("unimplemented type: ...");
 
            //Logger mout(__FILE__, __FUNCTION__);
            //mout.error("unimplemented type: ...", t.name(), " NOTE: enums suppressed");
            // throw std::runtime_error(std::string(": unimplemented type: ") + t.name() + " NOTE: enums suppressed");
            return;
        }
    }
 
 
    template <class F, class T, class T2>
    static
    void call(T & target, const T2 &t){
        call<F>(target, getTypeInfo(t));
    }
 
 
 
 
    static
    inline
    const std::type_info & getTypeInfo(const char *typeCode){
        if ((typeCode != NULL) && (*typeCode != '\0'))
            return getTypeInfo(*typeCode);
        else if (typeCode == NULL)
            return getTypeInfo('*');
        else
            throw std::runtime_error(std::string("Type::operator=, not unit-length std::string: ") + typeCode);
    }
 
 
    static
    inline
    const std::type_info & getTypeInfo(const std::string & typeCode){
        if (typeCode.length() == 1)
            return getTypeInfo(typeCode.at(0));
        else if (typeCode.empty())
            return getTypeInfo('*');
        else
            throw std::runtime_error(std::string("Type::operator=, not unit-length std::string: ") + typeCode);
    }
 
    static
    inline
    const std::type_info & getTypeInfo(const Type & t){
        return t;
    }
 
    /*
    static
    const drain::RegExp trueRegExp;
 
    static
    const drain::RegExp falseRegExp;
    */
 
 
    /*
    static
    const std::type_info & guessType(const std::string & value);
 
    template <class C>
    static
    const std::type_info & guessArrayType(const C & container);
    */
 
    static inline
    std::ostream & toStream(std::ostream & ostr, const Type &t){
        const std::type_info & type = t.getType();
        ostr << Type::getTypeChar(type) << '@'; // << Type::call<drain::sizeGetter>(type);
        return ostr;
    }
 
    static inline
    std::ostream & toStreamFull(std::ostream & ostr, const Type &t){
        toStream(ostr, t);
        //const std::type_info & type = t.getType();
        // ostr << ' '<< '(' << Type::getMin<double>(type) << ',' << Type::call<drain::typeMax,double>(type) << ')';
        /*
        if (isSigned(type)){
            //if (true){
            ostr << " +/-";
        }
        */
        return ostr;
    }
 
    struct isEnum {
 
        typedef bool value_t;
 
        template <class S, class T>
        static
        T callback(){
            return std::is_enum<S>::value;
        }
 
 
    };
 
protected:
 
    struct typeSetter {
 
        template <class T>
        static inline
        void callback(Type & target){
            //Logger mout(monitor, "Type", __FUNCTION__);
            target.setType<T>();
        }
 
    };
 
    const std::type_info *currentType;
 
};
 
 
inline
std::ostream & operator<<(std::ostream & ostr, const Type &t){
    Type::toStream(ostr, t);
    return ostr;
}
 
 
 
// default implementation
/*
 
*/
template <typename T>
struct TypeName
{
 
    // Recommended... See also: TreeXML
    static const std::string & str(){
        return name;
    }
 
    /*
    static const char* get(){
        return name.c_str();
    }
    */
 
 
protected:
 
    static const std::string name;
 
};
 
template <typename T>
const std::string TypeName<T>::name(typeid(T).name());
 
#define DRAIN_TYPENAME(tname) template <>      const std::string TypeName<tname>::name
#define DRAIN_TYPENAME_DEF(tname) template <>  const std::string TypeName<tname>::name(#tname)
 
//#define DRAIN_TYPENAME_T(cname,T) template <class T> struct TypeName<cname<T> > {static const std::string & str(){static const std::string n=drain::StringBuilder<>(#cname, '<', drain::TypeName<T>::str(),'>'); return name;}
#define DRAIN_TYPENAME_T(cname,T) template <class T> struct TypeName<cname<T> > {static const std::string & str(){static const std::string n=drain::StringBuilder<>(#cname, '<', drain::TypeName<T>::str(),'>'); return n;}}
 
 
//  (Unless the string returned by typeid is sufficient.)
 
 
DRAIN_TYPENAME(void);
DRAIN_TYPENAME(bool);
DRAIN_TYPENAME(char);
DRAIN_TYPENAME(unsigned char);
DRAIN_TYPENAME(short);
DRAIN_TYPENAME(unsigned short);
DRAIN_TYPENAME(int);
DRAIN_TYPENAME(unsigned int);
DRAIN_TYPENAME(long);
DRAIN_TYPENAME(unsigned long);
DRAIN_TYPENAME(float);
DRAIN_TYPENAME(double);
DRAIN_TYPENAME(char *);
DRAIN_TYPENAME(const char *);  // why const separately...?
DRAIN_TYPENAME(std::string);
 
template <typename T>
struct TypeName<std::initializer_list<T> > {
 
    static const std::string & str(){
        static std::string name;
        if (name.empty()){
            name = "std::initializer_list<";
            name += drain::TypeName<T>::str();
            name += ">";
            //name = drain::StringBuilder("std::initializer_list<", drain::TypeName<T>::get(), ">");
        }
        return name;
    }
 
    /*
    static const char* get(){
        static std::string name;
        if (name.empty()){
            name = "std::initializer_list<";
            name += drain::TypeName<T>::get();
            name += ">";
            //name = drain::StringBuilder("std::initializer_list<", drain::TypeName<T>::get(), ">");
        }
        return name.c_str();
    }
    */
 
};
 
 
template <typename T>
struct TypeName<std::vector<T> > {
 
    static const std::string & str(){
        static std::string name;
        if (name.empty()){
            name = "std::vector<"; // + drain::TypeName<T>::get() + ">";
            name += drain::TypeName<T>::str();
            name += ">";
            //name = drain::StringBuilder("std::initializer_list<", drain::TypeName<T>::get(), ">");
        }
        return name;
    }
 
    /*
    static const char* get(){
        static std::string name;
        if (name.empty()){
            //name = drain::StringBuilder("std::vector<", drain::TypeName<T>::get(), ">");
            name = "std::vector<"; // + drain::TypeName<T>::get() + ">";
            name += drain::TypeName<T>::get();
            name += ">";
        }
        return name.c_str();
    }
    */
};
 
 
 
class simpleName {
 
public:
 
    typedef std::string value_t;
    // typedef const std::string & value_t;
 
    template <class S, class T>
    static
    T callback(){
        //return TypeName<S>::get();
        return TypeName<S>::str();
    }
 
 
};
 
 
 
} // drain::
 
#endif