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
|
/* 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 ...
*/
#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);
}
#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");
CAT(ret,urn) 0;
}
|
