24 lines
608 B
Perl
24 lines
608 B
Perl
|
/* n_cnvucn.t: C++ Conversion from multi-byte character to UCN. */
|
|||
|
|
/* This conversion takes place in the translation phase 1. */
|
|||
|
|
|
|||
|
|
#define str( a) # a
|
|||
|
|
|
|||
|
|
/* "\"\u6F22\u5B57\"" or "\"\\u6F22\\u5B57\"" */
|
|||
|
|
str( "<22><><EFBFBD><EFBFBD>")
|
|||
|
|
|
|||
|
|
/* 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));
|
|||
|
|
|