int joe_wcswidth(struct charmap *map,unsigned char *s, int len)
{
if (!map->type) {
return len;
} else {
int width = 0;
while (len) {
int c = utf8_decode_fwrd(&s, &len);
if (c >= 0) {
width += joe_wcwidth(1, c);
} else
++width;
}
return width;
}
}
/* When called with c==-1, it just creates the prompt */
static int itype(W *w, int c, void *obj, int *notify)
{
IREC *i;
int omid;
BW *bw;
struct isrch *isrch = (struct isrch *)obj;
WIND_BW(bw,w);
if (isrch->quote) {
goto in;
}
if (c == 8 || c == 127) { /* Backup */
if ((i = isrch->irecs.link.prev) != &isrch->irecs) {
pgoto(bw->cursor, i->disp);
if (globalsrch)
globalsrch->wrap_flag = i->wrap_flag;
omid = opt_mid;
opt_mid = 1;
dofollows();
opt_mid = omid;
isrch->pattern = vstrunc(isrch->pattern, sLEN(isrch->pattern) - i->what);
frirec(deque_f(IREC, link, i));
} else {
if(joe_beep)
ttputc(7);
}
} else if (c == 'Q' - '@' /* || c == '`' */) {
isrch->quote = 1;
} else if (c == 'S' - '@' || c == '\\' - '@' || c == 'L' - '@' || c == 'R' - '@') {
/* Repeat */
if (c == 'R' - '@') {
isrch->dir = 1;
} else {
isrch->dir = 0;
}
if (qempty(IREC, link, &isrch->irecs)) {
if (lastpat && lastpat[0]) {
iappend(bw, isrch, sv(lastpat));
}
} else {
SRCH *srch;
i = alirec();
i->disp = i->start = bw->cursor->byte;
i->what = 0;
if (!globalsrch)
srch = mksrch(NULL,NULL,opt_icase,isrch->dir,-1,0,0,0,0);
else {
srch = globalsrch;
globalsrch = 0;
}
srch->addr = bw->cursor->byte;
if (!srch->wrap_p || srch->wrap_p->b!=bw->b) {
prm(srch->wrap_p);
srch->wrap_p = pdup(bw->cursor, "itype");
srch->wrap_p->owner = &srch->wrap_p;
srch->wrap_flag = 0;
}
i->wrap_flag = srch->wrap_flag;
setpat(srch, vsncpy(NULL, 0, isrch->pattern, sLen(isrch->pattern)));
srch->backwards = isrch->dir;
if (dopfnext(bw, srch, NULL)) {
if(joe_beep)
ttputc(7);
frirec(i);
} else {
enqueb(IREC, link, &isrch->irecs, i);
}
}
} else if (c >= 0 && c < 32) {
/* Done when a control character is received */
nungetc(c);
if (notify) {
*notify = 1;
}
smode = 2;
if (lastisrch) {
lastpat = vstrunc(lastpat, 0);
lastpat = vsncpy(lastpat, 0, lastisrch->pattern, sLen(lastisrch->pattern));
rmisrch(lastisrch);
}
lastisrch = isrch;
return 0;
} else if (c != -1) {
char buf[16];
ptrdiff_t buf_len;
/* Search */
in:
if (bw->b->o.charmap->type) {
buf_len = utf8_encode(buf, c);
} else {
buf[0] = TO_CHAR_OK(from_uni(bw->b->o.charmap, c));
buf_len = 1;
}
isrch->quote = 0;
iappend(bw, isrch, buf, buf_len);
}
omid = opt_mid;
opt_mid = 1;
bw->cursor->xcol = piscol(bw->cursor);
dofollows();
opt_mid = omid;
isrch->prompt = vstrunc(isrch->prompt, isrch->ofst);
if (locale_map->type && !bw->b->o.charmap->type) {
/* Translate bytes to utf-8 */
char buf[16];
int x;
for (x=0; x!=sLEN(isrch->pattern); ++x) {
int tc = to_uni(bw->b->o.charmap, isrch->pattern[x]);
utf8_encode(buf, tc);
isrch->prompt = vsncpy(sv(isrch->prompt),sz(buf));
}
} else if (!locale_map->type && bw->b->o.charmap->type) {
/* Translate utf-8 to bytes */
const char *p = isrch->pattern;
ptrdiff_t len = sLEN(isrch->pattern);
while (len) {
int tc = utf8_decode_fwrd(&p, &len);
if (tc >= 0) {
tc = from_uni(locale_map, tc);
isrch->prompt = vsadd(isrch->prompt, TO_CHAR_OK(tc));
}
}
} else {
/* FIXME: translate when charmaps do not match */
isrch->prompt = vsncpy(sv(isrch->prompt),sv(isrch->pattern));
}
if (mkqwnsr(bw->parent, sv(isrch->prompt), itype, iabrt, isrch, notify)) {
return 0;
} else {
rmisrch(isrch);
return -1;
}
}
/*
* Display help text
*/
void help_display(Screen *t)
{
unsigned char *str;
int y, x, c, z;
int atr = BG_COLOR(bg_help);
if (help_actual) {
str = help_actual->text;
} else {
str = NULL;
}
for (y = skiptop; y != t->wind; ++y) {
if (t->t->updtab[y]) {
unsigned char *start = str, *eol;
int width=0;
int nspans=0;
int spanwidth;
int spancount=0;
int spanextra;
int len;
eol = zchr(str, '\n');
/* First pass: count no. springs \| and determine minimum width */
while(*str && *str!='\n') {
if (*str == '\\') {
++str;
switch(*str) {
case 'i':
case 'I':
case 'u':
case 'U':
case 'd':
case 'D':
case 'b':
case 'B':
case 'f':
case 'F':
++str;
break;
case '|':
++str;
++nspans;
break;
case 0:
break;
default:
++str;
++width;
}
} else {
len = eol - str;
if (help_is_utf8)
c = utf8_decode_fwrd(&str, &len);
else {
c = *str++;
--len;
}
width += joe_wcwidth(!!locale_map->type, c);
}
}
str = start;
/* Now calculate span width */
if (width >= t->w - 1 || nspans==0) {
spanwidth = 0;
spanextra = nspans;
} else {
spanwidth = ((t->w - 1) - width)/nspans;
spanextra = nspans - ((t->w - 1) - width - nspans*spanwidth);
}
/* Second pass: display text */
for (x = 0; x != t->w - 1; ++x) {
if (*str == '\n' || !*str) {
if (eraeol(t->t, x, y, BG_COLOR(bg_help))) {
return;
} else {
break;
}
} else {
if (*str == '\\') {
switch (*++str) {
case '|':
++str;
for (z=0;z!=spanwidth;++z)
outatr(locale_map,t->t,t->t->scrn+x+y*t->w+z,t->t->attr+x+y*t->w+z,x+z,y,' ',atr);
if (spancount++ >= spanextra) {
outatr(locale_map,t->t,t->t->scrn+x+y*t->w+z,t->t->attr+x+y*t->w+z,x+z,y,' ',atr);
++z;
}
x += z-1;
continue;
case 'i':
case 'I':
atr ^= INVERSE;
++str;
--x;
continue;
case 'u':
case 'U':
atr ^= UNDERLINE;
++str;
--x;
continue;
case 'd':
case 'D':
atr ^= DIM;
++str;
--x;
continue;
case 'b':
case 'B':
atr ^= BOLD;
++str;
--x;
continue;
case 'f':
case 'F':
atr ^= BLINK;
++str;
--x;
continue;
case 0:
--x;
continue;
}
}
len = eol - str;
if (help_is_utf8)
c = utf8_decode_fwrd(&str, &len);
else {
c = *str++;
--len;
}
outatr(locale_map,
t->t, t->t->scrn + x + y * t->w,
t->t->attr + x + y * t->w, x, y,
c, atr);
x += (joe_wcwidth(!!locale_map->type, c) - 1);
}
}
atr = BG_COLOR(bg_help);
t->t->updtab[y] = 0;
}
while (*str && *str != '\n')
++str;
if (*str == '\n')
++str;
}
}
