//--------------------------------------------------------------------------------------------------------------------//
//                                                                                                                    //
//                                      Tuplex: Blazing Fast Python Data Science                                      //
//                                                                                                                    //
//                                                                                                                    //
//  (c) 2017 - 2021, Tuplex team                                                                                      //
//  Created by Leonhard Spiegelberg first on 1/1/2021                                                                 //
//  License: Apache 2.0                                                                                               //
//--------------------------------------------------------------------------------------------------------------------//

#ifndef TUPLEX_TYPESYSTEM_H
#define TUPLEX_TYPESYSTEM_H

#include <initializer_list>
#include <string>
#include <vector>
#include <map>
#include <algorithm>
#include <TTuple.h>

namespace python {

    class Type {
        friend class TypeFactory;
        friend bool operator < (const Type& lhs, const Type& rhs);
        friend bool operator == (const Type& lhs, const Type& rhs);
        friend bool operator != (const Type& lhs, const Type& rhs);
    private:
        // id / hash of this type for type comparison
        // -1 is reserved for undefined type
        int _hash;
    public:
        static const Type UNKNOWN; //! dummy for unknown type
        static const Type VOID; //! ??
        static const Type I64; //! a 64 bit integer value
        static const Type F64; //! a 64 bit floating point value
        static const Type STRING; //! a UTF8 encoded string
        static const Type BOOLEAN; //! a boolean
        static const Type EMPTYTUPLE; //! special type for an empty tuple
        static const Type EMPTYDICT; //! special type for empty dict
        static const Type EMPTYLIST; //! special type for empty list
        static const Type NULLVALUE; //! special type for a nullvalue / None
        static const Type PYOBJECT; //! special type for any python object
        static const Type GENERICTUPLE; //! special type to accept ANY tuple object (helpful for symbol table)
        static const Type GENERICDICT; //! special type to accept ANY dictionary object
        static const Type GENERICLIST; //! special type to accept ANY list object
        static const Type MATCHOBJECT; //! python [re.match] regex match object
        static const Type RANGE; //! python [range] range object
        static const Type MODULE; //! generic module object, used in symbol table
        static const Type ITERATOR; //! iterator/generator type
        static const Type EMPTYITERATOR; //! special type for empty iterator

        // define two special types, used in the inference to describe bounds
        // any is a subtype of everything
        static const Type ANY;
        // inf is a supertype of everything
        static const Type INF;
        // i.e. saying something like
        // x :> ANY, x :< INF sets no type bounds on x.

        Type():_hash(-1) {}
        Type(const Type& other):_hash(other._hash)  {
            assert(_hash >= -1);
        }

        Type& operator = (const Type& other) {
            assert(_hash >= -1);
            _hash = other._hash;
            return *this;
        }

        bool operator == (const Type& other) {
            return _hash == other._hash;
        }

        bool operator != (const Type& other) {
            return _hash != other._hash;
        }

        std::string desc() const;

        int hash() const { return _hash; }

        // for function types
        Type getReturnType() const;
        Type getParamsType() const {
            if(parameters().empty() && hasVariablePositionalArgs())
                return python::Type::GENERICTUPLE;
            return makeTupleType(parameters());
        }

        bool isTupleType() const;
        bool isFunctionType() const;
        bool isDictionaryType() const;
        bool isListType() const;
        bool isNumericType() const;
        bool isOptionType() const;
        bool isOptional() const;
        bool isSingleValued() const;
        bool hasVariablePositionalArgs() const;
        bool isExceptionType() const;
        bool isIteratorType() const;

        inline bool isGeneric() const {
            if(_hash == python::Type::PYOBJECT._hash ||
                    _hash == python::Type::GENERICTUPLE._hash ||
                    _hash == python::Type::GENERICLIST._hash ||
                    _hash == python::Type::GENERICDICT._hash)
                return true;
            if(isTupleType()) {
                for(auto p : parameters())
                    if(p.isGeneric())
                        return true;
                return false;
            }

            if(isListType() || isOptionType()) {
                if(elementType().isGeneric())
                    return true;
                return false;
            }

            if(isDictionaryType()) {
                if(keyType().isGeneric())
                    return true;
                if(valueType().isGeneric())
                    return true;
                return false;
            }

            if(isIteratorType()) {
                if(yieldType().isGeneric())
                    return true;
                return false;
            }

            return false;
        }
        /*!
         * create corresponding type without options
         * @return
         */
        Type withoutOptions() const;

