#include "tcb.h"
static void tabtospc(char str[], char tmp[])
{
  int c, i = 0, j = 0;

  do {
    if (((c = tmp[i]) == '_' && tmp[i+1] == K_h) || c == K_h) {
      i += 2;
      continue;
    }
    str[j++] = (c == '\t') ? ' ' : c;
    i++;
  } while (c && j < 256);
  if (j == 256) str[255] = '\0';
}

void put_str(PP *pp, int f_mark)/*tcb*/
{
  int c1, c2, c3;
  int i, n, i_attr, n_attr, f_reset, f_code, f_ctrl, f_grep;
  static int attr;
  ATTR *ap;

  if (!pp || pp->cs == EO9) /* virtual line */
    return;
  if ((f_code = pp->f.code) || !pp->attr) {
    ap = NULL;
    i_attr = -1;
  } else {
    ap = pp->attr;
    i_attr = ap[0].n;
  }
  f_grep = pp->split == -T_grep;
  for (n = n_attr = c1 = c3 = f_ctrl = i = 0; n < pp->f.len; n++, i++) {
    if (f_mark && !n)
      if (pp->split == -f_mark) vt_stand();
      else vt_endstand();
    else if (ap && i_attr >= 0 && i_attr == n) {
      if ((attr = ap[n_attr++].attr) == '^' || attr == -'^') {
	if (attr > 0) vt_stand();
	else vt_endstand();
	vt_printf("^%c", ap[n_attr++].attr);
	if (attr > 0) vt_endstand();
	else vt_stand();
	i_attr = ap[n_attr].n;
	i++;
	continue;
      } else if (attr == '<' || attr == -'<') {
	if (attr > 0) vt_stand();
	else vt_endstand();
	vt_printf("<%2X>", ap[n_attr++].attr);
	if (attr > 0) vt_endstand();
	else vt_stand();
	i_attr = ap[n_attr].n;
	i += 3;
	continue;
      } else {
	if ((f_reset = attr < 0)) attr = -attr;
	vt_seta(attr);
	i_attr = ap[n_attr].n;
	if (f_reset) {
	  n--;
	  i--;
	  continue;
	}
      }
    }
    c2 = pp->cs[n];
    if (f_code) {
      if (c2 == K_dl) c2 -= 0x80;
      if ((c3 = c2 < ' ')) {
	vt_seta(A_cs);
	c2 += '@';
      } else if ((c3 = c2 >= 0x80)) {
	vt_seta(A_cs);
	c2 = '*';
      }
    } else if (c2 == K_a0) {
      f_ctrl = 1;
      if (f_grep) vt_endstand();
      else vt_stand();
      vt_putchar('^');
      continue;
    } else if (c2 < ' ' && c2 != K_ec && c2 != K_i && c2 != K_h) continue;
    do {
      do {
	if (c2 == K_h) { 
	  i -= 2;
	  if (i == vt_col(0) - 2) {
	    vt_rc(); /* `backspace' at the right end of the window */
	    continue;
	  }
	} else if (i == vt_col(0) - 1 && pp->cs[n+1] == K_h) vt_sc();
	vt_putchar(c2);
      } while (0);
      if (c3) {
	c3 = 0;
	vt_seta(A_ce);
      }
      if (f_ctrl) {
	f_ctrl = 0;
	if (f_grep) vt_stand();
	else vt_endstand();
      }
    } while (0);
  }
  if (ap && i_attr >= 0 && i_attr == n) 
    vt_seta(((attr = ap[n_attr].attr) < 0) ? -attr : attr);
  if (f_mark) vt_stand();
  else vt_endstand();
}

PP *disp_pp(PP *pp, int f_mark)/*tcb*/
{ /* print line */
  int i, f_pp, f_rc = 0;
  
  if ((f_pp = (int)pp)) i = 0;
  else { /* no line */
    vt_move(0, 0);
    vt_eeol();
    i = 1;
  }
  for (; i < vt_row(0) - 1; i++) {
    vt_move(i, 0);
    vt_eeol();
    if (f_pp) put_str(pp, f_mark);
    if ((f_pp = pp && pp->next)) pp = pp->next;
    else if (!f_rc) {
      vt_sc();
      f_rc = 1;
    }
  }
  if (f_rc) vt_rc();
  return pp;
}

