/*
   Hangul Automata

   Written by Song Jaekyung
 */

#include "ptyx.h"
#include "data.h"

extern void HideCursor();

int hangul_state;
Char temp_hangul[8];
int (*converter) ();
static int f, m, l;

#define push(x)	( stack[ sp++ ] = (x) )
#define pop()	( stack[ --sp ] )

/* table_for_3 拭辞 紫遂吃 flag */

#define	F_F	0x100		/* 段失 */
#define F_M	0x200		/* 掻失 */
#define F_L	0x400		/* 曽失 */
#define F_A	0x800		/* ASCII */

/* 3 忽縦拭辞 切毒 痕発 */

static unsigned short table_for_3[] =
{
  24 | F_L, '"' | F_A, '#' | F_A, '$' | F_A, '%' | F_A, '&' | F_A,	/* ! " # $ % & */
  18 | F_F, '(' | F_A, ')' | F_A, '*' | F_A, '+' | F_A, ',' | F_A,	/* ' ( ) * + , */
  '-' | F_A, '.' | F_A, 13 | F_M, 17 | F_F, 29 | F_L, 22 | F_L,		/* - . / 0 1 2 */
  19 | F_L, 19 | F_M, 26 | F_M, 5 | F_M, 12 | F_M, 28 | F_M,	/* 3 4 5 6 7 8 */
  20 | F_M, ':' | F_A, 9 | F_F, '2' | F_A, '=' | F_A, '3' | F_A,	/* 9 : ; < = > */
  '?' | F_A, '@' | F_A, 8 | F_L, '!' | F_A, 11 | F_L, 10 | F_L,		/* ? @ A B C D */
  26 | F_L, 3 | F_L, '/' | F_A, 39 | F_A, '8' | F_A, '4' | F_A,		/* E F G H I J */
  '5' | F_A, '6' | F_A, '1' | F_A, '0' | F_A, '9' | F_A, '>' | F_A,	/* K L M N O P */
  28 | F_L, 6 | F_M, 7 | F_L, ';' | F_A, '7' | F_A, 16 | F_L,	/* Q R S T U V */
  27 | F_L, 20 | F_L, '<' | F_A, 25 | F_L, '[' | F_A, 92 | F_A,		/* W X Y Z [ \ */
  ']' | F_A, '^' | F_A, '_' | F_A, '`' | F_A, 23 | F_L, 20 | F_M,	/* ] ^ _ ` a b */
  10 | F_M, 29 | F_M, 11 | F_M, 3 | F_M, 27 | F_M, 4 | F_F,	/* c d e f g h */
  8 | F_F, 13 | F_F, 2 | F_F, 14 | F_F, 20 | F_F, 11 | F_F,	/* i j k l m n */
  16 | F_F, 19 | F_F, 21 | F_L, 4 | F_M, 5 | F_L, 7 | F_M,	/* o p q r s t */
  5 | F_F, 13 | F_M, 9 | F_L, 2 | F_L, 7 | F_F, 17 | F_L,	/* u v w x y z */
};

/* 3 忽縦拭辞 慎庚切 -> 段失 痕発
   衣引: 段失戚 焼艦檎 0
 */
static int
fcon3 (c)
     int c;
{
  if (c >= '!' && c <= 'z')
    if (table_for_3[c - '!'] & F_F)
      return table_for_3[c - '!'] & 0xff;
  return 0;
}

/* 3 忽縦拭辞 慎庚切 -> 掻失 痕発
   衣引: 掻失戚 焼艦檎 0
 */
static int
vow3 (c)
     int c;
{
  if (c >= '!' && c <= 'z')
    if (table_for_3[c - '!'] & F_M)
      return table_for_3[c - '!'] & 0xff;
  return 0;
}

/* 3 忽縦拭辞 慎庚切 -> 閤徴 痕発
   衣引: 閤徴戚 焼艦檎 0
 */
