7赞

如何使用C预处理器编写while循环？

作者：yzh148448 | 2023-09-02 15:03

如何解决《如何使用C预处理器编写while循环？》经验，为你挑选了6个好方法。

我从教育/黑客的角度来问这个问题,(我真的不想这样编码).

是否可以仅使用C预处理程序指令实现while循环.我知道宏不能递归扩展,那么如何实现呢？

1> Paul Fultz I..：

如果要实现while循环,则需要在预处理器中使用递归.最简单的递归方法是使用延迟表达式.延迟表达式是需要更多扫描才能完全展开的表达式:

#define EMPTY()
#define DEFER(id) id EMPTY()
#define OBSTRUCT(id) id DEFER(EMPTY)()
#define EXPAND(...) __VA_ARGS__

#define A() 123
A() // Expands to 123
DEFER(A)() // Expands to A () because it requires one more scan to fully expand
EXPAND(DEFER(A)()) // Expands to 123, because the EXPAND macro forces another scan

为什么这很重要？当扫描并扩展宏时,它会创建一个禁用上下文.此禁用上下文将导致引用当前展开的宏的标记被涂成蓝色.因此,一旦它涂成蓝色,宏将不再膨胀.这就是宏不递归扩展的原因.但是,禁用上下文仅在一次扫描期间存在,因此通过延迟扩展,我们可以防止我们的宏变为蓝色.我们只需要对表达式应用更多扫描.我们可以使用这个EVAL宏来做到这一点:

#define EVAL(...)  EVAL1(EVAL1(EVAL1(__VA_ARGS__)))
#define EVAL1(...) EVAL2(EVAL2(EVAL2(__VA_ARGS__)))
#define EVAL2(...) EVAL3(EVAL3(EVAL3(__VA_ARGS__)))
#define EVAL3(...) EVAL4(EVAL4(EVAL4(__VA_ARGS__)))
#define EVAL4(...) EVAL5(EVAL5(EVAL5(__VA_ARGS__)))
#define EVAL5(...) __VA_ARGS__

接下来,我们定义一些运算符来执行某些逻辑(例如if等):

#define CAT(a, ...) PRIMITIVE_CAT(a, __VA_ARGS__)
#define PRIMITIVE_CAT(a, ...) a ## __VA_ARGS__

#define CHECK_N(x, n, ...) n
#define CHECK(...) CHECK_N(__VA_ARGS__, 0,)

#define NOT(x) CHECK(PRIMITIVE_CAT(NOT_, x))
#define NOT_0 ~, 1,

#define COMPL(b) PRIMITIVE_CAT(COMPL_, b)
#define COMPL_0 1
#define COMPL_1 0

#define BOOL(x) COMPL(NOT(x))

#define IIF(c) PRIMITIVE_CAT(IIF_, c)
#define IIF_0(t, ...) __VA_ARGS__
#define IIF_1(t, ...) t

#define IF(c) IIF(BOOL(c))

现在有了所有这些宏,我们可以编写一个递归WHILE宏.我们使用WHILE_INDIRECT宏来递归地引用自身.这可以防止宏被涂成蓝色,因为它将在不同的扫描上展开(并使用不同的禁用上下文).的WHILE宏接受谓词宏,操作者宏,和一个状态(这是一个可变参数).它继续将此运算符宏应用于状态,直到谓词宏返回false(为0).

#define WHILE(pred, op, ...) \
    IF(pred(__VA_ARGS__)) \
    ( \
        OBSTRUCT(WHILE_INDIRECT) () \
        ( \
            pred, op, op(__VA_ARGS__) \
        ), \
        __VA_ARGS__ \
    )
#define WHILE_INDIRECT() WHILE

出于演示目的,我们将创建一个谓词,用于检查参数的数量是否为1:

#define NARGS_SEQ(_1,_2,_3,_4,_5,_6,_7,_8,N,...) N
#define NARGS(...) NARGS_SEQ(__VA_ARGS__, 8, 7, 6, 5, 4, 3, 2, 1)

#define IS_1(x) CHECK(PRIMITIVE_CAT(IS_1_, x))
#define IS_1_1 ~, 1,

#define PRED(x, ...) COMPL(IS_1(NARGS(__VA_ARGS__)))