int disp_window(PP *ps0, PP *pp0, int f_M0, char name0[], u_char prev0[], char *argp, int *lenp0)/*tcb*/
{
  int f_mark, f_arc, i, j, len, llen;
  u_char line[30];
  PP p = {0,};
  static int f_M;
  static PP *ps, *pp;
  static char name[N_char];
  static u_char prev[N_char], *arg;
  static int vlen, k;
  static int nlen, f_enter, *lenp;

  if (!vlen) vlen = strlen(getenv("TCB")) + 2;
  if (f_M0 == -3) return strlen(name);
  ps = ps0;
  pp = pp0;
  f_M = f_M0;
  lenp = lenp0;
  do {
    if (f_M == T_shell2) f_M = M_shell;
    else continue;
    vt_mode(-'d');
  } while (0);
  if (argp) {
    arg = argp;
    i = strlen(name0) - 1;
    /* mode-line [1] (access-name) */
    if ((j = *name0 == '/'))
      if (*prev0 == K_y) strcpy(name, name0); /* pager */
      else if (name0[i] == '/')
	if (*prev0 == K_z) strcpy(name, name0); /* file-selector-mode */
	else strcpy(name, ".");
      else {
	while (i && name0[i] != '/') i--;
	strcpy(name, &name0[i+1]);
      }
    else if (i) 
      /* name[0] == ' ': mode-name */
      strcpy(name, (*name0 == ' ') ? &name0[1] : name0);
    else *name = '\0';
    k = vt_col(0) / 4 - 1;
    switch(f_M) {
    case M_man:
      k = vt_col(0) / 2 - 1;
    case M_prog:
    case M_egrep: case M_cut:
    case M_lfile: case M_ldir:
    case M_hist: case T_hist:
    case T_hfile: case T_hdir: case T_hman: case T_hlocate:
    case T_hfgrep: case T_hegrep:
    case M_cmd: case T_cmd:
    case M_list: case T_list:
    case T_locate:
      /* enter string at mode-line */
      f_enter = 1;
      break;
    case M_man2:
    case M_cut2:
    case M_fgrep:
    case M_locate:
      k = vt_col(0) / 2 - 1;
    case M_prog2:
    case M_lfile2:
    case M_ldir2:
      /* enter string at mode-line */
      f_enter = 2;
      break;
    default:
      k = vlen;
      f_enter = 0;
      break;
    }
  }
  llen = ((f_M == T_shell) ? 17 /* 17: strlen("000000/000000 END") */
	  : print_line(ps, pp
		       , (f_M == M_shell || f_M == T_pipe2 
			  || f_M == T_man || f_M == T_pipe 
			  || f_M == T_pipe4 || f_M == T_pipe5
			  || f_M == T_pipe3) 
		       ? -1 : 1, line)) + 3;
  if (argp) {
    j = (*arg == K_z && !arg[1]) ? 0 : strlen(arg);
    nlen = strlen(name);
    /* previous-mode (mode-line [6]) */
    tabtospc(prev, prev0);
    if ((len = (f_enter) ? k : vt_col(0) - (nlen + llen + j) + 1) < k) 
      j = k - 1;
    else j = len;
    i = k;
    if (*prev != K_z && *prev != K_y)
      if (strlen(prev) > j)
	sprintf(prev, "...%s", &prev[strlen(prev) - j + 3]);
      else i = strlen(prev) + 1;
    if (len < i - 1) {
      k = (*arg == K_z && !arg[1]) ? 0 : strlen(arg);
      j = vt_col(0) - (llen + k + i) + 4;
      sprintf(name, "...%s", &name[nlen - j + 5]);
      nlen = strlen(name);
      k = i;
    }
  }
  vt_move(vt_row(0) - 1, 0);
  vt_stand();
  p.cs = name;
  p.f.len = strlen(p.cs);
  put_str(&p, 0);
  vt_endstand();
  vt_putchar(' ');
  if (f_enter == 2) len = *lenp = 0;
  else len = (f_M == T_shell) ? *lenp : print_line(ps, EOE, nlen, line) + 1;
  if (len) {
    vt_move(vt_row(0) - 1, len);
    vt_putchar(' ');
  }
  if (f_enter != 2 && arg[1]) {
    vt_stand();
    vt_printf("%s", &arg[1]);
    vt_endstand();
    vt_putchar(' ');
    len += strlen(&arg[1]) + 1;
  }
  f_mark = fmark(f_M);
  f_arc = f_M == T_tar || f_M == T_lha || f_M == T_unzip;
  if (f_enter) {
    *lenp = (f_enter == 1) ? len + 1 : nlen + 1;
    len = vt_col(0) - (k + 1);
    vt_eeol();
  }
  if (*prev != K_z && *prev != K_y) {
    vt_move(vt_row(0) - 1, len + 1);
    if (argp) {
      for (i = strlen(prev), j = vt_col(0) - (len + i + 1); j > 0; i++, j--)
	prev[i] = ' ';
      prev[i] = '\0';
    }
    if (f_mark || f_arc) *lenp = len + 1; 
    vt_stand();
    p.cs = prev;
    p.f.len = strlen(p.cs);
    put_str(&p, 0);
  } else {
    vt_eeol();
    vt_move(vt_row(0) - 1, vt_col(0) - vlen);
    vt_printf(" %s%s%s ", vt_geta(A_md), getenv("TCB"), vt_geta(A_me));
  }
  if (vt_mode('S')) {
    vt_sr();
    vt_move(0, 0); 
    put_str(ps, f_mark);
    disp_prev(NULL, ps, f_mark);
  }
  vt_endstand();
  if (!f_mark && !f_arc && !f_enter && f_M != T_shell && lenp) *lenp = 0;
  if (f_M == T_arc3 || f_M == M_exit) f_mark = 0;
  if (!ps0 || (argp && vt_mode('D'))) disp_pp(ps, f_mark);
  return (f_M == M_shell) ? len - strlen(arg) : nlen;
}

