1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
/* CFLAGS: -D CMD_WORKING -DV=void */
/* EXPECT:
ok /1 "\n"n ;.& 05.5 ADD(1,2)
hi from header ;73
Foo,5 9 1506
join: "x ## y"
wide L"abc123 猫,€á💫", U+1f98b
Output ends here
ok ...
11
11
token spacing:
++ -- ++ === (0)~> ++ 3>0$
sum = 1 + 2 +3;$
[ baz] ;$
+. *$
x=7 7
*/
#include "07-pp.h"
#include "07-pp.h"
#include <stddef.h>
#include <stdio.h>
#include <wchar.h>
#include <locale.h>
//
#define CATl(a) a##bar
#define CATr(a) foo##a
#define CAT(a,b) a##b
#define foobar() foo##bar
#define hash_hash # ## #
#define mkstr(a) # a
#define in_between(a) mkstr(a)
#define join(c, d) in_between(c hash_hash d)
char p[] = join(x, y); // equivalent to char p[] = "x ## y";
#define PUTS p\
u\
t\
s
#define gnu_ext(a, w, c...) a(w, ## c) __VA_OPT__(;)
# define STACK_OF(type) struct stack_st_##type
/* Helper macro for internal use */
# define SKM_DEFINE_STACK_OF_INTERNAL(t1, t2, t3) \
STACK_OF(t1); \
typedef int (*sk_##t1##_compfunc)(const t3 * const *a, const t3 *const *b); \
typedef void (*sk_##t1##_freefunc)(t3 *a); \
typedef t3 * (*sk_##t1##_copyfunc)(const t3 *a); \
struct crypto_ex_data_st {
void *ctx;
STACK_OF(void) *sk;
};
SKM_DEFINE_STACK_OF_INTERNAL(void, void, void)
char *strchr(const char *, int);
# define __glibc_const_generic(PTR, CTYPE, CALL) \
_Generic (0 ? (PTR) : (void *) 1, \
const void *: (CTYPE) (CALL), \
default: CALL)
#define indir(s,c) strchr(s,c)
#define strchr(S, C) __glibc_const_generic (S, const char *, indir(S, C))
static void f(void) {
(void)strchr("",0);
}
#define xcat(a,b) CAT(a,b)
#define uniq(p) xcat(p,__COUNTER__)
#define xcountertest(f) int f; f = 11; printf("%d\n", f);
#define countertest(v) xcountertest(uniq(v))
#ifdef CMD_WORKING
int
main(V)
#endif // comment
{
int CATl(foo);
++foobar;
--CATr(bar);
CAT(foo,bar) += 3;
foobar() /=2;
printf("%s %s\n",STR ( ok /1 "\n"n ;.&
05.5), STR(ADD(1,2)));
hi(ADD(Foo, SQR(Bar+1)));
int foo123 = 77;
printf("%s "
"%s %g\n", str(Foo,5), xstr(Foo), CAT(1.5,e3f) + CAT(7,)-CAT(,1));
printf("join: \"%s\"\n", p);
setlocale(LC_ALL, "en_US.utf8");
printf("wide L\"%ls\", U+%x\n", L"abc123 猫,€á💫", L'🦋');
PUT\
S\
("Output ends here\\
0Not printed" /* After line splicing, the remaining backslash
* escapes the 0, ending the string early.
*/
);
gnu_ext(printf, "ok %s", "...") gnu_ext(printf, "\n");
countertest(ww);
countertest/* comment
*/(ww);
#define PLUS +
#define EMPTY
(void)+PLUS(0); /* (void) + + 0 */
printf("token spacing:\n"
#define f(x) =x=
#define g(t,k) t##k>
xstr(+PLUS -EMPTY- PLUS+ f(=) (0)g(,~) g(+,+ 3)0) "$\n"
#define add(x, y, z) x + y +z;
xstr(sum = add (1,2, 3)) "$\n"
#define foo bar
#define bar EMPTY baz
#define EMPTY
#define EMPTY2 EMPTY
xstr([foo] EMPTY2;) "$\n"
#define qx1(...)/**/__VA_ARGS__
#define qx2(a) qx1 ( a )
xstr(+qx2 ( .)//
qx2(*) ) "$\n"
);
#define A(x,y) x=y
A(int x,
#if 1
7
#else
3
#endif
);
printf("x=%d %g\n",x, CAT(7,.));
CAT(ret,urn) 0;
}
|
