/*
* Device independant TTY interface for JOE
* Copyright
* (C) 1992 Joseph H. Allen
*
* This file is part of JOE (Joe's Own Editor)
*/
#include "types.h"
int bg_text = 0; /* Background color for text */
int skiptop = 0;
int env_lines = 0;
int env_columns = 0;
int notite = 0;
int nolinefeeds = 0;
int opt_usetabs = 0;
int assume_color = 0;
int assume_256color = 0;
/* How to display characters (especially the control ones) */
/* here are characters ... */
char xlatc[256] = {
64, 65, 66, 67, 68, 69, 70, 71, /* 8 */
72, 73, 74, 75, 76, 77, 78, 79, /* 16 */
80, 81, 82, 83, 84, 85, 86, 87, /* 24 */
88, 89, 90, 91, 92, 93, 94, 95, /* 32 */
32, 33, 34, 35, 36, 37, 38, 39, /* 40 */
40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
48, 49, 50, 51, 52, 53, 54, 55, /* 56 */
56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
64, 65, 66, 67, 68, 69, 70, 71, /* 72 */
72, 73, 74, 75, 76, 77, 78, 79, /* 80 */
80, 81, 82, 83, 84, 85, 86, 87, /* 88 */
88, 89, 90, 91, 92, 93, 94, 95, /* 96 */
96, 97, 98, 99, 100, 101, 102, 103, /* 104 */
104, 105, 106, 107, 108, 109, 110, 111, /* 112 */
112, 113, 114, 115, 116, 117, 118, 119, /* 120 */
120, 121, 122, 123, 124, 125, 126, 63, /* 128 */
64, 65, 66, 67, 68, 69, 70, 71, /* 136 */
72, 73, 74, 75, 76, 77, 78, 79, /* 144 */
80, 81, 82, 83, 84, 85, 86, 87, /* 152 */
88, 89, 90, 91, 92, 93, 94, 95, /* 160 */
32, 33, 34, 35, 36, 37, 38, 39, /* 168 */
40, 41, 42, 43, 44, 45, 46, 47, /* 176 */
48, 49, 50, 51, 52, 53, 54, 55, /* 184 */
56, 57, 58, 59, 60, 61, 62, 63, /* 192 */
64, 65, 66, 67, 68, 69, 70, 71, /* 200 */
72, 73, 74, 75, 76, 77, 78, 79, /* 208 */
80, 81, 82, 83, 84, 85, 86, 87, /* 216 */
88, 89, 90, 91, 92, 93, 94, 95, /* 224 */
96, 97, 98, 99, 100, 101, 102, 103, /* 232 */
104, 105, 106, 107, 108, 109, 110, 111, /* 240 */
112, 113, 114, 115, 116, 117, 118, 119, /* 248 */
120, 121, 122, 123, 124, 125, 126, 63 /* 256 */
};
/* ... and here their attributes */
int xlata[256] = {
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 4 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 8 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 12 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 16 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 20 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 24 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 28 */
UNDERLINE, UNDERLINE, UNDERLINE, UNDERLINE, /* 32 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 48 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 64 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 80 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 96 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 112 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, UNDERLINE, /* 128 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 130 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 132 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 134 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 136 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 138 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 140 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 142 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 144 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 146 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 148 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 150 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 152 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 154 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 156 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 158 */
INVERSE + UNDERLINE, INVERSE + UNDERLINE, /* 160 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 164 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 168 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 172 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 176 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 180 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 184 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 188 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 192 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 196 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 200 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 204 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 208 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 212 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 216 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 220 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 224 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 228 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 232 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 236 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 240 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 244 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 248 */
INVERSE, INVERSE, INVERSE, INVERSE, /* 252 */
INVERSE, INVERSE, INVERSE, INVERSE + UNDERLINE /* 256 */
};
static void mfill(int (*dest)[COMPOSE], int val, ptrdiff_t count)
{
ptrdiff_t x;
while (count--) {
(*dest)[0] = val;
for (x = 1; x != COMPOSE; ++x)
(*dest)[x] = 0;
++dest;
}
}
/* For terminals with the "xn" capability, which includes all popular
* graphical terminal emulators: When a character is printed in the last
* (let's say 80th) column, the cursor enters a special state. If a letter is
* printed next (which shouldn't happen in joe) then it wraps to the next
* line. However, if the cursor is moved, it behaves as if it still stood in
* the 80th column, rather than in the invisible 81st as joe thinks. Some
* terminal emulators (e.g. xterm) display this cursor in the 80th (rightmost)
* column, some others (e.g. gnome-terminal) don't show it at all, yet some
* others (e.g. konsole) show it at the beginning of the next line. This is a
* state at which we never want to settle in joe, it's just a necessary
* transient state while printing in the rightmost column. This method makes
* sure that the cursor is not in this strange state, moving it out of there
* if necessary.
*
* For terminal without "xn": In nresize() just revert to not using the
* rightmost column. Another possibility would be to do a character insertion
* to push an already printed character to the right, as implemented in pts's
* fork of joe at http://pts-mini-gpl.googlecode.com/svn/trunk/joe-p37/ but
* it's quite complicated (especially with CJK) and probably not worth the
* trouble.
*
* More information:
* https://www.gnu.org/software/termutils/manual/termcap-1.3/html_chapter/termcap_4.html#SEC27
*/
static void fixupcursor(register SCRN *t)
{
if (t->x == t->co) {
texec(t->cap, t->cr, 1, 0, 0, 0, 0);
t->x = 0;
}
}
/* Set attributes */
int set_attr(SCRN *t, int c)
{
int e;
/* Attributes which have gone off */
e = ((AT_MASK|FG_NOT_DEFAULT|BG_NOT_DEFAULT)&t->attrib & ~c);
if (e) { /* If any attribute go off, switch them all off: fixes bug on PCs */
if (t->me)
texec(t->cap, t->me, 1, 0, 0, 0, 0);
else {
if (t->ue)
texec(t->cap, t->ue, 1, 0, 0, 0, 0);
if (t->se)
texec(t->cap, t->se, 1, 0, 0, 0, 0);
if (t->ZR)
texec(t->cap, t->ZR, 1, 0, 0, 0, 0);
}
t->attrib = 0;
}
/* Attributes which have turned on */
e = (c & ~t->attrib);
if (e & INVERSE) {
if (t->mr)
texec(t->cap, t->mr, 1, 0, 0, 0, 0);
else if (t->so)
texec(t->cap, t->so, 1, 0, 0, 0, 0);
}
if (e & UNDERLINE)
if (t->us)
texec(t->cap, t->us, 1, 0, 0, 0, 0);
if (e & BLINK)
if (t->mb)
texec(t->cap, t->mb, 1, 0, 0, 0, 0);
if (e & BOLD)
if (t->md)
texec(t->cap, t->md, 1, 0, 0, 0, 0);
if (e & DIM)
if (t->mh)
texec(t->cap, t->mh, 1, 0, 0, 0, 0);
if (e & ITALIC)
if (t->ZH)
texec(t->cap, t->ZH, 1, 0, 0, 0, 0);
if ((t->attrib & FG_MASK) != (c & FG_MASK)) {
if (t->Sf) {
int color = ((c & FG_VALUE) >> FG_SHIFT);
if (t->assume_256 && color >= t->Co) {
char bf[32];
joe_snprintf_1(bf,SIZEOF(bf),"\033[38;5;%dm",color);
ttputs(bf);
} else {
if (t->Co & (t->Co - 1))
texec(t->cap, t->Sf, 1, color % t->Co, 0, 0, 0);
else
texec(t->cap, t->Sf, 1, color & (t->Co - 1), 0, 0, 0);
}
}
}
if ((t->attrib & BG_MASK) != (c & BG_MASK)) {
if (t->Sb) {
int color = ((c & BG_VALUE) >> BG_SHIFT);
if (t->assume_256 && color >= t->Co) {
char bf[32];
joe_snprintf_1(bf,SIZEOF(bf),"\033[48;5;%dm",color);
ttputs(bf);
} else {
if (t->Co & (t->Co - 1))
texec(t->cap, t->Sb, 1, color % t->Co, 0, 0, 0);
else
texec(t->cap, t->Sb, 1, color & (t->Co - 1), 0, 0, 0);
}
}
}
t->attrib = c;
return 0;
}
/* Output character with attributes */
int outatr_state; /* 1 = we have a start character waiting to emit. 2 = we have combining chars we are ignoring */
int (*outatr_scrn)[COMPOSE];
int *outatr_attrf;
int outatr_build[COMPOSE];
ptrdiff_t outatr_xx;
ptrdiff_t outatr_yy;
ptrdiff_t outatr_ofst;
int outatr_wid;
int outatr_uni_ctrl;
int outatr_a;
/* Emit accumulated character (start character + compose characters) */
void outatr_complete(SCRN *t)
{
if (outatr_state == 1) {
ptrdiff_t x;
for (x = 0; x != COMPOSE; ++x)
if (outatr_scrn[0][x] != outatr_build[x])
break;
if (x != COMPOSE || *outatr_attrf != outatr_a) {
char buf[16];
for (x = 0; x != COMPOSE; ++x)
outatr_scrn[0][x] = outatr_build[x];
*outatr_attrf = outatr_a;
if (t->ins)
clrins(t);
if (t->x != outatr_xx || t->y != outatr_yy)
cpos(t, outatr_xx, outatr_yy);
if (t->attrib != outatr_a)
set_attr(t, outatr_a);
if (outatr_uni_ctrl) {
sprintf(buf, "<%X>", outatr_build[0]);
ttputs(buf);
} else {
for (x = 0; x != COMPOSE && outatr_build[x]; ++x) {
utf8_encode(buf, outatr_build[x]);
ttputs(buf);
}
}
t->x += outatr_wid;
while (outatr_wid > 1) {
(*++outatr_scrn)[0] = -1;
*++outatr_attrf = 0;
--outatr_wid;
}
}
}
outatr_state = 0;
}
void outatr(struct charmap *map,SCRN *t,int (*scrn)[COMPOSE],int *attrf,ptrdiff_t xx,ptrdiff_t yy,int c,int a)
{
if (c < 0)
c += 256;
if(map->type)
if(locale_map->type) {
if (cclass_lookup(cclass_combining, c)) { /* It's a combining character */
if (!outatr_state) /* No start character? */
outatr_state = 2; /* Ignore it... */
else if (outatr_state == 1) { /* We have a start character, add it */
if (outatr_ofst != COMPOSE)
outatr_build[outatr_ofst++] = c;
else { /* More combining chars than we buffer */
char buf[16];
outatr_scrn[0][0] = -1; /* Force outatr_complete to emit character */
outatr_complete(t);
utf8_encode(buf, c);
ttputs(buf);
outatr_state = 3;
}
} else if (outatr_state == 3) { /* We have alread emitted the start character, but we have more combining chars */
char buf[16];
utf8_encode(buf, c);
ttputs(buf);
}
} else {
ptrdiff_t x;
if (outatr_state) /* We already have a start character? */
outatr_complete(t);
outatr_uni_ctrl = 0;
/* Deal with control characters */
if (c < 32) {
c = c + '@';
a ^= UNDERLINE;
} else if (c == 127) {
c = '?';
a ^= UNDERLINE;
} else if (unictrl(c)) {
a ^= UNDERLINE;
outatr_uni_ctrl = 1;
}
outatr_wid = joe_wcwidth(1, c);
outatr_state = 1;
outatr_scrn = scrn;
outatr_attrf = attrf;
outatr_xx = xx;
outatr_yy = yy;
outatr_ofst = 1;
outatr_a = a;
outatr_build[0] = c;
for (x = 1; x != COMPOSE; ++x)
outatr_build[x] = 0;
}
} else {
/* UTF-8 char to non-UTF-8 terminal */
/* Don't convert control chars below 256 */
if ((c>=32 && c<=126) || c>=160) {
if (unictrl(c))
a ^= UNDERLINE;
c = from_uni(locale_map,c);
if (c==-1)
c = '?';
}
/* Deal with control characters */
if (!joe_isprint(locale_map,c) && !(dspasis && c>=128)) {
a ^= xlata[c];
c = xlatc[c];
}
if((*scrn)[0] == c && *attrf == a)
return;
(*scrn)[0] = c;
*attrf = a;
if(t->ins)
clrins(t);
if(t->x != xx || t->y != yy)
cpos(t,xx,yy);
if(t->attrib != a)
set_attr(t,a);
ttputc(TO_CHAR_OK(c));
t->x++;
}
else
if (!locale_map->type) {
/* Non UTF-8 char to non UTF-8 terminal */
/* Byte-byte Translate? */
/* Deal with control characters */
if (!joe_isprint(locale_map,c) && !(dspasis && c>=128)) {
a ^= xlata[c];
c = xlatc[c];
}
if ((*scrn)[0] == c && *attrf == a)
return;
(*scrn)[0] = c;
*attrf = a;
if(t->ins)
clrins(t);
if(t->x != xx || t->y != yy)
cpos(t,xx,yy);
if(t->attrib != a)
set_attr(t,a);
ttputc(TO_CHAR_OK(c));
t->x++;
} else {
/* Non UTF-8 char to UTF-8 terminal */
char buf[16];
int wid;
/* Deal with control characters */
if (!(dspasis && c>=128) && !joe_isprint(map,c)) {
a ^= xlata[c];
c = xlatc[c];
}
c = to_uni(map,c);
if (c == -1)
c = '?';
utf8_encode(buf,c);
if ((*scrn)[0] == c && *attrf == a)
return;
wid = joe_wcwidth(0,c);
(*scrn)[0] = c;
*attrf = a;
if(t->ins)
clrins(t);
if(t->x != xx || t->y != yy)
cpos(t, xx, yy);
if(t->attrib != a)
set_attr(t, a);
ttputs(buf);
t->x+=wid;
while(wid>1) {
(*++scrn)[0] = -1;
*++attrf= 0;
--wid;
}
}
/* At this point, t->x might equal t->co. Fixupcursor() will be called by next call
to cpos to deal with this. */
}
/* Set scrolling region */
static void setregn(SCRN *t, ptrdiff_t top, ptrdiff_t bot)
{
if (!t->cs) {
t->top = top;
t->bot = bot;
return;
}
if (t->top != top || t->bot != bot) {
t->top = top;
t->bot = bot;
texec(t->cap, t->cs, 1, top, bot - 1, 0, 0);
t->x = -1;
t->y = -1;
}
}
/* Exit insert mode */
int clrins(SCRN *t)
{
if (t->ins != 0) {
texec(t->cap, t->ei, 1, 0, 0, 0, 0);
t->ins = 0;
}
return 0;
}
/* Erase from given screen coordinate to end of line */
int eraeol(SCRN *t, ptrdiff_t x, ptrdiff_t y, int atr)
{
int (*s)[COMPOSE], (*ss)[COMPOSE], *a, *aa;
ptrdiff_t w = t->co - x;
if (w <= 0)
return 0;
s = t->scrn + y * t->co + x;
a = t->attr + y * t->co + x;
ss = s + w;
aa = a + w;
do {
if ((*--ss)[0] != ' ') {
++ss;
break;
} else if (*--aa != atr) {
++ss;
++aa;
break;
}
} while (ss != s);
if (t->ce) {
cpos(t, x, y);
if(t->attrib != atr)
set_attr(t, atr);
texec(t->cap, t->ce, 1, 0, 0, 0, 0);
mfill(s, ' ', w);
msetI(a, atr, w);
/* TODO: move computation of ss & aa here */
} else if (s != ss) {
if (t->ins)
clrins(t);
if (t->x != x || t->y != y)
cpos(t, x, y);
if (t->attrib != atr)
set_attr(t, atr);
while (s != ss) {
(*s)[0] = ' ';
*a = atr;
ttputc(' ');
++t->x;
++s;
++a;
}
}
return 0;
}
static void out(void *t, char c)
{
ttputc(c);
}
SCRN *nopen(CAP *cap)
{
SCRN *t = (SCRN *) joe_malloc(SIZEOF(SCRN));
ptrdiff_t x, y, co, li;
int ansiish;
ttopen();
t->cap = cap;
setcap(cap, tty_baud, out, NULL);
li = getnum(t->cap,"li");
if (li < 1)
li = 24;
co = getnum(t->cap,"co");
if (co < 2)
co = 80;
x = y = 0;
ttgtsz(&x, &y);
if (x > 7 && y > 3) {
li = y;
co = x;
}
t->co = t->li = -1; /* will be set by nresize() below */
t->haz = getflag(t->cap,"hz");
t->os = getflag(t->cap,"os");
t->eo = getflag(t->cap,"eo");
if (getflag(t->cap,"hc"))
t->os = 1;
if (t->os || getflag(t->cap,"ul"))
t->ul = 1;
else
t->ul = 0;
t->xn = getflag(t->cap,"xn");
t->am = getflag(t->cap,"am");
if (notite)
t->ti = 0;
else
t->ti = jgetstr(t->cap,"ti");
t->cl = jgetstr(t->cap,"cl");
t->cd = jgetstr(t->cap,"cd");
if (notite)
t->te = 0;
else
t->te = jgetstr(t->cap,"te");
t->ut = getflag(t->cap,"ut");
t->Sb = jgetstr(t->cap,"AB");
if (!t->Sb) t->Sb = jgetstr(t->cap,"Sb");
t->Sf = jgetstr(t->cap,"AF");
if (!t->Sf) t->Sf = jgetstr(t->cap,"Sf");
t->Co = getnum(t->cap,"Co");
if (t->Co == -1)
t->Co = 8;
t->mb = NULL;
t->md = NULL;
t->mh = NULL;
t->mr = NULL;
t->avattr = 0;
if (!(t->me = jgetstr(t->cap,"me")))
goto oops;
if ((t->mb = jgetstr(t->cap,"mb")))
t->avattr |= BLINK;
if ((t->md = jgetstr(t->cap,"md")))
t->avattr |= BOLD;
if ((t->mh = jgetstr(t->cap,"mh")))
t->avattr |= DIM;
if ((t->mr = jgetstr(t->cap,"mr")))
t->avattr |= INVERSE;
oops:
/* Does it look like an ansi terminal? (it has bold which begins with ESC [) */
#ifndef TERMINFO
ansiish = t->md && t->md[0] == '\\' && t->md[1] == 'E' && t->md[2] == '[';
#else
ansiish = t->md && t->md[0] == '\033' && t->md[1] == '[';
#endif
/* No termcap for bracketed paste. ANSI-looking terminals will either support bracketed paste
or this setting will cause no harm. */
if (ansiish) {
#ifndef TERMINFO
t->brp = "\\E[?2004h";
t->bre = "\\E[?2004l";
#else
t->brp = "\033[?2004h";
t->bre = "\033[?2004l";
#endif
} else {
t->brp = t->bre = 0;
}
if (assume_color || assume_256color) {
/* Install 8 color support if it looks like an ansi terminal */
if (ansiish && !t->Sf) {
#ifndef TERMINFO
t->ut = 1;
t->Sf = "\\E[3%dm";
t->Sb = "\\E[4%dm";
t->Co = 8;
#else
t->ut = 1;
t->Sf = "\033[3%p1%dm";
t->Sb = "\033[4%p1%dm";
#endif
}
}
t->assume_256 = 0;
if (assume_256color && t->Co < 256) {
/* Force 256 color support */
if (ansiish) {
t->assume_256 = 1;
#ifndef TERMINFO
#ifdef junk
t->ut = 1;
t->Sf = "\\E[38;5;%dm";
t->Sb = "\\E[48;5;%dm";
#endif
#else
#ifdef junk
t->ut = 1;
t->Sf = "\033[38;5;%p1%dm";
t->Sb = "\033[48;5;%p1%dm";
#endif
#endif
}
}
t->so = NULL;
t->se = NULL;
if (getnum(t->cap,"sg") <= 0 && !t->mr && jgetstr(t->cap,"se")) {
if ((t->so = jgetstr(t->cap,"so")) != NULL)
t->avattr |= INVERSE;
t->se = jgetstr(t->cap,"se");
}
if (getflag(t->cap,"xs") || getflag(t->cap,"xt"))
t->so = NULL;
t->us = NULL;
t->ue = NULL;
if (getnum(t->cap,"ug") <= 0 && jgetstr(t->cap,"ue")) {
if ((t->us = jgetstr(t->cap,"us")) != NULL)
t->avattr |= UNDERLINE;
t->ue = jgetstr(t->cap,"ue");
}
t->ZH = NULL;
t->ZR = NULL;
if ((t->ZH = jgetstr(t->cap,"ZH")) != NULL)
t->avattr |= ITALIC;
t->ZR = jgetstr(t->cap,"ZR");
if (!(t->uc = jgetstr(t->cap,"uc")))
if (t->ul)
t->uc ="_";
if (t->uc)
t->avattr |= UNDERLINE;
t->ms = getflag(t->cap,"ms");
t->da = getflag(t->cap,"da");
t->db = getflag(t->cap,"db");
t->cs = jgetstr(t->cap,"cs");
t->rr = getflag(t->cap,"rr");
t->sf = jgetstr(t->cap,"sf");
t->sr = jgetstr(t->cap,"sr");
t->SF = jgetstr(t->cap,"SF");
t->SR = jgetstr(t->cap,"SR");
t->al = jgetstr(t->cap,"al");
t->dl = jgetstr(t->cap,"dl");
t->AL = jgetstr(t->cap,"AL");
t->DL = jgetstr(t->cap,"DL");
if (!getflag(t->cap,"ns") && !t->sf)
t->sf ="\12";
if (!getflag(t->cap,"in") && tty_baud < 38400) {
t->dc = jgetstr(t->cap,"dc");
t->DC = jgetstr(t->cap,"DC");
t->dm = jgetstr(t->cap,"dm");
t->ed = jgetstr(t->cap,"ed");
t->im = jgetstr(t->cap,"im");
t->ei = jgetstr(t->cap,"ei");
t->ic = jgetstr(t->cap,"ic");
t->IC = jgetstr(t->cap,"IC");
t->ip = jgetstr(t->cap,"ip");
t->mi = getflag(t->cap,"mi");
} else {
t->dm = NULL;
t->dc = NULL;
t->DC = NULL;
t->ed = NULL;
t->im = NULL;
t->ic = NULL;
t->IC = NULL;
t->ip = NULL;
t->ei = NULL;
t->mi = 1;
}
t->bs = NULL;
if (jgetstr(t->cap,"bc"))
t->bs = jgetstr(t->cap,"bc");
else if (jgetstr(t->cap,"le"))
t->bs = jgetstr(t->cap,"le");
if (getflag(t->cap,"bs"))
t->bs ="\10";
t->cbs = tcost(t->cap, t->bs, 1, 2, 2, 0, 0);
t->lf ="\12";
if (jgetstr(t->cap,"do"))
t->lf = jgetstr(t->cap,"do");
t->clf = tcost(t->cap, t->lf, 1, 2, 2, 0, 0);
t->up = jgetstr(t->cap,"up");
t->cup = tcost(t->cap, t->up, 1, 2, 2, 0, 0);
t->nd = jgetstr(t->cap,"nd");
t->tw = 8;
if (getnum(t->cap,"it") > 0)
t->tw = getnum(t->cap,"it");
else if (getnum(t->cap,"tw") > 0)
t->tw = getnum(t->cap,"tw");
if (!(t->ta = jgetstr(t->cap,"ta")))
if (getflag(t->cap,"pt"))
t->ta ="\11";
t->bt = jgetstr(t->cap,"bt");
if (getflag(t->cap,"xt")) {
t->ta = NULL;
t->bt = NULL;
}
if (!opt_usetabs) {
t->ta = NULL;
t->bt = NULL;
}
t->cta = tcost(t->cap, t->ta, 1, 2, 2, 0, 0);
t->cbt = tcost(t->cap, t->bt, 1, 2, 2, 0, 0);
t->ho = jgetstr(t->cap,"ho");
t->cho = tcost(t->cap, t->ho, 1, 2, 2, 0, 0);
t->ll = jgetstr(t->cap,"ll");
t->cll = tcost(t->cap, t->ll, 1, 2, 2, 0, 0);
t->cr ="\15";
if (jgetstr(t->cap,"cr"))
t->cr = jgetstr(t->cap,"cr");
if (getflag(t->cap,"nc") || getflag(t->cap,"xr"))
t->cr = NULL;
t->ccr = tcost(t->cap, t->cr, 1, 2, 2, 0, 0);
t->cRI = tcost(t->cap, t->RI = jgetstr(t->cap,"RI"), 1, 2, 2, 0, 0);
t->cLE = tcost(t->cap, t->LE = jgetstr(t->cap,"LE"), 1, 2, 2, 0, 0);
t->cUP = tcost(t->cap, t->UP = jgetstr(t->cap,"UP"), 1, 2, 2, 0, 0);
t->cDO = tcost(t->cap, t->DO = jgetstr(t->cap,"DO"), 1, 2, 2, 0, 0);
t->cch = tcost(t->cap, t->ch = jgetstr(t->cap,"ch"), 1, 2, 2, 0, 0);
t->ccv = tcost(t->cap, t->cv = jgetstr(t->cap,"cv"), 1, 2, 2, 0, 0);
t->ccV = tcost(t->cap, t->cV = jgetstr(t->cap,"cV"), 1, 2, 2, 0, 0);
t->ccm = tcost(t->cap, t->cm = jgetstr(t->cap,"cm"), 1, 2, 2, 0, 0);
t->cce = tcost(t->cap, t->ce = jgetstr(t->cap,"ce"), 1, 2, 2, 0, 0);
/* Make sure terminal can do absolute positioning */
if (t->cm)
goto ok;
if (t->ch && t->cv)
goto ok;
if (t->ho && (t->lf || t->DO || t->cv))
goto ok;
if (t->ll && (t->up || t->UP || t->cv))
goto ok;
if (t->cr && t->cv)
goto ok;
leave = 1;
ttclose();
signrm();
fprintf(stderr,"cm=%p ch=%p cv=%p ho=%p lf=%p DO=%p ll=%p up=%p UP=%p cr=%p\n",
t->cm, t->ch, t->cv, t->ho, t->lf, t->DO, t->ll, t->up, t->UP, t->cr);
fputs(joe_gettext(_("Sorry, your terminal can't do absolute cursor positioning.\nIt's broken\n")), stderr);
return NULL;
ok:
/* Determine if we can scroll */
if (((t->sr || t->SR) && (t->sf || t->SF) && t->cs) || ((t->al || t->AL) && (t->dl || t->DL)))
t->scroll = 1;
else {
t->scroll = 0;
if (tty_baud < 38400)
opt_mid = 1;
}
/* Determine if we can ins/del within lines */
if ((t->im || t->ic || t->IC) && (t->dc || t->DC))
t->insdel = 1;
else
t->insdel = 0;
/* Adjust for high baud rates */
if (tty_baud >= 38400) {
t->scroll = 0;
t->insdel = 0;
}
/* Send out li linefeeds so that scroll-back history is not lost */
if (notite && !nolinefeeds) {
for (y = 1; y < li; ++y)
ttputc(10);
}
/* Send out terminal initialization string */
if (t->ti)
texec(t->cap, t->ti, 1, 0, 0, 0, 0);
if (!skiptop && t->cl)
texec(t->cap, t->cl, 1, 0, 0, 0, 0);
if (t->brp)
texec(t->cap, t->brp, 1, 0, 0, 0, 0);
/* Initialize variable screen size dependant vars */
t->scrn = NULL;
t->attr = NULL;
t->sary = NULL;
t->updtab = NULL;
t->compose = NULL;
t->ofst = NULL;
t->ary = NULL;
t->htab = (struct hentry *) joe_malloc(256 * SIZEOF(struct hentry));
nresize(t, co, li);
/* Initialize mouse */
mouseopen();
return t;
}
/* Change size of screen. Decrease width by 1 if printing in the last column is not supported */
int nresize(SCRN *t, ptrdiff_t w, ptrdiff_t h)
{
if (h < 4)
h = 4;
if (w < 8)
w = 8;
if (!t->xn)
w--; /* Don't write to the last column if terminal lacks xn capability */
if (h == t->li && w == t->co)
return 0;
t->li = h;
t->co = w;
if (t->sary)
joe_free(t->sary);
if (t->updtab)
joe_free(t->updtab);
if (t->scrn)
joe_free(t->scrn);
if (t->attr)
joe_free(t->attr);
if (t->compose)
joe_free(t->compose);
if (t->ofst)
joe_free(t->ofst);
if (t->ary)
joe_free(t->ary);
t->scrn = (int (*)[COMPOSE])joe_malloc(t->li * t->co * SIZEOF(int [COMPOSE]));
t->attr = (int *)joe_malloc(t->li * t->co * SIZEOF(int));
t->sary = (ptrdiff_t *)joe_calloc(t->li, SIZEOF(ptrdiff_t));
t->updtab = (int *)joe_malloc(t->li * SIZEOF(int));
t->compose = (int *)joe_malloc(t->co * SIZEOF(int));
t->ofst = (ptrdiff_t *)joe_malloc(t->co * SIZEOF(ptrdiff_t));
t->ary = (struct hentry *)joe_malloc(t->co * SIZEOF(struct hentry));
nredraw(t);
return 1;
}
/* Calculate cost of positioning the cursor using only relative cursor
* positioning functions: t->(lf, DO, up, UP, bs, LE, RI, ta, bt) and rewriting
* characters (to move right)
*
* This doesn't use the am and bw capabilities although it probably could.
*/
static ptrdiff_t relcost(register SCRN *t, register ptrdiff_t x, register ptrdiff_t y, register ptrdiff_t ox, register ptrdiff_t oy)
{
ptrdiff_t cost = 0;
/* If we don't know the cursor position, force use of absolute positioning */
if (oy == -1 || ox == -1)
return 10000;
/* First adjust row */
if (y > oy) {
ptrdiff_t dist = y - oy;
/* Have to go down */
if (t->lf) {
ptrdiff_t mult = dist * t->clf;
if (dist < 10 && t->cDO < mult)
cost += t->cDO;
else if (dist >= 10 && t->cDO + 1 < mult)
cost += t->cDO + 1;
else
cost += mult;
} else if (t->DO)
if (dist < 10)
cost += t->cDO;
else
cost += t->cDO + 1;
else
return 10000;
} else if (y < oy) {
ptrdiff_t dist = oy - y;
/* Have to go up */
if (t->up) {
ptrdiff_t mult = dist * t->cup;
if (dist < 10 && t->cUP < mult)
cost += t->cUP;
else if (dist >= 10 && t->cUP < mult)
cost += t->cUP + 1;
else
cost += mult;
} else if (t->UP)
if (dist < 10)
cost += t->cUP;
else
cost += t->cUP + 1;
else
return 10000;
}
/* Now adjust column */
/* Use tabs */
if (x > ox && t->ta) {
ptrdiff_t dist = x - ox;
ptrdiff_t ntabs = (dist + ox % t->tw) / t->tw;
ptrdiff_t cstunder = x % t->tw + t->cta * ntabs;
ptrdiff_t cstover;
if (x + t->tw < t->co && t->bs)
cstover = t->cbs * (t->tw - x % t->tw) + t->cta * (ntabs + 1);
else
cstover = 10000;
if (dist < 10 && cstunder < t->cRI && cstunder < x - ox && cstover > cstunder)
return cost + cstunder;
else if (cstunder < t->cRI + 1 && cstunder < x - ox && cstover > cstunder)
return cost + cstunder;
else if (dist < 10 && cstover < t->cRI && cstover < x - ox)
return cost + cstover;
else if (cstover < t->cRI + 1 && cstover < x - ox)
return cost + cstover;
} else if (x < ox && t->bt) {
ptrdiff_t dist = ox - x;
ptrdiff_t ntabs = (dist + t->tw - ox % t->tw) / t->tw;
ptrdiff_t cstunder, cstover;
if (t->bs)
cstunder = t->cbt * ntabs + t->cbs * (t->tw - x % t->tw);
else
cstunder = 10000;
if (x - t->tw >= 0)
cstover = t->cbt * (ntabs + 1) + x % t->tw;
else
cstover = 10000;
if (dist < 10 && cstunder < t->cLE && (t->bs ? cstunder < (ox - x) * t->cbs : 1)
&& cstover > cstunder)
return cost + cstunder;
if (cstunder < t->cLE + 1 && (t->bs ? cstunder < (ox - x) * t->cbs : 1)
&& cstover > cstunder)
return cost + cstunder;
else if (dist < 10 && cstover < t->cRI && (t->bs ? cstover < (ox - x) * t->cbs : 1))
return cost + cstover;
else if (cstover < t->cRI + 1 && (t->bs ? cstover < (ox - x) * t->cbs : 1))
return cost + cstover;
}
/* Use simple motions */
if (x < ox) {
ptrdiff_t dist = ox - x;
/* Have to go left */
if (t->bs) {
ptrdiff_t mult = dist * t->cbs;
if (t->cLE < mult && dist < 10)
cost += t->cLE;
else if (t->cLE + 1 < mult)
cost += t->cLE + 1;
else
cost += mult;
} else if (t->LE)
cost += t->cLE;
else
return 10000;
} else if (x > ox) {
ptrdiff_t dist = x - ox;
/* Have to go right */
/* Hmm.. this should take into account possible attribute changes */
if (t->cRI < dist && dist < 10)
cost += t->cRI;
else if (t->cRI + 1 < dist)
cost += t->cRI + 1;
else
cost += dist;
}
return cost;
}
/* Find optimal set of cursor positioning commands to move from the current
* cursor row and column (either or both of which might be unknown) to the
* given new row and column and execute them.
*/
static void cposs(register SCRN *t, register ptrdiff_t x, register ptrdiff_t y)
{
register ptrdiff_t bestcost, cost;
int bestway;
ptrdiff_t hy;
ptrdiff_t hl;
fixupcursor(t);
/* Home y position is usually 0, but it is 'top' if we have scrolling region
* relative addressing
*/
if (t->rr) {
hy = t->top;
hl = t->bot - 1;
} else {
hy = 0;
hl = t->li - 1;
}
/* Assume best way is with only using relative cursor positioning */
bestcost = relcost(t, x, y, t->x, t->y);
bestway = 0;
/* Now check if combinations of absolute cursor positioning functions are
* better (or necessary in case one or both cursor positions are unknown)
*/
if (t->ccm < bestcost) {
cost = tcost(t->cap, t->cm, 1, y, x, 0, 0);
if (cost < bestcost) {
bestcost = cost;
bestway = 6;
}
}
if (t->ccr < bestcost) {
cost = relcost(t, x, y, 0, t->y) + t->ccr;
if (cost < bestcost) {
bestcost = cost;
bestway = 1;
}
}
if (t->cho < bestcost) {
cost = relcost(t, x, y, 0, hy) + t->cho;
if (cost < bestcost) {
bestcost = cost;
bestway = 2;
}
}
if (t->cll < bestcost) {
cost = relcost(t, x, y, 0, hl) + t->cll;
if (cost < bestcost) {
bestcost = cost;
bestway = 3;
}
}
if (t->cch < bestcost && x != t->x) {
cost = relcost(t, x, y, x, t->y) + tcost(t->cap, t->ch, 1, x, 0, 0, 0);
if (cost < bestcost) {
bestcost = cost;
bestway = 4;
}
}
if (t->ccv < bestcost && y != t->y) {
cost = relcost(t, x, y, t->x, y) + tcost(t->cap, t->cv, 1, y, 0, 0, 0);
if (cost < bestcost) {
bestcost = cost;
bestway = 5;
}
}
if (t->ccV < bestcost) {
cost = relcost(t, x, y, 0, y) + tcost(t->cap, t->cV, 1, y, 0, 0, 0);
if (cost < bestcost) {
bestcost = cost;
bestway = 13;
}
}
if (t->cch + t->ccv < bestcost && x != t->x && y != t->y) {
cost = tcost(t->cap, t->cv, 1, y - hy, 0, 0, 0) + tcost(t->cap, t->ch, 1, x, 0, 0, 0);
if (cost < bestcost) {
bestcost = cost;
bestway = 7;
}
}
if (t->ccv + t->ccr < bestcost && y != t->y) {
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);
if (cost < bestcost) {
bestcost = cost;
bestway = 8;
}
}
if (t->cll + t->cch < bestcost) {
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);
if (cost < bestcost) {
bestcost = cost;
bestway = 9;
}
}
if (t->cll + t->ccv < bestcost) {
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);
if (cost < bestcost) {
bestcost = cost;
bestway = 10;
}
}
if (t->cho + t->cch < bestcost) {
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);
if (cost < bestcost) {
bestcost = cost;
bestway = 11;
}
}
if (t->cho + t->ccv < bestcost) {
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);
if (cost < bestcost) {
bestcost = cost;
bestway = 12;
}
}
/* Do absolute cursor positioning if we don't know the cursor position or
* if it is faster than doing only relative cursor positioning
*/
switch (bestway) {
case 1:
texec(t->cap, t->cr, 1, 0, 0, 0, 0);
t->x = 0;
break;
case 2:
texec(t->cap, t->ho, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hy;
break;
case 3:
texec(t->cap, t->ll, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hl;
break;
case 9:
texec(t->cap, t->ll, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hl;
goto doch;
case 11:
texec(t->cap, t->ho, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hy;
doch:
case 4:
texec(t->cap, t->ch, 1, x, 0, 0, 0);
t->x = x;
break;
case 10:
texec(t->cap, t->ll, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hl;
goto docv;
case 12:
texec(t->cap, t->ho, 1, 0, 0, 0, 0);
t->x = 0;
t->y = hy;
goto docv;
case 8:
texec(t->cap, t->cr, 1, 0, 0, 0, 0);
t->x = 0;
docv:
case 5:
texec(t->cap, t->cv, 1, y, 0, 0, 0);
t->y = y;
break;
case 6:
texec(t->cap, t->cm, 1, y, x, 0, 0);
t->y = y;
t->x = x;
break;
case 7:
texec(t->cap, t->cv, 1, y, 0, 0, 0);
t->y = y;
texec(t->cap, t->ch, 1, x, 0, 0, 0);
t->x = x;
break;
case 13:
texec(t->cap, t->cV, 1, y, 0, 0, 0);
t->y = y;
t->x = 0;
break;
}
/* Use relative cursor position functions if we're not there yet */
/* First adjust row */
if (y > t->y) {
/* Have to go down */
if (!t->lf || t->cDO < (y - t->y) * t->clf) {
texec(t->cap, t->DO, 1, y - t->y, 0, 0, 0);
t->y = y;
} else
while (y > t->y) {
texec(t->cap, t->lf, 1, 0, 0, 0, 0);
++t->y;
}
} else if (y < t->y) {
/* Have to go up */
if (!t->up || t->cUP < (t->y - y) * t->cup) {
texec(t->cap, t->UP, 1, t->y - y, 0, 0, 0);
t->y = y;
} else
while (y < t->y) {
texec(t->cap, t->up, 1, 0, 0, 0, 0);
--t->y;
}
}
/* Use tabs */
if (x > t->x && t->ta) {
ptrdiff_t ntabs = (x - t->x + t->x % t->tw) / t->tw;
ptrdiff_t cstunder = x % t->tw + t->cta * ntabs;
ptrdiff_t cstover;
if (x + t->tw < t->co && t->bs)
cstover = t->cbs * (t->tw - x % t->tw) + t->cta * (ntabs + 1);
else
cstover = 10000;
if (cstunder < t->cRI && cstunder < x - t->x && cstover > cstunder) {
if (ntabs) {
t->x = x - x % t->tw;
do {
texec(t->cap, t->ta, 1, 0, 0, 0, 0);
} while (--ntabs);
}
} else if (cstover < t->cRI && cstover < x - t->x) {
t->x = t->tw + x - x % t->tw;
++ntabs;
do {
texec(t->cap, t->ta, 1, 0, 0, 0, 0);
} while (--ntabs);
}
} else if (x < t->x && t->bt) {
ptrdiff_t 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;
ptrdiff_t cstunder, cstover;
if (t->bs)
cstunder = t->cbt * ntabs + t->cbs * (t->tw - x % t->tw);
else
cstunder = 10000;
if (x - t->tw >= 0)
cstover = t->cbt * (ntabs + 1) + x % t->tw;
else
cstover = 10000;
if (cstunder < t->cLE && (t->bs ? cstunder < (t->x - x) * t->cbs : 1)
&& cstover > cstunder) {
if (ntabs) {
do {
texec(t->cap, t->bt, 1, 0, 0, 0, 0);
} while (--ntabs);
t->x = x + t->tw - x % t->tw;
}
} else if (cstover < t->cRI && (t->bs ? cstover < (t->x - x) * t->cbs : 1)) {
t->x = x - x % t->tw;
++ntabs;
do {
texec(t->cap, t->bt, 1, 0, 0, 0, 0);
} while (--ntabs);
}
}
/* Now adjust column */
if (x < t->x) {
/* Have to go left */
if (!t->bs || t->cLE < (t->x - x) * t->cbs) {
texec(t->cap, t->LE, 1, t->x - x, 0, 0, 0);
t->x = x;
} else
while (x < t->x) {
texec(t->cap, t->bs, 1, 0, 0, 0, 0);
--t->x;
}
} else if (x > t->x) {
/* Have to go right */
/* Hmm.. this should take into account possible attribute changes */
if (x-t->x>1 && t->RI) {
texec(t->cap, t->RI, 1, x - t->x, 0, 0, 0);
t->x = x;
} else {
while(x>t->x) {
texec(t->cap, t->nd, 1, 0, 0, 0, 0);
++t->x;
}
}
/* if (t->cRI < x - t->x) { */
/* } else {
int *s = t->scrn + t->x + t->y * t->co;
int *a = t->attr + t->x + t->y * t->co;
if (t->ins)
clrins(t);
while (x > t->x) {
int atr, c;
if(*s==-1) c=' ', atr=0;
else c= *s, atr= *a;
if (atr != t->attrib)
set_attr(t, atr);
utf8_putc(c);
++s;
++a;
++t->x;
}
}
*/
}
}
int cpos(register SCRN *t, register ptrdiff_t x, register ptrdiff_t y)
{
/* Move cursor quickly if we can */
if (y == t->y) {
if (x > t->x && x - t->x < 4 && !t->ins) {
int (*cs)[COMPOSE] = t->scrn + t->x + t->co * t->y;
int *as = t->attr + t->x + t->co * t->y;
do {
/* We used to space over unknown chars, but they now could be
the right half of a UTF-8 two column character, so we can't.
Also do not try to emit utf-8 sequences here. */
if((*cs)[0]<32 || (*cs)[0]>=127)
break;
/* Also ignore if we would have to emit combining characters */
if ((*cs)[1])
break;
if (*as != t->attrib)
set_attr(t, *as);
ttputc(TO_CHAR_OK((*cs)[0]));
++cs;
++as;
++t->x;
} while (x != t->x);
}
if (x == t->x)
return 0;
}
if ((!t->ms && t->attrib & (INVERSE | UNDERLINE | BG_NOT_DEFAULT)) ||
(t->ut && (t->attrib & BG_NOT_DEFAULT)))
set_attr(t, t->attrib & ~(INVERSE | UNDERLINE | BG_MASK));
/* Should be in cposs */
if (y < t->top || y >= t->bot)
setregn(t, 0, t->li);
cposs(t, x, y);
return 0;
}
/* Insert/Delete within line */
/* FIXME: doesn't know about attr */
#if 0
/* Enter insert mode */
static void setins(SCRN *t, ptrdiff_t x)
{
if (t->ins != 1 && t->im) {
t->ins = 1;
texec(t->cap, t->im, 1, x, 0, 0, 0);
}
}
/* As above but useable in insert mode */
/* The cursor position must already be correct */
static void outatri(SCRN *t, ptrdiff_t x, ptrdiff_t y, int c, int a)
{
/*
if (c == -1)
c = ' ';
if (a != t->attrib)
set_attr(t, a);
if (t->haz && c == '~')
c = '\\';
utf8_putc(c);
t->x+=joe_wcwidth(1,c);
*/
/* ++t->x; */
}
static void doinschr(SCRN *t, ptrdiff_t x, ptrdiff_t y, int (*s)[COMPOSE], int *as, ptrdiff_t n)
{
ptrdiff_t a;
if (x < 0) {
s -= x;
as -= x;
x = 0;
}
if (x >= t->co || n <= 0)
return;
if (t->im || t->ic || t->IC) {
cpos(t, x, y);
if ((n == 1 && t->ic) || !t->IC) {
if (!t->ic)
setins(t, x);
for (a = 0; a != n; ++a) {
texec(t->cap, t->ic, 1, x, 0, 0, 0);
outatri(t, x + a, y, s[a][0], as[a]);
texec(t->cap, t->ip, 1, x, 0, 0, 0);
}
if (!t->mi)
clrins(t);
} else {
texec(t->cap, t->IC, 1, n, 0, 0, 0);
for (a = 0; a != n; ++a)
outatri(t, x + a, y, s[a][0], as[a]);
}
}
mmove(t->scrn + x + t->co * y + n, t->scrn + x + t->co * y, (t->co - (x + n)) * SIZEOF(int [COMPOSE]));
mmove(t->attr + x + t->co * y + n, t->attr + x + t->co * y, (t->co - (x + n)) * SIZEOF(int));
mmove(t->scrn + x + t->co * y, s, n * SIZEOF(int [COMPOSE]));
mmove(t->attr + x + t->co * y, s, n * SIZEOF(int));
}
static void dodelchr(SCRN *t, ptrdiff_t x, ptrdiff_t y, ptrdiff_t n)
{
ptrdiff_t a;
if (x < 0)
x = 0;
if (!n || x >= t->co)
return;
if (t->dc || t->DC) {
cpos(t, x, y);
texec(t->cap, t->dm, 1, x, 0, 0, 0); /* Enter delete mode */
if ((n == 1 && t->dc) || !t->DC)
for (a = n; a; --a)
texec(t->cap, t->dc, 1, x, 0, 0, 0);
else
texec(t->cap, t->DC, 1, n, 0, 0, 0);
texec(t->cap, t->ed, 1, x, 0, 0, 0); /* Exit delete mode */
}
mmove(t->scrn + t->co * y + x, t->scrn + t->co * y + x + n, (t->co - (x + n)) * SIZEOF(int [COMPOSE]));
mmove(t->attr + t->co * y + x, t->attr + t->co * y + x + n, (t->co - (x + n)) * SIZEOF(int));
mfill(t->scrn + t->co * y + t->co - n, ' ', n);
msetI(t->attr + t->co * y + t->co - n, (t->attrib & FG_MASK), n);
}
void magic(SCRN *t, ptrdiff_t y, int (*cs)[COMPOSE], int *ca,int *s, int *a, ptrdiff_t placex)
{
struct hentry *htab = t->htab;
ptrdiff_t *ofst = t->ofst;
int aryx = 1;
ptrdiff_t x;
if (!(t->im || t->ic || t->IC) || !(t->dc || t->DC))
return;
mset((char *)htab, 0, 256 * SIZEOF(struct hentry));
msetD(ofst, 0, t->co);
/* Build hash table */
for (x = 0; x != t->co; ++x) {
t->ary[aryx].next = htab[cs[x] & 255].next;
t->ary[aryx].loc = x;
++htab[cs[x] & 255].loc;
htab[cs[x] & 255].next = aryx++;
}
/* Build offset table */
for (x = 0; x < t->co;)
if (htab[s[x] & 255].loc >= 15)
ofst[x++] = t->co;
else {
ptrdiff_t aryy;
ptrdiff_t maxaryy = 0;
ptrdiff_t maxlen = 0;
ptrdiff_t best = 0;
ptrdiff_t bestback = 0;
ptrdiff_t z;
for (aryy = htab[s[x] & 255].next; aryy; aryy = t->ary[aryy].next) {
ptrdiff_t amnt, back;
ptrdiff_t tsfo = t->ary[aryy].loc - x;
ptrdiff_t cst = tsfo < 0 ? -tsfo : tsfo;
ptrdiff_t pre = 32;
for (amnt = 0; x + amnt < t->co && x + tsfo + amnt < t->co; ++amnt) {
if (cs[x + tsfo + amnt] != s[x + amnt])
break;
else if ((s[x + amnt] & 255) != 32 || pre != 32)
++cst;
pre = s[x + amnt] & 255;
}
pre = 32;
for (back = 0; back + x > 0 && back + tsfo + x > 0; --back) {
if (cs[x + tsfo + back - 1] != s[x + back - 1])
break;
else if ((s[x + back - 1] & 255) != 32 || pre != 32)
++cst;
pre = s[x + back - 1] & 255;
}
if (cst > best) {
maxaryy = aryy;
maxlen = amnt;
best = cst;
bestback = back;
}
}
if (!maxlen) {
ofst[x] = t->co;
maxlen = 1;
} else if (best < 2)
for (z = 0; z != maxlen; ++z)
ofst[x + z] = t->co;
else
for (z = 0; z != maxlen - bestback; ++z)
ofst[x + z + bestback] = t->ary[maxaryy].loc - x;
x += maxlen;
}
/* Apply scrolling commands */
for (x = 0; x != t->co; ++x) {
ptrdiff_t q = ofst[x];
if (q && q != t->co) {
if (q > 0) {
ptrdiff_t z, fu;
for (z = x; z != t->co && ofst[z] == q; ++z) ;
while (s[x] == cs[x] && x < placex)
++x;
dodelchr(t, x, y, q);
for (fu = x; fu != t->co; ++fu)
if (ofst[fu] != t->co)
ofst[fu] -= q;
x = z - 1;
} else {
ptrdiff_t z, fu;
for (z = x; z != t->co && ofst[z] == q; ++z) ;
while (s[x + q] == cs[x + q] && x - q < placex)
++x;
doinschr(t, x + q, y, s + x + q, a + x + q, -q);
for (fu = x; fu != t->co; ++fu)
if (ofst[fu] != t->co)
ofst[fu] -= q;
x = z - 1;
}
}
}
}
#endif
static void doupscrl(SCRN *t, ptrdiff_t top, ptrdiff_t bot, ptrdiff_t amnt, int atr)
{
ptrdiff_t a = amnt;
if (!amnt)
return;
set_attr(t, atr);
if (top == 0 && bot == t->li && (t->sf || t->SF)) {
setregn(t, 0, t->li);
cpos(t, 0, t->li - 1);
if ((amnt == 1 && t->sf) || !t->SF)
while (a--)
texec(t->cap, t->sf, 1, t->li - 1, 0, 0, 0);
else
texec(t->cap, t->SF, a, a, 0, 0, 0);
goto done;
}
if (bot == t->li && (t->dl || t->DL)) {
setregn(t, 0, t->li);
cpos(t, 0, top);
if ((amnt == 1 && t->dl) || !t->DL)
while (a--)
texec(t->cap, t->dl, 1, top, 0, 0, 0);
else
texec(t->cap, t->DL, a, a, 0, 0, 0);
goto done;
}
if (t->cs && (t->sf || t->SF)) {
setregn(t, top, bot);
cpos(t, 0, bot - 1);
if ((amnt == 1 && t->sf) || !t->SF)
while (a--)
texec(t->cap, t->sf, 1, bot - 1, 0, 0, 0);
else
texec(t->cap, t->SF, a, a, 0, 0, 0);
goto done;
}
if ((t->dl || t->DL) && (t->al || t->AL)) {
cpos(t, 0, top);
if ((amnt == 1 && t->dl) || !t->DL)
while (a--)
texec(t->cap, t->dl, 1, top, 0, 0, 0);
else
texec(t->cap, t->DL, a, a, 0, 0, 0);
a = amnt;
cpos(t, 0, bot - amnt);
if ((amnt == 1 && t->al) || !t->AL)
while (a--)
texec(t->cap, t->al, 1, bot - amnt, 0, 0, 0);
else
texec(t->cap, t->AL, a, a, 0, 0, 0);
goto done;
}
msetI(t->updtab + top, 1, bot - top);
return;
done:
mmove(t->scrn + top * t->co, t->scrn + (top + amnt) * t->co, (bot - top - amnt) * t->co * SIZEOF(int [COMPOSE]));
mmove(t->attr + top * t->co, t->attr + (top + amnt) * t->co, (bot - top - amnt) * t->co * SIZEOF(int));
if (bot == t->li && t->db) {
mfill(t->scrn + (t->li - amnt) * t->co, -1, amnt * t->co);
msetI(t->attr + (t->li - amnt) * t->co, 0, amnt * t->co);
msetI(t->updtab + t->li - amnt, 1, amnt);
} else {
mfill(t->scrn + (bot - amnt) * t->co, ' ', amnt * t->co);
msetI(t->attr + (bot - amnt) * t->co, 0, amnt * t->co);
}
}
static void dodnscrl(SCRN *t, ptrdiff_t top, ptrdiff_t bot, ptrdiff_t amnt, int atr)
{
ptrdiff_t a = amnt;
if (!amnt)
return;
set_attr(t, atr);
if (top == 0 && bot == t->li && (t->sr || t->SR)) {
setregn(t, 0, t->li);
cpos(t, 0, 0);
if ((amnt == 1 && t->sr) || !t->SR)
while (a--)
texec(t->cap, t->sr, 1, 0, 0, 0, 0);
else
texec(t->cap, t->SR, a, a, 0, 0, 0);
goto done;
}
if (bot == t->li && (t->al || t->AL)) {
setregn(t, 0, t->li);
cpos(t, 0, top);
if ((amnt == 1 && t->al) || !t->AL)
while (a--)
texec(t->cap, t->al, 1, top, 0, 0, 0);
else
texec(t->cap, t->AL, a, a, 0, 0, 0);
goto done;
}
if (t->cs && (t->sr || t->SR)) {
setregn(t, top, bot);
cpos(t, 0, top);
if ((amnt == 1 && t->sr) || !t->SR)
while (a--)
texec(t->cap, t->sr, 1, top, 0, 0, 0);
else
texec(t->cap, t->SR, a, a, 0, 0, 0);
goto done;
}
if ((t->dl || t->DL) && (t->al || t->AL)) {
cpos(t, 0, bot - amnt);
if ((amnt == 1 && t->dl) || !t->DL)
while (a--)
texec(t->cap, t->dl, 1, bot - amnt, 0, 0, 0);
else
texec(t->cap, t->DL, a, a, 0, 0, 0);
a = amnt;
cpos(t, 0, top);
if ((amnt == 1 && t->al) || !t->AL)
while (a--)
texec(t->cap, t->al, 1, top, 0, 0, 0);
else
texec(t->cap, t->AL, a, a, 0, 0, 0);
goto done;
}
msetI(t->updtab + top, 1, bot - top);
return;
done:
mmove(t->scrn + (top + amnt) * t->co, t->scrn + top * t->co, (bot - top - amnt) * t->co * SIZEOF(int [COMPOSE]));
mmove(t->attr + (top + amnt) * t->co, t->attr + top * t->co, (bot - top - amnt) * t->co * SIZEOF(int));
if (!top && t->da) {
mfill(t->scrn, -1, amnt * t->co);
msetI(t->attr, 0, amnt * t->co);
msetI(t->updtab, 1, amnt);
} else {
mfill(t->scrn + t->co * top, ' ', amnt * t->co);
msetI(t->attr + t->co * top, 0, amnt * t->co);
}
}
void nscroll(SCRN *t,int atr)
{
ptrdiff_t y, z, q, r, p;
for (y = 0; y != t->li; ++y) {
q = t->sary[y];
if (ifhave)
return;
if (q && q != t->li) {
if (q > 0) {
for (z = y; z != t->li && t->sary[z] == q; ++z)
t->sary[z] = 0;
doupscrl(t, y, z + q, q, atr);
y = z - 1;
} else {
for (r = y; r != t->li && (t->sary[r] < 0 || t->sary[r] == t->li); ++r) ;
p = r - 1;
do {
q = t->sary[p];
if (q && q != t->li) {
for (z = p; t->sary[z] = 0, (z && t->sary[z - 1] == q); --z) ;
dodnscrl(t, z + q, p + 1, -q, atr);
p = z + 1;
}
} while (p-- != y);
y = r - 1;
}
}
}
msetD(t->sary, 0, t->li);
}
void npartial(SCRN *t)
{
set_attr(t, BG_COLOR(bg_text));
clrins(t);
setregn(t, 0, t->li);
}
void nescape(SCRN *t)
{
mouseclose();
npartial(t);
cpos(t, 0, t->li - 1);
eraeol(t, 0, t->li - 1, 0);
ttflsh();
if (t->bre)
texec(t->cap, t->bre, 1, 0, 0, 0, 0);
if (t->te)
texec(t->cap, t->te, 1, 0, 0, 0, 0);
}
void nreturn(SCRN *t)
{
mouseopen();
if (t->ti)
texec(t->cap, t->ti, 1, 0, 0, 0, 0);
if (!skiptop && t->cl)
texec(t->cap, t->cl, 1, 0, 0, 0, 0);
if (t->brp)
texec(t->cap, t->brp, 1, 0, 0, 0, 0);
nredraw(t);
ttflsh();
}
void nclose(SCRN *t)
{
mouseclose();
leave = 1;
set_attr(t, 0);
clrins(t);
setregn(t, 0, t->li);
cpos(t, 0, t->li - 1);
if (t->bre)
texec(t->cap, t->bre, 1, 0, 0, 0, 0);
if (t->te)
texec(t->cap, t->te, 1, 0, 0, 0, 0);
ttclose();
rmcap(t->cap);
joe_free(t->scrn);
joe_free(t->attr);
joe_free(t->sary);
joe_free(t->ofst);
joe_free(t->htab);
joe_free(t->ary);
joe_free(t);
}
void nscrldn(SCRN *t, ptrdiff_t top, ptrdiff_t bot, ptrdiff_t amnt)
{
ptrdiff_t x;
if (!amnt || top >= bot || bot > t->li)
return;
if ((amnt < bot - top && bot - top - amnt < amnt / 2) || !t->scroll)
amnt = bot - top;
if (amnt < bot - top) {
for (x = bot; x != top + amnt; --x) {
t->sary[x - 1] = (t->sary[x - amnt - 1] == t->li ? t->li : t->sary[x - amnt - 1] - amnt);
t->updtab[x - 1] = t->updtab[x - amnt - 1];
}
for (x = top; x != top + amnt; ++x) {
t->updtab[x] = 1;
}
}
if (amnt > bot - top)
amnt = bot - top;
msetD(t->sary + top, t->li, amnt);
if (amnt == bot - top) {
msetI(t->updtab + top, 1, amnt);
}
}
void nscrlup(SCRN *t, ptrdiff_t top, ptrdiff_t bot, ptrdiff_t amnt)
{
ptrdiff_t x;
if (!amnt || top >= bot || bot > t->li)
return;
if ((amnt < bot - top && bot - top - amnt < amnt / 2) || !t->scroll)
amnt = bot - top;
if (amnt < bot - top) {
for (x = top + amnt; x != bot; ++x) {
t->sary[x - amnt] = (t->sary[x] == t->li ? t->li : t->sary[x] + amnt);
t->updtab[x - amnt] = t->updtab[x];
}
for (x = bot - amnt; x != bot; ++x) {
t->updtab[x] = 1;
}
}
if (amnt > bot - top)
amnt = bot - top;
msetD(t->sary + bot - amnt, t->li, amnt);
if (amnt == bot - top) {
msetI(t->updtab + bot - amnt, 1, amnt);
}
}
void nredraw(SCRN *t)
{
dostaupd = 1;
mfill(t->scrn, ' ', t->co * skiptop);
msetI(t->attr, BG_COLOR(bg_text), t->co * skiptop);
mfill(t->scrn + skiptop * t->co, -1, (t->li - skiptop) * t->co);
msetI(t->attr + skiptop * t->co, BG_COLOR(bg_text), (t->li - skiptop) * t->co);
msetD(t->sary, 0, t->li);
msetI(t->updtab + skiptop, -1, t->li - skiptop);
t->x = -1;
t->y = -1;
t->top = t->li;
t->bot = 0;
t->attrib = -1;
t->ins = -1;
set_attr(t, BG_COLOR(bg_text));
clrins(t);
setregn(t, 0, t->li);
if (!skiptop) {
if (t->cl) {
texec(t->cap, t->cl, 1, 0, 0, 0, 0);
t->x = 0;
t->y = 0;
mfill(t->scrn, ' ', t->li * t->co);
msetI(t->attr, BG_COLOR(bg_text), t->li * t->co);
} else if (t->cd) {
cpos(t, 0, 0);
texec(t->cap, t->cd, 1, 0, 0, 0, 0);
mfill(t->scrn, ' ', t->li * t->co);
msetI(t->attr, BG_COLOR(bg_text), t->li * t->co);
}
}
}
/* Convert color/attribute name into internal code */
static int meta_color_single(const char *s)
{
if(!zcmp(s,"inverse"))
return INVERSE;
else if(!zcmp(s,"underline"))
return UNDERLINE;
else if(!zcmp(s,"bold"))
return BOLD;
else if(!zcmp(s,"blink"))
return BLINK;
else if(!zcmp(s,"dim"))
return DIM;
else if(!zcmp(s,"italic"))
return ITALIC;
/* ISO colors */
else if(!zcmp(s,"white"))
return FG_WHITE;
else if(!zcmp(s,"cyan"))
return FG_CYAN;
else if(!zcmp(s,"magenta"))
return FG_MAGENTA;
else if(!zcmp(s,"blue"))
return FG_BLUE;
else if(!zcmp(s,"yellow"))
return FG_YELLOW;
else if(!zcmp(s,"green"))
return FG_GREEN;
else if(!zcmp(s,"red"))
return FG_RED;
else if(!zcmp(s,"black"))
return FG_BLACK;
else if(!zcmp(s,"bg_white"))
return BG_WHITE;
else if(!zcmp(s,"bg_cyan"))
return BG_CYAN;
else if(!zcmp(s,"bg_magenta"))
return BG_MAGENTA;
else if(!zcmp(s,"bg_blue"))
return BG_BLUE;
else if(!zcmp(s,"bg_yellow"))
return BG_YELLOW;
else if(!zcmp(s,"bg_green"))
return BG_GREEN;
else if(!zcmp(s,"bg_red"))
return BG_RED;
else if(!zcmp(s,"bg_black"))
return BG_BLACK;
/* 16 color xterm support: codes 8 - 15 are brighter versions of above */
else if(!zcmp(s,"WHITE"))
return FG_BWHITE;
else if(!zcmp(s,"CYAN"))
return FG_BCYAN;
else if(!zcmp(s,"MAGENTA"))
return FG_BMAGENTA;
else if(!zcmp(s,"BLUE"))
return FG_BBLUE;
else if(!zcmp(s,"YELLOW"))
return FG_BYELLOW;
else if(!zcmp(s,"GREEN"))
return FG_BGREEN;
else if(!zcmp(s,"RED"))
return FG_BRED;
else if(!zcmp(s,"BLACK"))
return FG_BBLACK;
else if(!zcmp(s,"bg_WHITE"))
return BG_BWHITE;
else if(!zcmp(s,"bg_CYAN"))
return BG_BCYAN;
else if(!zcmp(s,"bg_MAGENTA"))
return BG_BMAGENTA;
else if(!zcmp(s,"bg_BLUE"))
return BG_BBLUE;
else if(!zcmp(s,"bg_YELLOW"))
return BG_BYELLOW;
else if(!zcmp(s,"bg_GREEN"))
return BG_BGREEN;
else if(!zcmp(s,"bg_RED"))
return BG_BRED;
else if(!zcmp(s,"bg_BLACK"))
return BG_BBLACK;
/* Look at the "256colres.pl" PERL script in the xterm source
distribution to see how these work. */
/* 256 color xterm support: bg_RGB and fg_RGB, where R, G, and B range from 0 - 5 */
/* Codes 16 - 231 are a 6x6x6 color cube */
else if(s[0]=='f' && s[1]=='g' && s[2]=='_' &&
s[3]>='0' && s[3]<='5' &&
s[4]>='0' && s[4]<='5' &&
s[5]>='0' && s[5]<='5' && !s[6])
return FG_NOT_DEFAULT | ((16 + (s[3]-'0')*6*6 + (s[4]-'0')*6 + (s[5]-'0')) << FG_SHIFT);
else if(s[0]=='b' && s[1]=='g' && s[2]=='_' &&
s[3]>='0' && s[3]<='5' &&
s[4]>='0' && s[4]<='5' &&
s[5]>='0' && s[5]<='5' && !s[6])
return BG_NOT_DEFAULT | ((16 + (s[3]-'0')*6*6 + (s[4]-'0')*6 + (s[5]-'0')) << BG_SHIFT);
/* 256 color xterm support: shades of grey */
/* Codes 232 - 255 are shades of grey */
else if(s[0]=='f' && s[1]=='g' && s[2]=='_' && ztoi(s+3) >= 0 && ztoi(s+3) <= 23)
return FG_NOT_DEFAULT | (232 + (ztoi(s+3) << FG_SHIFT));
else if(s[0]=='b' && s[1]=='g' && s[2]=='_' && ztoi(s+3) >= 0 && ztoi(s+3) <= 23)
return BG_NOT_DEFAULT | (232 + (ztoi(s+3) << BG_SHIFT));
else
return 0;
}
int meta_color(const char *s)
{
int code = 0;
while (*s) {
char buf[32];
int x = 0;
while (*s)
if (*s && *s != '+') {
if (x != SIZEOF(buf) - 1)
buf[x++] = *s;
++s;
} else
break;
if (*s == '+')
++s;
buf[x] = 0;
code |= meta_color_single(buf);
}
return code;
}
/* Calculate number of lines needed for a given prompt string and a given window width.
Also this finds the nth line and returns the position of the substring which is
that line. Set n to -1 if you just want the height. */
int break_height(struct charmap *map,const char **src,ptrdiff_t *src_len,int wid,int n)
{
const char *s = *src;
int len = *src_len;
int h = 1; /* Number of lines */
int col = 0; /* Current column */
int x = 0; /* Offset into string */
int start_of_line = 0; /* Start of most recent line */
while (x != len) {
int space = 0;
int word = 0;
int start = x;
int start_word;
while (x != len && s[x] == ' ') {
++space;
++x;
}
start_word = x;
while (x != len && s[x] != ' ') {
++x;
}
word = txtwidth(map, s + start_word, x - start_word);
if (col + space + word < wid || !col) {
/* Leading space and word fit on current line */
col += space + word;
} else {
/* They don't fit, start a new line */
if (!n--) {
x = start;
break;
}
++h;
col = word;
start_of_line = start_word;
}
}
*src = s + start_of_line;
*src_len = x - start_of_line;
return h;
}
/* Generate a field
*
* 't' is SCRN to write to.
* 'scrn' is address of field in character buffer
* 'attr' is address of field in attribute buffer
* 'x', 'y' are starting column and line numbers of field
* 'ofst' is first column within string to display
* 's', 'len' is string to generate in field
* 'atr' is screeen attributes (and color) which should be used
* 'width' is column width of field
* 'flg' if set, erases to end of line
* 'fmt' is array of attributes, one for each byte. OK if NULL.
*/
void genfield(SCRN *t,int (*scrn)[COMPOSE],int *attr,ptrdiff_t x,ptrdiff_t y,ptrdiff_t ofst,const char *s,ptrdiff_t len,int atr,ptrdiff_t width,int flg,int *fmt)
{
ptrdiff_t col;
struct utf8_sm sm;
ptrdiff_t last_col = x + width;
utf8_init(&sm);
for (col = 0;len != 0 && x < last_col; len--) {
int c = *(const unsigned char *)s++;
ptrdiff_t wid = -1;
int my_atr = atr;
if (fmt) my_atr |= *fmt++;
if (locale_map->type) {
/* UTF-8 mode: decode character and determine its width */
c = utf8_decode(&sm,TO_CHAR_OK(c));
if (c >= 0)
wid = joe_wcwidth(1,c);
} else {
/* Byte mode: character is one column wide */
wid = 1 ;
}
if (wid>=0) {
if (col >= ofst) {
if (x + wid > last_col) {
/* Character crosses end of field, so fill balance of field with '>' characters instead */
while (x < last_col) {
outatr(locale_map, t, scrn, attr, x, y, '>', my_atr);
++scrn;
++attr;
++x;
}
} else if(wid) {
/* Emit character */
outatr(locale_map, t, scrn, attr, x, y, c, my_atr);
x += wid;
scrn += wid;
attr += wid;
}
} else if ((col + wid) > ofst) {
/* Wide character crosses left side of field */
wid -= ofst - col;
col = ofst;
while (wid) {
outatr(locale_map, t, scrn, attr, x, y, '<', my_atr);
++scrn;
++attr;
++x;
++col;
--wid;
}
} else
col += wid;
}
}
/* Fill balance of field with spaces */
while (x < last_col) {
outatr(locale_map, t, scrn, attr, x, y, ' ', atr);
++x;
++scrn;
++attr;
}
/* Complete any unfinished characters */
outatr_complete(t);
/* Erase to end of line */
if (flg)
eraeol(t, x, y, atr);
}
/* Width function for above */
ptrdiff_t txtwidth(struct charmap *map, const char *s,ptrdiff_t len)
{
if (map->type) {
ptrdiff_t col=0;
struct utf8_sm sm;
utf8_init(&sm);
while(len--) {
int d = utf8_decode(&sm,*s++);
if (d >= 0)
col += joe_wcwidth(1,d);
}
return col;
} else
return len;
}
off_t txtwidth1(struct charmap *map,off_t tabwidth,const char *s,ptrdiff_t len)
{
if (map->type) {
off_t col=0;
struct utf8_sm sm;
utf8_init(&sm);
while(len--) {
int d = utf8_decode(&sm,*s++);
if (d == '\t') {
++col;
col += tabwidth - (col % tabwidth);
} else if (d >= 0)
col += joe_wcwidth(1,d);
}
return col;
} else {
off_t col = 0;
while (len--) {
if (*s++ == '\t') {
++col;
col += tabwidth - (col % tabwidth);
} else
++col;
}
return col;
}
}
/* Unescape for text going to genfmt */
void unesc_genfmt(char *d, char *s, int len, int max)
{
while (max > 0 && len) {
if (!*s) {
*d++ = '\\';
*d++ = '@';
++s;
} else {
if (*s == '\\') {
*d++ = '\\';
--max;
}
*d++ = *s++;
}
--len;
--max;
}
if (len)
*d++ = '$';
*d = 0;
}
#ifdef JOEWIN
static void genfmti(SCRN *t, int x, int y, int ofst, const char *s, int atr, int flg, int iatr);
/* Generate text with formatting escape sequences */
void genfmt(SCRN *t, ptrdiff_t x, ptrdiff_t y, ptrdiff_t ofst, const char *s, int atr, int flg)
{
genfmti(t, x, y, ofst, s, atr, flg, 0);
}
/* Generate text with formatting escape sequences and custom inverse colors */
static void genfmti(SCRN *t, ptrdiff_t x, ptrdiff_t y, ptrdiff_t ofst, const char *s, int atr, int flg, int iatr)
#else
/* Generate text with formatting escape sequences */
void genfmt(SCRN *t, ptrdiff_t x, ptrdiff_t y, ptrdiff_t ofst, const char *s, int atr, int flg)
#endif
{
int (*scrn)[COMPOSE] = t->scrn + y * t->co + x;
int *attr = t->attr + y * t->co + x;
ptrdiff_t col = 0;
int c;
struct utf8_sm sm;
#ifdef JOEWIN
int inverted = !!(atr & INVERSE);
int origcolor = atr & ~(FG_MASK | BG_MASK);
if (iatr && inverted) {
atr = iatr | (atr & ~(FG_MASK | BG_MASK | INVERSE));
}
#endif
utf8_init(&sm);
while ((c = *(const unsigned char *)s++) != '\0')
if (c == '\\') {
switch (c = *s++) {
case 'u':
case 'U':
atr ^= UNDERLINE;
break;
case 'i':
case 'I':
#ifdef JOEWIN
if (iatr) {
inverted = !inverted;
atr = (inverted ? iatr : origcolor)
| (atr & ~(FG_MASK | BG_MASK));
} else {
atr ^= INVERSE;
}
#else
atr ^= INVERSE;
#endif
break;
case 'b':
case 'B':
atr ^= BOLD;
break;
case 'l':
case 'L':
atr ^= ITALIC;
break;
case 'd':
case 'D':
atr ^= DIM;
break;
case 'f':
case 'F':
atr ^= BLINK;
break;
case 0:
--s;
break;
case '@':
c = 0;
default: {
if (col++ >= ofst) {
outatr(locale_map, t, scrn, attr, x, y, (c&0x7F), atr);
++scrn;
++attr;
++x;
}
break;
}
}
} else {
ptrdiff_t wid = -1;
if (locale_map->type) {
/* UTF-8 mode: decode character and determine its width */
c = utf8_decode(&sm,TO_CHAR_OK(c));
if (c >= 0) {
wid = joe_wcwidth(1,c);
}
} else {
/* Byte mode: character is one column wide */
wid = 1 ;
}
if (wid>=0) {
if (col >= ofst) {
outatr(locale_map, t, scrn, attr, x, y, c, atr);
scrn += wid;
attr += wid;
x += wid;
col += wid;
} else if (col+wid>ofst) {
while (col<ofst) {
++col;
--wid;
}
while (wid) {
outatr(locale_map, t, scrn, attr, x, y, '<', atr);
++scrn;
++attr;
++x;
++col;
--wid;
}
} else
col += wid;
}
}
outatr_complete(t);
if (flg)
eraeol(t, x, y, atr);
}
/* Determine column width of string with format codes */
ptrdiff_t fmtlen(const char *s)
{
ptrdiff_t col = 0;
struct utf8_sm sm;
int c;
utf8_init(&sm);
while ((c = *(const unsigned char *)s++)) {
if (c == '\\') {
switch (*s++) {
case 'u':
case 'i':
case 'd':
case 'f':
case 'b':
case 'U':
case 'I':
case 'D':
case 'F':
case 'B':
continue;
case 0:
return col;
default:
++col;
continue;
}
} else {
ptrdiff_t wid = 0;
if(locale_map->type) {
c = utf8_decode(&sm,TO_CHAR_OK(c));
if (c>=0)
wid = joe_wcwidth(1,c);
} else {
wid = 1;
}
col += wid;
}
}
return col;
}
/* Return offset within format string which corresponds to a particular
column */
/* FIXME: this is not valid if we land in the middle of a double-wide character */
ptrdiff_t fmtpos(const char *s, ptrdiff_t goal)
{
const char *org = s;
ptrdiff_t col = 0;
int c;
struct utf8_sm sm;
utf8_init(&sm);
while ((c = *(const unsigned char *)s) && col<goal) {
s++;
if (c == '\\') {
switch (*s++) {
case 'u':
case 'i':
case 'd':
case 'f':
case 'b':
case 'U':
case 'I':
case 'D':
case 'F':
case 'B':
continue;
case 0:
--s;
break;
default:
++col;
continue;
}
} else {
ptrdiff_t wid = 0;
if(locale_map->type) {
c = utf8_decode(&sm,TO_CHAR_OK(c));
if (c>=0)
wid = joe_wcwidth(1,c);
} else {
wid = 1;
}
col += wid;
}
}
return s - org + goal - col;
}
