From 052144cabb126efe925a96f8a0597a0f2005d206 Mon Sep 17 00:00:00 2001 From: lemon Date: Mon, 23 Feb 2026 20:36:05 +0100 Subject: add metalang99 testsuite (preprocessor stress testing) --- test/external/metalang99/examples/rectangle.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 test/external/metalang99/examples/rectangle.c (limited to 'test/external/metalang99/examples/rectangle.c') diff --git a/test/external/metalang99/examples/rectangle.c b/test/external/metalang99/examples/rectangle.c new file mode 100644 index 0000000..1ab2bbf --- /dev/null +++ b/test/external/metalang99/examples/rectangle.c @@ -0,0 +1,25 @@ +// Computes the area of a rectangle. + +#include + +#define rect(width, height) ML99_tuple(width, height) +#define rectWidth ML99_tupleGet(0) +#define rectHeight ML99_tupleGet(1) + +#define rectArea(rect) ML99_mul(rectWidth(rect), rectHeight(rect)) + +/* + * 15 + * +------------------------------+ + * | | + * | | + * | | 7 + * | | + * | | + * +------------------------------+ + */ +#define RECTANGLE rect(v(15), v(7)) + +ML99_ASSERT_EQ(rectArea(RECTANGLE), v(15 * 7)); + +int main(void) {} -- cgit v1.2.3