file Utils/type_macros.hpp

[No description available] More…

Defines

Name
REGISTER_DEFAULT(BE, VER, DEFAULT)
Helper macro to register the default version of a classloading backend to use.
TYPEDEFAULT(r, data, elem)
Helper macro for setting default backend version for BOSSed types.
SET_DEFAULT_VERSION_FOR_LOADING_TYPES(BE, VER, DEFAULT)
Set default backend version for BOSSed types.
START_NAMESPACE(r, data, i, elem)
Open a namespace.
END_NAMESPACE(z, n, data)
Close a namespace.
TRAILING_NSQUALIFIER(r, data, i, elem)
An entry with a trailing namespace qualifier.
PRE_TYPEDEFAULT(r, data, elem)
ALREADY_LOADED(BE)

Detailed Description

Author: Pat Scott (p.scott@imperial.ac.uk)

Date: 2014 Sep

Macros for declaring different types for GAMBIT. Version to be included in main compilation unit.


Authors (add name and date if you modify):


Macros Documentation

define REGISTER_DEFAULT

#define REGISTER_DEFAULT(
    BE,
    VER,
    DEFAULT
)
DUMMYARG(BE, VER, DEFAULT)              \

Helper macro to register the default version of a classloading backend to use.

define TYPEDEFAULT

#define TYPEDEFAULT(
    r,
    data,
    elem
)
    namespace Gambit                                                                  \
    {                                                                                 \
      namespace CAT(BOOST_PP_SEQ_ELEM(2,data),_default)                               \
      {                                                                               \
        BOOST_PP_SEQ_FOR_EACH_I(START_NAMESPACE, ,                                    \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
        typedef BOOST_PP_SEQ_ELEM(1,data)::                                           \
         BOOST_PP_SEQ_FOR_EACH_I(TRAILING_NSQUALIFIER, ,                              \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem)              \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem);             \
        BOOST_PP_REPEAT(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),END_NAMESPACE, )      \
      }                                                                               \
    }

Helper macro for setting default backend version for BOSSed types.

define SET_DEFAULT_VERSION_FOR_LOADING_TYPES

#define SET_DEFAULT_VERSION_FOR_LOADING_TYPES(
    BE,
    VER,
    DEFAULT
)
REGISTER_DEFAULT(BE, VER, DEFAULT)                                                    \
BOOST_PP_SEQ_FOR_EACH(PRE_TYPEDEFAULT, (CAT_3(BE,_,VER))(CAT_3(BE,_,DEFAULT))(BE),    \
 CAT_5(BE,_,DEFAULT,_,all_data) )

Set default backend version for BOSSed types.

define START_NAMESPACE

#define START_NAMESPACE(
    r,
    data,
    i,
    elem
)
namespace elem {

Open a namespace.

define END_NAMESPACE

#define END_NAMESPACE(
    z,
    n,
    data
)
}

Close a namespace.

define TRAILING_NSQUALIFIER

#define TRAILING_NSQUALIFIER(
    r,
    data,
    i,
    elem
)
elem::

An entry with a trailing namespace qualifier.

define PRE_TYPEDEFAULT

#define PRE_TYPEDEFAULT(
    r,
    data,
    elem
)
TYPEDEFAULT(r,data,BOOST_PP_TUPLE_ELEM(2,0,elem))

define ALREADY_LOADED

#define ALREADY_LOADED(
    BE
)
CAT_3(__loaded_types_,BE,_hpp__)

Source code

//   GAMBIT: Global and Modular BSM Inference Tool
//   *********************************************
///  \file
///
///  Macros for declaring different types for
///  GAMBIT.  Version to be included in main
///  compilation unit.
///
///  *********************************************
///
///  Authors (add name and date if you modify):
///
///  \author Pat Scott
///          (p.scott@imperial.ac.uk)
///  \date 2014 Sep
///
///  *********************************************

#ifndef __type_macros_hpp__
#define __type_macros_hpp__

#include "gambit/Utils/util_macros.hpp"

#include <boost/preprocessor/seq/for_each.hpp>
#include <boost/preprocessor/seq/elem.hpp>
#include <boost/preprocessor/seq/size.hpp>
#include <boost/preprocessor/seq/subseq.hpp>
#include <boost/preprocessor/seq/subseq.hpp>
#include <boost/preprocessor/tuple/elem.hpp>
#include <boost/preprocessor/repetition/repeat.hpp>

// If STANDALONE is defined, register that this is the main compilation unit.
#ifdef STANDALONE
  #define __gambit_main_hpp__
#endif

