Fold Macro

#ifndef THIS_IS_MACRO_EXPAND_HELLO_THERE

#include <stdio.h>

#include <stdint.h>

#include <stdlib.h>

#endif

static void EmptyCall(){}

#define EXPAND(X) X

#define REMOVEBRACKET(...) __VA_ARGS__

#define TOSTRING_(a) #a

#define TOSTRING(a) TOSTRING_(a)

#define NUM_ARGS_(X32, X31, X30, X29, X28, X27, X26, X25, \

X24, X23, X22, X21, X20, X19, X18, X17, X16, X15, X14, X13, \

X12, X11, X10, X9, X8, X7, X6, X5, X4, X3, X2, X1, N, ...) N

#define NUM_ARGS(...) EXPAND(NUM_ARGS_(__VA_ARGS__, 32, 31, 30, \

29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, \

15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1))

#define FIRSTARG(X, ...) (X)

#define RESTARGS(X, ...) (__VA_ARGS__)

#define FIRSTTWOARG(X, Y, ...) (X,Y)

#define RESTTWOARG(X, Y, ...) (__VA_ARGS__)

#define FOREACH(MACRO, ...) FOREACH_(MACRO, (__VA_ARGS__))

#define FOREACH_(MACRO, ...) FOREACH__(NUM_ARGS __VA_ARGS__, MACRO, __VA_ARGS__)

#define FOREACH__(N, M, ...) FOREACH___(N, M, __VA_ARGS__)

#define FOREACH___(N, M, ...) FOREACH_##N(M, __VA_ARGS__)

#define FOREACH_1(M, ...) M __VA_ARGS__

#define FOREACH_2(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_1(M, RESTARGS __VA_ARGS__)

#define FOREACH_3(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_2(M, RESTARGS __VA_ARGS__)

#define FOREACH_4(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_3(M, RESTARGS __VA_ARGS__)

#define FOREACH_5(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_4(M, RESTARGS __VA_ARGS__)

#define FOREACH_6(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_5(M, RESTARGS __VA_ARGS__)

#define FOREACH_7(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_6(M, RESTARGS __VA_ARGS__)

#define FOREACH_8(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_7(M, RESTARGS __VA_ARGS__)

#define FOREACH_9(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_8(M, RESTARGS __VA_ARGS__)

#define FOREACH_10(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_9(M, RESTARGS __VA_ARGS__)

#define FOREACH_11(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_10(M, RESTARGS __VA_ARGS__)

#define FOREACH_12(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_11(M, RESTARGS __VA_ARGS__)

#define FOREACH_13(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_12(M, RESTARGS __VA_ARGS__)

#define FOREACH_14(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_13(M, RESTARGS __VA_ARGS__)

#define FOREACH_15(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_14(M, RESTARGS __VA_ARGS__)

#define FOREACH_16(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_15(M, RESTARGS __VA_ARGS__)

#define FOREACH_17(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_16(M, RESTARGS __VA_ARGS__)

#define FOREACH_18(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_17(M, RESTARGS __VA_ARGS__)

#define FOREACH_19(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_18(M, RESTARGS __VA_ARGS__)

#define FOREACH_20(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_19(M, RESTARGS __VA_ARGS__)

#define FOREACH_21(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_20(M, RESTARGS __VA_ARGS__)

#define FOREACH_22(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_21(M, RESTARGS __VA_ARGS__)

#define FOREACH_23(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_22(M, RESTARGS __VA_ARGS__)

#define FOREACH_24(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_23(M, RESTARGS __VA_ARGS__)

#define FOREACH_25(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_24(M, RESTARGS __VA_ARGS__)

#define FOREACH_26(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_25(M, RESTARGS __VA_ARGS__)

#define FOREACH_27(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_26(M, RESTARGS __VA_ARGS__)

#define FOREACH_28(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_27(M, RESTARGS __VA_ARGS__)

#define FOREACH_29(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_28(M, RESTARGS __VA_ARGS__)

#define FOREACH_30(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_29(M, RESTARGS __VA_ARGS__)