        std::vector<Type> parameters() const;
        std::vector<Type> returnValues() const;

        // convenience functions for dictionaries
        Type keyType() const;
        Type valueType() const;
        // returns the element type in a list or within an option
        Type elementType() const;

        /*!
         * return yield type of an iterator
         * @return
         */
        Type yieldType() const;

        /*!
         * checks whether type contains one or more of Unknown, Inf, Any.
         * @return
         */
        bool isIllDefined() const;

        /*!
         * checks whether type is of fixed size. I.e. also a tuple of fixed size datatypes will yield true
         * @return
         */
        bool isFixedSizeType() const;

        /*!
         * if tuple of nulls/empty dict etc.
         * @return
         */
        bool isZeroSerializationSize() const;

         /*!
         * checks whether given type is a primtive type. Currently true for bool, i64, double, str
         * @return
         */
        bool isPrimitiveType() const;

        /*!
         * check whether a given type is iterable. Currently true for iterator, list, tuple, string, range and dictionary.
         * @return
         */
        bool isIterableType() const;

        /*!
         * check whether this is a base class of derived. E.g. int.subclass(float) is true,
         * but float.subclass(int) is false
         * @param derived
         * @return
         */
        bool isSubclass(const Type& derived) const;

        /*!
         * retrieves a vector of all types which are base classes of this type
         * @return all types which are a base class
         */
        std::vector<Type> baseClasses() const;

        /*!
         * retrieves vector of all types which are derived from this type
         * @return vector of type, may be empty.
         */
        std::vector<Type> derivedClasses() const;

        static Type makeTupleType(std::initializer_list<Type> L);
        static Type makeTupleType(std::vector<Type> v);

        static Type makeFunctionType(const python::Type& argsType, const python::Type& retType);

        static Type makeDictionaryType(const python::Type& keyType, const python::Type& valType);

        static Type makeListType(const python::Type &elementType);

        /*!
         * create iterator type from yieldType.
         * @param yieldType
         * @return
         */
        static Type makeIteratorType(const python::Type &yieldType);

        /*!
         * create nullable type/option type from type.
         * @param type the type to be nullable.
         * @return If type is already a nullabble, type will be returned.
         */
        static Type makeOptionType(const python::Type& type);

        /*!
         * enclose type as tuple if it is a primitive type, if it is a tuple type, return the type itself
         * @param type
         * @return
         */
        static Type propagateToTupleType(const python::Type& type);


        /*!
         * computes upper/super type of two types. i.e. bool/int -> int
         * @param A
         * @param B
         * @return
         */
        static Type superType(const Type &A, const Type &B);


        /*!
         * construct type from hash
         * @param hash
         * @return
         */
        static Type fromHash(int hash) {
            Type t;
            t._hash = hash;
            return t;
        }

        static Type byName(const std::string& name);

    };

    extern bool isLiteralType(const Type& type);

    inline bool operator < (const Type& lhs, const Type& rhs) { return lhs._hash < rhs._hash; }
    inline bool operator == (const Type& lhs, const Type& rhs) { return lhs._hash == rhs._hash; }
    inline bool operator != (const Type& lhs, const Type& rhs) { return lhs._hash != rhs._hash; }

    class TypeFactory {
        // hide internal interfaces and make them only available to Type
        friend class Type;
    private:

        enum class AbstractType {
            PRIMITIVE,
            FUNCTION,
            TUPLE,
            DICTIONARY,
            LIST,
            CLASS,
            OPTION, // for nullable
            ITERATOR
        };

        struct TypeEntry {
            std::string _desc;
            AbstractType _type;
            std::vector<Type> _params; //! parameters, i.e. tuple entries
            bool _isVarLen; // params.empty && _isVarlen => GENERICTUPLE
            Type _ret; //! return value
            std::vector<Type> _baseClasses; //! base classes from left to right

            TypeEntry()     {}
            TypeEntry(const std::string& desc,
                      const AbstractType at,
                        const std::vector<Type>& params,
                        const Type& ret,
                        const std::vector<Type>& baseClasses=std::vector<Type>{},
                        bool isVarLen=false) : _desc(desc), _type(at), _params(params), _ret(ret), _baseClasses(baseClasses), _isVarLen(isVarLen) {}
            TypeEntry(const TypeEntry& other) : _desc(other._desc), _type(other._type), _params(other._params), _ret(other._ret), _baseClasses(other._baseClasses), _isVarLen(other._isVarLen) {}

