/* 段失: Cho/leading consonant:l
 * 掻失: Jung/middle vowel:m
 * 曽失: Jong/trailing consonant:n
 */

#define LCON_KIND 2
#define TCON_KIND 3 /* 閤徴戚 蒸澗 井酔亀 匂敗 */
#define MVOW_KIND 7

#define LCON_BASE 0x1001
#define MVOW_BASE 0x4001
#define TCON_BASE 0x8001

#define LCON_OFFSET 0x50
#define MVOW_OFFSET 0x50
#define TCON_OFFSET 0x50

/* 段失忽呪 曽嫌 */
static char lcon_kind[]={
   0,
/* ぁ あ い ぇ え ぉ け げ こ さ ざ し じ す ず せ ぜ そ ぞ*/
   1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,
};

/* 掻失忽呪 曽嫌 */
/* で 莫殿昔走 焼観走 姥紺:ぁ,せ析 井酔 */
static char vow_kind[] = {
    0,
 /* た だ ち ぢ っ つ づ て で と ど */
 /* な に ぬ ね の は ば ぱ ひ び */
    0, 2, 0, 2, 1, 2, 1, 2, 4, 3, 3,
    3, 4, 5, 6, 6, 6, 5, 4, 3, 0
 /* [た/ち/び][っ/づ][だ/ぢ/つ/て][と/ど/な/ひ][で/に/ぱ][ぬ/ば][ね/の/は] */
#if 0
    0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 3,
    3, 1, 2, 4, 4, 4, 2, 1, 3, 0
	    
    0, 2, 0, 2, 1, 2, 1, 2, 3, 0, 0,
    0, 3, 3, 1, 1, 1, 3, 3, 0, 0
#endif
 /* 10-{3,4}-4拭辞 XXX ぱ人 ひ税 忽呪亜 4忽析 琶推 蒸陥.*/
};

/* 曽失忽呪 曽嫌 */
static char tcon_kind[] = {
   0,
/* ぁ あ ぃ い ぅ う ぇ ぉ お か が き ぎ く ぐ */
/* け げ ご さ ざ し じ ず せ ぜ そ ぞ */
   1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
};

/* 掻失曽嫌: 段失拭 魚虞辞 掻失 歳嫌 */
static char vow_by_lcon[MVOW_KIND][LCON_KIND] = { /* INDEX */
	{0, 0}, /* vow_kind==0昔 井酔 [ぁ/せ]引 [析鋼] 姥紺照廃陥 */
	{0, 0}, /* vow_kind==1昔 井酔 [ぁ/せ]引 [析鋼] 姥紺廃陥 */
	{0, 0}, /* vow_kind==2昔 井酔 [ぁ/せ]引 [析鋼] 姥紺照廃陥 */
	{1, 0}, /* vow_kind==3昔 井酔 [ぁ/せ]引 [析鋼] 姥紺廃陥 */
	{1, 0}, /* vow_kind==4昔 井酔 [ぁ/せ]引 [析鋼] 姥紺廃陥 */
	{0, 0}, /* vow_kind==5昔 井酔 [ぁ/せ]引 [析鋼] 姥紺照廃陥 */
	{0, 0}, /* vow_kind==6昔 井酔 [ぁ/せ]引 [析鋼] 姥紺照廃陥 */
 /* [た/ち/び][っ/づ][だ/ぢ/つ/て][と/ど/な/ひ][で/に/ぱ][ぬ/ば][ね/の/は] */
};

static char vow_by_tcon[MVOW_KIND][TCON_KIND] = { /* INDEX */
	{0, 1, 2}, /* vow_kind==0昔 井酔 [析鋼]引 [い] 姥紺廃陥 */
	{0, 1, 2}, /* vow_kind==1昔 井酔 [析鋼]引 [い] 姥紺廃陥 */
	{0, 1, 2}, /* vow_kind==2昔 井酔 [析鋼]引 [い] 姥紺廃陥 */
	{0, 2, 2}, /* vow_kind==3昔 井酔 [析鋼]引 [い] 姥紺照廃陥 */
	{0, 2, 2}, /* vow_kind==4昔 井酔 [析鋼]引 [い] 姥紺照廃陥 */
	{0, 1, 2}, /* vow_kind==5昔 井酔 [析鋼]引 [い] 姥紺廃陥 */
	{0, 1, 2}, /* vow_kind==6昔 井酔 [析鋼]引 [い] 姥紺廃陥 */
 /* [た/ち/び][っ/づ][だ/ぢ/つ/て][と/ど/な/ひ][で/に/ぱ][ぬ/ば][ね/の/は] */
};