接下来我们创建一个运算符,我们将只连接两个标记.我们还创建了一个最终运算符(称为M),它将处理最终输出:

#define OP(x, y, ...) CAT(x, y), __VA_ARGS__ 
#define M(...) CAT(__VA_ARGS__)

然后使用WHILE宏:

M(EVAL(WHILE(PRED, OP, x, y, z))) //Expands to xyz

当然,任何类型的谓词或运算符都可以传递给它.

你能为宏添加一些解释吗？这真的很难,但很难得到.所有那些交叉的反思.我没有得到最后一行.什么是'PRED`,因为它是通过取'x`和这里定义的:`M(EVAL(WHILE(**PRED**,OP,x,y,z)))//扩展到xyz`它不是拿什么

2> Andru Luvisi..：

您使用递归包含文件.不幸的是,你不能迭代循环超过预处理器允许的最大深度.

事实证明,C++模板是Turing Complete,可以以类似的方式使用.查看Generative Programming

3> CesarB..：

看一下Boost预处理器库,它允许您在预处理器中编写循环等等.

4> Windows prog..：

这是滥用合法完成规则的规则.编写自己的C预处理器.让它按照你想要的方式解释一些#pragma指令.

5> Robert Gould..：

我为此目的使用元模板编程,一旦你掌握了它就很有趣.并且在酌情使用时非常有用.因为如上所述它的图灵完成,甚至可以导致编译器进入无限循环或堆栈溢出!没有什么比得到一些咖啡只是为了找到你的编译使用超过30千兆字节的内存和所有的CPU来编译你的无限循环代码!

6> 小智..：

好吧,不是它是一个while循环,而是一个计数器循环,尽管如此,循环可以在干净的CPP(没有模板和没有C++)

#ifdef pad_always

#define pad(p,f) p##0

#else

#define pad0(p,not_used) p
#define pad1(p,not_used) p##0

#define pad(p,f) pad##f(p,)

#endif

// f - padding flag
// p - prefix so far
// a,b,c - digits
// x - action to invoke

#define n0(p,x)
#define n1(p,x)         x(p##1)
#define n2(p,x) n1(p,x) x(p##2)
#define n3(p,x) n2(p,x) x(p##3)
#define n4(p,x) n3(p,x) x(p##4)
#define n5(p,x) n4(p,x) x(p##5)
#define n6(p,x) n5(p,x) x(p##6)
#define n7(p,x) n6(p,x) x(p##7)
#define n8(p,x) n7(p,x) x(p##8)
#define n9(p,x) n8(p,x) x(p##9)

#define n00(f,p,a,x)                       n##a(pad(p,f),x)
#define n10(f,p,a,x) n00(f,p,9,x) x(p##10) n##a(p##1,x)
#define n20(f,p,a,x) n10(f,p,9,x) x(p##20) n##a(p##2,x)
#define n30(f,p,a,x) n20(f,p,9,x) x(p##30) n##a(p##3,x)
#define n40(f,p,a,x) n30(f,p,9,x) x(p##40) n##a(p##4,x)
#define n50(f,p,a,x) n40(f,p,9,x) x(p##50) n##a(p##5,x)
#define n60(f,p,a,x) n50(f,p,9,x) x(p##60) n##a(p##6,x)
#define n70(f,p,a,x) n60(f,p,9,x) x(p##70) n##a(p##7,x)
#define n80(f,p,a,x) n70(f,p,9,x) x(p##80) n##a(p##8,x)
#define n90(f,p,a,x) n80(f,p,9,x) x(p##90) n##a(p##9,x)

