18 lines
447 B
Perl
18 lines
447 B
Perl
|
/* i_mbident.t: Multi-byte characters in identifier and pp-number. */
|
|||
|
|
|
|||
|
|
/* Multi-byte characters in identifier. */
|
|||
|
|
#define <20>ޥ<EFBFBD><DEA5><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
#define <20>ؿ<EFBFBD><D8BF>ͥޥ<CDA5><DEA5><EFBFBD>(<28><><EFBFBD><EFBFBD>1, <20><><EFBFBD><EFBFBD>2) <20><><EFBFBD><EFBFBD>1 ## <20><><EFBFBD><EFBFBD>2
|
|||
|
|
/* <20><><EFBFBD><EFBFBD>; */
|
|||
|
|
<EFBFBD>ޥ<EFBFBD><EFBFBD><EFBFBD>;
|
|||
|
|
/* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̾<EFBFBD><CCBE>; */
|
|||
|
|
<EFBFBD>ؿ<EFBFBD><EFBFBD>ͥޥ<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, ̾<EFBFBD><EFBFBD>);
|
|||
|
|
|
|||
|
|
/* Multi-byte character in pp-number. */
|
|||
|
|
#define mkname( a) a ## 1<><31>
|
|||
|
|
#define mkstr( a) xmkstr( a)
|
|||
|
|
#define xmkstr( a) # a
|
|||
|
|
/* "abc1<63><31>" */
|
|||
|
|
char * mkstr( mkname( abc));
|
|||
|
|
|