虽然这样做是个坏主意,但它可以做到,所以这是一种方法。
如果您使用像Order 这样功能强大的元编程库(如上所述,Boost 是另一个可能的候选者),您实际上可以在预处理器中循环并定义递归宏。 Order 让您可以使用任何了解 Scheme 或 ML 的人都熟悉的函数式编程。
要循环,请使用for_each 构造。要简单地创建给定数量的东西,您可以使用 for_each_in_range 和 1, N+1:
ORDER_PP( // within this block Order code runs
8for_each_in_range(8fn(8_, 8print( (*) ) ),
1, 8)
)
上面将打印 7 颗星。您可以将元程序块封装在常规宏中,这些宏遵循正常的预处理器规则:
// print COUNT stars
#define STARS(COUNT) ORDER_PP( \
8for_each_in_range(8fn(8_, 8print((*)) ), 1, 8plus(COUNT, 1)) \
)
在ORDER_PP 块中,所有内容都假定为 Order 代码而不是 C 预处理器代码,这意味着只能调用已识别的 Order 函数(并且所有值/预处理标记必须是原始整数,或者用“引用” 8(val) 构造)。要将 stars 定义为 Order 函数而不是 CPP 宏,以便可以在 ORDER_PP 内作为嵌套表达式的一部分调用它,我们需要这样编写:
#define ORDER_PP_DEF_8stars ORDER_PP_FN( \
8fn(8C, 8for_each_in_range(8fn(8_, 8print((*)) ), 1, 8plus(8C, 1)) ))
ORDER_PP( 8stars(7) ) // prints 7 stars
Order 完全透明地提供递归,因此编写嵌套的初始化循环相对简单:
#define ORDER_PP_DEF_8ndim_init ORDER_PP_FN( \
8fn(8N, 8T, 8C, 8I, 8D, \
8do( \
8print( 8N (=malloc) 8lparen 8seq_head(8D) (*sizeof) 8lparen 8T 8stars(8minus(8C, 1)) 8rparen 8rparen (;) ), \
8if(8equal(8C, 1), \
8print(((void)0;)), \
8do( \
8print( (for) 8lparen (int) 8I (=0;) 8I (<) 8seq_head(8D) (;) 8I (++) 8rparen ({) ), \
8ndim_init(8adjoin(8N, 8([), 8I, 8(])), 8T, 8minus(8C, 1), 8cat(8I, 8(_K)), 8seq_tail(8D)), \
8print( (}) ) \
)))))
像这样调用ndim_init:
// print the nested initializer from the question
ORDER_PP(
8ndim_init(8(nda), 8(int), 3, 8(i), 8seq(8(n1), 8(n2), 8(n3)))
)
请注意,C 变量名称(nda、i 等)在出现在 ORDER_PP 块中时需要被引用,以便 Order 将它们视为文本,而不是尝试评估它们。最后一个参数是包含每个维度大小的运行时变量列表(8seq 构建一个列表,8 再次引用 C 变量名称)。
您可以将ndim_init 的调用打包到一个常规的预处理器宏中以便于访问,就像STARS 的第一个示例一样;您可以通过这种方式轻松地将它与声明器宏结合起来,在一次调用中发出声明和初始化:
#define NDIM(NAME, TYPE, ...) ORDER_PP ( \
8lets( (8D, 8((__VA_ARGS__))) \
(8C, 8tuple_size(8D)), \
8do( \
8print( (TYPE) 8stars(8C) (NAME; {) ), \
8ndim_init(8(NAME), 8(TYPE), 8C, 8(_ITER), 8tuple_to_seq(8D)), \
8print( (}) ) \
)) \
)
NDIM(nda, int, n1, n2, n3) // emits declaration and init block for int ***nda
More Order examples
如果上面的内容看起来一点都不简单……那就是人们说你不应该这样做的原因。 (如果是这样,对您有好处,但其他人将无法阅读您的代码。)