#define n000(f,p,a,b,x)                           n##a##0(f,pad(p,f),b,x)
#define n100(f,p,a,b,x) n000(f,p,9,9,x) x(p##100) n##a##0(1,p##1,b,x)
#define n200(f,p,a,b,x) n100(f,p,9,9,x) x(p##200) n##a##0(1,p##2,b,x)
#define n300(f,p,a,b,x) n200(f,p,9,9,x) x(p##300) n##a##0(1,p##3,b,x)
#define n400(f,p,a,b,x) n300(f,p,9,9,x) x(p##400) n##a##0(1,p##4,b,x)
#define n500(f,p,a,b,x) n400(f,p,9,9,x) x(p##500) n##a##0(1,p##5,b,x)
#define n600(f,p,a,b,x) n500(f,p,9,9,x) x(p##600) n##a##0(1,p##6,b,x)
#define n700(f,p,a,b,x) n600(f,p,9,9,x) x(p##700) n##a##0(1,p##7,b,x)
#define n800(f,p,a,b,x) n700(f,p,9,9,x) x(p##800) n##a##0(1,p##8,b,x)
#define n900(f,p,a,b,x) n800(f,p,9,9,x) x(p##900) n##a##0(1,p##9,b,x)

#define n0000(f,p,a,b,c,x)                               n##a##00(f,pad(p,f),b,c,x)
#define n1000(f,p,a,b,c,x) n0000(f,p,9,9,9,x) x(p##1000) n##a##00(1,p##1,b,c,x)
#define n2000(f,p,a,b,c,x) n1000(f,p,9,9,9,x) x(p##2000) n##a##00(1,p##2,b,c,x)
#define n3000(f,p,a,b,c,x) n2000(f,p,9,9,9,x) x(p##3000) n##a##00(1,p##3,b,c,x)
#define n4000(f,p,a,b,c,x) n3000(f,p,9,9,9,x) x(p##4000) n##a##00(1,p##4,b,c,x)
#define n5000(f,p,a,b,c,x) n4000(f,p,9,9,9,x) x(p##5000) n##a##00(1,p##5,b,c,x)
#define n6000(f,p,a,b,c,x) n5000(f,p,9,9,9,x) x(p##6000) n##a##00(1,p##6,b,c,x)
#define n7000(f,p,a,b,c,x) n6000(f,p,9,9,9,x) x(p##7000) n##a##00(1,p##7,b,c,x)
#define n8000(f,p,a,b,c,x) n7000(f,p,9,9,9,x) x(p##8000) n##a##00(1,p##8,b,c,x)
#define n9000(f,p,a,b,c,x) n8000(f,p,9,9,9,x) x(p##9000) n##a##00(1,p##9,b,c,x)

#define n00000(f,p,a,b,c,d,x)                                   n##a##000(f,pad(p,f),b,c,d,x)
#define n10000(f,p,a,b,c,d,x) n00000(f,p,9,9,9,9,x) x(p##10000) n##a##000(1,p##1,b,c,d,x)
#define n20000(f,p,a,b,c,d,x) n10000(f,p,9,9,9,9,x) x(p##20000) n##a##000(1,p##2,b,c,d,x)
#define n30000(f,p,a,b,c,d,x) n20000(f,p,9,9,9,9,x) x(p##30000) n##a##000(1,p##3,b,c,d,x)
#define n40000(f,p,a,b,c,d,x) n30000(f,p,9,9,9,9,x) x(p##40000) n##a##000(1,p##4,b,c,d,x)
#define n50000(f,p,a,b,c,d,x) n40000(f,p,9,9,9,9,x) x(p##50000) n##a##000(1,p##5,b,c,d,x)
#define n60000(f,p,a,b,c,d,x) n50000(f,p,9,9,9,9,x) x(p##60000) n##a##000(1,p##6,b,c,d,x)
#define n70000(f,p,a,b,c,d,x) n60000(f,p,9,9,9,9,x) x(p##70000) n##a##000(1,p##7,b,c,d,x)
#define n80000(f,p,a,b,c,d,x) n70000(f,p,9,9,9,9,x) x(p##80000) n##a##000(1,p##8,b,c,d,x)
#define n90000(f,p,a,b,c,d,x) n80000(f,p,9,9,9,9,x) x(p##90000) n##a##000(1,p##9,b,c,d,x)

#define cycle5(c1,c2,c3,c4,c5,x) n##c1##0000(0,,c2,c3,c4,c5,x)
#define cycle4(c1,c2,c3,c4,x) n##c1##000(0,,c2,c3,c4,x)
#define cycle3(c1,c2,c3,x) n##c1##00(0,,c2,c3,x)
#define cycle2(c1,c2,x) n##c1##0(0,,c2,x)
#define cycle1(c1,x) n##c1(,x)

#define concat(a,b,c) a##b##c

