Untitled

Iterating Variadic Macro Arguments

SET_STATE(FunctorA,a,b);

 

ref a;

ref b;

FunctorA(ref a, ref b){

   this->a = a;

   this->b = b;

}

       

#define VA_NARGS_IMPL(_1,_2,_3,_4,_5,_6,_7,_8,N,...) N

#define VA_NARGS(...) VA_NARGS_IMPL(__VA_ARGS__, 8, 7, 6, 5, 4, 3, 2, 1)

#define SET_STATEGENERATE(name, count, ...)            

        dec ## count (__VA_ARGS__)                      

        name(ref ## count (__VA_ARGS__)) {              

            con ## count (__VA_ARGS__)                  

        }

#define SET_STATEP(name, count, ...) SET_STATEGENERATE(name, count, __VA_ARGS__)

#define SET_STATE(name, ...) SET_STATEP(name, VA_NARGS(__VA_ARGS__), __VA_ARGS__)

/* args */

#define dec1(a) ref a;

#define dec2(a,b) dec1(a) ref b;

#define dec3(a,b,c) dec2(a, b) ref c;

#define dec4(a,b,c,d) dec3(a,b,c) ref d;

#define dec5(a,b,c,d,e) dec4(a,b,c,d) ref e;

#define dec6(a,b,c,d,e,f) dec5(a,b,c,d,e) ref f;

#define dec7(a,b,c,d,e,f,g) dec6(a,b,c,d,e,f)ref g;

#define dec8(a,b,c,d,e,f,g,h) dec7(a,b,c,d,e,f,g) ref h;

#define ref1(a) ref a

#define ref2(a,b) ref1(a), ref b

#define ref3(a,b,c) ref2(a,b), ref c

#define ref4(a,b,c,d) ref3(a,b,c), ref d

#define ref5(a,b,c,d,e) ref4(a,b,c,d), ref e

#define ref6(a,b,c,d,e,f) ref5(a,b,c,d,e), ref f

#define ref7(a,b,c,d,e,f,g) ref6(a,b,c,d,e,f), ref g

#define ref8(a,b,c,d,e,f,g, h) ref7(a,b,c,d,e,f,g), ref h

#define con1(a) this->a = a;

#define con2(a,b) con1(a) this->b = b;

#define con3(a,b,c) con2(a,b) this->c = c;

#define con4(a,b,c,d) con3(a,b,c) this->d = d;

#define con5(a,b,c,d,e) con4(a,b,c,d) this->e = e;

#define con6(a,b,c,d,e,f) con5(a,b,c,d,e) this->f = f;

#define con7(a,b,c,d,e,f,g) con6(a,b,c,d,e,f) this->g = g;

#define con8(a,b,c,d,e,f,g,h) con7(a,b,c,d,e,f,g) this->h = h;

       

/* 2 args */

SET_STATE(FunctorAA, foo, bar)

/* 3 args */

SET_STATE(FunctorBB, foo, bar, baz)

/* 4 args */    

SET_STATE(FunctorCC, foo, bar, baz, qux)

       

ref foo; ref bar; FunctorAA(ref foo, ref bar) { this->foo = foo; this->bar = bar; }

ref foo; ref bar; ref baz; FunctorBB(ref foo, ref bar, ref baz) { this->foo = foo; this->bar = bar; this->baz = baz; }

ref foo; ref bar; ref baz; ref qux; FunctorCC(ref foo, ref bar, ref baz, ref qux) { this->foo = foo; this->bar = bar; this->baz = baz; this->qux = qux; }

       

#include <boost/preprocessor/seq/for_each.hpp>

#include <boost/preprocessor/seq/for_each_i.hpp>

#include <boost/preprocessor/punctuation/comma_if.hpp>

 

#define DEF_MEMBER( r, data, elem ) ref elem;

#define DEF_PARAM( r, data, i, elem ) BOOST_PP_COMMA_IF( i ) ref elem

#define DEF_ASSIGN( r, data, elem ) this->elem = elem;

 

#define SET_STATE( f, members )                        

  BOOST_PP_SEQ_FOR_EACH( DEF_MEMBER,, members )        

  f( BOOST_PP_SEQ_FOR_EACH_I( DEF_PARAM,, members ) ) {

      BOOST_PP_SEQ_FOR_EACH( DEF_ASSIGN,, members )    

  }

 

SET_STATE(FunctorA,(a)(b))

       

ref a; ref b; FunctorA( ref a , ref b ) { this->a = a; this->b = b; }