Blame test-c/n_25.c

Packit Service 8bf002
/* n_25.c:  Macro arguments are pre-expanded (unless the argument is an
Packit Service 8bf002
        operand of # or ## operator) separately, that is, are macro-replaced
Packit Service 8bf002
        completely prior to rescanning. */
Packit Service 8bf002
Packit Service 8bf002
#include    "defs.h"
Packit Service 8bf002
Packit Service 8bf002
#define ZERO_TOKEN
Packit Service 8bf002
#define MACRO_0         0
Packit Service 8bf002
#define MACRO_1         1
Packit Service 8bf002
#define TWO_ARGS        a,b
Packit Service 8bf002
#define sub( x, y)      (x - y)
Packit Service 8bf002
#define glue( a, b)     a ## b
Packit Service 8bf002
#define xglue( a, b)    glue( a, b)
Packit Service 8bf002
#define str( a)         # a
Packit Service 8bf002
Packit Service 8bf002
main( void)
Packit Service 8bf002
{
Packit Service 8bf002
    int     a = 1, b = 2, abc = 3, MACRO_0MACRO_1 = 2;
Packit Service 8bf002
Packit Service 8bf002
    fputs( "started\n", stderr);
Packit Service 8bf002
Packit Service 8bf002
/* 25.1:    "TWO_ARGS" is read as one argument to "sub", then expanded to
Packit Service 8bf002
        "a,b", then "x" is substituted by "a,b".    */
Packit Service 8bf002
    assert( sub( TWO_ARGS, 1) == 1);
Packit Service 8bf002
Packit Service 8bf002
/* 25.2:    An argument pre-expanded to 0-token.    */
Packit Service 8bf002
/*  ( - 1); */
Packit Service 8bf002
    assert( sub( ZERO_TOKEN, a) == -1);
Packit Service 8bf002
Packit Service 8bf002
/* 25.3:    "glue( a, b)" is pre-expanded.  */
Packit Service 8bf002
    assert( xglue( glue( a, b), c) == 3);
Packit Service 8bf002
Packit Service 8bf002
/* 25.4:    Operands of ## operator are not pre-expanded.   */
Packit Service 8bf002
    assert( glue( MACRO_0, MACRO_1) == 2);
Packit Service 8bf002
Packit Service 8bf002
/* 25.5:    Operand of # operator is not pre-expanded.  */
Packit Service 8bf002
    assert( strcmp( str( ZERO_TOKEN), "ZERO_TOKEN") == 0);
Packit Service 8bf002
Packit Service 8bf002
    fputs( "success\n", stderr);
Packit Service 8bf002
    return  0;
Packit Service 8bf002
}
Packit Service 8bf002