scrn.c

   1 /*
   2  *      Device independant TTY interface for JOE
   3  *      Copyright
   4  *              (C) 1992 Joseph H. Allen
   5  *
   6  *      This file is part of JOE (Joe's Own Editor)
   7  */
   8 #include "config.h"
   9 #include "types.h"
  10
  11 __RCSID("$MirOS: contrib/code/jupp/scrn.c,v 1.30 2017/12/02 04:49:46 tg Exp $");
  12
  13 #ifdef HAVE_STDLIB_H
  14 #include <stdlib.h>
  15 #endif
  16 #include <string.h>
  17
  18 #include "bw.h"
  19 #include "blocks.h"
  20 #include "scrn.h"
  21 #include "termcap.h"
  22 #include "charmap.h"
  23 #include "utils.h"
  24
  25 int skiptop = 0;
  26 int lines = 0;
  27 int columns = 0;
  28 int notite = 0;
  29 int pastetite = 0;
  30 int usetabs = 0;
  31 int assume_color = 0;
  32
  33 /* How to display characters (especially the control ones) */
  34 /* here are characters ... */
  35 static const unsigned char xlatc[256] = {
  36          64,  65,  66,  67,  68,  69,  70,  71,                 /*   8 */
  37          72,  73,  74,  75,  76,  77,  78,  79,                 /*  16 */
  38          80,  81,  82,  83,  84,  85,  86,  87,                 /*  24 */
  39          88,  89,  90,  91,  92,  93,  94,  95,                 /*  32 */
  40          32,  33,  34,  35,  36,  37,  38,  39,                 /*  40 */
  41          40,  41,  42,  43,  44,  45,  46,  47,                 /*  48 */
  42          48,  49,  50,  51,  52,  53,  54,  55,                 /*  56 */
  43          56,  57,  58,  59,  60,  61,  62,  63,                 /*  64 */
  44
  45          64,  65,  66,  67,  68,  69,  70,  71,                 /*  72 */
  46          72,  73,  74,  75,  76,  77,  78,  79,                 /*  80 */
  47          80,  81,  82,  83,  84,  85,  86,  87,                 /*  88 */
  48          88,  89,  90,  91,  92,  93,  94,  95,                 /*  96 */
  49          96,  97,  98,  99, 100, 101, 102, 103,                 /* 104 */
  50         104, 105, 106, 107, 108, 109, 110, 111,                 /* 112 */
  51         112, 113, 114, 115, 116, 117, 118, 119,                 /* 120 */
  52         120, 121, 122, 123, 124, 125, 126,  63,                 /* 128 */
  53
  54          64,  65,  66,  67,  68,  69,  70,  71,                 /* 136 */
  55          72,  73,  74,  75,  76,  77,  78,  79,                 /* 144 */
  56          80,  81,  82,  83,  84,  85,  86,  87,                 /* 152 */
  57          88,  89,  90,  91,  92,  93,  94,  95,                 /* 160 */
  58          32,  33,  34,  35,  36,  37,  38,  39,                 /* 168 */
  59          40,  41,  42,  43,  44,  45,  46,  47,                 /* 176 */
  60          48,  49,  50,  51,  52,  53,  54,  55,                 /* 184 */
  61          56,  57,  58,  59,  60,  61,  62,  63,                 /* 192 */
  62
  63          64,  65,  66,  67,  68,  69,  70,  71,                 /* 200 */
  64          72,  73,  74,  75,  76,  77,  78,  79,                 /* 208 */
  65          80,  81,  82,  83,  84,  85,  86,  87,                 /* 216 */
  66          88,  89,  90,  91,  92,  93,  94,  95,                 /* 224 */
  67          96,  97,  98,  99, 100, 101, 102, 103,                 /* 232 */
  68         104, 105, 106, 107, 108, 109, 110, 111,                 /* 240 */
  69         112, 113, 114, 115, 116, 117, 118, 119,                 /* 248 */
  70         120, 121, 122, 123, 124, 125, 126,  63                  /* 256 */
  71 };
  72 /* ... and here their attributes */
  73 static const unsigned short xlata[256] = {
  74         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*   4 */
  75         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*   8 */
  76         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  12 */
  77         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  16 */
  78         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  20 */
  79         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  24 */
  80         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  28 */
  81         UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE,             /*  32 */
  82         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,         /*  48 */
  83         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,         /*  64 */
  84         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,         /*  80 */
  85         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,         /*  96 */
  86         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,         /* 112 */
  87         0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, UNDERLINE, /* 128 */
  88
  89         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 130 */
  90         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 132 */
  91         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 134 */
  92         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 136 */
  93         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 138 */
  94         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 140 */
  95         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 142 */
  96         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 144 */
  97         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 146 */
  98         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 148 */
  99         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 150 */
 100         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 152 */
 101         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 154 */
 102         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 156 */
 103         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 158 */
 104         INVERSE + UNDERLINE, INVERSE + UNDERLINE,               /* 160 */
 105
 106         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 164 */
 107         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 168 */
 108         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 172 */
 109         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 176 */
 110         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 180 */
 111         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 184 */
 112         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 188 */
 113         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 192 */
 114         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 196 */
 115         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 200 */
 116         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 204 */
 117         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 208 */
 118         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 212 */
 119         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 216 */
 120         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 220 */
 121         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 224 */
 122         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 228 */
 123         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 232 */
 124         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 236 */
 125         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 240 */
 126         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 244 */
 127         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 248 */
 128         INVERSE, INVERSE, INVERSE, INVERSE,                     /* 252 */
 129         INVERSE, INVERSE, INVERSE, INVERSE + UNDERLINE          /* 256 */
 130 };
 131
 132 /* Set attributes */
 133
 134 int set_attr(SCRN *t, int c)
 135 {
 136         int e;
 137
 138         c &= ~255;
 139
 140         /* Attributes which have gone off */
 141         e = ((AT_MASK|FG_NOT_DEFAULT|BG_NOT_DEFAULT)&t->attrib & ~c);
 142
 143         if (e) {        /* If any attribute go off, switch them all off: fixes bug on PCs */
 144                 if (t->me)
 145                         texec(t->cap, t->me, 1, 0, 0, 0, 0);
 146                 else {
 147                         if (t->ue)
 148                                 texec(t->cap, t->ue, 1, 0, 0, 0, 0);
 149                         if (t->se)
 150                                 texec(t->cap, t->se, 1, 0, 0, 0, 0);
 151                 }
 152                 t->attrib = 0;
 153         }
 154
 155         /* Attributes which have turned on */
 156         e = (c & ~t->attrib);
 157
 158         if (e & INVERSE) {
 159                 if (t->mr)
 160                         texec(t->cap, t->mr, 1, 0, 0, 0, 0);
 161                 else if (t->so)
 162                         texec(t->cap, t->so, 1, 0, 0, 0, 0);
 163         }
 164
 165         if (e & UNDERLINE)
 166                 if (t->us)
 167                         texec(t->cap, t->us, 1, 0, 0, 0, 0);
 168         if (e & BLINK)
 169                 if (t->mb)
 170                         texec(t->cap, t->mb, 1, 0, 0, 0, 0);
 171         if (e & BOLD)
 172                 if (t->md)
 173                         texec(t->cap, t->md, 1, 0, 0, 0, 0);
 174         if (e & DIM)
 175                 if (t->mh)
 176                         texec(t->cap, t->mh, 1, 0, 0, 0, 0);
 177
 178         if ((t->attrib&FG_MASK)!=(c&FG_MASK))
 179                 if (t->Sf) texec(t->cap,t->Sf,1,7-(((c&FG_VALUE)>>FG_SHIFT)),0,0,0);
 180
 181         if ((t->attrib&BG_MASK)!=(c&BG_MASK))
 182                 if (t->Sb) texec(t->cap,t->Sb,1,((c&BG_VALUE)>>BG_SHIFT),0,0,0);
 183
 184         t->attrib = c;
 185
 186         return 0;
 187 }
 188
 189 /* Output character with attributes */
 190
 191 void outatr_help(SCRN *t,int *scrn,int *attrf,int xx,int yy,int c,int a)
 192 {
 193         /* kludge for help_display() only */
 194         if (locale_map->type && !joe_isprint(locale_map,c)) {
 195                 a ^= xlata[c];
 196                 c = xlatc[c];
 197         }
 198         outatr(locale_map, t, scrn, attrf, xx, yy, c, a);
 199 }
 200
 201 void outatr(struct charmap *map,SCRN *t,int *scrn,int *attrf,int xx,int yy,int c,int a)
 202 {
 203         if(map->type)
 204                 if(locale_map->type) {
 205                         /* UTF-8 char to UTF-8 terminal */
 206                         int wid;
 207
 208                         switch ((wid = unictrl(c))) {
 209                         case 0:
 210                                 /* not a control character */
 211                                 wid = joe_wcwidth(1, c);
 212                                 break;
 213                         case 1:
 214                                 c ^= 0x40;
 215                                 /* FALLTHROUGH */
 216                         default:
 217                                 a ^= UNDERLINE;
 218                                 break;
 219                         }
 220
 221                         if(*scrn==c && *attrf==a)
 222                                 return;
 223
 224                         *scrn = c;
 225                         *attrf = a;
 226                         if(t->ins)
 227                                 clrins(t);
 228                         if(t->x != xx || t->y != yy)
 229                                 cpos(t, xx, yy);
 230                         if(t->attrib != a)
 231                                 set_attr(t, a);
 232                         if (*unictrlbuf) {
 233                                 ttputs(unictrlbuf);
 234                         } else {
 235                                 unsigned char buf[7];
 236
 237                                 utf8_encode(buf,c);
 238                                 ttputs(buf);
 239                                 if (wid == 0 && xx > 0)
 240                                         attrf[-1] |= HAS_COMBINING;
 241                         }
 242                         t->x+=wid;
 243                         while (wid>1) {
 244                                 *++scrn= -1;
 245                                 *++attrf= 0;
 246                                 --wid;
 247                         }
 248                 } else {
 249                         /* UTF-8 char to non-UTF-8 terminal */
 250                         /* Don't convert control chars below 256 */
 251                         if ((c>=32 && c<=126) || c>=160) {
 252                                 if (unictrl(c))
 253                                         a ^= UNDERLINE;
 254                                 c = from_uni(locale_map,c);
 255                                 if (c==-1)
 256                                         c = '?';
 257                         }
 258
 259                         /* Deal with control characters */
 260                         if (!joe_isprint(locale_map,c) && !(dspasis && c>=128)) {
 261                                 a ^= xlata[c];
 262                                 c = xlatc[c];
 263                         }
 264
 265                         if(*scrn==c && *attrf==a)
 266                                 return;
 267
 268                         *scrn = c;
 269                         *attrf = a;
 270                         if(t->ins)
 271                                 clrins(t);
 272                         if(t->x != xx || t->y != yy)
 273                                 cpos(t,xx,yy);
 274                         if(t->attrib != a)
 275                                 set_attr(t,a);
 276                         ttputc(c);
 277                         t->x++;
 278                 }
 279         else
 280                 if (!locale_map->type) {
 281                         /* Non UTF-8 char to non UTF-8 terminal */
 282                         /* Byte-byte Translate? */
 283
 284                         /* Deal with control characters */
 285                         if (!joe_isprint(locale_map,c) && !(dspasis && c>=128)) {
 286                                 a ^= xlata[c];
 287                                 c = xlatc[c];
 288                         }
 289
 290                         if (*scrn==c && *attrf==a)
 291                                 return;
 292
 293                         *scrn = c;
 294                         *attrf = a;
 295
 296                         if(t->ins)
 297                                 clrins(t);
 298                         if(t->x != xx || t->y != yy)
 299                                 cpos(t,xx,yy);
 300                         if(t->attrib != a)
 301                                 set_attr(t,a);
 302                         ttputc(c);
 303                         t->x++;
 304                 } else {
 305                         /* Non UTF-8 char to UTF-8 terminal */
 306                         unsigned char buf[7];
 307                         int wid;
 308
 309                         /* Deal with control characters */
 310                         if (!(dspasis && c>=128) && !joe_isprint(map,c)) {
 311                                 a ^= xlata[c];
 312                                 c = xlatc[c];
 313                         }
 314
 315                         c = to_uni(map,c);
 316                         if (c < 32 || (c >= 0x7F && c < 0xA0)) {
 317                                 c = 0x1000FFFE;
 318                                 a = (a | UNDERLINE) ^ INVERSE;
 319                         }
 320                         utf8_encode(buf,c);
 321
 322                         if (*scrn == c && *attrf == a)
 323                                 return;
 324
 325                         wid = joe_wcwidth(0,c);
 326                         *scrn = c;
 327                         *attrf = a;
 328                         if(t->ins)
 329                                 clrins(t);
 330                         if(t->x != xx || t->y != yy)
 331                                 cpos(t, xx, yy);
 332                         if(t->attrib != a)
 333                                 set_attr(t, a);
 334                         ttputs(buf);
 335                         t->x+=wid;
 336                         while(wid>1) {
 337                                 *++scrn= -1;
 338                                 *++attrf= 0;
 339                                 --wid;
 340                         }
 341                 }
 342 }
 343
 344 /* Set scrolling region */
 345
 346 static void setregn(SCRN *t, int top, int bot)
 347 {
 348         if (!t->cs) {
 349                 t->top = top;
 350                 t->bot = bot;
 351                 return;
 352         }
 353         if (t->top != top || t->bot != bot) {
 354                 t->top = top;
 355                 t->bot = bot;
 356                 texec(t->cap, t->cs, 1, top, bot - 1, 0, 0);
 357                 t->x = -1;
 358                 t->y = -1;
 359         }
 360 }
 361
 362 /* Enter insert mode */
 363
 364 static void setins(SCRN *t, int x)
 365 {
 366         if (t->ins != 1 && t->im) {
 367                 t->ins = 1;
 368                 texec(t->cap, t->im, 1, x, 0, 0, 0);
 369         }
 370 }
 371
 372 /* Exit insert mode */
 373
 374 int clrins(SCRN *t)
 375 {
 376         if (t->ins != 0) {
 377                 texec(t->cap, t->ei, 1, 0, 0, 0, 0);
 378                 t->ins = 0;
 379         }
 380         return 0;
 381 }
 382
 383 /* Erase from given screen coordinate to end of line */
 384
 385 int eraeol(SCRN *t, int x, int y)
 386 {
 387         int *s, *ss, *a, *aa;
 388         int w = t->co - x - 1;  /* Don't worry about last column */
 389
 390         if (w <= 0)
 391                 return 0;
 392         s = t->scrn + y * t->co + x;
 393         a = t->attr + y * t->co + x;
 394         ss = s + w;
 395         aa = a + w;
 396         do {
 397                 if (*--ss != ' ') {
 398                         ++ss;
 399                         break;
 400                 } else if (*--aa != 0) {
 401                         ++ss;
 402                         ++aa;
 403                         break;
 404                 }
 405         } while (ss != s);
 406         if ((ss - s > 3 || s[w] != ' ' || a[w] != 0) && t->ce) {
 407                 cpos(t, x, y);
 408                 set_attr(t, 0);
 409                 texec(t->cap, t->ce, 1, 0, 0, 0, 0);
 410                 msetI(s, ' ', w);
 411                 msetI(a, 0, w);
 412         } else if (s != ss) {
 413                 if (t->ins)
 414                         clrins(t);
 415                 if (t->x != x || t->y != y)
 416                         cpos(t, x, y);
 417                 if (t->attrib)
 418                         set_attr(t, 0);
 419                 while (s != ss) {
 420                         *s = ' ';
 421                         *a = 0;
 422                         ttputc(' ');
 423                         ++t->x;
 424                         ++s;
 425                         ++a;
 426                 }
 427         }
 428         return 0;
 429 }
 430
 431 static void out(unsigned char *t, unsigned char c)
 432 {
 433         ttputc(c);
 434 }
 435
 436 SCRN *nopen(CAP *cap)
 437 {
 438         SCRN *t = calloc(1, sizeof(SCRN));
 439         int x, y;
 440
 441         ttopen();
 442
 443         t->cap = cap;
 444         setcap(cap, baud, out, NULL);
 445
 446         t->li = getnum(t->cap,US "li");
 447         if (t->li < 1)
 448                 t->li = 24;
 449         t->co = getnum(t->cap,US "co");
 450         if (t->co < 2)
 451                 t->co = 80;
 452         x = y = 0;
 453         ttgtsz(&x, &y);
 454         if (x > 7 && y > 3) {
 455                 t->li = y;
 456                 t->co = x;
 457         }
 458
 459         t->haz = getflag(t->cap,US "hz");
 460         t->os = getflag(t->cap,US "os");
 461         t->eo = getflag(t->cap,US "eo");
 462         if (getflag(t->cap,US "hc"))
 463                 t->os = 1;
 464         if (t->os || getflag(t->cap,US "ul"))
 465                 t->ul = 1;
 466
 467         t->xn = getflag(t->cap,US "xn");
 468         t->am = getflag(t->cap,US "am");
 469
 470         t->cl = jgetstr(t->cap,US "cl");
 471         t->cd = jgetstr(t->cap,US "cd");
 472
 473         if (!notite) {
 474                 t->ti = jgetstr(t->cap,US "ti");
 475                 t->te = jgetstr(t->cap,US "te");
 476         }
 477         if (pastetite && t->cap->paste_on && t->cap->paste_off) {
 478                 if (notite) {
 479                         t->ti = (void *)strdup(t->cap->paste_on);
 480                         t->te = (void *)strdup(t->cap->paste_off);
 481                 } else {
 482                         size_t n1, n2;
 483                         char *cp;
 484
 485                         n1 = t->ti ? strlen(t->ti) : 0;
 486                         n2 = strlen(t->cap->paste_on);
 487                         cp = joe_malloc(n1 + n2 + 1);
 488                         if (t->ti)
 489                                 memcpy(cp, t->ti, n1);
 490                         memcpy(cp + n1, t->cap->paste_on, n2 + 1);
 491                         t->ti = cp;
 492
 493                         n1 = t->te ? strlen(t->te) : 0;
 494                         n2 = strlen(t->cap->paste_off);
 495                         cp = joe_malloc(n1 + n2 + 1);
 496                         memcpy(cp, t->cap->paste_off, n2 + 1);
 497                         if (t->te)
 498                                 memcpy(cp + n2, t->te, n1 + 1);
 499                         t->te = cp;
 500                 }
 501         }
 502
 503         t->ut = getflag(t->cap,US "ut");
 504         t->Sb = jgetstr(t->cap,US "AB");
 505         if (!t->Sb) t->Sb = jgetstr(t->cap,US "Sb");
 506         t->Sf = jgetstr(t->cap,US "AF");
 507         if (!t->Sf) t->Sf = jgetstr(t->cap,US "Sf");
 508
 509         if (!(t->me = jgetstr(t->cap,US "me")))
 510                 goto oops;
 511         if ((t->mb = jgetstr(t->cap,US "mb")))
 512                 t->avattr |= BLINK;
 513         if ((t->md = jgetstr(t->cap,US "md")))
 514                 t->avattr |= BOLD;
 515         if ((t->mh = jgetstr(t->cap,US "mh")))
 516                 t->avattr |= DIM;
 517         if ((t->mr = jgetstr(t->cap,US "mr")))
 518                 t->avattr |= INVERSE;
 519  oops:
 520
 521         if (assume_color && !t->Sf && t->md) {
 522                 /*
 523                  * Install colour support if this looks like an ANSI
 524                  * terminal — that is, it’s got bold with ESC ‘[’…
 525                  */
 526                 if (t->md[0] == '\\' && t->md[1] == 'E' && t->md[2] == '[') {
 527                         t->ut = 1;
 528                         t->Sf =US "\\E[3%dm";
 529                         t->Sb =US "\\E[4%dm";
 530                 } else if (t->md[0] == '\033' && t->md[1] == '[') {
 531                         t->ut = 1;
 532                         t->Sf =US "\033[3%p1%dm";
 533                         t->Sb =US "\033[4%p1%dm";
 534                 }
 535         }
 536
 537         if (getnum(t->cap,US "sg") <= 0 && !t->mr && jgetstr(t->cap,US "se")) {
 538                 if ((t->so = jgetstr(t->cap,US "so")) != NULL)
 539                         t->avattr |= INVERSE;
 540                 t->se = jgetstr(t->cap,US "se");
 541         }
 542         if (getflag(t->cap,US "xs") || getflag(t->cap,US "xt"))
 543                 t->so = NULL;
 544
 545         if (getnum(t->cap,US "ug") <= 0 && jgetstr(t->cap,US "ue")) {
 546                 if ((t->us = jgetstr(t->cap,US "us")) != NULL)
 547                         t->avattr |= UNDERLINE;
 548                 t->ue = jgetstr(t->cap,US "ue");
 549         }
 550
 551         if (!(t->uc = jgetstr(t->cap,US "uc")))
 552                 if (t->ul)
 553                         t->uc =US "_";
 554         if (t->uc)
 555                 t->avattr |= UNDERLINE;
 556
 557         t->ms = getflag(t->cap,US "ms");
 558
 559         t->da = getflag(t->cap,US "da");
 560         t->db = getflag(t->cap,US "db");
 561         t->cs = jgetstr(t->cap,US "cs");
 562         t->rr = getflag(t->cap,US "rr");
 563         t->sf = jgetstr(t->cap,US "sf");
 564         t->sr = jgetstr(t->cap,US "sr");
 565         t->SF = jgetstr(t->cap,US "SF");
 566         t->SR = jgetstr(t->cap,US "SR");
 567         t->al = jgetstr(t->cap,US "al");
 568         t->dl = jgetstr(t->cap,US "dl");
 569         t->AL = jgetstr(t->cap,US "AL");
 570         t->DL = jgetstr(t->cap,US "DL");
 571         if (!getflag(t->cap,US "ns") && !t->sf)
 572                 t->sf =US "\12";
 573
 574         if (!getflag(t->cap,US "in") && baud < 38400) {
 575                 t->dc = jgetstr(t->cap,US "dc");
 576                 t->DC = jgetstr(t->cap,US "DC");
 577                 t->dm = jgetstr(t->cap,US "dm");
 578                 t->ed = jgetstr(t->cap,US "ed");
 579
 580                 t->im = jgetstr(t->cap,US "im");
 581                 t->ei = jgetstr(t->cap,US "ei");
 582                 t->ic = jgetstr(t->cap,US "ic");
 583                 t->IC = jgetstr(t->cap,US "IC");
 584                 t->ip = jgetstr(t->cap,US "ip");
 585                 t->mi = getflag(t->cap,US "mi");
 586         }
 587
 588         if (jgetstr(t->cap,US "bc"))
 589                 t->bs = jgetstr(t->cap,US "bc");
 590         else if (jgetstr(t->cap,US "le"))
 591                 t->bs = jgetstr(t->cap,US "le");
 592         if (getflag(t->cap,US "bs"))
 593                 t->bs =US "\10";
 594
 595         t->cbs = tcost(t->cap, t->bs, 1, 2, 2, 0, 0);
 596
 597         t->lf =US "\12";
 598         if (jgetstr(t->cap,US "do"))
 599                 t->lf = jgetstr(t->cap,US "do");
 600         t->clf = tcost(t->cap, t->lf, 1, 2, 2, 0, 0);
 601
 602         t->up = jgetstr(t->cap,US "up");
 603         t->cup = tcost(t->cap, t->up, 1, 2, 2, 0, 0);
 604
 605         t->nd = jgetstr(t->cap,US "nd");
 606
 607         t->tw = 8;
 608         if (getnum(t->cap,US "it") > 0)
 609                 t->tw = getnum(t->cap,US "it");
 610         else if (getnum(t->cap,US "tw") > 0)
 611                 t->tw = getnum(t->cap,US "tw");
 612
 613         if (!(t->ta = jgetstr(t->cap,US "ta")))
 614                 if (getflag(t->cap,US "pt"))
 615                         t->ta =US "\11";
 616         t->bt = jgetstr(t->cap,US "bt");
 617         if (getflag(t->cap,US "xt") || !usetabs) {
 618                 t->ta = NULL;
 619                 t->bt = NULL;
 620         }
 621
 622         t->cta = tcost(t->cap, t->ta, 1, 2, 2, 0, 0);
 623         t->cbt = tcost(t->cap, t->bt, 1, 2, 2, 0, 0);
 624
 625         t->ho = jgetstr(t->cap,US "ho");
 626         t->cho = tcost(t->cap, t->ho, 1, 2, 2, 0, 0);
 627         t->ll = jgetstr(t->cap,US "ll");
 628         t->cll = tcost(t->cap, t->ll, 1, 2, 2, 0, 0);
 629
 630         t->cr =US "\15";
 631         if (jgetstr(t->cap,US "cr"))
 632                 t->cr = jgetstr(t->cap,US "cr");
 633         if (getflag(t->cap,US "nc") || getflag(t->cap,US "xr"))
 634                 t->cr = NULL;
 635         t->ccr = tcost(t->cap, t->cr, 1, 2, 2, 0, 0);
 636
 637         t->cRI = tcost(t->cap, t->RI = jgetstr(t->cap,US "RI"), 1, 2, 2, 0, 0);
 638         t->cLE = tcost(t->cap, t->LE = jgetstr(t->cap,US "LE"), 1, 2, 2, 0, 0);
 639         t->cUP = tcost(t->cap, t->UP = jgetstr(t->cap,US "UP"), 1, 2, 2, 0, 0);
 640         t->cDO = tcost(t->cap, t->DO = jgetstr(t->cap,US "DO"), 1, 2, 2, 0, 0);
 641         t->cch = tcost(t->cap, t->ch = jgetstr(t->cap,US "ch"), 1, 2, 2, 0, 0);
 642         t->ccv = tcost(t->cap, t->cv = jgetstr(t->cap,US "cv"), 1, 2, 2, 0, 0);
 643         t->ccV = tcost(t->cap, t->cV = jgetstr(t->cap,US "cV"), 1, 2, 2, 0, 0);
 644         t->ccm = tcost(t->cap, t->cm = jgetstr(t->cap,US "cm"), 1, 2, 2, 0, 0);
 645
 646         t->cce = tcost(t->cap, t->ce = jgetstr(t->cap,US "ce"), 1, 2, 2, 0, 0);
 647
 648 /* Make sure terminal can do absolute positioning */
 649         if (t->cm)
 650                 goto ok;
 651         if (t->ch && t->cv)
 652                 goto ok;
 653         if (t->ho && (t->lf || t->DO || t->cv))
 654                 goto ok;
 655         if (t->ll && (t->up || t->UP || t->cv))
 656                 goto ok;
 657         if (t->cr && t->cv)
 658                 goto ok;
 659         leave = 1;
 660         ttclose();
 661         signrm(0);
 662 #ifdef  DEBUG
 663         /* these are strings, but I do not know if %s is appropriate -mirabilos */
 664         fprintf(stderr,"cm=%d ch=%d cv=%d ho=%d lf=%d DO=%d ll=%d up=%d UP=%d cr=%d\n",
 665                        t->cm, t->ch, t->cv, t->ho, t->lf, t->DO, t->ll, t->up, t->UP, t->cr);
 666 #endif
 667         fprintf(stderr,"Sorry, your terminal can't do absolute cursor positioning.\nIt's broken\n");
 668         return NULL;
 669  ok:
 670
 671 /* Determine if we can scroll */
 672         if (((t->sr || t->SR) && (t->sf || t->SF) && t->cs) || ((t->al || t->AL) && (t->dl || t->DL)))
 673                 t->scroll = 1;
 674         else if (baud < 38400)
 675                 mid = 1;
 676
 677 /* Determine if we can ins/del within lines */
 678         if ((t->im || t->ic || t->IC) && (t->dc || t->DC))
 679                 t->insdel = 1;
 680
 681 /* Adjust for high baud rates */
 682         if (baud >= 38400) {
 683                 t->scroll = 0;
 684                 t->insdel = 0;
 685         }
 686
 687 /* Send out terminal initialization string */
 688         if (t->ti)
 689                 texec(t->cap, t->ti, 1, 0, 0, 0, 0);
 690         if (!skiptop && t->cl)
 691                 texec(t->cap, t->cl, 1, 0, 0, 0, 0);
 692
 693 /* Initialize variable screen size dependant vars */
 694         t->htab = calloc(256, sizeof(struct hentry));
 695
 696         nresize(t, t->co, t->li);
 697
 698         return t;
 699 }
 700
 701 /* Change size of screen */
 702
 703 void nresize(SCRN *t, int w, int h)
 704 {
 705         if (h < 4)
 706                 h = 4;
 707         if (w < 8)
 708                 w = 8;
 709         t->li = h;
 710         t->co = w;
 711         if (t->sary)
 712                 joe_free(t->sary);
 713         if (t->updtab)
 714                 joe_free(t->updtab);
 715         if (t->syntab)
 716                 joe_free(t->syntab);
 717         if (t->scrn)
 718                 joe_free(t->scrn);
 719         if (t->attr)
 720                 joe_free(t->attr);
 721         if (t->compose)
 722                 joe_free(t->compose);
 723         if (t->ofst)
 724                 joe_free(t->ofst);
 725         if (t->ary)
 726                 joe_free(t->ary);
 727         t->scrn = calloc(t->li * t->co, sizeof(int));
 728         t->attr = calloc(t->li * t->co, sizeof(int));
 729         t->sary = calloc(t->li, sizeof(int));
 730         t->updtab = calloc(t->li, sizeof(int));
 731         t->syntab = calloc(t->li, sizeof(int));
 732         t->compose = calloc(t->co, sizeof(int));
 733         t->ofst = calloc(t->co, sizeof(int));
 734         t->ary = calloc(t->co, sizeof(struct hentry));
 735
 736         nredraw(t);
 737 }
 738
 739 /* Calculate cost of positioning the cursor using only relative cursor
 740  * positioning functions: t->(lf, DO, up, UP, bs, LE, RI, ta, bt) and rewriting
 741  * characters (to move right)
 742  *
 743  * This doesn't use the am and bw capabilities although it probably could.
 744  */
 745
 746 static int relcost(register SCRN *t, register int x, register int y, register int ox, register int oy)
 747 {
 748         int cost = 0;
 749
 750 /* If we don't know the cursor position, force use of absolute positioning */
 751         if (oy == -1 || ox == -1)
 752                 return 10000;
 753
 754 /* First adjust row */
 755         if (y > oy) {
 756                 int dist = y - oy;
 757
 758                 /* Have to go down */
 759                 if (t->lf) {
 760                         int mult = dist * t->clf;
 761
 762                         if (dist < 10 && t->cDO < mult)
 763                                 cost += t->cDO;
 764                         else if (dist >= 10 && t->cDO + 1 < mult)
 765                                 cost += t->cDO + 1;
 766                         else
 767                                 cost += mult;
 768                 } else if (t->DO)
 769                         if (dist < 10)
 770                                 cost += t->cDO;
 771                         else
 772                                 cost += t->cDO + 1;
 773                 else
 774                         return 10000;
 775         } else if (y < oy) {
 776                 int dist = oy - y;
 777
 778                 /* Have to go up */
 779                 if (t->up) {
 780                         int mult = dist * t->cup;
 781
 782                         if (dist < 10 && t->cUP < mult)
 783                                 cost += t->cUP;
 784                         else if (dist >= 10 && t->cUP < mult)
 785                                 cost += t->cUP + 1;
 786                         else
 787                                 cost += mult;
 788                 } else if (t->UP)
 789                         if (dist < 10)
 790                                 cost += t->cUP;
 791                         else
 792                                 cost += t->cUP + 1;
 793                 else
 794                         return 10000;
 795         }
 796
 797 /* Now adjust column */
 798
 799 /* Use tabs */
 800         if (x > ox && t->ta) {
 801                 int dist = x - ox;
 802                 int ntabs = (dist + ox % t->tw) / t->tw;
 803                 int cstunder = x % t->tw + t->cta * ntabs;
 804                 int cstover;
 805
 806                 if (x + t->tw < t->co && t->bs)
 807                         cstover = t->cbs * (t->tw - x % t->tw) + t->cta * (ntabs + 1);
 808                 else
 809                         cstover = 10000;
 810                 if (dist < 10 && cstunder < t->cRI && cstunder < x - ox && cstover > cstunder)
 811                         return cost + cstunder;
 812                 else if (cstunder < t->cRI + 1 && cstunder < x - ox && cstover > cstunder)
 813                         return cost + cstunder;
 814                 else if (dist < 10 && cstover < t->cRI && cstover < x - ox)
 815                         return cost + cstover;
 816                 else if (cstover < t->cRI + 1 && cstover < x - ox)
 817                         return cost + cstover;
 818         } else if (x < ox && t->bt) {
 819                 int dist = ox - x;
 820                 int ntabs = (dist + t->tw - ox % t->tw) / t->tw;
 821                 int cstunder, cstover;
 822
 823                 if (t->bs)
 824                         cstunder = t->cbt * ntabs + t->cbs * (t->tw - x % t->tw);
 825                 else
 826                         cstunder = 10000;
 827                 if (x - t->tw >= 0)
 828                         cstover = t->cbt * (ntabs + 1) + x % t->tw;
 829                 else
 830                         cstover = 10000;
 831                 if (dist < 10 && cstunder < t->cLE && (t->bs ? cstunder < (ox - x) * t->cbs : 1)
 832                     && cstover > cstunder)
 833                         return cost + cstunder;
 834                 if (cstunder < t->cLE + 1 && (t->bs ? cstunder < (ox - x) * t->cbs : 1)
 835                     && cstover > cstunder)
 836                         return cost + cstunder;
 837                 else if (dist < 10 && cstover < t->cRI && (t->bs ? cstover < (ox - x) * t->cbs : 1))
 838                         return cost + cstover;
 839                 else if (cstover < t->cRI + 1 && (t->bs ? cstover < (ox - x) * t->cbs : 1))
 840                         return cost + cstover;
 841         }
 842
 843 /* Use simple motions */
 844         if (x < ox) {
 845                 int dist = ox - x;
 846
 847                 /* Have to go left */
 848                 if (t->bs) {
 849                         int mult = dist * t->cbs;
 850
 851                         if (t->cLE < mult && dist < 10)
 852                                 cost += t->cLE;
 853                         else if (t->cLE + 1 < mult)
 854                                 cost += t->cLE + 1;
 855                         else
 856                                 cost += mult;
 857                 } else if (t->LE)
 858                         cost += t->cLE;
 859                 else
 860                         return 10000;
 861         } else if (x > ox) {
 862                 int dist = x - ox;
 863
 864                 /* Have to go right */
 865                 /* Hmm.. this should take into account possible attribute changes */
 866                 if (t->cRI < dist && dist < 10)
 867                         cost += t->cRI;
 868                 else if (t->cRI + 1 < dist)
 869                         cost += t->cRI + 1;
 870                 else
 871                         cost += dist;
 872         }
 873
 874         return cost;
 875 }
 876
 877 /* Find optimal set of cursor positioning commands to move from the current
 878  * cursor row and column (either or both of which might be unknown) to the
 879  * given new row and column and execute them.
 880  */
 881
 882 static void cposs(register SCRN *t, register int x, register int y)
 883 {
 884         register int bestcost, cost;
 885         int bestway;
 886         int hy;
 887         int hl;
 888
 889 /* Home y position is usually 0, but it is 'top' if we have scrolling region
 890  * relative addressing
 891  */
 892         if (t->rr) {
 893                 hy = t->top;
 894                 hl = t->bot - 1;
 895         } else {
 896                 hy = 0;
 897                 hl = t->li - 1;
 898         }
 899
 900 /* Assume best way is with only using relative cursor positioning */
 901
 902         bestcost = relcost(t, x, y, t->x, t->y);
 903         bestway = 0;
 904
 905 /* Now check if combinations of absolute cursor positioning functions are
 906  * better (or necessary in case one or both cursor positions are unknown)
 907  */
 908
 909         if (t->ccm < bestcost) {
 910                 cost = tcost(t->cap, t->cm, 1, y, x, 0, 0);
 911                 if (cost < bestcost) {
 912                         bestcost = cost;
 913                         bestway = 6;
 914                 }
 915         }
 916         if (t->ccr < bestcost) {
 917                 cost = relcost(t, x, y, 0, t->y) + t->ccr;
 918                 if (cost < bestcost) {
 919                         bestcost = cost;
 920                         bestway = 1;
 921                 }
 922         }
 923         if (t->cho < bestcost) {
 924                 cost = relcost(t, x, y, 0, hy) + t->cho;
 925                 if (cost < bestcost) {
 926                         bestcost = cost;
 927                         bestway = 2;
 928                 }
 929         }
 930         if (t->cll < bestcost) {
 931                 cost = relcost(t, x, y, 0, hl) + t->cll;
 932                 if (cost < bestcost) {
 933                         bestcost = cost;
 934                         bestway = 3;
 935                 }
 936         }
 937         if (t->cch < bestcost && x != t->x) {
 938                 cost = relcost(t, x, y, x, t->y) + tcost(t->cap, t->ch, 1, x, 0, 0, 0);
 939                 if (cost < bestcost) {
 940                         bestcost = cost;
 941                         bestway = 4;
 942                 }
 943         }
 944         if (t->ccv < bestcost && y != t->y) {
 945                 cost = relcost(t, x, y, t->x, y) + tcost(t->cap, t->cv, 1, y, 0, 0, 0);
 946                 if (cost < bestcost) {
 947                         bestcost = cost;
 948                         bestway = 5;
 949                 }
 950         }
 951         if (t->ccV < bestcost) {
 952                 cost = relcost(t, x, y, 0, y) + tcost(t->cap, t->cV, 1, y, 0, 0, 0);
 953                 if (cost < bestcost) {
 954                         bestcost = cost;
 955                         bestway = 13;
 956                 }
 957         }
 958         if (t->cch + t->ccv < bestcost && x != t->x && y != t->y) {
 959                 cost = tcost(t->cap, t->cv, 1, y - hy, 0, 0, 0) + tcost(t->cap, t->ch, 1, x, 0, 0, 0);
 960                 if (cost < bestcost) {
 961                         bestcost = cost;
 962                         bestway = 7;
 963                 }
 964         }
 965         if (t->ccv + t->ccr < bestcost && y != t->y) {
 966                 cost = tcost(t->cap, t->cv, 1, y, 0, 0, 0) + tcost(t->cap, t->cr, 1, 0, 0, 0, 0) + relcost(t, x, y, 0, y);
 967                 if (cost < bestcost) {
 968                         bestcost = cost;
 969                         bestway = 8;
 970                 }
 971         }
 972         if (t->cll + t->cch < bestcost) {
 973                 cost = tcost(t->cap, t->ll, 1, 0, 0, 0, 0) + tcost(t->cap, t->ch, 1, x, 0, 0, 0) + relcost(t, x, y, x, hl);
 974                 if (cost < bestcost) {
 975                         bestcost = cost;
 976                         bestway = 9;
 977                 }
 978         }
 979         if (t->cll + t->ccv < bestcost) {
 980                 cost = tcost(t->cap, t->ll, 1, 0, 0, 0, 0) + tcost(t->cap, t->cv, 1, y, 0, 0, 0) + relcost(t, x, y, 0, y);
 981                 if (cost < bestcost) {
 982                         bestcost = cost;
 983                         bestway = 10;
 984                 }
 985         }
 986         if (t->cho + t->cch < bestcost) {
 987                 cost = tcost(t->cap, t->ho, 1, 0, 0, 0, 0) + tcost(t->cap, t->ch, 1, x, 0, 0, 0) + relcost(t, x, y, x, hy);
 988                 if (cost < bestcost) {
 989                         bestcost = cost;
 990                         bestway = 11;
 991                 }
 992         }
 993         if (t->cho + t->ccv < bestcost) {
 994                 cost = tcost(t->cap, t->ho, 1, 0, 0, 0, 0) + tcost(t->cap, t->cv, 1, y, 0, 0, 0) + relcost(t, x, y, 0, y);
 995                 if (cost < bestcost) {
 996                         /* dead store: bestcost = cost; */
 997                         bestway = 12;
 998                 }
 999         }
1000
1001 /* Do absolute cursor positioning if we don't know the cursor position or
1002  * if it is faster than doing only relative cursor positioning
1003  */
1004
1005         switch (bestway) {
1006         case 1:
1007                 texec(t->cap, t->cr, 1, 0, 0, 0, 0);
1008                 t->x = 0;
1009                 break;
1010         case 2:
1011                 texec(t->cap, t->ho, 1, 0, 0, 0, 0);
1012                 t->x = 0;
1013                 t->y = hy;
1014                 break;
1015         case 3:
1016                 texec(t->cap, t->ll, 1, 0, 0, 0, 0);
1017                 t->x = 0;
1018                 t->y = hl;
1019                 break;
1020         case 9:
1021                 texec(t->cap, t->ll, 1, 0, 0, 0, 0);
1022                 t->x = 0;
1023                 t->y = hl;
1024                 goto doch;
1025         case 11:
1026                 texec(t->cap, t->ho, 1, 0, 0, 0, 0);
1027                 t->x = 0;
1028                 t->y = hy;
1029                 /* FALLTHROUGH */
1030  doch:
1031                 /* FALLTHROUGH */
1032         case 4:
1033                 texec(t->cap, t->ch, 1, x, 0, 0, 0);
1034                 t->x = x;
1035                 break;
1036         case 10:
1037                 texec(t->cap, t->ll, 1, 0, 0, 0, 0);
1038                 t->x = 0;
1039                 t->y = hl;
1040                 goto docv;
1041         case 12:
1042                 texec(t->cap, t->ho, 1, 0, 0, 0, 0);
1043                 t->x = 0;
1044                 t->y = hy;
1045                 goto docv;
1046         case 8:
1047                 texec(t->cap, t->cr, 1, 0, 0, 0, 0);
1048                 t->x = 0;
1049                 /* FALLTHROUGH */
1050  docv:
1051                 /* FALLTHROUGH */
1052         case 5:
1053                 texec(t->cap, t->cv, 1, y, 0, 0, 0);
1054                 t->y = y;
1055                 break;
1056         case 6:
1057                 texec(t->cap, t->cm, 1, y, x, 0, 0);
1058                 t->y = y;
1059                 t->x = x;
1060                 break;
1061         case 7:
1062                 texec(t->cap, t->cv, 1, y, 0, 0, 0);
1063                 t->y = y;
1064                 texec(t->cap, t->ch, 1, x, 0, 0, 0);
1065                 t->x = x;
1066                 break;
1067         case 13:
1068                 texec(t->cap, t->cV, 1, y, 0, 0, 0);
1069                 t->y = y;
1070                 t->x = 0;
1071                 break;
1072         }
1073
1074 /* Use relative cursor position functions if we're not there yet */
1075
1076 /* First adjust row */
1077         if (y > t->y) {
1078                 /* Have to go down */
1079                 if (!t->lf || t->cDO < (y - t->y) * t->clf) {
1080                         texec(t->cap, t->DO, 1, y - t->y, 0, 0, 0);
1081                         t->y = y;
1082                 } else
1083                         while (y > t->y) {
1084                                 texec(t->cap, t->lf, 1, 0, 0, 0, 0);
1085                                 ++t->y;
1086                         }
1087         } else if (y < t->y) {
1088                 /* Have to go up */
1089                 if (!t->up || t->cUP < (t->y - y) * t->cup) {
1090                         texec(t->cap, t->UP, 1, t->y - y, 0, 0, 0);
1091                         t->y = y;
1092                 } else
1093                         while (y < t->y) {
1094                                 texec(t->cap, t->up, 1, 0, 0, 0, 0);
1095                                 --t->y;
1096                         }
1097         }
1098
1099 /* Use tabs */
1100         if (x > t->x && t->ta) {
1101                 int ntabs = (x - t->x + t->x % t->tw) / t->tw;
1102                 int cstunder = x % t->tw + t->cta * ntabs;
1103                 int cstover;
1104
1105                 if (x + t->tw < t->co && t->bs)
1106                         cstover = t->cbs * (t->tw - x % t->tw) + t->cta * (ntabs + 1);
1107                 else
1108                         cstover = 10000;
1109                 if (cstunder < t->cRI && cstunder < x - t->x && cstover > cstunder) {
1110                         if (ntabs) {
1111                                 t->x = x - x % t->tw;
1112                                 do {
1113                                         texec(t->cap, t->ta, 1, 0, 0, 0, 0);
1114                                 } while (--ntabs);
1115                         }
1116                 } else if (cstover < t->cRI && cstover < x - t->x) {
1117                         t->x = t->tw + x - x % t->tw;
1118                         ++ntabs;
1119                         do {
1120                                 texec(t->cap, t->ta, 1, 0, 0, 0, 0);
1121                         } while (--ntabs);
1122                 }
1123         } else if (x < t->x && t->bt) {
1124                 int ntabs = ((t->x + t->tw - 1) - (t->x + t->tw - 1) % t->tw - ((x + t->tw - 1) - (x + t->tw - 1) % t->tw)) / t->tw;
1125                 int cstunder, cstover;
1126
1127                 if (t->bs)
1128                         cstunder = t->cbt * ntabs + t->cbs * (t->tw - x % t->tw);
1129                 else
1130                         cstunder = 10000;
1131                 if (x - t->tw >= 0)
1132                         cstover = t->cbt * (ntabs + 1) + x % t->tw;
1133                 else
1134                         cstover = 10000;
1135                 if (cstunder < t->cLE && (t->bs ? cstunder < (t->x - x) * t->cbs : 1)
1136                     && cstover > cstunder) {
1137                         if (ntabs) {
1138                                 do {
1139                                         texec(t->cap, t->bt, 1, 0, 0, 0, 0);
1140                                 } while (--ntabs);
1141                                 t->x = x + t->tw - x % t->tw;
1142                         }
1143                 } else if (cstover < t->cRI && (t->bs ? cstover < (t->x - x) * t->cbs : 1)) {
1144                         t->x = x - x % t->tw;
1145                         ++ntabs;
1146                         do {
1147                                 texec(t->cap, t->bt, 1, 0, 0, 0, 0);
1148                         } while (--ntabs);
1149                 }
1150         }
1151
1152 /* Now adjust column */
1153         if (x < t->x) {
1154                 /* Have to go left */
1155                 if (!t->bs || t->cLE < (t->x - x) * t->cbs) {
1156                         texec(t->cap, t->LE, 1, t->x - x, 0, 0, 0);
1157                         t->x = x;
1158                 } else
1159                         while (x < t->x) {
1160                                 texec(t->cap, t->bs, 1, 0, 0, 0, 0);
1161                                 --t->x;
1162                         }
1163         } else if (x > t->x) {
1164                 /* Have to go right */
1165                 /* Hmm.. this should take into account possible attribute changes */
1166                 if (x-t->x>1 && t->RI) {
1167                         texec(t->cap, t->RI, 1, x - t->x, 0, 0, 0);
1168                         t->x = x;
1169                 } else {
1170                         while(x>t->x) {
1171                                 texec(t->cap, t->nd, 1, 0, 0, 0, 0);
1172                                 ++t->x;
1173                         }
1174                 }
1175
1176                 /* if (t->cRI < x - t->x) { */
1177 /*              } else {
1178                         int *s = t->scrn + t->x + t->y * t->co;
1179                         int *a = t->attr + t->x + t->y * t->co;
1180
1181                         if (t->ins)
1182                                 clrins(t);
1183                         while (x > t->x) {
1184                                 int atr, c;
1185                                 if(*s==-1) c=' ', atr=0;
1186                                 else c= *s, atr= *a;
1187
1188                                 if (atr != t->attrib)
1189                                         set_attr(t, atr);
1190                                 utf8_putc(c);
1191                                 ++s;
1192                                 ++a;
1193                                 ++t->x;
1194                         }
1195                 }
1196 */
1197         }
1198 }
1199
1200 int cpos(register SCRN *t, register int x, register int y)
1201 {
1202         /* Move cursor quickly if we can */
1203         if (y == t->y) {
1204                 if (x > t->x && x - t->x < 4 && !t->ins) {
1205                         int *cs = t->scrn + t->x + t->co * t->y;
1206                         int *as = t->attr + t->x + t->co * t->y;
1207                         do {
1208                                 /* We used to space over unknown chars, but they now could be
1209                                    the right half of a UTF-8 two column character, so we can't.
1210                                    Also do not try to emit utf-8 sequences here. */
1211                                 if(*cs<32 || *cs>=127)
1212                                         break;
1213
1214                                 /* has a combining character attached? */
1215                                 if (*as & HAS_COMBINING)
1216                                         break;
1217
1218                                 if (*as != t->attrib)
1219                                         set_attr(t, *as);
1220
1221                                 ttputc(*cs);
1222
1223                                 ++cs;
1224                                 ++as;
1225                                 ++t->x;
1226
1227                         } while (x != t->x);
1228                 }
1229                 if (x == t->x)
1230                         return 0;
1231         }
1232         if ((!t->ms && t->attrib & (INVERSE | UNDERLINE | BG_NOT_DEFAULT)) ||
1233             (t->ut && (t->attrib & BG_NOT_DEFAULT)))
1234                 set_attr(t, t->attrib & ~(INVERSE | UNDERLINE | BG_MASK));
1235
1236         /* Should be in cposs */
1237         if (y < t->top || y >= t->bot)
1238                 setregn(t, 0, t->li);
1239
1240         cposs(t, x, y);
1241         return 0;
1242 }
1243
1244 static void doinschr(SCRN *t, int x, int y, int *s, int *as, int n)
1245 {
1246         int a;
1247
1248         if (x < 0) {
1249                 s -= x;
1250                 as -= x;
1251                 x = 0;
1252         }
1253         if (x >= t->co - 1 || n <= 0)
1254                 return;
1255         if (t->im || t->ic || t->IC) {
1256                 cpos(t, x, y);
1257                 if ((n == 1 && t->ic) || !t->IC) {
1258                         if (!t->ic)
1259                                 setins(t, x);
1260                         for (a = 0; a != n; ++a) {
1261                                 texec(t->cap, t->ic, 1, x, 0, 0, 0);
1262                                 texec(t->cap, t->ip, 1, x, 0, 0, 0);
1263                         }
1264                         if (!t->mi)
1265                                 clrins(t);
1266                 } else {
1267                         texec(t->cap, t->IC, 1, n, 0, 0, 0);
1268                 }
1269         }
1270         mmove(t->scrn + x + t->co * y + n, t->scrn + x + t->co * y, (t->co - (x + n)) * sizeof(int));
1271         mmove(t->attr + x + t->co * y + n, t->attr + x + t->co * y, (t->co - (x + n)) * sizeof(int));
1272         mmove(t->scrn + x + t->co * y, s, n * sizeof(int));
1273         mmove(t->attr + x + t->co * y, s, n * sizeof(int));
1274 }
1275
1276 static void dodelchr(SCRN *t, int x, int y, int n)
1277 {
1278         int a;
1279
1280         if (x < 0)
1281                 x = 0;
1282         if (!n || x >= t->co - 1)
1283                 return;
1284         if (t->dc || t->DC) {
1285                 cpos(t, x, y);
1286                 texec(t->cap, t->dm, 1, x, 0, 0, 0);    /* Enter delete mode */
1287                 if ((n == 1 && t->dc) || !t->DC)
1288                         for (a = n; a; --a)
1289                                 texec(t->cap, t->dc, 1, x, 0, 0, 0);
1290                 else
1291                         texec(t->cap, t->DC, 1, n, 0, 0, 0);
1292                 texec(t->cap, t->ed, 1, x, 0, 0, 0);    /* Exit delete mode */
1293         }
1294         mmove(t->scrn + t->co * y + x, t->scrn + t->co * y + x + n, (t->co - (x + n)) * sizeof(int));
1295         mmove(t->attr + t->co * y + x, t->attr + t->co * y + x + n, (t->co - (x + n)) * sizeof(int));
1296         msetI(t->scrn + t->co * y + t->co - n, ' ', n);
1297         msetI(t->attr + t->co * y + t->co - n, 0, n);
1298 }
1299
1300 /* Insert/Delete within line */
1301 /* FIXME: doesn't know about attr */
1302
1303 void magic(SCRN *t, int y, int *cs, int *ca,int *s, int *a, int placex)
1304 {
1305         struct hentry *htab = t->htab;
1306         int *ofst = t->ofst;
1307         int aryx = 1;
1308         int x;
1309
1310         if (!(t->im || t->ic || t->IC) || !(t->dc || t->DC))
1311                 return;
1312         mset(htab, 0, 256 * sizeof(struct hentry));
1313
1314         msetI(ofst, 0, t->co);
1315
1316 /* Build hash table */
1317         for (x = 0; x != t->co - 1; ++x) {
1318                 t->ary[aryx].next = htab[cs[x] & 255].next;
1319                 t->ary[aryx].loc = x;
1320                 ++htab[cs[x] & 255].loc;
1321                 htab[cs[x] & 255].next = aryx++;
1322         }
1323
1324 /* Build offset table */
1325         for (x = 0; x < t->co - 1;)
1326                 if (htab[s[x] & 255].loc >= 15)
1327                         ofst[x++] = t->co - 1;
1328                 else {
1329                         int aryy;
1330                         int maxaryy = 0;
1331                         int maxlen = 0;
1332                         int best = 0;
1333                         int bestback = 0;
1334                         int z;
1335
1336                         for (aryy = htab[s[x] & 255].next; aryy; aryy = t->ary[aryy].next) {
1337                                 int amnt, back;
1338                                 int tsfo = t->ary[aryy].loc - x;
1339                                 int cst = -abs(tsfo);
1340                                 int pre = 32;
1341
1342                                 for (amnt = 0; x + amnt < t->co - 1 && x + tsfo + amnt < t->co - 1; ++amnt) {
1343                                         if (cs[x + tsfo + amnt] != s[x + amnt])
1344                                                 break;
1345                                         else if ((s[x + amnt] & 255) != 32 || pre != 32)
1346                                                 ++cst;
1347                                         pre = s[x + amnt] & 255;
1348                                 }
1349                                 pre = 32;
1350                                 for (back = 0; back + x > 0 && back + tsfo + x > 0; --back) {
1351                                         if (cs[x + tsfo + back - 1] != s[x + back - 1])
1352                                                 break;
1353                                         else if ((s[x + back - 1] & 255) != 32 || pre != 32)
1354                                                 ++cst;
1355                                         pre = s[x + back - 1] & 255;
1356                                 }
1357                                 if (cst > best) {
1358                                         maxaryy = aryy;
1359                                         maxlen = amnt;
1360                                         best = cst;
1361                                         bestback = back;
1362                                 }
1363                         }
1364                         if (!maxlen) {
1365                                 ofst[x] = t->co - 1;
1366                                 maxlen = 1;
1367                         } else if (best < 2)
1368                                 for (z = 0; z != maxlen; ++z)
1369                                         ofst[x + z] = t->co - 1;
1370                         else
1371                                 for (z = 0; z != maxlen - bestback; ++z)
1372                                         ofst[x + z + bestback] = t->ary[maxaryy].loc - x;
1373                         x += maxlen;
1374                 }
1375
1376 /* Apply scrolling commands */
1377
1378         for (x = 0; x != t->co - 1; ++x) {
1379                 int q = ofst[x];
1380
1381                 if (q && q != t->co - 1) {
1382                         if (q > 0) {
1383                                 int z, fu;
1384
1385                                 for (z = x; z != t->co - 1 && ofst[z] == q; ++z)
1386                                         ;
1387                                 while (s[x] == cs[x] && x < placex)
1388                                         ++x;
1389                                 dodelchr(t, x, y, q);
1390                                 for (fu = x; fu != t->co - 1; ++fu)
1391                                         if (ofst[fu] != t->co - 1)
1392                                                 ofst[fu] -= q;
1393                                 x = z - 1;
1394                         } else {
1395                                 int z, fu;
1396
1397                                 for (z = x; z != t->co - 1 && ofst[z] == q; ++z)
1398                                         ;
1399                                 while (s[x + q] == cs[x + q] && x - q < placex)
1400                                         ++x;
1401                                 doinschr(t, x + q, y, s + x + q, a + x + q, -q);
1402                                 for (fu = x; fu != t->co - 1; ++fu)
1403                                         if (ofst[fu] != t->co - 1)
1404                                                 ofst[fu] -= q;
1405                                 x = z - 1;
1406                         }
1407                 }
1408         }
1409 }
1410
1411 static void doupscrl(SCRN *t, int top, int bot, int amnt)
1412 {
1413         int a = amnt;
1414
1415         if (!amnt)
1416                 return;
1417         set_attr(t, 0);
1418         if (top == 0 && bot == t->li && (t->sf || t->SF)) {
1419                 setregn(t, 0, t->li);
1420                 cpos(t, 0, t->li - 1);
1421                 if ((amnt == 1 && t->sf) || !t->SF)
1422                         while (a--)
1423                                 texec(t->cap, t->sf, 1, t->li - 1, 0, 0, 0);
1424                 else
1425                         texec(t->cap, t->SF, a, a, 0, 0, 0);
1426                 goto done;
1427         }
1428         if (bot == t->li && (t->dl || t->DL)) {
1429                 setregn(t, 0, t->li);
1430                 cpos(t, 0, top);
1431                 if ((amnt == 1 && t->dl) || !t->DL)
1432                         while (a--)
1433                                 texec(t->cap, t->dl, 1, top, 0, 0, 0);
1434                 else
1435                         texec(t->cap, t->DL, a, a, 0, 0, 0);
1436                 goto done;
1437         }
1438         if (t->cs && (t->sf || t->SF)) {
1439                 setregn(t, top, bot);
1440                 cpos(t, 0, bot - 1);
1441                 if ((amnt == 1 && t->sf) || !t->SF)
1442                         while (a--)
1443                                 texec(t->cap, t->sf, 1, bot - 1, 0, 0, 0);
1444                 else
1445                         texec(t->cap, t->SF, a, a, 0, 0, 0);
1446                 goto done;
1447         }
1448         if ((t->dl || t->DL) && (t->al || t->AL)) {
1449                 cpos(t, 0, top);
1450                 if ((amnt == 1 && t->dl) || !t->DL)
1451                         while (a--)
1452                                 texec(t->cap, t->dl, 1, top, 0, 0, 0);
1453                 else
1454                         texec(t->cap, t->DL, a, a, 0, 0, 0);
1455                 a = amnt;
1456                 cpos(t, 0, bot - amnt);
1457                 if ((amnt == 1 && t->al) || !t->AL)
1458                         while (a--)
1459                                 texec(t->cap, t->al, 1, bot - amnt, 0, 0, 0);
1460                 else
1461                         texec(t->cap, t->AL, a, a, 0, 0, 0);
1462                 goto done;
1463         }
1464         msetI(t->updtab + top, 1, bot - top);
1465         msetI(t->syntab + top, -1, bot - top);
1466         return;
1467
1468  done:
1469         mmove(t->scrn + top * t->co, t->scrn + (top + amnt) * t->co, (bot - top - amnt) * t->co * sizeof(int));
1470         mmove(t->attr + top * t->co, t->attr + (top + amnt) * t->co, (bot - top - amnt) * t->co * sizeof(int));
1471
1472         if (bot == t->li && t->db) {
1473                 msetI(t->scrn + (t->li - amnt) * t->co, -1, amnt * t->co);
1474                 msetI(t->attr + (t->li - amnt) * t->co, 0, amnt * t->co);
1475                 msetI(t->updtab + t->li - amnt, 1, amnt);
1476                 msetI(t->syntab + t->li - amnt, -1, amnt);
1477         } else {
1478                 msetI(t->scrn + (bot - amnt) * t->co, ' ', amnt * t->co);
1479                 msetI(t->attr + (bot - amnt) * t->co, 0, amnt * t->co);
1480         }
1481 }
1482
1483 static void dodnscrl(SCRN *t, int top, int bot, int amnt)
1484 {
1485         int a = amnt;
1486
1487         if (!amnt)
1488                 return;
1489         set_attr(t, 0);
1490         if (top == 0 && bot == t->li && (t->sr || t->SR)) {
1491                 setregn(t, 0, t->li);
1492                 cpos(t, 0, 0);
1493                 if ((amnt == 1 && t->sr) || !t->SR)
1494                         while (a--)
1495                                 texec(t->cap, t->sr, 1, 0, 0, 0, 0);
1496                 else
1497                         texec(t->cap, t->SR, a, a, 0, 0, 0);
1498                 goto done;
1499         }
1500         if (bot == t->li && (t->al || t->AL)) {
1501                 setregn(t, 0, t->li);
1502                 cpos(t, 0, top);
1503                 if ((amnt == 1 && t->al) || !t->AL)
1504                         while (a--)
1505                                 texec(t->cap, t->al, 1, top, 0, 0, 0);
1506                 else
1507                         texec(t->cap, t->AL, a, a, 0, 0, 0);
1508                 goto done;
1509         }
1510         if (t->cs && (t->sr || t->SR)) {
1511                 setregn(t, top, bot);
1512                 cpos(t, 0, top);
1513                 if ((amnt == 1 && t->sr) || !t->SR)
1514                         while (a--)
1515                                 texec(t->cap, t->sr, 1, top, 0, 0, 0);
1516                 else
1517                         texec(t->cap, t->SR, a, a, 0, 0, 0);
1518                 goto done;
1519         }
1520         if ((t->dl || t->DL) && (t->al || t->AL)) {
1521                 cpos(t, 0, bot - amnt);
1522                 if ((amnt == 1 && t->dl) || !t->DL)
1523                         while (a--)
1524                                 texec(t->cap, t->dl, 1, bot - amnt, 0, 0, 0);
1525                 else
1526                         texec(t->cap, t->DL, a, a, 0, 0, 0);
1527                 a = amnt;
1528                 cpos(t, 0, top);
1529                 if ((amnt == 1 && t->al) || !t->AL)
1530                         while (a--)
1531                                 texec(t->cap, t->al, 1, top, 0, 0, 0);
1532                 else
1533                         texec(t->cap, t->AL, a, a, 0, 0, 0);
1534                 goto done;
1535         }
1536         msetI(t->updtab + top, 1, bot - top);
1537         msetI(t->syntab + top, -1, bot - top);
1538         return;
1539  done:
1540         mmove(t->scrn + (top + amnt) * t->co, t->scrn + top * t->co, (bot - top - amnt) * t->co * sizeof(int));
1541         mmove(t->attr + (top + amnt) * t->co, t->attr + top * t->co, (bot - top - amnt) * t->co * sizeof(int));
1542
1543         if (!top && t->da) {
1544                 msetI(t->scrn, -1, amnt * t->co);
1545                 msetI(t->attr, 0, amnt * t->co);
1546                 msetI(t->updtab, 1, amnt);
1547                 msetI(t->syntab, -1, amnt);
1548         } else {
1549                 msetI(t->scrn + t->co * top, ' ', amnt * t->co);
1550                 msetI(t->attr + t->co * top, 0, amnt * t->co);
1551         }
1552 }
1553
1554 void nscroll(SCRN *t)
1555 {
1556         int y, z, q, r, p;
1557
1558         for (y = 0; y != t->li; ++y) {
1559                 q = t->sary[y];
1560                 if (ifhave)
1561                         return;
1562                 if (q && q != t->li) {
1563                         if (q > 0) {
1564                                 for (z = y; z != t->li && t->sary[z] == q; ++z)
1565                                         t->sary[z] = 0;
1566                                 doupscrl(t, y, z + q, q);
1567                                 y = z - 1;
1568                         } else {
1569                                 for (r = y; r != t->li && (t->sary[r] < 0 || t->sary[r] == t->li); ++r)
1570                                         ;
1571                                 p = r - 1;
1572                                 do {
1573                                         q = t->sary[p];
1574                                         if (q && q != t->li) {
1575                                                 for (z = p; t->sary[z] = 0, (z && t->sary[z - 1] == q); --z)
1576                                                         ;
1577                                                 dodnscrl(t, z + q, p + 1, -q);
1578                                                 p = z + 1;
1579                                         }
1580                                 } while (p-- != y);
1581                                 y = r - 1;
1582                         }
1583                 }
1584         }
1585         msetI(t->sary, 0, t->li);
1586 }
1587
1588 void npartial(SCRN *t)
1589 {
1590         set_attr(t, 0);
1591         clrins(t);
1592         setregn(t, 0, t->li);
1593 }
1594
1595 void nescape(SCRN *t)
1596 {
1597         npartial(t);
1598         cpos(t, 0, t->li - 1);
1599         eraeol(t, 0, t->li - 1);
1600         if (t->te)
1601                 texec(t->cap, t->te, 1, 0, 0, 0, 0);
1602 }
1603
1604 void nreturn(SCRN *t)
1605 {
1606         if (t->ti)
1607                 texec(t->cap, t->ti, 1, 0, 0, 0, 0);
1608         if (!skiptop && t->cl)
1609                 texec(t->cap, t->cl, 1, 0, 0, 0, 0);
1610         nredraw(t);
1611 }
1612
1613 void nclose(SCRN *t)
1614 {
1615         leave = 1;
1616         set_attr(t, 0);
1617         clrins(t);
1618         setregn(t, 0, t->li);
1619         cpos(t, 0, t->li - 1);
1620         if (t->te)
1621                 texec(t->cap, t->te, 1, 0, 0, 0, 0);
1622         ttclose();
1623         rmcap(t->cap);
1624         joe_free(t->scrn);
1625         joe_free(t->attr);
1626         joe_free(t->sary);
1627         joe_free(t->ofst);
1628         joe_free(t->htab);
1629         joe_free(t->ary);
1630         joe_free(t);
1631 }
1632
1633 void nscrldn(SCRN *t, int top, int bot, int amnt)
1634 {
1635         int x;
1636
1637         if (!amnt || top >= bot || bot > t->li)
1638                 return;
1639         if ((amnt < bot - top && bot - top - amnt < amnt / 2) || !t->scroll)
1640                 amnt = bot - top;
1641         if (amnt < bot - top) {
1642                 for (x = bot; x != top + amnt; --x) {
1643                         t->sary[x - 1] = (t->sary[x - amnt - 1] == t->li ? t->li : t->sary[x - amnt - 1] - amnt);
1644                         t->updtab[x - 1] = t->updtab[x - amnt - 1];
1645                         t->syntab[x - 1] = t->syntab[x - amnt - 1];
1646                 }
1647                 for (x = top; x != top + amnt; ++x) {
1648                         t->updtab[x] = 1;
1649                         t->syntab[x] = -1;
1650                 }
1651         }
1652         if (amnt > bot - top)
1653                 amnt = bot - top;
1654         msetI(t->sary + top, t->li, amnt);
1655         if (amnt == bot - top) {
1656                 msetI(t->updtab + top, 1, amnt);
1657                 msetI(t->syntab + top, -1, amnt);
1658         }
1659 }
1660
1661 void nscrlup(SCRN *t, int top, int bot, int amnt)
1662 {
1663         int x;
1664
1665         if (!amnt || top >= bot || bot > t->li)
1666                 return;
1667         if ((amnt < bot - top && bot - top - amnt < amnt / 2) || !t->scroll)
1668                 amnt = bot - top;
1669         if (amnt < bot - top) {
1670                 for (x = top + amnt; x != bot; ++x) {
1671                         t->sary[x - amnt] = (t->sary[x] == t->li ? t->li : t->sary[x] + amnt);
1672                         t->updtab[x - amnt] = t->updtab[x];
1673                         t->syntab[x - amnt] = t->syntab[x];
1674                 }
1675                 for (x = bot - amnt; x != bot; ++x) {
1676                         t->updtab[x] = 1;
1677                         t->syntab[x] = -1;
1678                 }
1679         }
1680         if (amnt > bot - top)
1681                 amnt = bot - top;
1682         msetI(t->sary + bot - amnt, t->li, amnt);
1683         if (amnt == bot - top) {
1684                 msetI(t->updtab + bot - amnt, 1, amnt);
1685                 msetI(t->syntab + bot - amnt, -1, amnt);
1686         }
1687 }
1688
1689 extern volatile int dostaupd;
1690
1691 void nredraw(SCRN *t)
1692 {
1693         dostaupd = 1;
1694         msetI(t->scrn, ' ', t->co * skiptop);
1695         msetI(t->attr, 0, t->co * skiptop);
1696         msetI(t->scrn + skiptop * t->co, -1, (t->li - skiptop) * t->co);
1697         msetI(t->attr + skiptop * t->co, 0, (t->li - skiptop) * t->co);
1698         msetI(t->sary, 0, t->li);
1699         msetI(t->updtab + skiptop, -1, t->li - skiptop);
1700         msetI(t->syntab + skiptop, -1, t->li - skiptop);
1701         t->x = -1;
1702         t->y = -1;
1703         t->top = t->li;
1704         t->bot = 0;
1705         t->attrib = -1;
1706         t->ins = -1;
1707         set_attr(t, 0);
1708         clrins(t);
1709         setregn(t, 0, t->li);
1710
1711         if (!skiptop) {
1712                 if (t->cl) {
1713                         texec(t->cap, t->cl, 1, 0, 0, 0, 0);
1714                         t->x = 0;
1715                         t->y = 0;
1716                         msetI(t->scrn, ' ', t->li * t->co);
1717                         msetI(t->attr, 0, t->li * t->co);
1718                 } else if (t->cd) {
1719                         cpos(t, 0, 0);
1720                         texec(t->cap, t->cd, 1, 0, 0, 0, 0);
1721                         msetI(t->scrn, ' ', t->li * t->co);
1722                         msetI(t->attr, 0, t->li * t->co);
1723                 }
1724         }
1725 }
1726
1727 /* Convert color/attribute name into internal code */
1728
1729 int meta_color(unsigned char *s)
1730 {
1731         if(!strcmp((char *)s,"inverse"))
1732                 return INVERSE;
1733         else if(!strcmp((char *)s,"underline"))
1734                 return UNDERLINE;
1735         else if(!strcmp((char *)s,"bold"))
1736                 return BOLD;
1737         else if(!strcmp((char *)s,"blink"))
1738                 return BLINK;
1739         else if(!strcmp((char *)s,"dim"))
1740                 return DIM;
1741         else if(!strcmp((char *)s,"white"))
1742                 return FG_WHITE;
1743         else if(!strcmp((char *)s,"cyan"))
1744                 return FG_CYAN;
1745         else if(!strcmp((char *)s,"magenta"))
1746                 return FG_MAGENTA;
1747         else if(!strcmp((char *)s,"blue"))
1748                 return FG_BLUE;
1749         else if(!strcmp((char *)s,"yellow"))
1750                 return FG_YELLOW;
1751         else if(!strcmp((char *)s,"green"))
1752                 return FG_GREEN;
1753         else if(!strcmp((char *)s,"red"))
1754                 return FG_RED;
1755         else if(!strcmp((char *)s,"black"))
1756                 return FG_BLACK;
1757         else if(!strcmp((char *)s,"bg_white"))
1758                 return BG_WHITE;
1759         else if(!strcmp((char *)s,"bg_cyan"))
1760                 return BG_CYAN;
1761         else if(!strcmp((char *)s,"bg_magenta"))
1762                 return BG_MAGENTA;
1763         else if(!strcmp((char *)s,"bg_blue"))
1764                 return BG_BLUE;
1765         else if(!strcmp((char *)s,"bg_yellow"))
1766                 return BG_YELLOW;
1767         else if(!strcmp((char *)s,"bg_green"))
1768                 return BG_GREEN;
1769         else if(!strcmp((char *)s,"bg_red"))
1770                 return BG_RED;
1771         else if(!strcmp((char *)s,"bg_black"))
1772                 return BG_BLACK;
1773         else
1774                 return 0;
1775 }
1776
1777 /* Generate a field
1778  *
1779  * 't' is SCRN to write to.
1780  * 'scrn' is address of field in character buffer
1781  * 'attr' is address of field in attribute buffer
1782  * 'x', 'y' are starting column and line numbers of field
1783  * 'ofst' is first column within string to display
1784  * 's', 'len' is string to generate in field
1785  * 'atr' is screeen attributes (and color) which should be used
1786  * 'width' is column width of field
1787  * 'flg' if set, erases to end of line
1788  */
1789
1790 void genfield(SCRN *t,int *scrn,int *attr,int x,int y,int ofst,unsigned char *s,int len,int atr,int width,int flg,int *fmt)
1791 {
1792         int col;
1793         struct utf8_sm sm;
1794         int last_col = x + width;
1795
1796         utf8_init(&sm);
1797
1798         for (col = 0;len != 0 && x < last_col; len--) {
1799                 int c = *s++;
1800                 int wid = -1;
1801                 int my_atr = atr;
1802                 if (fmt) my_atr |= *fmt++;
1803                 if (locale_map->type) {
1804                         /* UTF-8 mode: decode character and determine its width */
1805                         c = utf8_decode(&sm,c);
1806                         if (c >= 0)
1807                                 wid = joe_wcwidth(1,c);
1808                 } else {
1809                         /* Byte mode: character is one column wide */
1810                         wid = 1;
1811                 }
1812                 if (wid >= 0) {
1813                         if (col >= ofst) {
1814                                 if (x + wid > last_col) {
1815                                         /* Character crosses end of field, so fill balance of field with '>' characters instead */
1816                                         while (x < last_col) {
1817                                                 outatr(utf8_map, t, scrn, attr, x, y, '>', my_atr);
1818                                                 ++scrn;
1819                                                 ++attr;
1820                                                 ++x;
1821                                         }
1822                                 } else /* if (wid >(=) 0) */ {
1823                                         /* Emit character */
1824                                         outatr(locale_map, t, scrn, attr, x, y, c, my_atr);
1825                                         x += wid;
1826                                         scrn += wid;
1827                                         attr += wid;
1828                                 }
1829                         } else if ((col + wid) > ofst) {
1830                                 /* Wide character crosses left side of field */
1831                                 wid -= ofst - col;
1832                                 col = ofst;
1833                                 while (wid) {
1834                                         outatr(utf8_map, t, scrn, attr, x, y, '<', my_atr);
1835                                         ++scrn;
1836                                         ++attr;
1837                                         ++x;
1838                                         ++col;
1839                                         --wid;
1840                                 }
1841                         } else
1842                                 col += wid;
1843                 }
1844         }
1845         /* Fill balance of field with spaces */
1846         while (x < last_col) {
1847                 outatr(utf8_map, t, scrn, attr, x, y, ' ', 0);
1848                 ++x;
1849                 ++scrn;
1850                 ++attr;
1851         }
1852         /* Erase to end of line */
1853         if (flg)
1854                 eraeol(t, x, y);
1855 }
1856
1857 /* Width function for above */
1858
1859 int txtwidth(unsigned char *s,int len)
1860 {
1861         if (locale_map->type) {
1862                 int col=0;
1863                 struct utf8_sm sm;
1864                 utf8_init(&sm);
1865
1866                 while(len--) {
1867                         int d = utf8_decode(&sm,*s++);
1868                         if (d >= 0)
1869                                 col += joe_wcwidth(1,d);
1870                 }
1871
1872                 return col;
1873         } else
1874                 return len;
1875 }
1876
1877 /* Generate text with formatting escape sequences */
1878
1879 void genfmt(SCRN *t, int x, int y, int ofst, const unsigned char *s, int flg)
1880 {
1881         int *scrn = t->scrn + y * t->co + x;
1882         int *attr = t->attr + y * t->co + x;
1883         int atr = 0;
1884         int col = 0;
1885         int c;
1886         struct utf8_sm sm;
1887
1888         utf8_init(&sm);
1889
1890         while ((c = *s++) != '\0')
1891                 if (c == '\\') {
1892                         switch (c = *s++) {
1893                         case 'u':
1894                         case 'U':
1895                                 atr ^= UNDERLINE;
1896                                 break;
1897                         case 'i':
1898                         case 'I':
1899                                 atr ^= INVERSE;
1900                                 break;
1901                         case 'b':
1902                         case 'B':
1903                                 atr ^= BOLD;
1904                                 break;
1905                         case 'd':
1906                         case 'D':
1907                                 atr ^= DIM;
1908                                 break;
1909                         case 'f':
1910                         case 'F':
1911                                 atr ^= BLINK;
1912                                 break;
1913                         case 0:
1914                                 --s;
1915                                 break;
1916                         default: {
1917                                 if (col++ >= ofst) {
1918                                         outatr(locale_map, t, scrn, attr, x, y, (c&0x7F), atr);
1919                                         ++scrn;
1920                                         ++attr;
1921                                         ++x;
1922                                         }
1923                                 break;
1924                                 }
1925                         }
1926                 } else {
1927                         int wid = -1;
1928                         if (locale_map->type) {
1929                                 /* UTF-8 mode: decode character and determine its width */
1930                                 c = utf8_decode(&sm,c);
1931                                 if (c >= 0) {
1932                                         wid = joe_wcwidth(1, c);
1933                                 }
1934                         } else {
1935                                 /* Byte mode: character is one column wide */
1936                                 wid = 1;
1937                         }
1938
1939                         if (wid >= 0) {
1940                                 if (col >= ofst) {
1941                                         outatr(locale_map, t, scrn, attr, x, y, c, atr);
1942                                         scrn += wid;
1943                                         attr += wid;
1944                                         x += wid;
1945                                         col += wid;
1946                                 } else if (col+wid>ofst) {
1947                                         while (col<ofst) {
1948                                                 ++col;
1949                                                 --wid;
1950                                         }
1951                                         while (wid) {
1952                                                 outatr(utf8_map, t, scrn, attr, x, y, '<', atr);
1953                                                 ++scrn;
1954                                                 ++attr;
1955                                                 ++x;
1956                                                 ++col;
1957                                                 --wid;
1958                                         }
1959                                 } else
1960                                         col += wid;
1961                 }
1962                 }
1963         if (flg)
1964                 eraeol(t, x, y);
1965 }
1966
1967 /* Determine column width of string with format codes */
1968
1969 int fmtlen(const unsigned char *s)
1970 {
1971         int col = 0;
1972         struct utf8_sm sm;
1973         int c;
1974
1975         utf8_init(&sm);
1976
1977         while ((c = (*s++))) {
1978                 if (c == '\\') {
1979                         switch (*s++) {
1980                         case 'u':
1981                         case 'i':
1982                         case 'd':
1983                         case 'f':
1984                         case 'b':
1985                         case 'U':
1986                         case 'I':
1987                         case 'D':
1988                         case 'F':
1989                         case 'B':
1990                                 continue;
1991                         case 0:
1992                                 return col;
1993                         default:
1994                                 ++col;
1995                                 continue;
1996                         }
1997                 } else {
1998                         int wid = 0;
1999                         if(locale_map->type) {
2000                                 c = utf8_decode(&sm,c);
2001                                 if (c>=0)
2002                                         wid = joe_wcwidth(1,c);
2003                         } else {
2004                                 wid = 1;
2005                         }
2006                         col += wid;
2007                 }
2008         }
2009         return col;
2010 }
2011
2012 /* Return offset within format string which corresponds to a particular
2013    column */
2014
2015 /* FIXME: this is not valid if we land in the middle of a double-wide character */
2016
2017 int fmtpos(unsigned char *s, int goal)
2018 {
2019         unsigned char *org = s;
2020         int col = 0;
2021         int c;
2022         struct utf8_sm sm;
2023
2024         utf8_init(&sm);
2025
2026         while ((c= *s) && col<goal) {
2027                 s++;
2028                 if (c == '\\') {
2029                         switch (*s++) {
2030                         case 'u':
2031                         case 'i':
2032                         case 'd':
2033                         case 'f':
2034                         case 'b':
2035                         case 'U':
2036                         case 'I':
2037                         case 'D':
2038                         case 'F':
2039                         case 'B':
2040                                 continue;
2041                         case 0:
2042                                 --s;
2043                                 break;
2044                         default:
2045                                 ++col;
2046                                 continue;
2047                         }
2048                 } else {
2049                         int wid = 0;
2050                         if(locale_map->type) {
2051                                 c = utf8_decode(&sm,c);
2052                                 if (c>=0)
2053                                         wid = joe_wcwidth(1,c);
2054                         } else {
2055                                 wid = 1;
2056                         }
2057                         col += wid;
2058                 }
2059         }
2060
2061         return s - org + goal - col;
2062 }