/*++ Copyright (c) 1990-1998 Microsoft Corporation, All Rights Reserved Module Name: DICT2.C ++*/ #include "windows.h" #include "immdev.h" #include "fakeime.h" /**********************************************************************/ /* */ /* ConvChar() */ /* */ /* Roman character Kana converting function */ /* */ /**********************************************************************/ WORD PASCAL ConvChar( hIMC, ch1, ch2 ) HIMC hIMC; WORD ch1, ch2; { int num1, num2; #if defined(FAKEIMEM) || defined(UNICODE) static WCHAR table[15][5] = { { 0x30A2, 0x30A4, 0x30A6, 0x30A8, 0x30AA }, // A { 0x30AB, 0x30AD, 0x30AF, 0x30B1, 0x30B3 }, // K { 0x30B5, 0x30B7, 0x30B9, 0x30BB, 0x30BD }, // S { 0x30BF, 0x30C1, 0x30C4, 0x30C6, 0x30C8 }, // T { 0x30CA, 0x30CB, 0x30CC, 0x30CD, 0x30CE }, // N { 0x30CF, 0x30D2, 0x30D5, 0x30D8, 0x30DB }, // H { 0x30DE, 0x30DF, 0x30E0, 0x30E1, 0x30E2 }, // M { 0x30E4, 0x0000, 0x30E6, 0x0000, 0x30E8 }, // Y { 0x30E9, 0x30EA, 0x30EB, 0x30EC, 0x30ED }, // R { 0x30EF, 0x0000, 0x0000, 0x0000, 0x30F2 }, // W { 0x30AC, 0x30AE, 0x30B0, 0x30B2, 0x30B4 }, // G { 0x30B6, 0x30B8, 0x30BA, 0x30BC, 0x30BE }, // Z { 0x30C0, 0x30C2, 0x30C5, 0x30C7, 0x30C9 }, // D { 0x30D0, 0x30D3, 0x30D6, 0x30D9, 0x30DC }, // B { 0x30d1, 0x30d4, 0x30d7, 0x30da, 0x30dd } // p }; #else static unsigned char table[10][5] = { { 0xb1, 0xb2, 0xb3, 0xb4, 0xb5 }, // A { 0xb6, 0xb7, 0xb8, 0xb9, 0xba }, // K { 0xbb, 0xbc, 0xbd, 0xbe, 0xbf }, // S { 0xc0, 0xc1, 0xc2, 0xc3, 0xc4 }, // T { 0xc5, 0xc6, 0xc7, 0xc8, 0xc9 }, // N { 0xca, 0xcb, 0xcc, 0xcd, 0xce }, // H { 0xcf, 0xd0, 0xd1, 0xd2, 0xd3 }, // M { 0xd4, 0x00, 0xd5, 0x00, 0xd6 }, // Y { 0xd7, 0xd8, 0xd9, 0xda, 0xdb }, // R { 0xdc, 0x00, 0x00, 0x00, 0xa6 } // W }; static unsigned char table2[4][5] = { { 0xb6, 0xb7, 0xb8, 0xb9, 0xba }, // G { 0xbb, 0xbc, 0xbd, 0xbe, 0xbf }, // Z { 0xc0, 0xc1, 0xc2, 0xc3, 0xc4 }, // D { 0xca, 0xcb, 0xcc, 0xcd, 0xce } // B }; static unsigned char table3[1][5] = { { 0xca, 0xcb, 0xcc, 0xcd, 0xce } // P }; #endif num1 = IsFirst( ch1 ); num2 = IsSecond( ch2 ); #if defined(FAKEIMEM) || defined(UNICODE) return( (WORD)table[num1][num2-1] ); #else if( num1 <= 9 ) return( (WORD)table[num1][num2-1] ); else if( num1 <= 13 ) return( ((WORD)table2[num1-10][num2-1]) << 8 | (0x00de) ); else return( ((WORD)table3[num1-14][num2-1]) << 8 | (0x00df) ); #endif } /**********************************************************************/ /* */ /* IsFirst() */ /* */ /* A function which judges the vowels */ /* */ /**********************************************************************/ int PASCAL IsFirst( ch ) register WORD ch; { register int i; #if defined(FAKEIMEM) || defined(UNICODE) static WCHAR table0[] = MYTEXT("KSTNHMYRWGZDBP"); static WCHAR table1[] = MYTEXT("kstnhmyrwgzdbp"); #else static TCHAR table0[] = TEXT("KSTNHMYRWGZDBP"); ch = (WORD)(LONG_PTR)AnsiUpper( (LPSTR)(LONG_PTR)ch ); #endif for( i = 0; table0[i]; i++ ){ #if defined(FAKEIMEM) || defined(UNICODE) if( table0[i] == (WCHAR)ch ) return( i+1 ); if( table1[i] == (WCHAR)ch ) return( i+1 ); #else if( table0[i] == (char)ch ) return( i+1 ); #endif } return 0; } /**********************************************************************/ /* */ /* IsSecond() */ /* */ /* A function which judges the consonants */ /* */ /**********************************************************************/ int PASCAL IsSecond( ch ) register WORD ch; { register int i; #if defined(FAKEIMEM) || defined(UNICODE) static WCHAR table0[] = MYTEXT("AIUEO"); static WCHAR table1[] = MYTEXT("aiueo"); #else static TCHAR table0[] = TEXT("AIUEO"); ch = (WORD)(LONG_PTR)AnsiUpper( (LPSTR)(LONG_PTR)ch ); #endif for( i = 0; table0[i]; i++ ){ #if defined(FAKEIMEM) || defined(UNICODE) if( table0[i] == (WCHAR)ch ) return( i+1 ); if( table1[i] == (WCHAR)ch ) return( i+1 ); #else if( table0[i] == (char)ch ) return( i+1 ); #endif } return 0; } #if defined(FAKEIMEM) || defined(UNICODE) static WORD table1[] = { 0x3000, 0xFF01, 0x201D, 0xFF03, 0xFF04, 0xFF05, 0xFF06, 0x2019, 0xFF08, 0xFF09, 0xFF0A, 0xFF0B, 0xFF0C, 0xFF0D, 0xFF0E, 0x00F7 }; static WORD table2[] = { 0xFF1A, 0xFF1B, 0xFF1C, 0xFF1D, 0xFF1E, 0xFF1F }; static WORD table3[] = { 0xFF3B, 0xFFE5, 0xFF3D, 0xFF3E, 0xFF3F, 0x2018 }; static WORD table4[] = { 0xFF5B, 0xFF5C, 0xFF5D, 0xFF5E, 0x0000 }; static WORD table5[] = { 0x3002, 0x300C, 0x300D, 0x3001, 0x30FB, 0x3092, 0x3041, 0x3043, 0x3045, 0x3047, 0x3049, 0x3083, 0x3085, 0x3087, 0x3063, 0x30FC, 0x3042, 0x3044, 0x3046, 0x3048, 0x304A, 0x304B, 0x304D, 0x304F, 0x3051, 0x3053, 0x3055, 0x3057, 0x3059, 0x305B, 0x305D, 0x305F, 0x3061, 0x3064, 0x3066, 0x3068, 0x306A, 0x306B, 0x306C, 0x306D, 0x306E, 0x306F, 0x3072, 0x3075, 0x3078, 0x307B, 0x307E, 0x307F, 0x3080, 0x3081, 0x3082, 0x3084, 0x3086, 0x3088, 0x3089, 0x308A, 0x308B, 0x308C, 0x308D, 0x308F, 0x3093, 0x309B, 0x309C }; static WORD table6[] = { 0x3002, 0x300C, 0x300D, 0x3001, 0x30FB, 0x30F2, 0x30A1, 0x30A3, 0x30A5, 0x30A7, 0x30A9, 0x30E3, 0x30E5, 0x30E7, 0x30C3, 0x30FC, 0x30A2, 0x30A4, 0x30A6, 0x30A8, 0x30AA, 0x30AB, 0x30AD, 0x30AF, 0x30B1, 0x30B3, 0x30B5, 0x30B7, 0x30B9, 0x30BB, 0x30BD, 0x30BF, 0x30C1, 0x30C4, 0x30C6, 0x30C8, 0x30CA, 0x30CB, 0x30CC, 0x30CD, 0x30CE, 0x30CF, 0x30D2, 0x30D5, 0x30D8, 0x30DB, 0x30DE, 0x30DF, 0x30E0, 0x30E1, 0x30E2, 0x30E4, 0x30E6, 0x30E8, 0x30E9, 0x30EA, 0x30EB, 0x30EC, 0x30ED, 0x30EF, 0x30F3, 0x309B, 0x309C }; static WORD table7[] = { 0x306F, 0x3072, 0x3075, 0x3078, 0x307B, 0x30CF, 0x30D2, 0x30D5, 0x30D8, 0x30DB, 0x0000 }; static WORD table8[] = { 0x304B, 0x304D, 0x304F, 0x3051, 0x3053, 0x3055, 0x3057, 0x3059, 0x305B, 0x305D, 0x305F, 0x3061, 0x3064, 0x3066, 0x3068, 0x306F, 0x3072, 0x3075, 0x3078, 0x307B, 0x30AB, 0x30AD, 0x30AF, 0x30B1, 0x30B3, 0x30B5, 0x30B7, 0x30B9, 0x30BB, 0x30BD, 0x30BF, 0x30C1, 0x30C4, 0x30C6, 0x30C8, 0x30CF, 0x30D2, 0x30D5, 0x30D8, 0x30DB, 0x0000 }; #else static WORD table1[] = { /* 0x20 - 0x2f */ 0x8140, 0x8149, 0x8168, 0x8194, 0x8190, 0x8193, 0x8195, 0x8166, 0x8169, 0x816a, 0x8196, 0x817b, 0x8143, 0x817c, 0x8144, 0x8180 }; static WORD table2[] = { /* 0x3a - 0x3f */ 0x8146, 0x8147, 0x8183, 0x8181, 0x8184, 0x8148 }; static WORD table3[] = { /* 0x5b - 0x60 */ 0x816d, 0x818f, 0x816e, 0x814f, 0x8151, 0x8165 }; static WORD table4[] = { /* 0x7b - 0x7f */ 0x816f, 0x8162, 0x8170, 0x8160, 0x0000 }; static WORD table5[] = { /* 0xa1 - 0xdf hiragana */ 0x8142, 0x8175, 0x8176, 0x8141, 0x8145, 0x82f0, 0x829f, 0x82a1, 0x82a3, 0x82a5, 0x82a7, 0x82e1, 0x82e3, 0x82e5, 0x82c1, 0x815b, 0x82a0, 0x82a2, 0x82a4, 0x82a6, 0x82a8, 0x82a9, 0x82ab, 0x82ad, 0x82af, 0x82b1, 0x82b3, 0x82b5, 0x82b7, 0x82b9, 0x82bb, 0x82bd, 0x82bf, 0x82c2, 0x82c4, 0x82c6, 0x82c8, 0x82c9, 0x82ca, 0x82cb, 0x82cc, 0x82cd, 0x82d0, 0x82d3, 0x82d6, 0x82d9, 0x82dc, 0x82dd, 0x82de, 0x82df, 0x82e0, 0x82e2, 0x82e4, 0x82e6, 0x82e7, 0x82e8, 0x82e9, 0x82ea, 0x82eb, 0x82ed, 0x82f1, 0x814a, 0x814b }; static WORD table6[] = { /* 0xa1 - 0xdf katakana */ 0x8142, 0x8175, 0x8176, 0x8141, 0x8145, 0x82f0, 0x8340, 0x8342, 0x8344, 0x8346, 0x8348, 0x8383, 0x8385, 0x8387, 0x8362, 0x815b, 0x8341, 0x8343, 0x8345, 0x8347, 0x8349, 0x834a, 0x834c, 0x834e, 0x8350, 0x8352, 0x8354, 0x8356, 0x8358, 0x835a, 0x835c, 0x835e, 0x8360, 0x8363, 0x8365, 0x8367, 0x8369, 0x836a, 0x836b, 0x836c, 0x836d, 0x836e, 0x8371, 0x8374, 0x8377, 0x837a, 0x837d, 0x837e, 0x8380, 0x8381, 0x8382, 0x8384, 0x8386, 0x8388, 0x8389, 0x838a, 0x838b, 0x838c, 0x838d, 0x838f, 0x8393, 0x814a, 0x814b }; static WORD table7[] = { /* sonant char part 1 */ 0x82cd, 0x82d0, 0x82d3, 0x82d6, 0x82d9, 0x836e, 0x8371, 0x8374, 0x8377, 0x837a, 0x0000 }; static WORD table8[] = { /* sonant char part 2 */ 0x82a9, 0x82ab, 0x82ad, 0x82af, 0x82b1, 0x82b3, 0x82b5, 0x82b7, 0x82b9, 0x82bb, 0x82bd, 0x82bf, 0x82c2, 0x82c4, 0x82c6, 0x82cd, 0x82d0, 0x82d3, 0x82d6, 0x82d9, 0x834a, 0x834c, 0x834e, 0x8350, 0x8352, 0x8354, 0x8356, 0x8358, 0x835a, 0x835c, 0x835e, 0x8360, 0x8363, 0x8365, 0x8367, 0x836e, 0x8371, 0x8374, 0x8377, 0x837a, 0x0000 }; #endif /**********************************************************************/ /* */ /* HanToZen( code, flag ) */ /* */ /* A function which converts half size character to full size */ /* */ /* code */ /* Specify half size character code */ /* */ /* flag */ /* When convert to full size, specify if kana should be converted to */ /* hiragana or katakana */ /* 0 convert to katakana */ /* 1 convert to hiragana */ /* */ /* return */ /* Return full size character code */ /* */ /**********************************************************************/ #if defined(FAKEIMEM) || defined(UNICODE) WORD PASCAL HanToZen( code, KatakanaLetter,fdwConversion ) register WORD code; register WORD KatakanaLetter; DWORD fdwConversion; #else WORD PASCAL HanToZen( code, fdwConversion ) register WORD code; DWORD fdwConversion; #endif { BOOL flag; flag = !(fdwConversion & IME_CMODE_KATAKANA); #if defined(FAKEIMEM) || defined(UNICODE) if (KatakanaLetter) { WORD code2, code3; code2 = HanToZen( KatakanaLetter, 0, fdwConversion ); code3 = code; if( code3 == 0xFF9E ) code = ConvTenten( code2 ); else if( code3 == 0xFF9F ) code = ConvMaru( code2 ); return( code ); } else { if( code >= 0x30 && 0x39 >= code ) return( code - 0x30 + 0xFF10 ); if( code >= 0x41 && 0x5a >= code ) return( code - 0x41 + 0xFF21 ); if( code >= 0x61 && 0x7a >= code ) return( code - 0x61 + 0xFF41 ); if( code >= 0x20 && 0x40 >= code ) return( table1[code-0x20] ); if( code >= 0x3a && 0x3f >= code ) return( table2[code-0x3a] ); if( code >= 0x5b && 0x60 >= code ) return( table3[code-0x5b] ); if( code >= 0x7b && 0x7e >= code ) return( table4[code-0x7b] ); if( code >= 0xFF61 && 0xFF9F >= code ) if( flag ) return( table5[code-0xFF61] ); else return( table6[code-0xFF61] ); return( code ); } #else if( HIBYTE( code ) ){ WORD code2, code3; code2 = HanToZen( HIBYTE(code), fdwConversion ); code3 = LOBYTE( code ); if( code3 == (0x00FF & '\xDE') ) code = ConvTenten( code2 ); else if( code3 == (0x00FF & '\xDF') ) code = ConvMaru( code2 ); return( code ); } else { if( code >= 0x30 && 0x39 >= code ) return( code - 0x30 + 0x824f ); if( code >= 0x41 && 0x5a >= code ) return( code - 0x41 + 0x8260 ); if( code >= 0x61 && 0x7a >= code ) return( code - 0x61 + 0x8281 ); if( code >= 0x20 && 0x40 >= code ) return( table1[code-0x20] ); if( code >= 0x3a && 0x3f >= code ) return( table2[code-0x3a] ); if( code >= 0x5b && 0x60 >= code ) return( table3[code-0x5b] ); if( code >= 0x7b && 0x7e >= code ) return( table4[code-0x7b] ); if( code >= 0x0a1 && 0x0df >= code ) if( flag ) return( table5[code-0x0a1] ); else return( table6[code-0x0a1] ); return( code ); } #endif } /**********************************************************************/ /* */ /* ZenToHan( code ) */ /* */ /* A function which converts full size character to half size */ /* */ /* code */ /* Specify full size character code */ /* */ /* return */ /* Return half size character code */ /* */ /**********************************************************************/ WORD PASCAL ZenToHan( code ) WORD code; { int i; #if defined(FAKEIMEM) || defined(UNICODE) if( code >= 0xFF10 && code <= 0xFF19 ) return( code - 0xFF10 + 0x30 ); if( code >= 0xFF21 && code <= 0xFF3A ) return( code - 0xFF21 + 0x41 ); if( code >= 0xFF41 && code <= 0xFF5A ) return( code - 0xFF41 + 0x61 ); for( i = 0; i < 16; i++ ) if( code == table1[i] ) return( 0x20 + i ); for( i = 0; i < 6; i++ ) if( code == table2[i] ) return( 0x3a + i ); for( i = 0; i < 6; i++ ) if( code == table3[i] ) return( 0x5b + i ); for( i = 0; i < 5; i++ ) if( code == table4[i] ) return( 0x7b + i ); for( i = 0; i < 63; i++ ){ if( code == table5[i] ) return( 0xFF61 + i ); if( code == table6[i] ) return( 0xFF61 + i ); } #else if( code >= 0x824f && code <= 0x8258 ) return( code - 0x824f + 0x30 ); if( code >= 0x8260 && code <= 0x8279 ) return( code - 0x8260 + 0x41 ); if( code >= 0x8281 && code <= 0x829a ) return( code - 0x8281 + 0x61 ); for( i = 0; i < 16; i++ ) if( code == table1[i] ) return( 0x20 + i ); for( i = 0; i < 6; i++ ) if( code == table2[i] ) return( 0x3a + i ); for( i = 0; i < 6; i++ ) if( code == table3[i] ) return( 0x5b + i ); for( i = 0; i < 5; i++ ) if( code == table4[i] ) return( 0x7b + i ); for( i = 0; i < 63; i++ ){ if( code == table5[i] ) return( 0xa1 + i ); if( code == table6[i] ) return( 0xa1 + i ); } #endif return 0; } BOOL PASCAL IsTenten( code ) WORD code; { register int i; for( i = 0; table8[i]; i++ ) if( table8[i] == code ) return( TRUE ); return( FALSE ); } WORD PASCAL ConvTenten( code ) WORD code; { if( IsTenten( code ) ) return( code + 1 ); return 0; } BOOL PASCAL IsMaru( code ) WORD code; { register int i; for( i = 0; table7[i]; i++ ) if( table7[i] == code ) return( TRUE ); return( FALSE ); } WORD PASCAL ConvMaru( code ) WORD code; { if( IsMaru( code ) ) return( code + 2 ); return 0; } WORD PASCAL HiraToKata(WORD code) { register int i; for( i = 0; i < 63; i++ ){ if( code == table5[i] ) return table6[i]; } for( i = 0; i < 63; i++ ) { if( code-1 == table5[i] ) if (IsTenten(table5[i])) return table6[i] + 1; if( code-2 == table5[i] ) if (IsMaru(table5[i])) return table6[i] + 2; } return code; } WORD PASCAL KataToHira(WORD code) { register int i; for( i = 0; i < 63; i++ ){ if( code == table6[i] ) return table5[i]; } for( i = 0; i < 63; i++ ) { if( code-1 == table6[i] ) if (IsTenten(table6[i])) return table5[i] + 1; if( code-2 == table6[i] ) if (IsMaru(table6[i])) return table5[i] + 2; } return code; } #if defined (FAKEIMEM) || defined(UNICODE) BOOL OneCharZenToHan(WCHAR code,WCHAR* pKatakanaLetter,WCHAR* pSound) { WCHAR NewCode; *pKatakanaLetter = 0; *pSound = 0; NewCode = (MYCHAR)ZenToHan(code); if (! NewCode) { if (IsTenten((WORD)(code-1))) { *pKatakanaLetter = (MYCHAR)ZenToHan((WORD)(code-1)); *pSound = (MYCHAR)0xFF9E; return TRUE; } else if (IsMaru((WORD)(code-2))) { *pKatakanaLetter = (MYCHAR)ZenToHan((WORD)(code-2)); *pSound = (MYCHAR)0xFF9F; return TRUE; } else{ return FALSE; } } else { *pKatakanaLetter = NewCode; return TRUE; } } #endif void PASCAL lZenToHan(LPMYSTR lpDst,LPMYSTR lpSrc) { WORD code; #if defined(FAKEIMEM) || defined(UNICODE) while(*lpSrc) { code = *lpSrc; *lpDst = (MYCHAR)ZenToHan(code); if (!*lpDst) { if (IsTenten((WORD)(code-1))) { *lpDst++ = (MYCHAR)ZenToHan((WORD)(code-1)); *lpDst++ = (MYCHAR)0xFF9E; } else if (IsMaru((WORD)(code-2))) { *lpDst++ = (MYCHAR)ZenToHan((WORD)(code-2)); *lpDst++ = (MYCHAR)0xFF9F; } else { // // this case means it is not Japanese char // *lpDst++ = *lpSrc; } } else lpDst++; lpSrc++; } *lpDst = MYTEXT('\0'); #else while(*lpSrc) { if (IsDBCSLeadByte(*lpSrc)) { code = MAKEWORD( *(lpSrc+1), *lpSrc ); *lpDst = (char)ZenToHan(code); if (!*lpDst) { if (IsTenten((WORD)(code-1))) { *lpDst++ = (TCHAR)ZenToHan((WORD)(code-1)); *lpDst++ = (TCHAR)0xde; } else if (IsMaru((WORD)(code-2))) { *lpDst++ = (TCHAR)ZenToHan((WORD)(code-2)); *lpDst++ = (TCHAR)0xdf; } } else lpDst++; lpSrc += 2; } else *lpDst++ = *lpSrc++; } *lpDst = MYTEXT('\0'); #endif } void PASCAL lHanToZen(LPMYSTR lpDst,LPMYSTR lpSrc,DWORD fdwConversion) { WORD code; WORD code0; WORD code1; #if defined(FAKEIMEM) || defined(UNICODE) while(*lpSrc) { WORD KatakanaLetter; KatakanaLetter = 0; code0 = (WORD)*lpSrc; code1 = (WORD)*(lpSrc+1); lpSrc++; if ((code1 == 0xFF9E) || (code1 == 0xFF9F)) { KatakanaLetter = code0; code0 = code1; lpSrc++; } code = HanToZen (code0,KatakanaLetter,fdwConversion); *lpDst++ = code; } *lpDst = MYTEXT('\0'); #else while (*lpSrc) { code0 = (WORD)*lpSrc; code1 = (WORD)*(lpSrc+1); lpSrc++; if (( code1 == (0x00FF & '\xDE') ) || ( code1 == (0x00FF & '\xDF') )) { code0 = MAKEWORD((BYTE)code0,(BYTE)code1); lpSrc++; } code = HanToZen (code0,fdwConversion); *lpDst++ = HIBYTE(code); *lpDst++ = LOBYTE(code); } *lpDst = MYTEXT('\0'); #endif }