            std::string desc();
        };

        int _hash_generator;

        // need threadsafe hashmap here...
        // either tbb's or the one from folly...
        std::map<int, TypeEntry> _typeMap;

        TypeFactory() : _hash_generator(0)  {}
        std::string getDesc(const int _hash) const;
        Type registerOrGetType(const std::string& name,
                               const AbstractType at,
                               const std::vector<Type>& params = std::vector<Type>(),
                               const python::Type& retval=python::Type::VOID,
                               const std::vector<Type>& baseClasses = std::vector<Type>(),
                               bool isVarLen=false);

        bool isFunctionType(const Type& t) const;
        bool isDictionaryType(const Type& t) const;
        bool isTupleType(const Type& t) const;
        bool isOptionType(const Type& t) const;
        bool isListType(const Type& t) const;
        bool isIteratorType(const Type& t) const;

        std::vector<Type> parameters(const Type& t) const;
        Type returnType(const Type& t) const;

        bool isFixedSizeType() const;
    public:

        ~TypeFactory();

        static TypeFactory& instance() {
            static TypeFactory theoneandonly;
            return theoneandonly;
        }

        Type createOrGetPrimitiveType(const std::string& name, const std::vector<Type>& baseClasses=std::vector<Type>{});

        // right now, no tuples or other weird types...
        Type createOrGetFunctionType(const Type& param, const Type& ret=Type::EMPTYTUPLE);
        Type createOrGetDictionaryType(const Type& key, const Type& val);
        Type createOrGetListType(const Type& val);

        Type createOrGetTupleType(const std::initializer_list<Type> args);
        Type createOrGetTupleType(const TTuple<Type>& args);
        Type createOrGetTupleType(const std::vector<Type>& args);
        Type createOrGetOptionType(const Type& type);
        Type createOrGetIteratorType(const Type& yieldType);


        Type getByName(const std::string& name);

        // helper function to connect type system to codegen
        Type getByHash(const int hash) const {
            Type t;
            t._hash = hash;
            return t;
        }

        std::string printAllTypes();
    };


    /*!
     * decode type from string (used in type inference)
     * i64, f64, str, bool supported as primitive types
     * also () for tuples
     * @param s string to be used for type decoding
     * @return decoded type or unknown if decoding error occured
     */
    extern Type decodeType(const std::string& s);


    /*!
     * checks whether all elements of the tuple type have the same type
     * @param t tuple type
     * @return true when tuple type is created over equal element types.
     */
    extern bool tupleElementsHaveSameType(const python::Type& tupleType);

    /*!
    * check whether types can be upcast
    * @param minor minor python type
    * @param major major python type
    * @return
    */
    extern bool canUpcastType(const python::Type& from, const python::Type& to);

    /*!
     * check whether types can be upcast
     * @param minor minor row type
     * @param major major row type
     * @return
     */
    extern bool canUpcastToRowType(const python::Type& minor, const python::Type& major);

    /*!
     * two types may be combined into one nullable type.
     * @param a
     * @param b
     * @return unknown if no combination is possible, else option or other type.
     */
    inline Type combineToNullableType(const python::Type& a, const python::Type& b) {

        // same type
        if(a == b)
            return a;

        // if any is unknown, unknown!
        if(python::Type::UNKNOWN == a)
            return a;
        if(python::Type::UNKNOWN == b)
            return b;


        // check if one of the types is None, then the type can be unified as option/nullable
        // note branch where both are null can't be because of above if
        if(a == python::Type::NULLVALUE && b != python::Type::NULLVALUE) {
            return python::Type::makeOptionType(b);
        } else if(a != python::Type::NULLVALUE && b == python::Type::NULLVALUE) {
            return python::Type::makeOptionType(a);
        } else if(a.isOptionType() || b.isOptionType()) {
            // one option and the other not?
            // logical XOR
            if(a.isOptionType() && !b.isOptionType()) {
                if(a.getReturnType() == b)
                    return a;
                else
                    return python::Type::UNKNOWN; // underlying not compatible
            } else if(!a.isOptionType() && b.isOptionType()) {
                if(b.getReturnType() == a)
                    return b;
                else
                    return python::Type::UNKNOWN; // underlying not compatible
            } else {
                // both are options, compatible underlying?
                if(a.getReturnType() == b.getReturnType())
                   return a; // should never be true
                else
                    return python::Type::UNKNOWN; // incompatible options
            }
        } else {
            // check whether upcasting in one direction works
            if(canUpcastType(a, b))
                return b;
            if(canUpcastType(b, a))
                return a;

            return python::Type::UNKNOWN; // different types, general case.
        }
    }