static int
lcon3 (c)
     int c;
{
  if (c >= '!' && c <= 'z')
    if (table_for_3[c - '!'] & F_L)
      return table_for_3[c - '!'] & 0xff;
  return 0;
}

/* 3 忽縦拭辞 (薄仙段失, 脊径慎庚) -> 差杯段失 坦軒 */

static int
comfcon3 (v, c)
     int v, c;
{
#ifdef DELETED
  switch (v)
    {
    case 2:			/* ぁ */
      switch (c)
	{
	case 'k':		/* ぁ */
	  return 3;		/* あ */
	}
      break;
    case 5:			/* ぇ */
      switch (c)
	{
	case 'u':
	  return 6;		/* え */
	}
      break;
    case 9:			/* げ */
      switch (c)
	{
	case ';':
	  return 10;
	}
      break;
    case 11:			/* さ */
      switch (c)
	{
	case 'n':
	  return 12;
	}
      break;
    case 14:			/* じ */
      switch (c)
	{
	case 'l':
	  return 15;
	}
    }
#else
  if (v == 2 && c == 'k') return 3;
  if (v == 5 && c == 'u') return 6;
  if (v == 9 && c == ';') return 10;
  if (v == 11 && c == 'n') return 12;
  if (v == 14 && c == 'l') return 15;
#endif
  return 0;
}

/* 3 忽縦拭辞 (薄仙乞製, 脊径 慎庚) -> 差杯 乞製 坦軒 */

static int
comvow3 (v, c)
     int v, c;
{
  switch (v)
    {
    case 13:			/* で */
      switch (c)
	{
	case 'f':		/* でた */
	  return 14;
	case 'r':		/* でだ */
	  return 15;
	case 'd':		/* でび */
	  return 18;
	}
      break;
    case 20:			/* ぬ */
      switch (c)
	{
	case 't':		/* ぬっ */
	  return 21;
	case 'c':		/* ぬつ */
	  return 22;
	case 'd':		/* ぬび */
	  return 23;
	}
      break;

      /* 3 忽縦 切毒精 ぱび 亜 赤生糠稽 ... */
    }
  return 0;
}

/* 3 忽縦拭辞 (薄仙 閤徴, 慎庚切 脊径) -> 閤徴 */

static int
comcon3 (k, c)
     int k;
     int c;
{
  switch (k)
    {
    case 2:			/* ぁ */
      switch (c)
	{
	case 'x':
	  return 3;		/* ぁぁ */
	case 'q':
	  return 4;		/* ぁさ */
	}
      break;
    case 5:			/* い */
      switch (c)
	{
	case '!':		/* いじ */
	  return 6;
	case '1':
	  return 7;		/* いぞ */
	}
      break;
    case 9:			/* ぉ */
      switch (c)
	{
	case 'x':		/* ぉぁ */
	  return 10;
	case 'z':		/* ぉけ */
	  return 11;
	case '3':		/* ぉげ */
	  return 12;
	case 'q':		/* ぉさ */
	  return 13;
	case 'W':		/* ぉぜ */
	  return 14;
	case 'Q':		/* ぉそ */
	  return 15;
	case '1':		/* ぉぞ */
	  return 16;
	}
      break;
    case 19:
      switch (c)
	{
	case 'q':		/* げさ */
	  return 20;
	}
      break;
    }
  return 0;
}

/* 3 忽縦拭辞 慎庚切 坦軒 */

static int
ascii3 (c, buf)
     int c;
     char *buf;
{
  if (c >= '!' && c <= 'z')
    if (table_for_3[c - '!'] & F_A)
      c = table_for_3[c - '!'] & 0xff;
  return ascii (c, buf);
}

/* 2 忽縦拭辞 慎庚切 -> 繕杯莫 段失 痕発
   衣引: 段失戚 焼艦檎 0
 */