#define ck(arg) a[concat(,arg,-1)]++;
#define SIZEOF(x) (sizeof(x) / sizeof((x)[0]))

void check5(void)
{
    int i, a[32769];

    for (i = 0; i < SIZEOF(a); i++) a[i]=0;

    cycle5(3,2,7,6,9,ck);

    for (i = 0; i < SIZEOF(a); i++) if (a[i] != 1) printf("5: [%d] = %d\n", i+1, a[i]);
}

推荐阅读

程序员
Node.js Express-在完成处理整个请求之前提供HTTP响应

如何解决《Node.jsExpress-在完成处理整个请求之前提供HTTP响应》经验，为你挑选了0个好方法。 ... [详细]
程序员
swift中原生数组中的初始值设定项

如何解决《swift中原生数组中的初始值设定项》经验，为你挑选了1个好方法。 ... [详细]
程序员
获取下一个小时的时间戳

如何解决《获取下一个小时的时间戳》经验，为你挑选了1个好方法。 ... [详细]
程序员
用凌空上传多个图像？

如何解决《用凌空上传多个图像？》经验，为你挑选了0个好方法。 ... [详细]
程序员
屏幕上的C#WinForms程序中的闪烁清除

如何解决《屏幕上的C#WinForms程序中的闪烁清除》经验，为你挑选了1个好方法。 ... [详细]
程序员
如何git责备一个目录

如何解决《如何git责备一个目录》经验，为你挑选了1个好方法。 ... [详细]
程序员
在Dex阶段构建大型Codename One应用程序时出错

如何解决《在Dex阶段构建大型CodenameOne应用程序时出错》经验，为你挑选了2个好方法。 ... [详细]
程序员
PowerShell-Set-Culture似乎没有任何改变

如何解决《PowerShell-Set-Culture似乎没有任何改变》经验，为你挑选了0个好方法。 ... [详细]
程序员
MVC 5绕过Windows身份验证用户身份验证的用户

如何解决《MVC5绕过Windows身份验证用户身份验证的用户》经验，为你挑选了0个好方法。 ... [详细]
程序员
Opcache清除太快

如何解决《Opcache清除太快》经验，为你挑选了0个好方法。 ... [详细]
程序员
java,l = inputStream.readLine())!= null背后的原理逻辑

如何解决《java,l=inputStream.readLine())!=null背后的原理逻辑》经验，为你挑选了1个好方法。 ... [详细]
程序员
如何在Swift中删除AVPlayerViewController上的双击缩放功能

如何解决《如何在Swift中删除AVPlayerViewController上的双击缩放功能》经验，为你挑选了1个好方法。 ... [详细]
程序员
二进制运算符'&'不能应用于'SCNetworkReachabilityFlags'和'Int'类型的操作数

如何解决《二进制运算符'&'不能应用于'SCNetworkReachabilityFlags'和'Int'类型的操作数》经验，为你挑选了1个好方法。 ... [详细]
程序员
线性时间Euler的Totient函数计算

如何解决《线性时间Euler的Totient函数计算》经验，为你挑选了1个好方法。 ... [详细]
程序员
安装Rcompression软件包时出错

如何解决《安装Rcompression软件包时出错》经验，为你挑选了1个好方法。 ... [详细]
程序员
渲染问题无法加载LayoutLib:

如何解决《渲染问题无法加载LayoutLib:》经验，为你挑选了1个好方法。 ... [详细]
程序员
公共与受保护的抽象类方法

如何解决《公共与受保护的抽象类方法》经验，为你挑选了1个好方法。 ... [详细]
程序员
为什么没有调用构造函数？

如何解决《为什么没有调用构造函数？》经验，为你挑选了1个好方法。 ... [详细]
程序员
如何在IOS键盘顶部的键盘上添加完成按钮？

如何解决《如何在IOS键盘顶部的键盘上添加完成按钮？》经验，为你挑选了4个好方法。 ... [详细]
程序员
在两秒钟之后做一些事情

如何解决《在两秒钟之后做一些事情》经验，为你挑选了1个好方法。 ... [详细]

yzh148448

这个屌丝很懒，什么也没留下！

关注作者

Tags | 热门标签

RankList | 热门文章