#define FOREACH_31(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_30(M, RESTARGS __VA_ARGS__)

#define FOREACH_32(M, ...) EXPAND(M FIRSTARG __VA_ARGS__) FOREACH_31(M, RESTARGS __VA_ARGS__)

#define FOLD(MACRO, ...) FOLD_(MACRO, (__VA_ARGS__))

#define FOLD_(MACRO, ...) FOLD__(NUM_ARGS __VA_ARGS__, MACRO, __VA_ARGS__)

#define FOLD__(N, M, ...) FOLD___(N, M, __VA_ARGS__)

#define FOLD___(N, M, ...) FOLD____(N, M, (EXPAND(M FIRSTTWOARG __VA_ARGS__),EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD____(N, M, ...) FOLD_##N(M, __VA_ARGS__)

#define FOLD_END(RESULT) RESULT

#define FOLD_2__(...) FOLD_END(EXPAND(REMOVEBRACKET __VA_ARGS__))

#define FOLD_2_(M, ...) FOLD_2__(FIRSTARG (__VA_ARGS__))

#define FOLD_2(M, ...) FOLD_2_( M, EXPAND(REMOVEBRACKET __VA_ARGS__) )

#define FOLD_3_(M, ...) FOLD_END(EXPAND __VA_ARGS__)

#define FOLD_3(M, ...) FOLD_3_( M, ( M FIRSTTWOARG __VA_ARGS__))

#define FOLD_4_(M, ...) FOLD_3(M,__VA_ARGS__)

#define FOLD_4(M, ...) FOLD_4_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_5_(M, ...) FOLD_4(M,__VA_ARGS__)

#define FOLD_5(M, ...) FOLD_5_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_6_(M, ...) FOLD_5(M,__VA_ARGS__)

#define FOLD_6(M, ...) FOLD_6_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_7_(M, ...) FOLD_6(M,__VA_ARGS__)

#define FOLD_7(M, ...) FOLD_7_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_8_(M, ...) FOLD_7(M,__VA_ARGS__)

#define FOLD_8(M, ...) FOLD_8_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_9_(M, ...) FOLD_8(M,__VA_ARGS__)

#define FOLD_9(M, ...) FOLD_9_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_10_(M, ...) FOLD_9(M,__VA_ARGS__)

#define FOLD_10(M, ...) FOLD_10_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_11_(M, ...) FOLD_10(M,__VA_ARGS__)

#define FOLD_11(M, ...) FOLD_11_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_12_(M, ...) FOLD_11(M,__VA_ARGS__)

#define FOLD_12(M, ...) FOLD_12_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_13_(M, ...) FOLD_12(M,__VA_ARGS__)

#define FOLD_13(M, ...) FOLD_13_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_14_(M, ...) FOLD_13(M,__VA_ARGS__)

#define FOLD_14(M, ...) FOLD_14_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_15_(M, ...) FOLD_14(M,__VA_ARGS__)

#define FOLD_15(M, ...) FOLD_15_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_16_(M, ...) FOLD_15(M,__VA_ARGS__)

#define FOLD_16(M, ...) FOLD_16_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_17_(M, ...) FOLD_16(M,__VA_ARGS__)

#define FOLD_17(M, ...) FOLD_17_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_18_(M, ...) FOLD_17(M,__VA_ARGS__)

#define FOLD_18(M, ...) FOLD_18_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_19_(M, ...) FOLD_18(M,__VA_ARGS__)

#define FOLD_19(M, ...) FOLD_19_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_20_(M, ...) FOLD_19(M,__VA_ARGS__)

#define FOLD_20(M, ...) FOLD_20_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_21_(M, ...) FOLD_20(M,__VA_ARGS__)

#define FOLD_21(M, ...) FOLD_21_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_22_(M, ...) FOLD_21(M,__VA_ARGS__)

#define FOLD_22(M, ...) FOLD_22_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_23_(M, ...) FOLD_22(M,__VA_ARGS__)

