#ifndef EOLIAN_CXX_KLASS_DEF_HH #define EOLIAN_CXX_KLASS_DEF_HH #include "grammar/type_traits.hpp" #include "grammar/attributes.hpp" #include "grammar/qualifier_def.hpp" #include "grammar/string.hpp" #include "grammar/sequence.hpp" #include "grammar/kleene.hpp" #include "grammar/case.hpp" #include #include #include "eo_concrete.hh" #include #include #include namespace efl { namespace eolian { namespace grammar { namespace attributes { struct complex_type_def; } namespace attributes { template bool lexicographical_compare_impl(std::tuple const& , std::tuple const& , std::integral_constant , std::true_type) { return true; } template bool lexicographical_compare_impl(std::tuple const& lhs , std::tuple const& rhs , std::integral_constant , std::false_type) { return std::get(lhs) < std::get(rhs) || (!(std::get(rhs) < std::get(lhs)) && lexicographical_compare_impl(lhs, rhs, std::integral_constant() , std::integral_constant()) ) ; } template bool lexicographical_compare(std::tuple const& lhs , std::tuple const& rhs) { return lexicographical_compare_impl(lhs, rhs, std::integral_constant(), std::false_type()); } template bool lexicographical_compare(std::tuple const& lhs , std::tuple const& rhs) { return std::get<0>(lhs) < std::get<0>(rhs) || (!(std::get<0>(rhs) < std::get<0>(lhs)) && std::get<1>(lhs) < std::get<1>(rhs)); } struct type_def; bool operator==(type_def const& rhs, type_def const& lhs); bool operator!=(type_def const& rhs, type_def const& lhs); enum class class_type { regular, abstract_, mixin, interface_ }; struct klass_name { std::vector namespaces; std::string eolian_name; qualifier_def base_qualifier; class_type type; klass_name(std::vector namespaces , std::string eolian_name, qualifier_def base_qualifier , class_type type) : namespaces(namespaces), eolian_name(eolian_name), base_qualifier(base_qualifier) , type(type) {} klass_name(Eolian_Class const* klass, qualifier_def base_qualifier) : eolian_name( ::eolian_class_name_get(klass)) , base_qualifier(base_qualifier) { for(efl::eina::iterator namespace_iterator ( ::eolian_class_namespaces_get(klass)) , namespace_last; namespace_iterator != namespace_last; ++namespace_iterator) { namespaces.push_back(&*namespace_iterator); } switch(eolian_class_type_get(klass)) { case EOLIAN_CLASS_REGULAR: type = class_type::regular; break; case EOLIAN_CLASS_ABSTRACT: type = class_type::abstract_; break; case EOLIAN_CLASS_MIXIN: type = class_type::mixin; break; case EOLIAN_CLASS_INTERFACE: type = class_type::interface_; break; default: throw std::runtime_error("Class with unknown type"); } } }; inline bool operator==(klass_name const& lhs, klass_name const& rhs) { return lhs.namespaces == rhs.namespaces && lhs.eolian_name == rhs.eolian_name && lhs.base_qualifier == rhs.base_qualifier/* && lhs.pointers == rhs.pointers*/; } inline bool operator!=(klass_name const& lhs, klass_name const& rhs) { return !(lhs == rhs); } inline bool operator<(klass_name const& lhs, klass_name const& rhs) { typedef std::tupleconst& , std::string const& , qualifier_def const& , class_type > tuple_type; return lexicographical_compare(tuple_type(lhs.namespaces, lhs.eolian_name , lhs.base_qualifier , lhs.type) , tuple_type(rhs.namespaces, rhs.eolian_name , rhs.base_qualifier , rhs.type)); } template <> struct tuple_element<0ul, klass_name> { typedef std::vector type; static type& get(klass_name& klass) { return klass.namespaces; } static type const& get(klass_name const& klass) { return klass.namespaces; } }; template <> struct tuple_element<1ul, klass_name> { typedef std::string type; static type& get(klass_name& klass) { return klass.eolian_name; } static type const& get(klass_name const& klass) { return klass.eolian_name; } }; template struct tuple_element : tuple_element {}; template typename tuple_element::type& get(klass_name& klass) { return tuple_element::get(klass); } template typename tuple_element::type const& get(klass_name const& klass) { return tuple_element::get(klass); } struct regular_type_def { regular_type_def() : is_undefined(false) {} regular_type_def(std::string base_type, qualifier_def qual, std::vector namespaces , bool is_undefined = false) : base_type(std::move(base_type)), base_qualifier(qual), namespaces(std::move(namespaces)) , is_undefined(is_undefined) {} std::string base_type; qualifier_def base_qualifier; std::vector namespaces; bool is_undefined; }; inline bool operator==(regular_type_def const& rhs, regular_type_def const& lhs) { return rhs.base_type == lhs.base_type && rhs.base_qualifier == lhs.base_qualifier; } inline bool operator!=(regular_type_def const& rhs, regular_type_def const& lhs) { return !(rhs == lhs); } struct complex_type_def { regular_type_def outer; std::vector subtypes; }; inline bool operator==(complex_type_def const& lhs, complex_type_def const& rhs) { return lhs.outer == rhs.outer && lhs.subtypes == rhs.subtypes; } inline bool operator!=(complex_type_def const& lhs, complex_type_def const& rhs) { return !(lhs == rhs); } struct type_def { typedef eina::variant variant_type; variant_type original_type; std::string c_type; type_def() {} type_def(variant_type original_type, std::string c_type) : original_type(original_type), c_type(c_type) {} type_def(Eolian_Type const* eolian_type, Eolian_Unit const* unit) { set(eolian_type, unit); } void set(Eolian_Type const* eolian_type, Eolian_Unit const* unit, Eolian_C_Type_Type ctype); }; struct get_qualifier_visitor { typedef qualifier_def result_type; template qualifier_def operator()(T const& object) const { return object.base_qualifier; } qualifier_def operator()(complex_type_def const& complex) const { return complex.outer.base_qualifier; } }; inline bool operator==(type_def const& lhs, type_def const& rhs) { return lhs.original_type == rhs.original_type && lhs.c_type == rhs.c_type; } inline bool operator!=(type_def const& lhs, type_def const& rhs) { return !(lhs == rhs); } type_def const void_ {attributes::regular_type_def{"void", {qualifier_info::is_none, {}}, {}}, "void"}; inline void type_def::set(Eolian_Type const* eolian_type, Eolian_Unit const* unit, Eolian_C_Type_Type ctype) { c_type = ::eolian_type_c_type_get(eolian_type, ctype); // ::eina_stringshare_del(stringshare); // this crashes switch( ::eolian_type_type_get(eolian_type)) { case EOLIAN_TYPE_VOID: original_type = attributes::regular_type_def{"void", {qualifiers(eolian_type), {}}, {}}; break; case EOLIAN_TYPE_REGULAR: { bool is_undefined = false; Eolian_Typedecl const* decl = eolian_type_typedecl_get(eolian_type); if(decl && eolian_typedecl_type_get(decl) == EOLIAN_TYPEDECL_ALIAS) { Eolian_Type const* aliased = eolian_typedecl_base_type_get(decl); if(aliased && eolian_type_type_get(aliased) == EOLIAN_TYPE_UNDEFINED) { is_undefined = true; } } if(c_type == "va_list *") throw std::runtime_error(""); std::vector namespaces; for(efl::eina::iterator namespace_iterator( ::eolian_type_namespaces_get(eolian_type)) , namespace_last; namespace_iterator != namespace_last; ++namespace_iterator) namespaces.push_back(&*namespace_iterator); original_type = {regular_type_def{ ::eolian_type_name_get(eolian_type), {qualifiers(eolian_type), {}}, namespaces, is_undefined}}; } break; case EOLIAN_TYPE_CLASS: { Eolian_Class const* klass = eolian_type_class_get(unit, eolian_type); original_type = klass_name(klass, {qualifiers(eolian_type), {}}); } break; case EOLIAN_TYPE_COMPLEX: { complex_type_def complex {{::eolian_type_name_get(eolian_type), {qualifiers(eolian_type), {}}, {}}, {}}; Eolian_Type const* stp = eolian_type_base_type_get(eolian_type); while (stp) { complex.subtypes.push_back({stp, unit}); stp = eolian_type_next_type_get(stp); } original_type = complex; } break; default: throw std::runtime_error("Type not supported"); break; } } enum class parameter_direction { in, inout, out }; namespace detail { struct add_optional_qualifier_visitor { typedef void result_type; template void operator()(T& object) const { object.base_qualifier.qualifier |= qualifier_info::is_optional; } void operator()(complex_type_def& complex) const { (*this)(complex.outer); } }; } struct parameter_def { parameter_direction direction; type_def type; std::string param_name; std::string c_type; friend inline bool operator==(parameter_def const& lhs, parameter_def const& rhs) { return lhs.direction == rhs.direction && lhs.type == rhs.type && lhs.param_name == rhs.param_name && lhs.c_type == rhs.c_type; } friend inline bool operator!=(parameter_def const& lhs, parameter_def const& rhs) { return !(lhs == rhs); } parameter_def(parameter_direction direction, type_def type, std::string param_name, std::string c_type) : direction(std::move(direction)), type(std::move(type)), param_name(std::move(param_name)), c_type(std::move(c_type)) {} parameter_def(Eolian_Function_Parameter const* param, Eolian_Unit const* unit) : type( ::eolian_parameter_type_get(param), unit) , param_name( ::eolian_parameter_name_get(param)) , c_type( ::eolian_type_c_type_get(::eolian_parameter_type_get(param), EOLIAN_C_TYPE_PARAM)) { Eolian_Parameter_Dir direction = ::eolian_parameter_direction_get(param); switch(direction) { case EOLIAN_UNKNOWN_PARAM: case EOLIAN_IN_PARAM: this->direction = parameter_direction::in; break; case EOLIAN_INOUT_PARAM: this->direction = parameter_direction::inout; break; case EOLIAN_OUT_PARAM: this->direction = parameter_direction::out; break; } if( ::eolian_parameter_is_optional(param)) type.original_type.visit(detail::add_optional_qualifier_visitor{}); } }; template <> struct tuple_element<0ul, parameter_def> { typedef parameter_direction type; static type const& get(parameter_def const& p) { return p.direction; } static type& get(parameter_def& p) { return p.direction; } }; template <> struct tuple_element<1ul, parameter_def> { typedef type_def type; static type const& get(parameter_def const& p) { return p.type; } static type& get(parameter_def& p) { return p.type; } }; template <> struct tuple_element<2ul, parameter_def> { typedef std::string type; static type const& get(parameter_def const& p) { return p.param_name; } static type& get(parameter_def& p) { return p.param_name; } }; template <> struct tuple_element<3ul, parameter_def> { typedef std::string type; static type const& get(parameter_def const& p) { return p.c_type; } static type& get(parameter_def& p) { return p.c_type; } }; template typename tuple_element::type const& get(parameter_def const& p) { return tuple_element::get(p); } template typename tuple_element::type& get(parameter_def& p) { return tuple_element::get(p); } struct function_def { type_def return_type; std::string name; std::vector parameters; std::string c_name; bool is_beta; bool is_protected; friend inline bool operator==(function_def const& lhs, function_def const& rhs) { return lhs.return_type == rhs.return_type && lhs.name == rhs.name && lhs.parameters == rhs.parameters && lhs.c_name == rhs.c_name && lhs.is_beta == rhs.is_beta && lhs.is_protected == rhs.is_protected; } friend inline bool operator!=(function_def const& lhs, function_def const& rhs) { return !(lhs == rhs); } function_def(type_def return_type, std::string name, std::vector parameters , std::string c_name, bool is_beta) : return_type(return_type), name(name), parameters(parameters), c_name(c_name), is_beta(is_beta) {} function_def() = default; function_def( ::Eolian_Function const* function, Eolian_Function_Type type, Eolian_Unit const* unit) : return_type(void_) { Eolian_Type const* r_type = ::eolian_function_return_type_get(function, type); name = ::eolian_function_name_get(function); if(r_type) return_type.set(r_type, unit, EOLIAN_C_TYPE_RETURN); if(type == EOLIAN_METHOD) { for(efl::eina::iterator param_iterator ( ::eolian_function_parameters_get(function)) , param_last; param_iterator != param_last; ++param_iterator) { parameters.push_back({&*param_iterator, unit}); } } else if(type == EOLIAN_PROP_GET || type == EOLIAN_PROP_SET) { if(type == EOLIAN_PROP_GET) name += "_get"; else name += "_set"; for(efl::eina::iterator param_iterator ( ::eolian_property_keys_get(function, type)) , param_last; param_iterator != param_last; ++param_iterator) { parameters.push_back({&*param_iterator, unit}); } std::vector values; for(efl::eina::iterator param_iterator ( ::eolian_property_values_get(function, type)) , param_last; param_iterator != param_last; ++param_iterator) { values.push_back({&*param_iterator, unit}); } if(!r_type && type == EOLIAN_PROP_GET && values.size() == 1) { return_type = values[0].type; } else if(type == EOLIAN_PROP_GET) { for(auto&& v : values) { v.direction = parameter_direction::out; parameters.push_back(v); } } else parameters.insert(parameters.end(), values.begin(), values.end()); } c_name = eolian_function_full_c_name_get(function, type, EINA_FALSE); is_beta = eolian_function_is_beta(function); is_protected = eolian_function_scope_get(function, type) == EOLIAN_SCOPE_PROTECTED; } }; template <> struct tuple_element<0ul, function_def> { typedef type_def type; static type& get(function_def& f) { return f.return_type; } static type const& get(function_def const& f) { return f.return_type; } }; template <> struct tuple_element<1ul, function_def> { typedef std::string type; static type& get(function_def& f) { return f.name; } static type const& get(function_def const& f) { return f.name; } }; template <> struct tuple_element<2ul, function_def> { typedef std::vector type; static type& get(function_def& f) { return f.parameters; } static type const& get(function_def const& f) { return f.parameters; } }; // template // struct tuple_element : tuple_element {}; // template // struct tuple_element : tuple_element {}; // template // struct tuple_element : tuple_element {}; // template // typename tuple_element::type const& // get(function_def const& f) // { // return tuple_element::get(f); // } // template // typename tuple_element::type& // get(function_def& f) // { // return tuple_element::get(f); // } struct compare_klass_name_by_name { bool operator()(klass_name const& lhs, klass_name const& rhs) const { return lhs.namespaces < rhs.namespaces || (!(rhs.namespaces < lhs.namespaces) && lhs.eolian_name < rhs.eolian_name); } }; struct event_def { eina::optional type; std::string name, c_name; bool beta, protect; friend inline bool operator==(event_def const& lhs, event_def const& rhs) { return lhs.type == rhs.type && lhs.name == rhs.name && lhs.c_name == rhs.c_name && lhs.beta == rhs.beta && lhs.protect == rhs.protect; } friend inline bool operator!=(event_def const& lhs, event_def const& rhs) { return !(lhs == rhs); } event_def(type_def type, std::string name, std::string c_name, bool beta, bool protect) : type(type), name(name), c_name(c_name), beta(beta), protect(protect) {} event_def(Eolian_Event const* event, Eolian_Unit const* unit) : type( ::eolian_event_type_get(event) ? eina::optional{{::eolian_event_type_get(event), unit}} : eina::optional{}) , name( ::eolian_event_name_get(event)) , c_name( ::eolian_event_c_name_get(event)) , beta( ::eolian_event_is_beta(event)) , protect( ::eolian_event_scope_get(event) == EOLIAN_SCOPE_PROTECTED){} }; template <> struct tuple_element<0, event_def> { typedef eina::optional type; static type& get(event_def& def) { return def.type; } static type const& get(event_def const& def) { return def.type; } }; template <> struct tuple_element<1, event_def> { typedef std::string type; static type& get(event_def& def) { return def.name; } static type const& get(event_def const& def) { return def.name; } }; template <> struct tuple_element<2, event_def> { typedef std::string type; static type& get(event_def& def) { return def.c_name; } static type const& get(event_def const& def) { return def.c_name; } }; template struct tuple_element : tuple_element {}; template auto get(event_def const& def) -> decltype(tuple_element::get(def)) { return tuple_element::get(def); } template auto get(event_def& def) -> decltype(tuple_element::get(def)) { return tuple_element::get(def); } struct klass_def { std::string eolian_name; std::string cxx_name; std::vector namespaces; std::vector functions; std::set inherits; class_type type; std::vector events; friend inline bool operator==(klass_def const& lhs, klass_def const& rhs) { return lhs.eolian_name == rhs.eolian_name && lhs.cxx_name == rhs.cxx_name && lhs.namespaces == rhs.namespaces && lhs.functions == rhs.functions && lhs.inherits == rhs.inherits && lhs.type == rhs.type && lhs.events == rhs.events; } friend inline bool operator!=(klass_def const& lhs, klass_def const& rhs) { return !(lhs == rhs); } klass_def(std::string eolian_name, std::string cxx_name , std::vector namespaces , std::vector functions , std::set inherits , class_type type) : eolian_name(eolian_name), cxx_name(cxx_name) , namespaces(namespaces) , functions(functions), inherits(inherits), type(type) {} klass_def(Eolian_Class const* klass, Eolian_Unit const* unit) { for(efl::eina::iterator namespace_iterator( ::eolian_class_namespaces_get(klass)) , namespace_last; namespace_iterator != namespace_last; ++namespace_iterator) { this->namespaces.push_back(&*namespace_iterator); } cxx_name = eolian_name = eolian_class_name_get(klass); for(efl::eina::iterator eolian_functions ( ::eolian_class_functions_get(klass, EOLIAN_PROPERTY)) , functions_last; eolian_functions != functions_last; ++eolian_functions) { Eolian_Function const* function = &*eolian_functions; Eolian_Function_Type type = ::eolian_function_type_get(function); if(type == EOLIAN_PROPERTY) { try { if(! ::eolian_function_is_legacy_only(function, EOLIAN_PROP_GET) && ::eolian_function_scope_get(function, EOLIAN_PROP_GET) != EOLIAN_SCOPE_PRIVATE) functions.push_back({function, EOLIAN_PROP_GET, unit}); } catch(std::exception const&) {} try { if(! ::eolian_function_is_legacy_only(function, EOLIAN_PROP_SET) && ::eolian_function_scope_get(function, EOLIAN_PROP_SET) != EOLIAN_SCOPE_PRIVATE) functions.push_back({function, EOLIAN_PROP_SET, unit}); } catch(std::exception const&) {} } else try { if(! ::eolian_function_is_legacy_only(function, type) && ::eolian_function_scope_get(function, type) != EOLIAN_SCOPE_PRIVATE) functions.push_back({function, type, unit}); } catch(std::exception const&) {} } for(efl::eina::iterator eolian_functions ( ::eolian_class_functions_get(klass, EOLIAN_METHOD)) , functions_last; eolian_functions != functions_last; ++eolian_functions) { try { Eolian_Function const* function = &*eolian_functions; Eolian_Function_Type type = eolian_function_type_get(function); if(! ::eolian_function_is_legacy_only(function, EOLIAN_METHOD) && ::eolian_function_scope_get(function, type) != EOLIAN_SCOPE_PRIVATE) functions.push_back({function, EOLIAN_METHOD, unit}); } catch(std::exception const&) {} } std::function inherit_algo = [&] (Eolian_Class const* klass) { for(efl::eina::iterator inherit_iterator ( ::eolian_class_inherits_get(klass)) , inherit_last; inherit_iterator != inherit_last; ++inherit_iterator) { Eolian_Class const* inherit = ::eolian_class_get_by_name(unit, &*inherit_iterator); inherits.insert({inherit, {}}); inherit_algo(inherit); } }; inherit_algo(klass); switch(eolian_class_type_get(klass)) { case EOLIAN_CLASS_REGULAR: type = class_type::regular; break; case EOLIAN_CLASS_ABSTRACT: type = class_type::abstract_; break; case EOLIAN_CLASS_MIXIN: type = class_type::mixin; break; case EOLIAN_CLASS_INTERFACE: type = class_type::interface_; break; default: throw std::runtime_error("Class with unknown type"); } for(efl::eina::iterator event_iterator( ::eolian_class_events_get(klass)) , event_last; event_iterator != event_last; ++event_iterator) { try { events.push_back({&*event_iterator, unit}); } catch(std::exception const&) {} } } }; inline klass_name get_klass_name(klass_def const& klass) { return {klass.namespaces, klass.eolian_name, {qualifier_info::is_none, {}}, klass.type}; } inline Eolian_Class const* get_klass(klass_name const& klass_name_, Eolian_Unit const* unit) { std::string klass_name; if(!as_generator(*(string << ".") << string) .generate(std::back_insert_iterator(klass_name) , std::make_tuple(klass_name_.namespaces, klass_name_.eolian_name) , context_null{})) return nullptr; else return ::eolian_class_get_by_name(unit, klass_name.c_str()); } inline std::vector cpp_namespaces(std::vector namespaces) { if(namespaces.empty()) namespaces.push_back("nonamespace"); return namespaces; } } namespace type_traits { template <> struct is_tuple : std::true_type {}; template <> struct is_tuple : std::true_type {}; } } } } #endif