static int
fcon (c)
     int c;
{
  static char table[] =
  {
    /*E */ 6, /*F */ 0, /*G */ 0, /*H */ 0, /*I */ 0, /*J */ 0, /*K */ 0,
    /*L */ 0, /*M */ 0, /*N */ 0, /*O */ 0, /*P */ 0, /*Q */ 10, /*R */ 3,
    /*S */ 0, /*T */ 12, /*U */ 0, /*V */ 0, /*W */ 15, /*X */ 0, /*Y */ 0,
    /*Z */ 0, /*[ */ 0, /*\ */ 0, /*] */ 0, /*^ */ 0, /*_*/ 0, /*` */ 0,
    /*a */ 8, /*b */ 0, /*c */ 16, /*d */ 13, /*e */ 5, /*f */ 7, /*g */ 20,
    /*h */ 0, /*i */ 0, /*j */ 0, /*k */ 0, /*l */ 0, /*m */ 0, /*n */ 0,
    /*o */ 0, /*p */ 0, /*q */ 9, /*r */ 2, /*s */ 4, /*t */ 11, /*u */ 0,
    /*v */ 19, /*w */ 14, /*x */ 18, /*y */ 0, /*z */ 17};

  if (c < 'E' || c > 'z')
    return 0;
  return table[c - 'E'];
}

/* 2 忽縦拭辞 慎庚切 -> 掻失 痕発
   衣引: 掻失戚 焼艦檎 0
 */
static int
vow (c)
     int c;
{
  static char table[] =
  {
    /*O */ 6, /*P */ 12, /*Q */ 0, /*R */ 0, /*S */ 0, /*T */ 0, /*U */ 0,
    /*V */ 0, /*W */ 0, /*X */ 0, /*Y */ 0, /*Z */ 0, /*[ */ 0, /*\ */ 0,
    /*] */ 0, /*^ */ 0, /*_*/ 0, /*` */ 0, /*a */ 0, /*b */ 26, /*c */ 0,
    /*d */ 0, /*e */ 0, /*f */ 0, /*g */ 0, /*h */ 13, /*i */ 5, /*j */ 7,
    /*k */ 3, /*l */ 29, /*m */ 27, /*n */ 20, /*o */ 4, /*p */ 10, /*q */ 0,
    /*r */ 0, /*s */ 0, /*t */ 0, /*u */ 11, /*v */ 0, /*w */ 0, /*x */ 0,
  /*y */ 19};

  if (c < 'O' || c > 'y')
    return 0;
  return table[c - 'O'];
}

/* 2忽縦拭辞 慎庚切 -> 閤徴 痕発
   衣引: 閤徴戚 焼艦檎 0
 */
static int
lcon (c)
     int c;
{
  static char table[] =
  {
    /*R */ 3, /*S */ 0, /*T */ 22, /*U */ 0, /*V */ 0, /*W */ 0, /*X */ 0,
    /*Y */ 0, /*Z */ 0, /*[ */ 0, /*\ */ 0, /*] */ 0, /*^ */ 0, /*_*/ 0,
    /*` */ 0, /*a */ 17, /*b */ 0, /*c */ 25, /*d */ 23, /*e */ 8, /*f */ 9,
    /*g */ 29, /*h */ 0, /*i */ 0, /*j */ 0, /*k */ 0, /*l */ 0, /*m */ 0,
    /*n */ 0, /*o */ 0, /*p */ 0, /*q */ 19, /*r */ 2, /*s */ 5, /*t */ 21,
    /*u */ 0, /*v */ 28, /*w */ 24, /*x */ 27, /*y */ 0, /*z */ 26};

  if (c < 'R' || c > 'z')
    return 0;
  return table[c - 'R'];
}

/* 2 忽縦拭辞 (薄仙 閤徴, 慎庚切 脊径) -> 閤徴 痕発 */