// If this file has been included from the main compilation unit, define TYPEDEFAULT
// and REGISTER_DEFAULT differently from the way they are normally defined.
#ifdef __gambit_main_hpp__

  #include "gambit/Elements/ini_functions.hpp"

  /// Helper macro to register the default version of a classloading backend to use
  #define REGISTER_DEFAULT(BE, VER, DEFAULT)                                          \
  namespace Gambit                                                                    \
  {                                                                                   \
    namespace Backends                                                                \
    {                                                                                 \
      namespace CAT_3(BE,_,VER)                                                       \
      {                                                                               \
        int def = pass_default_to_backendinfo(STRINGIFY(BE),STRINGIFY(DEFAULT));      \
      }                                                                               \
    }                                                                                 \
  }                                                                                   \

  /// Helper macro for setting default backend version for BOSSed types.
  #define TYPEDEFAULT(r,data,elem)                                                    \
    namespace Gambit                                                                  \
    {                                                                                 \
                                                                                      \
      namespace Backends                                                              \
      {                                                                               \
                                                                                      \
        namespace BOOST_PP_SEQ_ELEM(0,data)                                           \
        {                                                                             \
                                                                                      \
          BOOST_PP_SEQ_FOR_EACH_I(START_NAMESPACE, ,                                  \
           BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))       \
                                                                                      \
            int CAT(add_equivrelation_,                                               \
             BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem)) =       \
             add_equivrelation                                                        \
             (                                                                        \
              STRINGIFY(BOOST_PP_SEQ_ELEM(1,data)::                                   \
               BOOST_PP_SEQ_FOR_EACH_I(TRAILING_NSQUALIFIER, ,                        \
               BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))   \
               BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem)),      \
              STRINGIFY(BOOST_PP_SEQ_ELEM(2,data)_default::                           \
               BOOST_PP_SEQ_FOR_EACH_I(TRAILING_NSQUALIFIER, ,                        \
               BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))   \
               BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem))       \
             );                                                                       \
                                                                                      \
          BOOST_PP_REPEAT(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),END_NAMESPACE, )    \
                                                                                      \
        }                                                                             \
                                                                                      \
      }                                                                               \
                                                                                      \
      namespace CAT(BOOST_PP_SEQ_ELEM(2,data),_default)                               \
      {                                                                               \
        BOOST_PP_SEQ_FOR_EACH_I(START_NAMESPACE, ,                                    \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
        typedef BOOST_PP_SEQ_ELEM(1,data)::                                           \
         BOOST_PP_SEQ_FOR_EACH_I(TRAILING_NSQUALIFIER, ,                              \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem)              \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem);             \
        BOOST_PP_REPEAT(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),END_NAMESPACE, )      \
      }                                                                               \
  }                                                                                   \

#else

  /// Helper macro to register the default version of a classloading backend to use
  #define REGISTER_DEFAULT(BE, VER, DEFAULT)  DUMMYARG(BE, VER, DEFAULT)              \

  /// Helper macro for setting default backend version for BOSSed types.
  #define TYPEDEFAULT(r,data,elem)                                                    \
    namespace Gambit                                                                  \
    {                                                                                 \
      namespace CAT(BOOST_PP_SEQ_ELEM(2,data),_default)                               \
      {                                                                               \
        BOOST_PP_SEQ_FOR_EACH_I(START_NAMESPACE, ,                                    \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
        typedef BOOST_PP_SEQ_ELEM(1,data)::                                           \
         BOOST_PP_SEQ_FOR_EACH_I(TRAILING_NSQUALIFIER, ,                              \
         BOOST_PP_SEQ_SUBSEQ(elem,0,BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1)))         \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem)              \
         BOOST_PP_SEQ_ELEM(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),elem);             \
        BOOST_PP_REPEAT(BOOST_PP_SUB(BOOST_PP_SEQ_SIZE(elem),1),END_NAMESPACE, )      \
      }                                                                               \
    }

#endif //__gambit_main_hpp__

#ifdef STANDALONE
  #undef __gambit_main_hpp__
#endif

/// Set default backend version for BOSSed types.
#define SET_DEFAULT_VERSION_FOR_LOADING_TYPES(BE, VER, DEFAULT)                       \
REGISTER_DEFAULT(BE, VER, DEFAULT)                                                    \
BOOST_PP_SEQ_FOR_EACH(PRE_TYPEDEFAULT, (CAT_3(BE,_,VER))(CAT_3(BE,_,DEFAULT))(BE),    \
 CAT_5(BE,_,DEFAULT,_,all_data) )

/// Open a namespace
#define START_NAMESPACE(r,data,i,elem) namespace elem {

/// Close a namespace.
#define END_NAMESPACE(z,n,data) }

/// An entry with a trailing namespace qualifier
#define TRAILING_NSQUALIFIER(r,data,i,elem) elem::

// Strip out the actual type info sequence from the all_data entry.
#define PRE_TYPEDEFAULT(r,data,elem) TYPEDEFAULT(r,data,BOOST_PP_TUPLE_ELEM(2,0,elem))

// For testing whether a given backend version's classes have been loaded or not
#define ALREADY_LOADED(BE) CAT_3(__loaded_types_,BE,_hpp__)

#endif //__type_macros_hpp__

Updated on 2024-07-18 at 13:53:32 +0000