25 lines
543 B
Perl
25 lines
543 B
Perl
|
/* n_18.t: #define directive. */
|
||
|
|
|
||
|
|
/* Excerpts from ISO C 6.8.3 "Examples". */
|
||
|
|
#define OBJ_LIKE (1-1)
|
||
|
|
#define FTN_LIKE(a) ( a )
|
||
|
|
|
||
|
|
#define ZERO_TOKEN
|
||
|
|
|
||
|
|
/* 18.1: Definition of an object-like macro. */
|
||
|
|
/* (1-1); */
|
||
|
|
OBJ_LIKE;
|
||
|
|
/* Macro defined to no token. */
|
||
|
|
/* ; */
|
||
|
|
ZERO_TOKEN;
|
||
|
|
|
||
|
|
/* 18.2: Definition of a function-like macro. */
|
||
|
|
/* ( c ); */
|
||
|
|
FTN_LIKE( c);
|
||
|
|
|
||
|
|
/* 18.3: Spelling in string identical to parameter is not a parameter. */
|
||
|
|
/* "n1:n2"; */
|
||
|
|
#define STR( n1, n2) "n1:n2"
|
||
|
|
STR( 1, 2);
|
||
|
|
|