static int
comcon (k, c)
     int k;
     int c;
{
  switch (k)
    {
    case 2:			/* ぁ */
      switch (c)
	{
	case 't':
	  return 4;		/* ぁさ */
	}
      break;
    case 5:			/* い */
      switch (c)
	{
	case 'w':		/* いじ */
	  return 6;
	case 'g':		/* いぞ */
	  return 7;
	}
      break;
    case 9:			/* ぉ */
      switch (c)
	{
	case 'r':		/* ぉぁ */
	  return 10;
	case 'a':		/* ぉけ */
	  return 11;
	case 'q':		/* ぉげ */
	  return 12;
	case 't':		/* ぉさ */
	  return 13;
	case 'x':		/* ぉぜ */
	  return 14;
	case 'v':		/* ぉそ */
	  return 15;
	case 'g':		/* ぉぞ */
	  return 16;
	}
      break;
    case 19:			/* げ */
      switch (c)
	{
	case 't':		/* げさ */
	  return 20;
	}
      break;
    }
  return 0;
}

/* 2忽縦拭辞 (薄仙 掻失, 慎庚 脊径) -> 掻失 痕発 */

static int
comvow (v, c)
     int v;
     int c;
{
  switch (v)
    {
    case 13:			/* で */
      switch (c)
	{
	case 'k':		/* でた */
	  return 14;
	case 'o':		/* でだ */
	  return 15;
	case 'l':		/* でび */
	  return 18;
	}
      break;
    case 20:			/* ぬ */
      switch (c)
	{
	case 'j':		/* ぬっ */
	  return 21;
	case 'p':		/* ぬつ */
	  return 22;
	case 'l':		/* ぬび */
	  return 23;
	}
      break;
    case 27:			/* ぱ */
      switch (c)
	{
	case 'l':		/* ぱび */
	  return 28;
	}
      break;
    }
  return 0;
}

/* 2 忽縦拭辞 慎庚 坦軒 */

ascii (c, buf)
     int c;
     char *buf;
{
  if (c == -1)
    {
      if (hangul_state)
	hangul_state = 0;
      else
	{
	  hangul_state = 1;
	  f = 1;
	  m = 2;
	  l = 1;
	}
      show_status (&term->screen, 0);
      return 0;
    }
  else if (c == -2)
    {				/* flush output */
      f = 1;
      m = 2;
      l = 1;
      return 0;
    }
  else if (hangul_state && c == 27)
    {
      hangul_state = 0;
      show_status (&term->screen, 0);
      buf[0] = c;
      return 1;
    }
#ifdef USE_WON
  else if (hangul_state && c == '\\')
    {
      buf[0] = 0xa3;
      buf[1] = 0xdc;
      return 2;
    }
#endif
  else
    {
      buf[0] = c;
      return 1;
    }
}

/* (慎庚 脊径) -> 刃失莫 坪球 庚切伸
   c : 慎庚 ASCII
   -1 : 廃慎 toggle
   -2 : 薄仙 姥失掻昔 廃越聖 宜形 層陥. flush.
   buf : 刃失吉 越切税 KS C 5601 - 1992 坪球
   衣引: buf 拭 護 郊戚闘蟹 級嬢 穐澗亜
   須採 凧繕: display_temp() : 薄仙 姥失掻昔 廃越聖 鉢檎拭 益形 層陥.
   term->screen.keyboard : 切毒 衣舛. 2 = 2忽縦, 3 = 3忽縦
   convert_3_to_ks() : 繕杯->刃失 痕発. 痕発吉 板 庚切伸 掩戚研
   宜形 操醤 廃陥. 2 暁澗 8
   show_status() : 廃越 雌殿 昔走 慎庚 雌殿昔走 妊獣廃陥.
 */