    /*!
     * check whether they have simple types (i.e. bool/int/float/string)
     * @param tupleType
     * @return
     */
    extern bool tupleElementsHaveSimpleTypes(const python::Type& tupleType);

    /*!
     * check whether tupleType has elementTypes belonging to the array given
     * @param tupleType
     * @param elementTypes
     * @return
     */
    extern bool tupleElementsHaveTypes(const python::Type& tupleType, const std::vector<python::Type>& elementTypes);

    /*!
     * computes the number of optional fields within a nested tuple type (recursively)
     * @param type of which to compute number of optional fields
     * @return number of optional fields.
     */
    inline size_t numOptionalFields(const python::Type &type) {
        if(type.isOptionType()) return 1;
        if(type.isTupleType()) {
            size_t ret = 0;
            for(const auto &t : type.parameters()) {
                ret += numOptionalFields(t);
            }
            return ret;
        }
        return 0;
    }

    /*!
     * specializes a concrete type to one which could be a generic or is a composite type of generics. For example,
     * assume we have a concrete instance of f64 and a generic version of Option[f64], then the specialized type would be f64.
     * For the general dummy object, i64 and pyobject would return i64.
     * @param concrete a concrete type (could also have generics...)
     * @param generic a type with generics under which to specialize
     * @return the specialized type or UNKNOWN if specialization failed.
     */
    inline python::Type specializeGenerics(const python::Type& concrete, const python::Type& generic) {
        if(concrete == generic)
            return concrete;

        // specialize generics incl. options!
        if(!concrete.isOptionType() && generic.isOptionType()) {
            // specialize element type
            auto specializedElementType = specializeGenerics(concrete, generic.elementType());
            if(specializedElementType != python::Type::UNKNOWN)
                return specializedElementType;
        }
        if(concrete.isOptionType() && !generic.isOptionType()) {
            // specialize element type
            auto specializedElementType = specializeGenerics(concrete.elementType(), generic);
            if(specializedElementType != python::Type::UNKNOWN)
                return specializedElementType;
        }

        // specialize tuple
        if(concrete.isTupleType() && generic.isTupleType()) {
            // same number of params?
            if(generic != python::Type::GENERICTUPLE) {
                if(concrete.parameters().size() != generic.parameters().size())
                    return python::Type::UNKNOWN; // can't specialize...
                auto numElements = concrete.parameters().size();
                std::vector<python::Type> v;
                v.reserve(numElements);
                for(unsigned i = 0; i < numElements; ++i)
                    v.emplace_back(specializeGenerics(concrete.parameters()[i], generic.parameters()[i]));
                return python::Type::makeTupleType(v);
            }
        }

        // generic tuple?
        if(concrete.isTupleType() && generic == python::Type::GENERICTUPLE)
            return concrete;

        // empty tuple?
        if(concrete == python::Type::EMPTYTUPLE)
            return concrete; // empty tuple is already fully specialized!

        // dict
        if(concrete.isDictionaryType() && generic.isDictionaryType()) {
            if(concrete == python::Type::EMPTYDICT) // empty dict is already fully specialized!
                return python::Type::EMPTYDICT;


            if(generic != python::Type::GENERICDICT)
                return python::Type::makeDictionaryType(specializeGenerics(concrete.keyType(), generic.valueType()),
                                                        specializeGenerics(concrete.keyType(), generic.valueType()));
        }
        if(concrete.isDictionaryType() && generic == python::Type::GENERICDICT)
            return concrete;

        // list
        if(concrete.isListType() && generic.isListType()) {
            if(concrete == python::Type::EMPTYLIST) // empty list is already fully specialized!
                return python::Type::EMPTYLIST;

            if(concrete != python::Type::GENERICLIST) {
                return python::Type::makeListType(specializeGenerics(concrete.elementType(), generic.elementType()));
            }
        }
        if(concrete.isListType() && generic == python::Type::GENERICLIST)
            return concrete;

        // generic python object
        if(generic == python::Type::PYOBJECT)
            return concrete;

        return python::Type::UNKNOWN;
    }
}


// make Type std hashable
namespace std {

    template <>
    struct hash<python::Type>
    {
        std::size_t operator()(const python::Type& t) const
        {
            return t.hash();
        }
    };

}

#endif //TUPLEX_TYPES_H