boost/mpl/aux_/lambda_support.hpp

   1
   2 #ifndef BOOST_MPL_AUX_LAMBDA_SUPPORT_HPP_INCLUDED
   3 #define BOOST_MPL_AUX_LAMBDA_SUPPORT_HPP_INCLUDED
   4
   5 // Copyright Aleksey Gurtovoy 2001-2004
   6 //
   7 // Distributed under the Boost Software License, Version 1.0.
   8 // (See accompanying file LICENSE_1_0.txt or copy at
   9 // http://www.boost.org/LICENSE_1_0.txt)
  10 //
  11 // See http://www.boost.org/libs/mpl for documentation.
  12
  13 // $Id: lambda_support.hpp 49267 2008-10-11 06:19:02Z agurtovoy $
  14 // $Date: 2008-10-10 23:19:02 -0700 (Fri, 10 Oct 2008) $
  15 // $Revision: 49267 $
  16
  17 #include <boost/mpl/aux_/config/lambda.hpp>
  18
  19 #if !defined(BOOST_MPL_CFG_NO_FULL_LAMBDA_SUPPORT)
  20
  21 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) /**/
  22 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT(i,name,params) /**/
  23
  24 #else
  25
  26 #   include <boost/mpl/int_fwd.hpp>
  27 #   include <boost/mpl/aux_/yes_no.hpp>
  28 #   include <boost/mpl/aux_/na_fwd.hpp>
  29 #   include <boost/mpl/aux_/preprocessor/params.hpp>
  30 #   include <boost/mpl/aux_/preprocessor/enum.hpp>
  31 #   include <boost/mpl/aux_/config/msvc.hpp>
  32 #   include <boost/mpl/aux_/config/workaround.hpp>
  33
  34 #   include <boost/preprocessor/tuple/to_list.hpp>
  35 #   include <boost/preprocessor/list/for_each_i.hpp>
  36 #   include <boost/preprocessor/inc.hpp>
  37 #   include <boost/preprocessor/cat.hpp>
  38
  39 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_ARG_TYPEDEF_FUNC(R,typedef_,i,param) \
  40     typedef_ param BOOST_PP_CAT(arg,BOOST_PP_INC(i)); \
  41     /**/
  42
  43 // agurt, 07/mar/03: restore an old revision for the sake of SGI MIPSpro C++
  44 #if BOOST_WORKAROUND(__EDG_VERSION__, <= 238)
  45
  46 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
  47     typedef BOOST_MPL_AUX_ADL_BARRIER_NAMESPACE::int_<i> arity; \
  48     BOOST_PP_LIST_FOR_EACH_I_R( \
  49           1 \
  50         , BOOST_MPL_AUX_LAMBDA_SUPPORT_ARG_TYPEDEF_FUNC \
  51         , typedef \
  52         , BOOST_PP_TUPLE_TO_LIST(i,params) \
  53         ) \
  54     struct rebind \
  55     { \
  56         template< BOOST_MPL_PP_PARAMS(i,typename U) > struct apply \
  57             : name< BOOST_MPL_PP_PARAMS(i,U) > \
  58         { \
  59         }; \
  60     }; \
  61     /**/
  62
  63 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
  64     BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
  65     /**/
  66
  67 #elif BOOST_WORKAROUND(__EDG_VERSION__, <= 244) && !defined(BOOST_INTEL_CXX_VERSION)
  68 // agurt, 18/jan/03: old EDG-based compilers actually enforce 11.4 para 9
  69 // (in strict mode), so we have to provide an alternative to the
  70 // MSVC-optimized implementation
  71
  72 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
  73     typedef BOOST_MPL_AUX_ADL_BARRIER_NAMESPACE::int_<i> arity; \
  74     BOOST_PP_LIST_FOR_EACH_I_R( \
  75           1 \
  76         , BOOST_MPL_AUX_LAMBDA_SUPPORT_ARG_TYPEDEF_FUNC \
  77         , typedef \
  78         , BOOST_PP_TUPLE_TO_LIST(i,params) \
  79         ) \
  80     struct rebind; \
  81 /**/
  82
  83 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
  84     BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
  85 }; \
  86 template< BOOST_MPL_PP_PARAMS(i,typename T) > \
  87 struct name<BOOST_MPL_PP_PARAMS(i,T)>::rebind \
  88 { \
  89     template< BOOST_MPL_PP_PARAMS(i,typename U) > struct apply \
  90         : name< BOOST_MPL_PP_PARAMS(i,U) > \
  91     { \
  92     }; \
  93 /**/
  94
  95 #else // __EDG_VERSION__
  96
  97 namespace boost { namespace mpl { namespace aux {
  98 template< typename T > struct has_rebind_tag;
  99 }}}
 100
 101 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
 102     typedef BOOST_MPL_AUX_ADL_BARRIER_NAMESPACE::int_<i> arity; \
 103     BOOST_PP_LIST_FOR_EACH_I_R( \
 104           1 \
 105         , BOOST_MPL_AUX_LAMBDA_SUPPORT_ARG_TYPEDEF_FUNC \
 106         , typedef \
 107         , BOOST_PP_TUPLE_TO_LIST(i,params) \
 108         ) \
 109     friend class BOOST_PP_CAT(name,_rebind); \
 110     typedef BOOST_PP_CAT(name,_rebind) rebind; \
 111 /**/
 112
 113 #if BOOST_WORKAROUND(__BORLANDC__, BOOST_TESTED_AT(0x610))
 114 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_HAS_REBIND(i, name, params) \
 115 template< BOOST_MPL_PP_PARAMS(i,typename T) > \
 116 ::boost::mpl::aux::yes_tag operator|( \
 117       ::boost::mpl::aux::has_rebind_tag<int> \
 118     , name<BOOST_MPL_PP_PARAMS(i,T)>* \
 119     ); \
 120 ::boost::mpl::aux::no_tag operator|( \
 121       ::boost::mpl::aux::has_rebind_tag<int> \
 122     , name< BOOST_MPL_PP_ENUM(i,::boost::mpl::na) >* \
 123     ); \
 124 /**/
 125 #elif !BOOST_WORKAROUND(BOOST_MSVC, < 1300)
 126 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_HAS_REBIND(i, name, params) \
 127 template< BOOST_MPL_PP_PARAMS(i,typename T) > \
 128 ::boost::mpl::aux::yes_tag operator|( \
 129       ::boost::mpl::aux::has_rebind_tag<int> \
 130     , ::boost::mpl::aux::has_rebind_tag< name<BOOST_MPL_PP_PARAMS(i,T)> >* \
 131     ); \
 132 /**/
 133 #else
 134 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT_HAS_REBIND(i, name, params) /**/
 135 #endif
 136
 137 #   if !defined(__BORLANDC__)
 138 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
 139     BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
 140 }; \
 141 BOOST_MPL_AUX_LAMBDA_SUPPORT_HAS_REBIND(i, name, params) \
 142 class BOOST_PP_CAT(name,_rebind) \
 143 { \
 144  public: \
 145     template< BOOST_MPL_PP_PARAMS(i,typename U) > struct apply \
 146         : name< BOOST_MPL_PP_PARAMS(i,U) > \
 147     { \
 148     }; \
 149 /**/
 150 #   else
 151 #   define BOOST_MPL_AUX_LAMBDA_SUPPORT(i, name, params) \
 152     BOOST_MPL_AUX_LAMBDA_SUPPORT_SPEC(i, name, params) \
 153 }; \
 154 BOOST_MPL_AUX_LAMBDA_SUPPORT_HAS_REBIND(i, name, params) \
 155 class BOOST_PP_CAT(name,_rebind) \
 156 { \
 157  public: \
 158     template< BOOST_MPL_PP_PARAMS(i,typename U) > struct apply \
 159     { \
 160         typedef typename name< BOOST_MPL_PP_PARAMS(i,U) >::type type; \
 161     }; \
 162 /**/
 163 #   endif // __BORLANDC__
 164
 165 #endif // __EDG_VERSION__
 166
 167 #endif // BOOST_MPL_CFG_NO_FULL_LAMBDA_SUPPORT
 168
 169 #endif // BOOST_MPL_AUX_LAMBDA_SUPPORT_HPP_INCLUDED