From fe86b3b137682db5c3764f016ee60a3bb5e65421 Mon Sep 17 00:00:00 2001 From: olpc user Date: Fri, 13 Dec 2019 11:42:15 -0800 Subject: bugfix for macro habits with more than one argument --- starts/meaning-vm/level-0/common.hpp | 48 ++++++++++++++++++------------------ starts/meaning-vm/level-2/sugar.hpp | 6 +++-- 2 files changed, 28 insertions(+), 26 deletions(-) (limited to 'starts') diff --git a/starts/meaning-vm/level-0/common.hpp b/starts/meaning-vm/level-0/common.hpp index d75229d..cc56d7f 100644 --- a/starts/meaning-vm/level-0/common.hpp +++ b/starts/meaning-vm/level-0/common.hpp @@ -13,37 +13,37 @@ #define _macro_expand_to_arg2(_1, arg, ...) arg // macro argument iteration, from stackoverflow.com/questions/1872220 -#define _macro_for_each(funcormacro,...) \ +#define _macro_for_each(firstfuncormacro,restfuncormacro,...) \ _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, ...) - #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__) + )(firstfuncormacro,restfuncormacro,__VA_ARGS__) + #define _macro_fe_0(first,rest, ...) + #define _macro_fe_1(first,rest, x, ...) first(x)_macro_fe_0(rest,rest, __VA_ARGS__) + #define _macro_fe_2(first,rest, x, ...) first(x)_macro_fe_1(rest,rest, __VA_ARGS__) + #define _macro_fe_3(first,rest, x, ...) first(x)_macro_fe_2(rest,rest, __VA_ARGS__) + #define _macro_fe_4(first,rest, x, ...) first(x)_macro_fe_3(rest,rest, __VA_ARGS__) + #define _macro_fe_5(first,rest, x, ...) first(x)_macro_fe_4(rest,rest, __VA_ARGS__) + #define _macro_fe_6(first,rest, x, ...) first(x)_macro_fe_5(rest,rest, __VA_ARGS__) + #define _macro_fe_7(first,rest, x, ...) first(x)_macro_fe_6(rest,rest, __VA_ARGS__) + #define _macro_fe_8(first,rest, x, ...) first(x)_macro_fe_7(rest,rest, __VA_ARGS__) + #define _macro_fe_9(first,rest, x, ...) first(x)_macro_fe_8(rest,rest, __VA_ARGS__) #define _macro_fe_get( \ _0,_1,_2,_3,_4,_5,_6,_7,_8,_9, \ name,...) name -#define _macro_for_each_parens(funcormacro,...) \ +#define _macro_for_each_parens(firstfuncormacro,restfuncormacro,...) \ _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__) + )(firstfuncormacro,restfuncormacro,__VA_ARGS__) + #define _macro_fep0(first,rest, ...) + #define _macro_fep1(first,rest, x, ...) first x _macro_fep0(rest,rest, __VA_ARGS__) + #define _macro_fep2(first,rest, x, ...) first x _macro_fep1(rest,rest, __VA_ARGS__) + #define _macro_fep3(first,rest, x, ...) first x _macro_fep2(rest,rest, __VA_ARGS__) + #define _macro_fep4(first,rest, x, ...) first x _macro_fep3(rest,rest, __VA_ARGS__) + #define _macro_fep5(first,rest, x, ...) first x _macro_fep4(rest,rest, __VA_ARGS__) + #define _macro_fep6(first,rest, x, ...) first x _macro_fep5(rest,rest, __VA_ARGS__) + #define _macro_fep7(first,rest, x, ...) first x _macro_fep6(rest,rest, __VA_ARGS__) + #define _macro_fep8(first,rest, x, ...) first x _macro_fep7(rest,rest, __VA_ARGS__) + #define _macro_fep9(first,rest, x, ...) first x _macro_fep8(rest,rest, __VA_ARGS__) namespace intellect { namespace level0 { diff --git a/starts/meaning-vm/level-2/sugar.hpp b/starts/meaning-vm/level-2/sugar.hpp index e0dfcd9..bff945b 100644 --- a/starts/meaning-vm/level-2/sugar.hpp +++ b/starts/meaning-vm/level-2/sugar.hpp @@ -23,7 +23,7 @@ #define ahabit(name, argnametoklist, ...) \ intellect::level2::makehabit( \ name, \ - {_macro_call(_macro_for_each_parens, _macro_habit_argnameref _macro_comma_remove_parens(argnametoklist))}, \ + {_macro_call(_macro_for_each_parens, _macro_habit_argnameref, _macro_habit_commaargnameref _macro_comma_remove_parens(argnametoklist))}, \ (std::function) \ [=](ref ctx) \ { \ @@ -32,11 +32,13 @@ usleep(delay); \ } \ ref self = name; (void)self; \ - _macro_call(_macro_for_each_parens, _macro_habit_set_posarg _macro_comma_remove_parens(argnametoklist)); \ + _macro_call(_macro_for_each_parens, _macro_habit_set_posarg, _macro_habit_set_posarg _macro_comma_remove_parens(argnametoklist)); \ __VA_ARGS__ \ }); #define _macro_habit_argnameref(name, tok) \ ref(#name) + #define _macro_habit_commaargnameref(name, tok) \ + , ref(#name) #define _macro_habit_set_posarg(name, tok) \ ref tok = ctx[ref(#name)]; -- cgit v1.2.3