int print_line(void *ps0, PP *pp, int len, u_char *linep)/*tcb*/
{ /* print current-line and total-lines at mode-line */
  int c, i, j, k, row, e_row, n_row, f_code;
  u_char str[10], line[32], tmp[32], num[8];
  static int tlen, tcol;
  static FILE **pinp;
  PP *ps;

  if (pp == EOB) {
    pinp = ps0;
    return 0;
  }
  vt_seta(A_me);
  ps = ps0;
  *line = '\0';
  if (!ps && !pp && len > 0) sprintf(line, "---");
  else if (pp == EOC) {
    vt_sc();
    vt_endstand();
    vt_move(vt_row(0) - 1, tcol + 1);
    vt_printf("Mark se");
    if ((i = tlen - 8) > 0) for (vt_putchar('t'); i > 0; i--) vt_putchar(' ');
    vt_endstand();
    vt_rc();
    return 0;
  } else if (pp == EOD) {
    vt_sc();
    vt_endstand();
    if (len < 0) {
      len = -len;
      j = strlen(s_P(P_mode)[M_shell]) - 1;
      k = 16;
    } else {
      j = tcol;
      k = tlen;
    }
    vt_move(vt_row(0) - 1, j + 1);
    vt_putchar(len);
    num[0] = len;
    if ((i = k - 1) > 0) for (vt_putchar(' '); i > 0; i--) vt_putchar(' ');
    i = 1;
    vt_move(vt_row(0) - 1, j + 1 + i);
    c = 0;
    do {
      if ((c = vt_getch(0)) != K_m && c != K_g && c != K_dl && c != K_h
	  && (c < '0' || c > '9')) continue;
      if (c >= '0' && c <= '9') {
	if (i >= 7) continue;
	num[i++] = c;
	vt_move(vt_row(0) - 1, j + i);
	vt_putchar(c);
	vt_flush();
      } else if (c == K_m) num[i] = '\0';
      else if (c == K_dl || c == K_h)
	if (i) {
	  vt_move(vt_row(0) - 1, j + i);
	  vt_putchar(' ');
	  vt_flush();
	  vt_move(vt_row(0) - 1, j + i);
	  i--;
	} else c = K_g;
    } while (c != K_m && c != K_g);
    i = (c == K_g) ? 0 : atoi(num);
    vt_rc();
    return i;
  }
  if (!*line && pp != EOE) {
    f_code = pp && pp->f.code;
    if (!pp || (pp && pp->tell == (u_int)EOE)) row = n_row = e_row = 0;
    else {
      row = pp->f.line;
      while (pp->next) pp = pp->next;
      n_row = pp->f.line;
      for (i = vt_row(0) - 2; i && ps->next; i--) ps = ps->next;
      e_row = ps->f.line;
      if (pinp) n_row++;
    }
    if (len <= 0) { 
      /* always set current-line and total-lines for six-digit number */
      for (j = 6, i = 0; i < j; i++) str[i] = '0';
      str[i] = '\0';
      strcpy(tmp, str);
      strcpy(line, utoa(row));
      for (i = strlen(line), k = j; i; i--, j--) str[j-1] = line[i-1];
      strcpy(line, utoa(n_row));
      for (i = strlen(line), j = k; i; i--, j--) tmp[j-1] = line[i-1];
      len = -len;
    } else {
      strcpy(tmp, utoa(n_row));
      for (j = strlen(tmp), i = 0; i < j; i++) str[i] = '0';
      str[i] = '\0';
      strcpy(line, utoa(row));
      for (i = strlen(line); i; i--, j--) str[j-1] = line[i-1];
    }
    if (f_code)
      if (e_row == n_row || !n_row)
	sprintf(line, "--- END");
      else
	sprintf(line, "--- %2d%%", e_row * 100 / n_row);
    else if (e_row == n_row || !n_row)
      sprintf(line, "%s/%s END", str, tmp);
    else
      sprintf(line, "%s/%s %2d%%", str, tmp, e_row * 100 / n_row);
  }
  if (!len) len = -1;
  if (pp != EOE && linep) {
    strcpy(linep, line);
    return strlen(line);
  }
  if (linep) strcpy(line, linep);
  vt_stand();
  vt_move(vt_row(0) - 1, len + 1);
  vt_printf("%s", line);
  vt_move(vt_row(0) - 2, 0);
  vt_endstand();
  tlen = strlen(line);
  tcol = len;
  return tlen + tcol;
}

