32 lines
1.0 KiB
Perl
32 lines
1.0 KiB
Perl
|
/*
|
|||
|
|
* m_36_jis.t: Handling of 0x5c ('\\'), 0x22 ('"'), 0x27 ('\'')
|
|||
|
|
* in ISO-2022-JP multi-byte character.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#define str( a) # a
|
|||
|
|
|
|||
|
|
/* 36.1: 0x5c in multi-byte character is not an escape character. */
|
|||
|
|
|
|||
|
|
#pragma __setlocale( "jis") /* For MCPP */
|
|||
|
|
#pragma setlocale( "jis") /* For MCPP on VC */
|
|||
|
|
|
|||
|
|
#if '$B;z(B' == '\x3b\x7a' && '$B0\(B' != '\x30\x5c'
|
|||
|
|
Bad handling of '\\' in multi-byte character.
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
/* 36.2: # operater should not insert '\\' before 0x5c in multi-byte
|
|||
|
|
character. */
|
|||
|
|
str( "$B0\F0(B");
|
|||
|
|
/* \x22\x5c\x22\x30\x5c\x46\x30\x5c\x22\x22 with shift-sequence */
|
|||
|
|
|
|||
|
|
/* 36.3: # operater should not insert '\\' before 0x22 in multi-byte
|
|||
|
|
character. */
|
|||
|
|
str( "$B1"M[(B");
|
|||
|
|
/* \x22\x5c\x22\x31\x22\x4d\x5b\x5c\x22\x22 with shift-sequence */
|
|||
|
|
|
|||
|
|
/* 36.4: # operater should not insert '\\' before 0x27 in multi-byte
|
|||
|
|
character. */
|
|||
|
|
str( "$B1'Ch(B");
|
|||
|
|
/* \x22\x5c\x22\x31\x27\x43\x68\x5c\x22\x22 with shift-sequence */
|
|||
|
|
|