This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

testcode/compiler/pptest1.c

@@ -0,0 +1,6 @@
+#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);		// Comment

testcode/compiler/pptest2.c

@@ -0,0 +1,19 @@
+#define x	3
+#define f(a)	f(x * (a))
+#undef	x
+#define x	2
+#define g	f
+#define z	z[0]
+#define h	g(~
+#define m(a)	a(w)
+#define w	0,1
+#define t(a)	a
+#define p()	int
+#define q(x)	x
+#define r(x,y)	x ## y
+#define str(x)	# x
+
+f(y+1) + f(f(z)) % t(t(g) (0) + t)(1);
+g(x+(3,4)-w) | h 5) & m(f)^m(m);
+p() i[q()] = { q(1), r(2,3), r(4,), r(,5), r(,) };
+char c[2][6] = { str(hello), str() };

testcode/compiler/pptest3.c

@@ -0,0 +1,16 @@
+#define str(s)		# s
+#define xstr(s)		str(s)
+#define debug(s, t)	printf("x" # s "= %d, x" # t "= %s", \
+			       x ## s, x ## t)
+#define INCFILE(n)	vers ## n	// Comment
+#define glue(a,b)	a ## b
+#define xglue(a,b)	glue(a,b)
+#define HIGHLOW		"hello"
+#define LOW		LOW ", world"
+
+debug (1, 2);
+fputs (str (strncmp("abc\0d", "abc", '\4') // Comment
+	    == 0) str (: @\n), s);
+glue (HIGH, LOW);
+xglue (HIGH, LOW);
+

testcode/compiler/pptest4.c

@@ -0,0 +1,3 @@
+#define t(x,y,z)	x ## y ## z
+int j[] = { t(1,2,3), t(,4,5), t(6,,7), t(8,9,), 
+  	    t(10,,), t(,11,), t(,,12), t(,,) };