/* 掻失拭 魚虞 嬢恐 乞丞税 段失聖 承 闇走 衣舛 */
static char lcon_by_vow[LCON_KIND][MVOW_KIND] = {
 /* lcon_kind==0戚檎 */	
	{0,0,0,3,1,2,4},
 /* lcon_kind==1戚檎 */	
	{0,0,0,3,1,2,4},
 /* [た/ち/び][っ/づ][だ/ぢ/つ/て][と/ど/な/ひ][で/に/ぱ][ぬ/ば][ね/の/は] */
};

/* 曽失拭 魚虞 嬢恐 乞丞税 段失聖 承 依昔走 衣舛 */
static char lcon_by_tcon[LCON_KIND][TCON_KIND] = {
 /* lcon_kind==0戚檎 */	
	{0,5,5},
 /* lcon_kind==1戚檎 */	
	{0,5,5},
};

static char tcon_by_vow[TCON_KIND][MVOW_KIND] = {
 /* tcon_kind==0戚檎 */	
	{0,0,0,0,0,0,0}, /* 閤徴 蒸聖凶 */
 /* tcon_kind==1戚檎 */	
	{0,1,2,0,3,3,2},
 /* tcon_kind==2戚檎 */	
	{0,1,2,0,3,3,2},
 /* [た/ち/び][っ/づ][だ/ぢ/つ/て][と/ど/な/ひ][で/に/ぱ][ぬ/ば][ね/の/は] */
};

#if 0
static char tcon_by_lcon[TCON_KIND][LCON_KIND] = {
	{0,0},
	{0,0},
	{0,0},
};

#endif

#if 0
/* (乞製) 拭 魚献 font index */
static int vow_base[] = {
    0,
 /* た だ ち ぢ っ つ づ て で と ど */
    311, 314, 317, 320, 323, 326, 329, 332, 335, 339, 343, 
 /* な に ぬ ね の は ば ぱ ひ び */
    347, 351, 355, 358, 361, 364, 367, 370, 374, 378
};

#endif

static char lcon_idx[]= {            /* 0:fill, 2:ぁ, ... */
   0,  0,  1,  2,  3,  4,  5,  6,
   7,  8,  9,  10, 11, 12, 13, 14,
   15, 16, 17, 18, 19,  0,  0,  0,
   0,  0,   0,  0,  0,  0,  0,  0
};
static char vow_idx[]= {            /* 0:fill 1:た, ... */
   0,  0,  0,  1,  2,  3,  4,  5,
   0,  0,  6,  7,  8,  9,  10, 11,
   0,  0, 12, 13, 14, 15,  16, 17,
   0,  0, 18, 19, 20, 21,   0,  0
};
static char tcon_idx[]= {            /* 0:fill, 2:ぁ, ... */
   0,  0,  1,  2,  3,  4,  5,  6,
   7,  8,  9, 10, 11, 12,  13, 14,
   15, 16, 0, 17, 18, 19,  20, 21,
   22, 23, 24, 25, 26, 27,  0,  0
};

#if 1
convert_3_to_johab(l, m, n, des)
    int l,m,n;
//    XChar2b *des;
    int *des;
{
    int ind;
    int i;
    int _l,_m,_n;


    if (l==0xff || l < 1 || l > 20 || m < 2 || m > 29 || n < 1 || n > 29) {
      des[0] = 0;        /* 因拷 */
      return 1;
    }
    l=lcon_idx[l];
    m=vow_idx[m];
    n=tcon_idx[n];

    _l=lcon_kind[l];
    _m=vow_kind[m];
    _n=tcon_kind[n];

//    printf("%d,%d,%d\n",l,m,n);
    i = 0;
    if (l != 0) {
//	ind = l * 10 + lcon_by_vow[lcon_kind[l]][vow_kind[m]] +
	ind = LCON_BASE + LCON_OFFSET*(l-1) +
		lcon_by_vow[_l][_m] +
		lcon_by_tcon[_l][_n];
//	des[i].byte1 = ind >> 8;
//	des[i].byte2 = ind;
	des[i] = ind;
	i++;
    }
    if (m != 0) {		     /* 辰崇戚 焼艦檎 ... */
//	ind = vow_base[m];
	ind =MVOW_BASE + MVOW_OFFSET*(m-1) +
		vow_by_tcon[_m][_n] +
		vow_by_lcon[_m][_l];

//	des[i].byte1 = ind >> 8;
//	des[i].byte2 = ind;
	des[i] = ind;
	i++;
    }
    if (n != 0) {
//	ind = n * 4 + tcon_by_vow[tcon_kind[n]][vow_kind[m]];
	ind = TCON_BASE + TCON_OFFSET*(n-1) +
		tcon_by_vow[_n][_m];

//	des[i].byte1 = ind >> 8;
//	des[i].byte2 = ind;
	des[i] = ind;
	i++;
    }
    if (l != 0 && m == 0 && n == 0) {	/* initial sound only? */
//	des[i].byte1 = 0;	/* dummy for no zero width */
//	des[i].byte2 = 0;
	des[i] = 0;
	i++;
    }
    return i;
}

#endif