void disp_prev(u_char *prev, void *dir, int klen0)/*tcb*/
{
  int i, j, k, col;
  u_char str[N_line];
  static PP p = {0,};
  static int klen, f_mark;
  static PP *ps;
 
  if (!prev) {
    ps = dir;
    f_mark = klen0;
    return;
  }
  if (klen0) {
    klen = klen0;
    k = vt_col(0) / 4 - 1;
  } else {
    col = klen;
    k = vt_col(0) - klen;
  }
  strcpy(str, (*prev == K_z) ? dir : (char*)prev);
  col = (klen0) ? vt_col(0) - k : klen;
  if ((i = strlen(str)) > k) sprintf(str, "...%s", &str[strlen(str) - k + 3]);
  else {
    for (j = vt_col(0) - col - i; j > 0; i++, j--) str[i] = ' ';
    str[i] = '\0';
  }
  if (dir) {
    vt_move(vt_row(0) - 1, klen);
    vt_eeol();
    vt_stand();
    vt_move(vt_row(0) - 1, col);
    p.cs = str;
    p.f.len = strlen(p.cs);
    put_str(&p, 0);
  } else strcpy(prev, str);
  if (vt_mode('S')) {
    vt_endstand();
    vt_sr();
    vt_move(0, 0); 
    put_str(ps, f_mark);
  }
}