15 lines
430 B
Perl
15 lines
430 B
Perl
|
/* m_34_jis.t: Multi-byte character constant encoded in ISO-2022-JP. */
|
|||
|
|
|
|||
|
|
/* 34.1: */
|
|||
|
|
|
|||
|
|
#pragma __setlocale( "jis") /* For MCPP */
|
|||
|
|
#pragma setlocale( "jis") /* For MCPP on VC */
|
|||
|
|
|
|||
|
|
#if '$B;z(B' == '\x3b\x7a'
|
|||
|
|
/* This line doesn't work unless "shift states" are processed. */
|
|||
|
|
Multi-byte character is encoded in ISO-2022-JP.
|
|||
|
|
#else
|
|||
|
|
I cannot understand ISO-2022-JP.
|
|||
|
|
#endif
|
|||
|
|
|