#define FOLD_23(M, ...) FOLD_23_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_24_(M, ...) FOLD_23(M,__VA_ARGS__)

#define FOLD_24(M, ...) FOLD_24_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_25_(M, ...) FOLD_24(M,__VA_ARGS__)

#define FOLD_25(M, ...) FOLD_25_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_26_(M, ...) FOLD_25(M,__VA_ARGS__)

#define FOLD_26(M, ...) FOLD_26_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_27_(M, ...) FOLD_26(M,__VA_ARGS__)

#define FOLD_27(M, ...) FOLD_27_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_28_(M, ...) FOLD_27(M,__VA_ARGS__)

#define FOLD_28(M, ...) FOLD_28_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_29_(M, ...) FOLD_28(M,__VA_ARGS__)

#define FOLD_29(M, ...) FOLD_29_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_30_(M, ...) FOLD_29(M,__VA_ARGS__)

#define FOLD_30(M, ...) FOLD_30_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_31_(M, ...) FOLD_30(M,__VA_ARGS__)

#define FOLD_31(M, ...) FOLD_31_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define FOLD_32_(M, ...) FOLD_31(M,__VA_ARGS__)

#define FOLD_32(M, ...) FOLD_32_(M,(M FIRSTTWOARG __VA_ARGS__, EXPAND(REMOVEBRACKET RESTTWOARG __VA_ARGS__)))

#define CONCAT_(a, b) a##b

#define CONCAT(...) FOLD(CONCAT_, __VA_ARGS__)

// Tests

//--------------------------------------------------------------------------------

//FOLD(bar,1,2)

//--------------------------------------------------------------------------------

//FOLD(foo,1,2,3)

//--------------------------------------------------------------------------------

//FOLD(dea,1,2,3,4)

//--------------------------------------------------------------------------------

//CONCAT(a,b)

//--------------------------------------------------------------------------------

//CONCAT(a,b,c)

//--------------------------------------------------------------------------------

//CONCAT(a,b,c,d)

typedef uint8_t u8;

typedef uint16_t u16;

typedef uint32_t u32;

typedef uint64_t u64;

typedef char s8;

typedef int16_t s16;

typedef int32_t s32;

typedef int64_t s64;

typedef bool b8;

typedef float f32;

typedef double f64;

typedef uintptr_t uptr;

typedef intptr_t sptr;

#define MAX_(a, b) ((a) > (b) ? (a) : (b))

#define MAX(...) FOLD(MAX_, __VA_ARGS__)

struct string{

s32 Size;

s32 Pos;

s8 *String;

};

#define Concat(...) FOLD(Concat_, __VA_ARGS__)

string *Concat_(string *Buffer, s8 *StringIn)

{

for(s32 i = 0, j = Buffer->Pos;

StringIn[i] != 0 && j < Buffer->Size - 1;

++i, ++j, ++Buffer->Pos)

{

Buffer->String[j] = StringIn[i];

}

return Buffer;

}

string *Concat_(string *Buffer, f64 NumberIn)

{

s8 TempBuffer[20];

snprintf(TempBuffer, 20, "%g", NumberIn);

Concat_(Buffer, TempBuffer);

return Buffer;

}

s32 main()

{

string SomeBuffer;

SomeBuffer.Size = 50;

SomeBuffer.Pos = 0;

SomeBuffer.String = (s8 *)calloc(1, 50);

FOLD(Concat_, &SomeBuffer, "tera_", 10.0, "dwera_", 32.07, "tag\n");

printf("String Concat(): %s", SomeBuffer.String);

printf("Macro CONCAT(): " TOSTRING( CONCAT(eple_, 2, _ter_, 9, _ea) ) "\n");

printf("FOLD(): " TOSTRING( FOLD(bar,1,2) ) "\n");

printf("FOLD(): " TOSTRING( FOLD(bar,1,2,3,4) ) "\n");

printf("MAX(): %i\n", MAX(32, 43) );

printf("MAX(): %i\n", MAX(1, 2, 3, 4, 5) );

return 0;

}