/* ---------------------------------------------------------------------- */

#start
A
#include "incl.cc" // neco
B
#compare
A
I
B
#stop

/* ---------------------------------------------------------------------- */

#start
A
#compare
A
#stop

#start
#define A a
A
#compare
a
#stop

#start
A
#compare
a
#stop

#clear
#start
A
#compare
A
#stop

/* ---------------------------------------------------------------------- */

#clear
#start
#define A(x)x*x
A(a)
#compare
a*a
#stop

#start
#define A(x,y) x*y
A(a,b)
#compare
a*b
#stop

#start
#define A(x) x x
A(a)
#compare
a a
#stop

#start
#define A(x) x x
A (A (a))
#compare
a a a a
#stop

#start
#define A(x,y) {x,y}
#define B(u,v) [A(u,v)]
A(1,2);
B(1,2);
#compare
{1,2};
[{1,2}];
#stop

#clear
#start
#define F(x,y) x*y
F(int,c)
F ( char, d )  F (bool,e) F(char*,f);
#compare
int*c
char*d  bool*e char**f;
#stop

/* ---------------------------------------------------------------------- */

#start
#define A a
#define B b
#define AB z
#define C A##B
#define D A##b
C
D
#compare
z
Ab
#stop
#clear

/* ---------------------------------------------------------------------- */

#clear
#start
#define Mi micro
#define Ni nothing
#define MiNi small
#define Q Mi##Ni
#define Q2 Mi##Ni##Mum
int*Mi;
int*Ni;
float*Q;
double*Q2;
#compare
int*micro;
int*nothing;
float*small;
double*MiNiMum;
#stop

/* ---------------------------------------------------------------------- */

#clear
#start
#define AB printf("works\n")
#define C(a,b) a##b
#define D C(A,B)
D;
#compare
printf("works\n");
#stop

/* ---------------------------------------------------------------------- */

/* cpp.pdf */

#clear
#start
#define NUMBERS 1, \
                2, \
                3
int x[] = { NUMBERS };
#compare
int x[] = { 1, 2, 3 };
#stop

#clear
#start
#define TABLESIZE BUFSIZE
#define BUFSIZE 1024
TABLESIZE
#compare
1024
#stop

#clear
#start
#define neco() nic
neco
neco()
#compare
neco
nic
#stop

#clear
#start
#define lang_init() c_init()
lang_init()
#compare
c_init()
#stop

#clear
#start
#define lang_init ()   c_init()
lang_init()
#compare
() c_init()()
#stop

#clear
#start
#define min(X, Y) ((X) < (Y) ? (X) : (Y))
x = min(a, b);
#compare
x = ((a) < (b) ? (a) : (b));
#stop

#start
min (min (a, b), c)
#compare
((((a) < (b) ? (a) : (b))) < (c) ? (((a) < (b) ? (a) : (b))) : (c))
#stop

#start
min (,)
#compare
(() < () ? () : ())
#stop

#start
min ((,),)
#compare
(((,)) < () ? ((,)) : ())
#stop

#start
#define foo(x) x, "x"
foo(bar)
#compare
bar, "x"
#stop

#clear
#start
#define xstr(s) str(s)
#define str(s) #s
#define foo 4
str (foo)
#compare
"foo"
#stop

#start
xstr (foo)
#compare
"4"
#stop


#start
#define eprintf(...) fprintf (stderr, __VA_ARGS__)
eprintf ("%s:%d: ", input_file, lineno)
#compare
fprintf (stderr, "%s:%d: ", input_file, lineno)
#stop

#if 0
#clear
#start
#define eprintf(format, ...) fprintf (stderr, format, ##__VA_ARGS__)
eprintf ("success!\n")
#compare
fprintf(stderr, "success!\n");
#stop
#endif

#clear
#start
#define AFTERX(x) X_ ## x
#define XAFTERX(x) AFTERX(x)
#define TABLESIZE 1024
#define BUFSIZE TABLESIZE
AFTERX(BUFSIZE)
#compare
X_BUFSIZE
#stop

#start
XAFTERX(BUFSIZE)
#compare
X_1024
#stop

#if 0
#clear
#start
#define foo a,b
#define bar(x) lose(x)
#define lose(x) (1 + (x))
bar(foo)
#compare
(1 + (a,b))
#stop
#endif

#clear
#start
#define ignore_second_arg(a,b,c) a; c
ignore_second_arg (foo (),
                   ignored (),
                   something);
#compare
foo (); something;
#stop

/* cpp internals */

#clear
#start
#define foo(x) bar x
foo(foo) (2)
#compare
bar foo (2)
#stop

/* ---------------------------------------------------------------------- */