static void
pack(wchar_t word[])
{
wchar_t *cp;
int s, t;
if (outp == NOSTR)
leadin();
t = wscol(word);
*outp = L'\0';
s = wscol(outbuf);
if (t+s <= width) {
for (cp = word; *cp; *outp++ = *cp++);
return;
}
if (s > filler) {
oflush();
leadin();
}
for (cp = word; *cp; *outp++ = *cp++);
}
void
fmtmsg(char *label, int severity, char *text, char *action)
{
int tofix_len, indent_len;
wchar_t wtofix[SHORT_S], wlabel[SHORT_S], wsev[SHORT_S], wtext[LONG_S],
null[1] = {0};
/*
* Return if the severity isn't recognized.
*/
if (severity < MIN_SEVERITY || MAX_SEVERITY < severity)
return;
mbstowcs(wtofix, gettext(TOFIX), SHORT_S);
mbstowcs(wlabel, label, SHORT_S);
mbstowcs(wsev, gettext(severity_names[severity]), SHORT_S);
mbstowcs(wtext, text, LONG_S);
tofix_len = wscol(wtofix),
indent_len = wscol(wlabel) + wscol(wsev) + 2;
if (indent_len < tofix_len)
indent_len = tofix_len;
if (wrap(wlabel, wsev, indent_len, wtext) <= 0)
return;
if (action && *action) {
if (fputc('\n', stderr) == EOF)
return;
mbstowcs(wtext, action, LONG_S);
if (wrap(wtofix, null, indent_len, wtext) <= 0)
return;
}
if (fputc('\n', stderr) == EOF)
return;
fflush (stderr);
}
static int
wrap(wchar_t *prefix, wchar_t *suffix, int indent_len, wchar_t *str)
{
int len, n, col;
int maxlen, tmpcol;
wchar_t *p, *pw, *ppw;
static const wchar_t eol[] = {L'\r', L'\n', L'\0'};
/*
* Display the initial stuff followed by a colon.
*/
if ((len = wscol(suffix)))
n = fprintf(stderr, gettext("%*ws: %ws: "),
indent_len - len - 2, prefix, suffix);
else
n = fprintf(stderr, gettext("%*ws: "), indent_len, prefix);
if (n <= 0)
return (-1);
maxlen = LINE_LEN - indent_len - 1;
/* Check for bogus indent_len */
if (maxlen < 1) {
return (-1);
}
/*
* Loop once for each line of the string to display.
*/
for (p = str; *p; ) {
/*
* Display the next "len" bytes of the string, where
* "len" is the smallest of:
*
* - LINE_LEN
* - # bytes before control character
* - # bytes left in string
*
*/
len = wcscspn(p, eol);
/* calc how many columns the string will take */
col = wcswidth(p, len);
if (col > maxlen) {
/*
* How many characters fit into our desired line length
*/
pw = p;
tmpcol = 0;
while (*pw) {
if (iswprint(*pw))
tmpcol += wcwidth(*pw);
if (tmpcol > maxlen)
break;
else
pw++;
}
/*
* At this point, pw may point to:
* A null character: EOL found (should never happen, though)
* The character that just overruns the maxlen.
*/
if (!*pw) {
/*
* Found a EOL.
* This should never happen.
*/
len = pw - p;
goto printline;
}
ppw = pw;
/*
* Don't split words
*
* Bugid 4202307 - liblpoam in lp internal library doesn't
* handle multibyte character.
*/
while (pw > p) {
if (iswspace(*pw) ||
(wdbindf(*(pw - 1), *pw, 1) < 5)) {
break;
} else {
pw--;
}
}
if (pw != p) {
len = pw - p;
} else {
/*
* Failed to find the best place to fold.
* So, prints as much characters as maxlen allows
*/
len = ppw - p;
}
}
printline:
for (n = 0; n < len; n++, p++) {
if (iswprint(*p)) {
if (fputwc(*p, stderr) == WEOF) {
return (-1);
}
}
}
/*
* If we displayed up to a control character,
* put out the control character now; otherwise,
* put out a newline unless we've put out all
* the text.
*/
if (*p == L'\r' || *p == L'\n') {
while (*p == L'\r' || *p == L'\n') {
if (fputwc(*p, stderr) == WEOF)
return (-1);
p++;
}
} else if (*p) {
if (fputwc(L'\n', stderr) == WEOF)
return (-1);
}
while (iswspace(*p))
p++;
/*
* If the loop won't end this time (because we
* have more stuff to display) put out leading
* blanks to align the next line with the previous
* lines.
*/
if (*p) {
for (n = 0; n < indent_len + 2; n++)
(void) fputwc(L' ', stderr);
}
}
return (1);
}
