Mercurial > hg > vamp-build-and-test
diff DEPENDENCIES/generic/include/boost/icl/map.hpp @ 16:2665513ce2d3
Add boost headers
author | Chris Cannam |
---|---|
date | Tue, 05 Aug 2014 11:11:38 +0100 |
parents | |
children | c530137014c0 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/DEPENDENCIES/generic/include/boost/icl/map.hpp Tue Aug 05 11:11:38 2014 +0100 @@ -0,0 +1,702 @@ +/*-----------------------------------------------------------------------------+ +Copyright (c) 2007-2011: Joachim Faulhaber ++------------------------------------------------------------------------------+ + Distributed under the Boost Software License, Version 1.0. + (See accompanying file LICENCE.txt or copy at + http://www.boost.org/LICENSE_1_0.txt) ++-----------------------------------------------------------------------------*/ +#ifndef BOOST_ICL_MAP_HPP_JOFA_070519 +#define BOOST_ICL_MAP_HPP_JOFA_070519 + +#include <boost/icl/impl_config.hpp> + +#if defined(ICL_USE_BOOST_MOVE_IMPLEMENTATION) +# include <boost/container/map.hpp> +# include <boost/container/set.hpp> +#elif defined(ICL_USE_STD_IMPLEMENTATION) +# include <map> +# include <set> +#else // Default for implementing containers +# include <map> +# include <set> +#endif + +#include <string> +#include <boost/type_traits/ice.hpp> +#include <boost/call_traits.hpp> +#include <boost/icl/detail/notate.hpp> +#include <boost/icl/detail/design_config.hpp> +#include <boost/icl/detail/concept_check.hpp> +#include <boost/icl/detail/on_absorbtion.hpp> +#include <boost/icl/type_traits/is_map.hpp> +#include <boost/icl/type_traits/absorbs_identities.hpp> +#include <boost/icl/type_traits/is_total.hpp> +#include <boost/icl/type_traits/is_element_container.hpp> +#include <boost/icl/type_traits/has_inverse.hpp> +#include <boost/icl/type_traits/to_string.hpp> + +#include <boost/icl/associative_element_container.hpp> +#include <boost/icl/functors.hpp> + +namespace boost{namespace icl +{ + +struct partial_absorber +{ + enum { absorbs_identities = true }; + enum { is_total = false }; +}; + +template<> +inline std::string type_to_string<partial_absorber>::apply() { return "@0"; } + +struct partial_enricher +{ + enum { absorbs_identities = false }; + enum { is_total = false }; +}; + +template<> +inline std::string type_to_string<partial_enricher>::apply() { return "e0"; } + +struct total_absorber +{ + enum { absorbs_identities = true }; + enum { is_total = true }; +}; + +template<> +inline std::string type_to_string<total_absorber>::apply() { return "^0"; } + +struct total_enricher +{ + enum { absorbs_identities = false }; + enum { is_total = true }; +}; + +template<> +inline std::string type_to_string<total_enricher>::apply() { return "e^0"; } + + + +/** \brief Addable, subractable and intersectable maps */ +template +< + typename DomainT, + typename CodomainT, + class Traits = icl::partial_absorber, + ICL_COMPARE Compare = ICL_COMPARE_INSTANCE(ICL_COMPARE_DEFAULT, DomainT), + ICL_COMBINE Combine = ICL_COMBINE_INSTANCE(icl::inplace_plus, CodomainT), + ICL_SECTION Section = ICL_SECTION_INSTANCE(icl::inter_section, CodomainT), + ICL_ALLOC Alloc = std::allocator +> +class map: private ICL_IMPL_SPACE::map<DomainT, CodomainT, ICL_COMPARE_DOMAIN(Compare,DomainT), + Alloc<std::pair<const DomainT, CodomainT> > > +{ +public: + typedef Alloc<typename std::pair<const DomainT, CodomainT> > allocator_type; + + typedef typename icl::map<DomainT,CodomainT,Traits, Compare,Combine,Section,Alloc> type; + typedef typename ICL_IMPL_SPACE::map<DomainT, CodomainT, ICL_COMPARE_DOMAIN(Compare,DomainT), + allocator_type> base_type; + + typedef Traits traits; + +public: + typedef DomainT domain_type; + typedef typename boost::call_traits<DomainT>::param_type domain_param; + typedef DomainT key_type; + typedef CodomainT codomain_type; + typedef CodomainT mapped_type; + typedef CodomainT data_type; + typedef std::pair<const DomainT, CodomainT> element_type; + typedef std::pair<const DomainT, CodomainT> value_type; + typedef ICL_COMPARE_DOMAIN(Compare,DomainT) domain_compare; + typedef ICL_COMBINE_CODOMAIN(Combine,CodomainT) codomain_combine; + typedef domain_compare key_compare; + typedef ICL_COMPARE_DOMAIN(Compare,element_type) element_compare; + typedef typename inverse<codomain_combine >::type inverse_codomain_combine; + typedef typename mpl::if_ + <has_set_semantics<codomain_type> + , ICL_SECTION_CODOMAIN(Section,CodomainT) + , codomain_combine + >::type codomain_intersect; + typedef typename inverse<codomain_intersect>::type inverse_codomain_intersect; + typedef typename base_type::value_compare value_compare; + + typedef typename ICL_IMPL_SPACE::set<DomainT, domain_compare, Alloc<DomainT> > set_type; + typedef set_type key_object_type; + + + BOOST_STATIC_CONSTANT(bool, _total = (Traits::is_total)); + BOOST_STATIC_CONSTANT(bool, _absorbs = (Traits::absorbs_identities)); + BOOST_STATIC_CONSTANT(bool, + total_invertible = (mpl::and_<is_total<type>, has_inverse<codomain_type> >::value)); + + typedef on_absorbtion<type,codomain_combine,Traits::absorbs_identities> + on_identity_absorbtion; + +public: + typedef typename base_type::pointer pointer; + typedef typename base_type::const_pointer const_pointer; + typedef typename base_type::reference reference; + typedef typename base_type::const_reference const_reference; + typedef typename base_type::iterator iterator; + typedef typename base_type::const_iterator const_iterator; + typedef typename base_type::size_type size_type; + typedef typename base_type::difference_type difference_type; + typedef typename base_type::reverse_iterator reverse_iterator; + typedef typename base_type::const_reverse_iterator const_reverse_iterator; + +public: + BOOST_STATIC_CONSTANT(bool, + is_total_invertible = ( Traits::is_total + && has_inverse<codomain_type>::value)); + + BOOST_STATIC_CONSTANT(int, fineness = 4); + +public: + //========================================================================== + //= Construct, copy, destruct + //========================================================================== + map() + { + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((LessThanComparableConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<CodomainT>)); + BOOST_CONCEPT_ASSERT((EqualComparableConcept<CodomainT>)); + } + + map(const key_compare& comp): base_type(comp){} + + template <class InputIterator> + map(InputIterator first, InputIterator past) + : base_type(first,past){} + + template <class InputIterator> + map(InputIterator first, InputIterator past, const key_compare& comp) + : base_type(first,past,comp) + {} + + map(const map& src) + : base_type(src) + { + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((LessThanComparableConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<CodomainT>)); + BOOST_CONCEPT_ASSERT((EqualComparableConcept<CodomainT>)); + } + + explicit map(const element_type& key_value_pair): base_type::map() + { + insert(key_value_pair); + } + + map& operator = (const map& src) + { + base_type::operator=(src); + return *this; + } + +# ifndef BOOST_ICL_NO_CXX11_RVALUE_REFERENCES + //========================================================================== + //= Move semantics + //========================================================================== + + map(map&& src) + : base_type(boost::move(src)) + { + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((LessThanComparableConcept<DomainT>)); + BOOST_CONCEPT_ASSERT((DefaultConstructibleConcept<CodomainT>)); + BOOST_CONCEPT_ASSERT((EqualComparableConcept<CodomainT>)); + } + + map& operator = (map&& src) + { + base_type::operator=(src); + return *this; + } + //========================================================================== +# endif // BOOST_ICL_NO_CXX11_RVALUE_REFERENCES + + void swap(map& src) { base_type::swap(src); } + + //========================================================================== + using base_type::empty; + using base_type::clear; + + using base_type::begin; + using base_type::end; + using base_type::rbegin; + using base_type::rend; + + using base_type::size; + using base_type::max_size; + + using base_type::key_comp; + using base_type::value_comp; + + using base_type::erase; + using base_type::find; + using base_type::count; + + using base_type::lower_bound; + using base_type::upper_bound; + using base_type::equal_range; + + using base_type::operator[]; + +public: + //========================================================================== + //= Containedness + //========================================================================== + + template<class SubObject> + bool contains(const SubObject& sub)const + { return icl::contains(*this, sub); } + + bool within(const map& super)const + { return icl::contains(super, *this); } + + //========================================================================== + //= Size + //========================================================================== + /** \c iterative_size() yields the number of elements that is visited + throu complete iteration. For interval sets \c iterative_size() is + different from \c size(). */ + std::size_t iterative_size()const { return base_type::size(); } + + //========================================================================== + //= Selection + //========================================================================== + + /** Total select function. */ + codomain_type operator()(const domain_type& key)const + { + const_iterator it = find(key); + return it==end() ? identity_element<codomain_type>::value() + : it->second; + } + + //========================================================================== + //= Addition + //========================================================================== + /** \c add inserts \c value_pair into the map if it's key does + not exist in the map. + If \c value_pairs's key value exists in the map, it's data + value is added to the data value already found in the map. */ + map& add(const value_type& value_pair) + { + return _add<codomain_combine>(value_pair); + } + + /** \c add add \c value_pair into the map using \c prior as a hint to + insert \c value_pair after the position \c prior is pointing to. */ + iterator add(iterator prior, const value_type& value_pair) + { + return _add<codomain_combine>(prior, value_pair); + } + + //========================================================================== + //= Subtraction + //========================================================================== + /** If the \c value_pair's key value is in the map, it's data value is + subtraced from the data value stored in the map. */ + map& subtract(const element_type& value_pair) + { + on_invertible<type, is_total_invertible> + ::subtract(*this, value_pair); + return *this; + } + + map& subtract(const domain_type& key) + { + icl::erase(*this, key); + return *this; + } + + //========================================================================== + //= Insertion, erasure + //========================================================================== + std::pair<iterator,bool> insert(const value_type& value_pair) + { + if(on_identity_absorbtion::is_absorbable(value_pair.second)) + return std::pair<iterator,bool>(end(),true); + else + return base_type::insert(value_pair); + } + + iterator insert(iterator prior, const value_type& value_pair) + { + if(on_identity_absorbtion::is_absorbable(value_pair.second)) + return end(); + else + return base_type::insert(prior, value_pair); + } + + template<class Iterator> + iterator insert(Iterator first, Iterator last) + { + iterator prior = end(), it = first; + while(it != last) + prior = this->insert(prior, *it++); + } + + /** With <tt>key_value_pair = (k,v)</tt> set value \c v for key \c k */ + map& set(const element_type& key_value_pair) + { + return icl::set_at(*this, key_value_pair); + } + + /** erase \c key_value_pair from the map. + Erase only if, the exact value content \c val is stored for the given key. */ + size_type erase(const element_type& key_value_pair) + { + return icl::erase(*this, key_value_pair); + } + + //========================================================================== + //= Intersection + //========================================================================== + /** The intersection of \c key_value_pair and \c *this map is added to \c section. */ + void add_intersection(map& section, const element_type& key_value_pair)const + { + on_definedness<type, Traits::is_total> + ::add_intersection(section, *this, key_value_pair); + } + + //========================================================================== + //= Symmetric difference + //========================================================================== + + map& flip(const element_type& operand) + { + on_total_absorbable<type,_total,_absorbs>::flip(*this, operand); + return *this; + } + +private: + template<class Combiner> + map& _add(const element_type& value_pair); + + template<class Combiner> + iterator _add(iterator prior, const element_type& value_pair); + + template<class Combiner> + map& _subtract(const element_type& value_pair); + + template<class FragmentT> + void total_add_intersection(type& section, const FragmentT& fragment)const + { + section += *this; + section.add(fragment); + } + + void partial_add_intersection(type& section, const element_type& operand)const + { + const_iterator it_ = find(operand.first); + if(it_ != end()) + { + section.template _add<codomain_combine >(*it_); + section.template _add<codomain_intersect>(operand); + } + } + + +private: + //-------------------------------------------------------------------------- + template<class Type, bool is_total_invertible> + struct on_invertible; + + template<class Type> + struct on_invertible<Type, true> + { + typedef typename Type::element_type element_type; + typedef typename Type::inverse_codomain_combine inverse_codomain_combine; + + static void subtract(Type& object, const element_type& operand) + { object.template _add<inverse_codomain_combine>(operand); } + }; + + template<class Type> + struct on_invertible<Type, false> + { + typedef typename Type::element_type element_type; + typedef typename Type::inverse_codomain_combine inverse_codomain_combine; + + static void subtract(Type& object, const element_type& operand) + { object.template _subtract<inverse_codomain_combine>(operand); } + }; + + friend struct on_invertible<type, true>; + friend struct on_invertible<type, false>; + //-------------------------------------------------------------------------- + + //-------------------------------------------------------------------------- + template<class Type, bool is_total> + struct on_definedness; + + template<class Type> + struct on_definedness<Type, true> + { + static void add_intersection(Type& section, const Type& object, + const element_type& operand) + { object.total_add_intersection(section, operand); } + }; + + template<class Type> + struct on_definedness<Type, false> + { + static void add_intersection(Type& section, const Type& object, + const element_type& operand) + { object.partial_add_intersection(section, operand); } + }; + + friend struct on_definedness<type, true>; + friend struct on_definedness<type, false>; + //-------------------------------------------------------------------------- + + //-------------------------------------------------------------------------- + template<class Type, bool has_set_semantics, bool absorbs_identities> + struct on_codomain_model; + + template<class Type> + struct on_codomain_model<Type, false, false> + { // !codomain_is_set, !absorbs_identities + static void subtract(Type&, typename Type::iterator it_, + const typename Type::codomain_type& ) + { (*it_).second = identity_element<typename Type::codomain_type>::value(); } + }; + + template<class Type> + struct on_codomain_model<Type, false, true> + { // !codomain_is_set, absorbs_identities + static void subtract(Type& object, typename Type::iterator it_, + const typename Type::codomain_type& ) + { object.erase(it_); } + }; + + template<class Type> + struct on_codomain_model<Type, true, false> + { // !codomain_is_set, !absorbs_identities + typedef typename Type::inverse_codomain_intersect inverse_codomain_intersect; + static void subtract(Type&, typename Type::iterator it_, + const typename Type::codomain_type& co_value) + { + inverse_codomain_intersect()((*it_).second, co_value); + } + }; + + template<class Type> + struct on_codomain_model<Type, true, true> + { // !codomain_is_set, absorbs_identities + typedef typename Type::inverse_codomain_intersect inverse_codomain_intersect; + static void subtract(Type& object, typename Type::iterator it_, + const typename Type::codomain_type& co_value) + { + inverse_codomain_intersect()((*it_).second, co_value); + if((*it_).second == identity_element<codomain_type>::value()) + object.erase(it_); + } + }; + //-------------------------------------------------------------------------- + + //-------------------------------------------------------------------------- + template<class Type, bool is_total, bool absorbs_identities> + struct on_total_absorbable; + + template<class Type> + struct on_total_absorbable<Type, true, true> + { + typedef typename Type::element_type element_type; + static void flip(Type& object, const typename Type::element_type&) + { icl::clear(object); } + }; + + template<class Type> + struct on_total_absorbable<Type, true, false> + { + typedef typename Type::element_type element_type; + typedef typename Type::codomain_type codomain_type; + + static void flip(Type& object, const element_type& operand) + { + object.add(operand); + ICL_FORALL(typename Type, it_, object) + (*it_).second = identity_element<codomain_type>::value(); + } + }; + + template<class Type> + struct on_total_absorbable<Type, false, true> + { // !is_total, absorbs_identities + typedef typename Type::element_type element_type; + typedef typename Type::codomain_type codomain_type; + typedef typename Type::iterator iterator; + typedef typename Type::inverse_codomain_intersect inverse_codomain_intersect; + + static void flip(Type& object, const element_type& operand) + { + std::pair<iterator,bool> insertion = object.insert(operand); + if(!insertion.second) + on_codomain_model<Type, has_set_semantics<codomain_type>::value, true> + ::subtract(object, insertion.first, operand.second); + } + }; + + template<class Type> + struct on_total_absorbable<Type, false, false> + { // !is_total !absorbs_identities + typedef typename Type::element_type element_type; + typedef typename Type::codomain_type codomain_type; + typedef typename Type::iterator iterator; + typedef typename Type::inverse_codomain_intersect inverse_codomain_intersect; + + static void flip(Type& object, const element_type& operand) + { + std::pair<iterator,bool> insertion = object.insert(operand); + if(!insertion.second) + on_codomain_model<Type, has_set_semantics<codomain_type>::value, false> + ::subtract(object, insertion.first, operand.second); + } + }; + + friend struct on_total_absorbable<type, true, true >; + friend struct on_total_absorbable<type, false, true >; + friend struct on_total_absorbable<type, true, false>; + friend struct on_total_absorbable<type, false, false>; + //-------------------------------------------------------------------------- +}; + + + +//============================================================================== +//= Addition<ElementMap> +//============================================================================== +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> + template <class Combiner> +map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc>& + map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> + ::_add(const element_type& addend) +{ + typedef typename on_absorbtion + <type,Combiner,absorbs_identities<type>::value>::type on_absorbtion_; + + const codomain_type& co_val = addend.second; + if(on_absorbtion_::is_absorbable(co_val)) + return *this; + + std::pair<iterator,bool> insertion + = base_type::insert(value_type(addend.first, version<Combiner>()(co_val))); + + if(!insertion.second) + { + iterator it = insertion.first; + Combiner()((*it).second, co_val); + + if(on_absorbtion_::is_absorbable((*it).second)) + erase(it); + } + return *this; +} + + +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> + template <class Combiner> +typename map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc>::iterator + map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> + ::_add(iterator prior_, const value_type& addend) +{ + typedef typename on_absorbtion + <type,Combiner,absorbs_identities<type>::value>::type on_absorbtion_; + + const codomain_type& co_val = addend.second; + if(on_absorbtion_::is_absorbable(co_val)) + return end(); + + iterator inserted_ + = base_type::insert(prior_, + value_type(addend.first, Combiner::identity_element())); + Combiner()((*inserted_).second, addend.second); + + if(on_absorbtion_::is_absorbable((*inserted_).second)) + { + erase(inserted_); + return end(); + } + else + return inserted_; +} + + +//============================================================================== +//= Subtraction<ElementMap> +//============================================================================== +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> + template <class Combiner> +map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc>& + map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc>::_subtract(const value_type& minuend) +{ + typedef typename on_absorbtion + <type,Combiner,absorbs_identities<type>::value>::type on_absorbtion_; + + iterator it_ = find(minuend.first); + if(it_ != end()) + { + Combiner()((*it_).second, minuend.second); + if(on_absorbtion_::is_absorbable((*it_).second)) + erase(it_); + } + return *this; +} + + +//----------------------------------------------------------------------------- +// type traits +//----------------------------------------------------------------------------- +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> +struct is_map<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > +{ + typedef is_map<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > type; + BOOST_STATIC_CONSTANT(bool, value = true); +}; + +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> +struct has_inverse<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > +{ + typedef has_inverse<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > type; + BOOST_STATIC_CONSTANT(bool, value = (has_inverse<CodomainT>::value)); +}; + +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> +struct absorbs_identities<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > +{ + typedef absorbs_identities type; + BOOST_STATIC_CONSTANT(int, value = Traits::absorbs_identities); +}; + +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> +struct is_total<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > +{ + typedef is_total type; + BOOST_STATIC_CONSTANT(int, value = Traits::is_total); +}; + +template <class DomainT, class CodomainT, class Traits, ICL_COMPARE Compare, ICL_COMBINE Combine, ICL_SECTION Section, ICL_ALLOC Alloc> +struct type_to_string<icl::map<DomainT,CodomainT,Traits,Compare,Combine,Section,Alloc> > +{ + static std::string apply() + { + return "map<"+ type_to_string<DomainT>::apply() + "," + + type_to_string<CodomainT>::apply() + "," + + type_to_string<Traits>::apply() +">"; + } +}; + + + +}} // namespace icl boost + +#endif // BOOST_ICL_MAP_HPP_JOFA_070519 +