25 lines
645 B
Perl
25 lines
645 B
Perl
|
/* m_36_sjis.t: Handling of 0x5c in shift-JIS multi-byte character. */
|
|||
|
|
|
|||
|
|
#define str( a) # a
|
|||
|
|
|
|||
|
|
/* 36.1: 0x5c in multi-byte character is not an escape character */
|
|||
|
|
|
|||
|
|
#pragma __setlocale( "sjis") /* For MCPP */
|
|||
|
|
#pragma setlocale( "japanese") /* For Visual C */
|
|||
|
|
|
|||
|
|
#if '<27><>' == '\x8e\x9a' && '<27>\' != '\x95\x5c'
|
|||
|
|
Bad handling of '\\' in multi-byte character.
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
/* 36.ext and 36.2 are expanded to:
|
|||
|
|
"<22>\<5C><>"; "\"<22>\<5C><>\"";
|
|||
|
|
or "<22>\\<5C><>"; "\"<22>\\<5C><>\""; */
|
|||
|
|
|
|||
|
|
/* 36.ext: */
|
|||
|
|
"<22>\<5C><>";
|
|||
|
|
|
|||
|
|
/* 36.2: # operater should not insert '\\' before 0x5c in multi-byte
|
|||
|
|
character. */
|
|||
|
|
str( "<22>\<5C><>");
|
|||
|
|
|