int
hangul_automata (c, buf)
     int c;			/* input character */
     char *buf;
{
  static int sp, pc, stack[10];
  int t, t2, rs;

/* begin */
  unsigned char dummy[16];
  extern int font_ks_mode;
/* end patch by ysyun, at 04/26/94 */


  if (hangul_state == 0)	/* 慎庚 雌殿 */
    return ascii (c, buf);

  if (term->screen.keyboard == 2)
    {				/* 2 忽縦 */
      switch (hangul_state)
	{
	case 1:		/* 段失聖 奄陥顕 */
	  sp = 0;
	  if (t = fcon (c))
	    {
	      display_temp (t, 2, 1);
	      f = t;
	      hangul_state = 2;
	      return 0;
	    }
	  else if (t = vow (c))
	    {
	      display_temp (1, t, 1);
	      f = 1;
	      m = t;
	      push (2);
	      hangul_state = 3;
	      return 0;
	    }
	  else
	    {
	      return ascii (c, buf);
	    }
	  break;
	case 2:		/* 掻失 奄陥顕 */
	  if (t = vow (c))
	    {
	      display_temp (f, t, 1);
	      push (2);
	      m = t;
	      hangul_state = 3;
	      return 0;
	    }
	  else if (t = fcon (c))
	    {
	      rs = (*converter) (f, 2, 1, buf);
	      display_temp (t, 2, 1);
	      sp = 0;
	      f = t;
	      hangul_state = 2;
	      return rs;
	    }
	  else if (c == '\b')
	    {
	      display_temp (-1, -1, -1);
	      hangul_state = 1;
	      return 0;
	    }
	  else
	    {
	      rs = (*converter) (f, 2, 1, buf);
	      display_temp (-1, -1, -1);
	      hangul_state = 1;
	      return ascii (c, buf + rs) + rs;
	    }
	  break;
	case 3:		/* 曽失 奄陥顕 */
/*            if( t = lcon(c) ) {     /* comment by ysyun : 04/26/94 */
/* 肉闘亜 刃失莫昔 井酔, 刃失莫 伊紫廃陥. */
	  if ((t = lcon (c)) &&
	      (font_ks_mode != 't' ||
	       (font_ks_mode == 't' &&
		convert_3_to_ks (f, m, t, dummy) == 2)))
	    {
/* end patch : ysyun */

	      display_temp (f, m, t);
	      push (1);
	      l = t;
	      pc = c;
	      hangul_state = 4;
	      return 0;
	    }
	  else if (t = comvow (m, c))
	    {
	      display_temp (f, t, 1);
	      push (m);
	      m = t;
	      return 0;
	    }
	  else if (t = fcon (c))
	    {
	      rs = (*converter) (f, m, 1, buf);
	      display_temp (t, 2, 1);
	      f = t;
	      sp = 0;
	      hangul_state = 2;
	      return rs;
	    }
	  else if (t = vow (c))
	    {
	      rs = (*converter) (f, m, 1, buf);
	      f = 1;
	      m = t;
	      l = 1;
	      display_temp (f, m, l);
	      sp = 0;
	      push (2);
	      return rs;
	    }
	  else if (c == '\b')
	    {			/* back space */
	      m = pop ();
	      if (m == 2)
		{		/* we extracted all */
		  if (f == 1)
		    {
		      hangul_state = 1;
		      f = -1;
		    }
		  else
		    {
		      hangul_state = 2;
		    }
		}
	      display_temp (f, m, 1);
	      return 0;
	    }
	  else
	    {
	      rs = (*converter) (f, m, 1, buf);
	      display_temp (-1, -1, -1);
	      sp = 0;
	      hangul_state = 1;
	      return ascii (c, buf + rs) + rs;
	    }
	  break;
	case 4:		/* 差杯 閤徴 奄陥顕 */
	  if (t = comcon (l, c))
	    {
	      display_temp (f, m, t);
	      push (l);
	      l = t;
	      pc = c;
	      return 0;
	    }
	  else if (t = vow (c))
	    {
	      rs = (*converter) (f, m, pop (), buf);
	      display_temp (f = fcon (pc), m = t, 1);
	      sp = 0;
	      push (2);
	      hangul_state = 3;
	      return rs;
	    }
	  else if (t = fcon (c))
	    {
	      rs = (*converter) (f, m, l, buf);
	      display_temp (t, 2, 1);
	      f = t;
	      sp = 0;
	      hangul_state = 2;
	      return rs;
	    }
	  else if (c == '\b')
	    {			/* back space */
	      display_temp (f, m, l = pop ());
	      if (l == 1)
		hangul_state = 3;
	      return 0;
	    }
	  else
	    {
	      rs = (*converter) (f, m, l, buf);
	      display_temp (-1, -1, -1);
	      sp = 0;
	      hangul_state = 1;
	      return ascii (c, buf + rs) + rs;
	    }
	  break;
	}
    }
  else if (term->screen.keyboard == 3)
    {				/* 3 忽縦 */
      if (t = fcon3 (c))
	{
	  t2 = 0;
	  if (f > 1 && !(t2 = comfcon3 (f, c)) || m > 2 || l > 1)
	    {			/* 掻失戚 赤暗蟹 閤徴戚 赤製 */
	      rs = (*converter) (f, m, l, buf);
	      sp = 0;
	      m = 2;
	      l = 1;
	    }
	  else
	    {
	      if (t2)
		{
		  t = t2;
		}
	      rs = 0;
	    }
	  f = t;
	  display_temp (f, m, l);
	  push ((f << 10) | (m << 5) | l);
	  return rs;
	}
      else if (t = vow3 (c))
	{
	  t2 = 0;
	  if (m > 2 && !(t2 = comvow3 (m, c)) || l > 1)
	    {			/* 閤徴戚 赤製 */
	      rs = (*converter) (f, m, l, buf);
	      sp = 0;
	      f = 1;
	      l = 1;
	    }
	  else
	    {
	      if (t2)
		{
		  t = t2;
		}
	      rs = 0;
	    }
	  m = t;
	  display_temp (f, m, l);
	  push ((f << 10) | (m << 5) | l);
	  return rs;
	}
      else if (t = lcon3 (c))
	{
	  t2 = 0;
	  if (f > 1 && m < 3 || l > 1 && !(t2 = comcon3 (l, c)))
	    {			/* 段失精 赤壱 掻失戚 蒸製 */
	      rs = (*converter) (f, m, l, buf);
	      sp = 0;
	      f = 1;
	      m = 2;
	    }
	  else
	    {
	      if (t2)
		{
		  t = t2;
		}
	      rs = 0;
	    }
	  l = t;
	  display_temp (f, m, l);
	  push ((f << 10) | (m << 5) | l);
	  return rs;
	}
      else if (c == '\b')
	{
	  if (sp > 0)
	    {
	      pop ();		/* 固是税 越切澗 獄鍵陥 */
	      if (sp > 0)
		{
		  t = stack[sp - 1];
		  f = t >> 10;
		  m = (t >> 5) & 0x1f;
		  l = t & 0x1f;
		  display_temp (f, m, l);
		  return 0;
		}
	      f = 1;
	      m = 2;
	      l = 1;
	      display_temp (-1, -1, -1);
	      return 0;
	    }
	  else
	    {
	      return ascii3 (c, buf);
	    }
	}
      else
	{
	  if (f > 1 || m > 2 || l > 1)
	    {
	      rs = (*converter) (f, m, l, buf);
	      sp = 0;
	      f = 1;
	      m = 2;
	      l = 1;
	      display_temp (-1, -1, -1);
	    }
	  else
	    {
	      rs = 0;
	    }
	  return rs + ascii3 (c, buf + rs);
	}
    }
}

display_temp (f, m, l)
     int f, m, l;
{
  if (f < 0)
    {
      HideCursor ();
      temp_hangul[0] = 0;
    }
  else
    convert_3_to_johab (f, m, l, temp_hangul);
  ShowCursor ();
}

in_ks (f, m, t)
     int f, m, t;
{
  char buf[8];

  return convert_3_to_ks (f, m, t, buf) == 2;
}