diff options
Diffstat (limited to 'starts/meaning-vm/level-0/common.hpp')
-rw-r--r-- | starts/meaning-vm/level-0/common.hpp | 46 |
1 files changed, 35 insertions, 11 deletions
diff --git a/starts/meaning-vm/level-0/common.hpp b/starts/meaning-vm/level-0/common.hpp index e06e478..d75229d 100644 --- a/starts/meaning-vm/level-0/common.hpp +++ b/starts/meaning-vm/level-0/common.hpp @@ -2,24 +2,48 @@ #define self (*this) +// macro tools +#define _macro_expand_to_args(...) __VA_ARGS__ +#define _macro_expand_to_comma_args(...) ,##__VA_ARGS__ +#define _macro_call(funcormacro, ...) funcormacro(__VA_ARGS__) +#define _macro_remove_parens(args) _macro_expand_to_args args +#define _macro_comma_remove_parens(args) _macro_expand_to_comma_args args + +#define _macro_expand_to_arg1(arg, ...) arg +#define _macro_expand_to_arg2(_1, arg, ...) arg + // macro argument iteration, from stackoverflow.com/questions/1872220 #define _macro_for_each(funcormacro,...) \ - _macro_fe_get(__VA_ARGS__, \ + _macro_fe_get(_0,##__VA_ARGS__, \ _macro_fe_9,_macro_fe_8,_macro_fe_7,_macro_fe_6,_macro_fe_5,_macro_fe_4,_macro_fe_3,_macro_fe_2,_macro_fe_1,_macro_fe_0 \ )(funcormacro,__VA_ARGS__) - #define _macro_fe_0(what, x, ...) what(x) - #define _macro_fe_1(what, x, ...) what(x)fe_0(what, __VA_ARGS__) - #define _macro_fe_2(what, x, ...) what(x)fe_1(what, __VA_ARGS__) - #define _macro_fe_3(what, x, ...) what(x)fe_2(what, __VA_ARGS__) - #define _macro_fe_4(what, x, ...) what(x)fe_3(what, __VA_ARGS__) - #define _macro_fe_5(what, x, ...) what(x)fe_4(what, __VA_ARGS__) - #define _macro_fe_6(what, x, ...) what(x)fe_5(what, __VA_ARGS__) - #define _macro_fe_7(what, x, ...) what(x)fe_6(what, __VA_ARGS__) - #define _macro_fe_8(what, x, ...) what(x)fe_7(what, __VA_ARGS__) - #define _macro_fe_9(what, x, ...) what(x)fe_8(what, __VA_ARGS__) + #define _macro_fe_0(what, ...) + #define _macro_fe_1(what, x, ...) what(x)_macro_fe_0(what, __VA_ARGS__) + #define _macro_fe_2(what, x, ...) what(x)_macro_fe_1(what, __VA_ARGS__) + #define _macro_fe_3(what, x, ...) what(x)_macro_fe_2(what, __VA_ARGS__) + #define _macro_fe_4(what, x, ...) what(x)_macro_fe_3(what, __VA_ARGS__) + #define _macro_fe_5(what, x, ...) what(x)_macro_fe_4(what, __VA_ARGS__) + #define _macro_fe_6(what, x, ...) what(x)_macro_fe_5(what, __VA_ARGS__) + #define _macro_fe_7(what, x, ...) what(x)_macro_fe_6(what, __VA_ARGS__) + #define _macro_fe_8(what, x, ...) what(x)_macro_fe_7(what, __VA_ARGS__) + #define _macro_fe_9(what, x, ...) what(x)_macro_fe_8(what, __VA_ARGS__) #define _macro_fe_get( \ _0,_1,_2,_3,_4,_5,_6,_7,_8,_9, \ name,...) name +#define _macro_for_each_parens(funcormacro,...) \ + _macro_fe_get(_0,##__VA_ARGS__, \ + _macro_fep9,_macro_fep8,_macro_fep7,_macro_fe_6,_macro_fep5,_macro_fep4,_macro_fep3,_macro_fep2,_macro_fep1,_macro_fep0 \ + )(funcormacro,__VA_ARGS__) + #define _macro_fep0(what, ...) + #define _macro_fep1(what, x, ...) what x _macro_fep0(what, __VA_ARGS__) + #define _macro_fep2(what, x, ...) what x _macro_fep1(what, __VA_ARGS__) + #define _macro_fep3(what, x, ...) what x _macro_fep2(what, __VA_ARGS__) + #define _macro_fep4(what, x, ...) what x _macro_fep3(what, __VA_ARGS__) + #define _macro_fep5(what, x, ...) what x _macro_fep4(what, __VA_ARGS__) + #define _macro_fep6(what, x, ...) what x _macro_fep5(what, __VA_ARGS__) + #define _macro_fep7(what, x, ...) what x _macro_fep6(what, __VA_ARGS__) + #define _macro_fep8(what, x, ...) what x _macro_fep7(what, __VA_ARGS__) + #define _macro_fep9(what, x, ...) what x _macro_fep8(what, __VA_ARGS__) namespace intellect { namespace level0 { |