/**
* mutt_paddstr - Display a string on screen, padded if necessary
* @param n Final width of field
* @param s String to display
*/
void mutt_paddstr(int n, const char *s)
{
wchar_t wc;
size_t k;
size_t len = mutt_str_strlen(s);
mbstate_t mbstate;
memset(&mbstate, 0, sizeof(mbstate));
for (; len && (k = mbrtowc(&wc, s, len, &mbstate)); s += k, len -= k)
{
if ((k == (size_t)(-1)) || (k == (size_t)(-2)))
{
if (k == (size_t)(-1))
memset(&mbstate, 0, sizeof(mbstate));
k = (k == (size_t)(-1)) ? 1 : len;
wc = ReplacementChar;
}
if (!IsWPrint(wc))
wc = '?';
const int w = wcwidth(wc);
if (w >= 0)
{
if (w > n)
break;
addnstr((char *) s, k);
n -= w;
}
}
while (n-- > 0)
addch(' ');
}
/**
* mutt_strwidth - Measure a string's width in screen cells
* @param s String to be measured
* @retval num Screen cells string would use
*/
int mutt_strwidth(const char *s)
{
wchar_t wc;
int w;
size_t k, n;
mbstate_t mbstate;
if (!s)
return 0;
n = mutt_str_strlen(s);
memset(&mbstate, 0, sizeof(mbstate));
for (w = 0; n && (k = mbrtowc(&wc, s, n, &mbstate)); s += k, n -= k)
{
if (*s == MUTT_SPECIAL_INDEX)
{
s += 2; /* skip the index coloring sequence */
k = 0;
continue;
}
if ((k == (size_t)(-1)) || (k == (size_t)(-2)))
{
if (k == (size_t)(-1))
memset(&mbstate, 0, sizeof(mbstate));
k = (k == (size_t)(-1)) ? 1 : n;
wc = ReplacementChar;
}
if (!IsWPrint(wc))
wc = '?';
w += wcwidth(wc);
}
return w;
}
static int get_wrapped_width (const char *t, size_t wid)
{
wchar_t wc;
size_t k;
size_t m, n;
size_t len = mutt_strlen (t);
const char *s = t;
mbstate_t mbstate;
memset (&mbstate, 0, sizeof (mbstate));
for (m = wid, n = 0;
len && (k = mbrtowc (&wc, s, len, &mbstate)) && (n <= wid);
s += k, len -= k)
{
if (*s == ' ')
m = n;
if (k == (size_t)(-1) || k == (size_t)(-2))
{
k = (k == (size_t)(-1)) ? 1 : len;
wc = replacement_char ();
}
if (!IsWPrint (wc))
wc = '?';
n += wcwidth (wc);
}
if (n > wid)
n = m;
else
n = wid;
return n;
}
static int print_macro (FILE *f, int maxwidth, const char **macro)
{
int n = maxwidth;
wchar_t wc;
int w;
size_t k;
size_t len = mutt_strlen (*macro);
mbstate_t mbstate1, mbstate2;
memset (&mbstate1, 0, sizeof (mbstate1));
memset (&mbstate2, 0, sizeof (mbstate2));
for (; len && (k = mbrtowc (&wc, *macro, len, &mbstate1)); *macro += k, len -= k)
{
if (k == (size_t)(-1) || k == (size_t)(-2))
{
k = (k == (size_t)(-1)) ? 1 : len;
wc = replacement_char ();
}
/* glibc-2.1.3's wcwidth() returns 1 for unprintable chars! */
if (IsWPrint (wc) && (w = wcwidth (wc)) >= 0)
{
if (w > n)
break;
n -= w;
{
char buf[MB_LEN_MAX*2];
size_t n1, n2;
if ((n1 = wcrtomb (buf, wc, &mbstate2)) != (size_t)(-1) &&
(n2 = wcrtomb (buf + n1, 0, &mbstate2)) != (size_t)(-1))
fputs (buf, f);
}
}
else if (wc < 0x20 || wc == 0x7f)
{
if (2 > n)
break;
n -= 2;
if (wc == '\033')
fprintf (f, "\\e");
else if (wc == '\n')
fprintf (f, "\\n");
else if (wc == '\r')
fprintf (f, "\\r");
else if (wc == '\t')
fprintf (f, "\\t");
else
fprintf (f, "^%c", (char)((wc + '@') & 0x7f));
}
else
{
if (1 > n)
break;
n -= 1;
fprintf (f, "?");
}
}
return (maxwidth - n);
}
static int my_addwch(wchar_t wc)
{
int n = wcwidth(wc);
if (IsWPrint(wc) && n > 0)
return mutt_addwch(wc);
if (!(wc & ~0x7f))
return printw("^%c",((int)wc + 0x40) & 0x7f);
if (!(wc & ~0xffff))
return printw("\\u%04x",(int)wc);
return printw("\\u%08x",(int)wc);
}
static int my_wcwidth(wchar_t wc)
{
int n = wcwidth(wc);
if (IsWPrint(wc) && n > 0)
return n;
if (!(wc & ~0x7f))
return 2;
if (!(wc & ~0xffff))
return 6;
return 10;
}
/**
* mutt_simple_format - Format a string, like snprintf()
* @param[out] buf Buffer in which to save string
* @param[in] buflen Buffer length
* @param[in] min_width Minimum width
* @param[in] max_width Maximum width
* @param[in] justify Justification, e.g. #FMT_RIGHT
* @param[in] pad_char Padding character
* @param[in] s String to format
* @param[in] n Number of bytes of string to format
* @param[in] arboreal If true, string contains graphical tree characters
*
* This formats a string, a bit like snprintf(buf, buflen, "%-*.*s",
* min_width, max_width, s), except that the widths refer to the number of
* character cells when printed.
*/
void mutt_simple_format(char *buf, size_t buflen, int min_width, int max_width,
int justify, char pad_char, const char *s, size_t n, int arboreal)
{
wchar_t wc;
int w;
size_t k, k2;
char scratch[MB_LEN_MAX];
mbstate_t mbstate1, mbstate2;
int escaped = 0;
memset(&mbstate1, 0, sizeof(mbstate1));
memset(&mbstate2, 0, sizeof(mbstate2));
buflen--;
char *p = buf;
for (; n && (k = mbrtowc(&wc, s, n, &mbstate1)); s += k, n -= k)
{
if ((k == (size_t)(-1)) || (k == (size_t)(-2)))
{
if ((k == (size_t)(-1)) && (errno == EILSEQ))
memset(&mbstate1, 0, sizeof(mbstate1));
k = (k == (size_t)(-1)) ? 1 : n;
wc = ReplacementChar;
}
if (escaped)
{
escaped = 0;
w = 0;
}
else if (arboreal && (wc == MUTT_SPECIAL_INDEX))
{
escaped = 1;
w = 0;
}
else if (arboreal && (wc < MUTT_TREE_MAX))
{
w = 1; /* hack */
}
else
{
#ifdef HAVE_ISWBLANK
if (iswblank(wc))
wc = ' ';
else
#endif
if (!IsWPrint(wc))
wc = '?';
w = wcwidth(wc);
}
if (w >= 0)
{
if ((w > max_width) || ((k2 = wcrtomb(scratch, wc, &mbstate2)) > buflen))
continue;
min_width -= w;
max_width -= w;
strncpy(p, scratch, k2);
p += k2;
buflen -= k2;
}
}
w = ((int) buflen < min_width) ? buflen : min_width;
if (w <= 0)
*p = '\0';
else if (justify == FMT_RIGHT) /* right justify */
{
p[w] = '\0';
while (--p >= buf)
p[w] = *p;
while (--w >= 0)
buf[w] = pad_char;
}
else if (justify == FMT_CENTER) /* center */
{
char *savedp = p;
int half = (w + 1) / 2; /* half of cushion space */
p[w] = '\0';
/* move str to center of buffer */
while (--p >= buf)
p[half] = *p;
/* fill rhs */
p = savedp + half;
while (--w >= half)
*p++ = pad_char;
/* fill lhs */
while (half--)
buf[half] = pad_char;
}
else /* left justify */
{
while (--w >= 0)
*p++ = pad_char;
*p = '\0';
}
}
int _mutt_enter_string(char *buf, size_t buflen, int y, int x,
int flags, int multiple, char ***files, int *numfiles,
struct enter_state *state)
{
int width = COLS - x - 1;
int redraw;
int pass =(flags & M_PASS);
int first = 1;
int ch, w, r;
size_t i;
wchar_t *tempbuf = 0;
size_t templen = 0;
history_class_t hclass;
wchar_t wc;
mbstate_t mbstate;
int rv = 0;
memset(&mbstate, 0, sizeof(mbstate));
if (state->wbuf)
{
/* Coming back after return 1 */
redraw = M_REDRAW_LINE;
first = 0;
}
else
{
/* Initialise wbuf from buf */
state->wbuflen = 0;
state->lastchar = my_mbstowcs(&state->wbuf, &state->wbuflen, 0, buf);
redraw = M_REDRAW_INIT;
}
if (flags & M_FILE)
hclass = HC_FILE;
else if (flags & M_EFILE)
hclass = HC_MBOX;
else if (flags & M_CMD)
hclass = HC_CMD;
else if (flags & M_ALIAS)
hclass = HC_ALIAS;
else if (flags & M_COMMAND)
hclass = HC_COMMAND;
else if (flags & M_PATTERN)
hclass = HC_PATTERN;
else
hclass = HC_OTHER;
for(;;)
{
if (redraw && !pass)
{
if (redraw == M_REDRAW_INIT)
{
/* Go to end of line */
state->curpos = state->lastchar;
state->begin = width_ceiling(state->wbuf, state->lastchar, my_wcswidth(state->wbuf, state->lastchar) - width + 1);
}
if (state->curpos < state->begin ||
my_wcswidth(state->wbuf + state->begin, state->curpos - state->begin) >= width)
state->begin = width_ceiling(state->wbuf, state->lastchar, my_wcswidth(state->wbuf, state->curpos) - width / 2);
move(y, x);
w = 0;
for(i = state->begin; i < state->lastchar; i++)
{
w += my_wcwidth(state->wbuf[i]);
if (w > width)
break;
my_addwch(state->wbuf[i]);
}
clrtoeol();
move(y, x + my_wcswidth(state->wbuf + state->begin, state->curpos - state->begin));
}
mutt_refresh();
if ((ch = km_dokey(MENU_EDITOR)) == -1)
{
rv = -1;
goto bye;
}
if (ch != OP_NULL)
{
first = 0;
if (ch != OP_EDITOR_COMPLETE && ch != OP_EDITOR_COMPLETE_QUERY)
state->tabs = 0;
redraw = M_REDRAW_LINE;
switch(ch)
{
case OP_EDITOR_HISTORY_UP:
state->curpos = state->lastchar;
if (mutt_history_at_scratch(hclass))
{
my_wcstombs(buf, buflen, state->wbuf, state->curpos);
mutt_history_save_scratch(hclass, buf);
}
replace_part(state, 0, mutt_history_prev(hclass));
redraw = M_REDRAW_INIT;
break;
case OP_EDITOR_HISTORY_DOWN:
state->curpos = state->lastchar;
if (mutt_history_at_scratch(hclass))
{
my_wcstombs(buf, buflen, state->wbuf, state->curpos);
mutt_history_save_scratch(hclass, buf);
}
replace_part(state, 0, mutt_history_next(hclass));
redraw = M_REDRAW_INIT;
break;
case OP_EDITOR_BACKSPACE:
if (state->curpos == 0)
BEEP();
else
{
i = state->curpos;
while(i && COMB_CHAR(state->wbuf[i - 1]))
--i;
if (i)
--i;
memmove(state->wbuf + i, state->wbuf + state->curpos,(state->lastchar - state->curpos) * sizeof(wchar_t));
state->lastchar -= state->curpos - i;
state->curpos = i;
}
break;
case OP_EDITOR_BOL:
state->curpos = 0;
break;
case OP_EDITOR_EOL:
redraw= M_REDRAW_INIT;
break;
case OP_EDITOR_KILL_LINE:
state->curpos = state->lastchar = 0;
break;
case OP_EDITOR_KILL_EOL:
state->lastchar = state->curpos;
break;
case OP_EDITOR_BACKWARD_CHAR:
if (state->curpos == 0)
BEEP();
else
{
while(state->curpos && COMB_CHAR(state->wbuf[state->curpos - 1]))
state->curpos--;
if (state->curpos)
state->curpos--;
}
break;
case OP_EDITOR_FORWARD_CHAR:
if (state->curpos == state->lastchar)
BEEP();
else
{
++state->curpos;
while(state->curpos < state->lastchar && COMB_CHAR(state->wbuf[state->curpos]))
++state->curpos;
}
break;
case OP_EDITOR_BACKWARD_WORD:
if (state->curpos == 0)
BEEP();
else
{
while(state->curpos && iswspace(state->wbuf[state->curpos - 1]))
--state->curpos;
while(state->curpos && !iswspace(state->wbuf[state->curpos - 1]))
--state->curpos;
}
break;
case OP_EDITOR_FORWARD_WORD:
if (state->curpos == state->lastchar)
BEEP();
else
{
while(state->curpos < state->lastchar && iswspace(state->wbuf[state->curpos]))
++state->curpos;
while(state->curpos < state->lastchar && !iswspace(state->wbuf[state->curpos]))
++state->curpos;
}
break;
case OP_EDITOR_CAPITALIZE_WORD:
case OP_EDITOR_UPCASE_WORD:
case OP_EDITOR_DOWNCASE_WORD:
if (state->curpos == state->lastchar)
{
BEEP();
break;
}
while(state->curpos && !iswspace(state->wbuf[state->curpos]))
--state->curpos;
while(state->curpos < state->lastchar && iswspace(state->wbuf[state->curpos]))
++state->curpos;
while(state->curpos < state->lastchar && !iswspace(state->wbuf[state->curpos]))
{
if (ch == OP_EDITOR_DOWNCASE_WORD)
state->wbuf[state->curpos] = towlower(state->wbuf[state->curpos]);
else
{
state->wbuf[state->curpos] = towupper(state->wbuf[state->curpos]);
if (ch == OP_EDITOR_CAPITALIZE_WORD)
ch = OP_EDITOR_DOWNCASE_WORD;
}
state->curpos++;
}
break;
case OP_EDITOR_DELETE_CHAR:
if (state->curpos == state->lastchar)
BEEP();
else
{
i = state->curpos;
while(i < state->lastchar && COMB_CHAR(state->wbuf[i]))
++i;
if (i < state->lastchar)
++i;
while(i < state->lastchar && COMB_CHAR(state->wbuf[i]))
++i;
memmove(state->wbuf + state->curpos, state->wbuf + i,(state->lastchar - i) * sizeof(wchar_t));
state->lastchar -= i - state->curpos;
}
break;
case OP_EDITOR_KILL_WORD:
/* delete to beginning of word */
if (state->curpos != 0)
{
i = state->curpos;
while(i && iswspace(state->wbuf[i - 1]))
--i;
if (i)
{
if (iswalnum(state->wbuf[i - 1]))
{
for(--i; i && iswalnum(state->wbuf[i - 1]); i--)
;
}
else
--i;
}
memmove(state->wbuf + i, state->wbuf + state->curpos,
(state->lastchar - state->curpos) * sizeof(wchar_t));
state->lastchar += i - state->curpos;
state->curpos = i;
}
break;
case OP_EDITOR_KILL_EOW:
/* delete to end of word */
/* first skip over whitespace */
for(i = state->curpos;
i < state->lastchar && iswspace(state->wbuf[i]); i++)
;
/* if there are any characters left.. */
if (i < state->lastchar)
{
/* if the current character is alphanumeric.. */
if (iswalnum(state->wbuf[i]))
{
/* skip over the rest of the word consistent of only alphanumerics */
for(; i < state->lastchar && iswalnum(state->wbuf[i]); i++)
;
}
else
{
/* skip over one non-alphanumeric character */
++i;
}
}
memmove(state->wbuf + state->curpos, state->wbuf + i,
(state->lastchar - i) * sizeof(wchar_t));
state->lastchar += state->curpos - i;
break;
case OP_EDITOR_BUFFY_CYCLE:
if (flags & M_EFILE)
{
first = 1; /* clear input if user types a real key later */
my_wcstombs(buf, buflen, state->wbuf, state->curpos);
mutt_buffy(buf, buflen);
state->curpos = state->lastchar = my_mbstowcs(&state->wbuf, &state->wbuflen, 0, buf);
break;
}
else if (!(flags & M_FILE))
goto self_insert;
/* fall through to completion routine(M_FILE) */
case OP_EDITOR_COMPLETE:
case OP_EDITOR_COMPLETE_QUERY:
state->tabs++;
if (flags & M_CMD)
{
for(i = state->curpos; i && !is_shell_char(state->wbuf[i-1]); i--)
;
my_wcstombs(buf, buflen, state->wbuf + i, state->curpos - i);
if (tempbuf && templen == state->lastchar - i &&
!memcmp(tempbuf, state->wbuf + i,(state->lastchar - i) * sizeof(wchar_t)))
{
mutt_select_file(buf, buflen,(flags & M_EFILE) ? M_SEL_FOLDER : 0);
set_bit(options, OPTNEEDREDRAW);
if (*buf)
replace_part(state, i, buf);
rv = 1;
goto bye;
}
if (!mutt_complete(buf, buflen))
{
templen = state->lastchar - i;
safe_realloc(&tempbuf, templen * sizeof(wchar_t));
}
else
BEEP();
replace_part(state, i, buf);
}
else if (flags & M_ALIAS && ch == OP_EDITOR_COMPLETE)
{
/* invoke the alias-menu to get more addresses */
for(i = state->curpos; i && state->wbuf[i-1] != ',' &&
state->wbuf[i-1] != ':'; i--)
;
for(; i < state->lastchar && state->wbuf[i] == ' '; i++)
;
my_wcstombs(buf, buflen, state->wbuf + i, state->curpos - i);
r = mutt_alias_complete(buf, buflen);
replace_part(state, i, buf);
if (!r)
{
rv = 1;
goto bye;
}
break;
}
else if (flags & M_ALIAS && ch == OP_EDITOR_COMPLETE_QUERY)
{
/* invoke the query-menu to get more addresses */
if ((i = state->curpos))
{
for(; i && state->wbuf[i - 1] != ','; i--)
;
for(; i < state->curpos && state->wbuf[i] == ' '; i++)
;
}
my_wcstombs(buf, buflen, state->wbuf + i, state->curpos - i);
mutt_query_complete(buf, buflen);
replace_part(state, i, buf);
rv = 1;
goto bye;
}
else if (flags & M_COMMAND)
{
my_wcstombs(buf, buflen, state->wbuf, state->curpos);
i = strlen(buf);
if (i && buf[i - 1] == '=' &&
mutt_var_value_complete(buf, buflen, i))
state->tabs = 0;
else if (!mutt_command_complete(buf, buflen, i, state->tabs))
BEEP();
replace_part(state, 0, buf);
}
else if (flags &(M_FILE | M_EFILE))
{
my_wcstombs(buf, buflen, state->wbuf, state->curpos);
/* see if the path has changed from the last time */
if ((!tempbuf && !state->lastchar) ||(tempbuf && templen == state->lastchar &&
!memcmp(tempbuf, state->wbuf, state->lastchar * sizeof(wchar_t))))
{
_mutt_select_file(buf, buflen,
((flags & M_EFILE) ? M_SEL_FOLDER : 0) |(multiple ? M_SEL_MULTI : 0),
files, numfiles);
set_bit(options, OPTNEEDREDRAW);
if (*buf)
{
mutt_pretty_mailbox(buf, buflen);
if (!pass)
mutt_history_add(hclass, buf, 1);
rv = 0;
goto bye;
}
/* file selection cancelled */
rv = 1;
goto bye;
}
if (!mutt_complete(buf, buflen))
{
templen = state->lastchar;
safe_realloc(&tempbuf, templen * sizeof(wchar_t));
memcpy(tempbuf, state->wbuf, templen * sizeof(wchar_t));
}
else
BEEP(); /* let the user know that nothing matched */
replace_part(state, 0, buf);
}
else
goto self_insert;
break;
case OP_EDITOR_QUOTE_CHAR:
{
struct event event;
/*ADDCH(LastKey);*/
event = mutt_getch();
if (event.ch >= 0)
{
LastKey = event.ch;
goto self_insert;
}
}
case OP_EDITOR_TRANSPOSE_CHARS:
if (state->lastchar < 2)
BEEP();
else
{
wchar_t t;
if (state->curpos == 0)
state->curpos = 2;
else if (state->curpos < state->lastchar)
++state->curpos;
t = state->wbuf[state->curpos - 2];
state->wbuf[state->curpos - 2] = state->wbuf[state->curpos - 1];
state->wbuf[state->curpos - 1] = t;
}
break;
default:
BEEP();
}
}
else
{
self_insert:
state->tabs = 0;
/* use the raw keypress */
ch = LastKey;
#if KEY_ENTER
/* treat ENTER the same as RETURN */
if (ch == KEY_ENTER)
ch = '\r';
#endif
/* quietly ignore all other function keys */
if (ch & ~0xff)
continue;
/* gather the octets into a wide character */
{
char c;
size_t k;
c = ch;
k = mbrtowc(&wc, &c, 1, &mbstate);
if (k ==(size_t)(-2))
continue;
else if (k && k != 1)
{
memset(&mbstate, 0, sizeof(mbstate));
continue;
}
}
if (first &&(flags & M_CLEAR))
{
first = 0;
if (IsWPrint(wc)) /* why? */
state->curpos = state->lastchar = 0;
}
if (wc == '\r' || wc == '\n')
{
/* Convert from wide characters */
my_wcstombs(buf, buflen, state->wbuf, state->lastchar);
if (!pass)
mutt_history_add(hclass, buf, 1);
if (multiple)
{
char **tfiles;
*numfiles = 1;
tfiles = safe_calloc(*numfiles, sizeof(char *));
mutt_expand_path(buf, buflen);
tfiles[0] = safe_strdup(buf);
*files = tfiles;
}
rv = 0;
goto bye;
}
else if (wc &&(wc < ' ' || IsWPrint(wc))) /* why? */
{
if (state->lastchar >= state->wbuflen)
{
state->wbuflen = state->lastchar + 20;
safe_realloc(&state->wbuf, state->wbuflen * sizeof(wchar_t));
}
memmove(state->wbuf + state->curpos + 1, state->wbuf + state->curpos,(state->lastchar - state->curpos) * sizeof(wchar_t));
state->wbuf[state->curpos++] = wc;
state->lastchar++;
}
else
{
mutt_flushinp();
BEEP();
}
}
}
bye:
mutt_reset_history_state(hclass);
safe_free(&tempbuf);
return rv;
}