1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright (c) 1999 by Sun Microsystems, Inc.
24 * All rights reserved.
25 */
26
27 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
28 /* All Rights Reserved */
29
30 /* LINTLIBRARY */
31
32 #include "stdio.h"
33 #include "string.h"
34
35 #include "oam.h"
36 #include <stdlib.h>
37 #include <widec.h>
38 #include <libintl.h>
39 #include <locale.h>
40
41 #define LINE_LEN 70
42
43 #define SHORT_S 80
44 #define LONG_S 2000
45
46 static char *severity_names[MAX_SEVERITY-MIN_SEVERITY+1] = {
47 "HALT",
48 "ERROR",
49 "WARNING",
50 "INFO"
51 };
52
53 static const char *TOFIX = "TO FIX";
54
55 static int wrap(wchar_t *, wchar_t *, int, wchar_t *);
56
57 /**
58 ** fmtmsg()
59 **/
60
61 void
fmtmsg(char * label,int severity,char * text,char * action)62 fmtmsg(char *label, int severity, char *text, char *action)
63 {
64 int tofix_len, indent_len;
65 wchar_t wtofix[SHORT_S], wlabel[SHORT_S], wsev[SHORT_S], wtext[LONG_S],
66 null[1] = {0};
67
68 /*
69 * Return if the severity isn't recognized.
70 */
71 if (severity < MIN_SEVERITY || MAX_SEVERITY < severity)
72 return;
73
74 mbstowcs(wtofix, gettext(TOFIX), SHORT_S);
75 mbstowcs(wlabel, label, SHORT_S);
76 mbstowcs(wsev, gettext(severity_names[severity]), SHORT_S);
77 mbstowcs(wtext, text, LONG_S);
78
79 tofix_len = wscol(wtofix),
80 indent_len = wscol(wlabel) + wscol(wsev) + 2;
81 if (indent_len < tofix_len)
82 indent_len = tofix_len;
83
84 if (wrap(wlabel, wsev, indent_len, wtext) <= 0)
85 return;
86
87 if (action && *action) {
88 if (fputc('\n', stderr) == EOF)
89 return;
90
91 mbstowcs(wtext, action, LONG_S);
92 if (wrap(wtofix, null, indent_len, wtext) <= 0)
93 return;
94 }
95
96 if (fputc('\n', stderr) == EOF)
97 return;
98
99 fflush (stderr);
100 }
101
102 /**
103 ** wrap() - PUT OUT "STUFF: string", WRAPPING string AS REQUIRED
104 **/
105
106 static int
wrap(wchar_t * prefix,wchar_t * suffix,int indent_len,wchar_t * str)107 wrap(wchar_t *prefix, wchar_t *suffix, int indent_len, wchar_t *str)
108 {
109 int len, n, col;
110 int maxlen, tmpcol;
111 wchar_t *p, *pw, *ppw;
112 static const wchar_t eol[] = {L'\r', L'\n', L'\0'};
113
114 /*
115 * Display the initial stuff followed by a colon.
116 */
117 if ((len = wscol(suffix)))
118 n = fprintf(stderr, gettext("%*ws: %ws: "),
119 indent_len - len - 2, prefix, suffix);
120 else
121 n = fprintf(stderr, gettext("%*ws: "), indent_len, prefix);
122 if (n <= 0)
123 return (-1);
124
125 maxlen = LINE_LEN - indent_len - 1;
126
127 /* Check for bogus indent_len */
128 if (maxlen < 1) {
129 return (-1);
130 }
131
132 /*
133 * Loop once for each line of the string to display.
134 */
135 for (p = str; *p; ) {
136
137 /*
138 * Display the next "len" bytes of the string, where
139 * "len" is the smallest of:
140 *
141 * - LINE_LEN
142 * - # bytes before control character
143 * - # bytes left in string
144 *
145 */
146
147 len = wcscspn(p, eol);
148 /* calc how many columns the string will take */
149 col = wcswidth(p, len);
150 if (col > maxlen) {
151 /*
152 * How many characters fit into our desired line length
153 */
154 pw = p;
155 tmpcol = 0;
156 while (*pw) {
157 if (iswprint(*pw))
158 tmpcol += wcwidth(*pw);
159 if (tmpcol > maxlen)
160 break;
161 else
162 pw++;
163 }
164 /*
165 * At this point, pw may point to:
166 * A null character: EOL found (should never happen, though)
167 * The character that just overruns the maxlen.
168 */
169 if (!*pw) {
170 /*
171 * Found a EOL.
172 * This should never happen.
173 */
174 len = pw - p;
175 goto printline;
176 }
177 ppw = pw;
178 /*
179 * Don't split words
180 *
181 * Bugid 4202307 - liblpoam in lp internal library doesn't
182 * handle multibyte character.
183 */
184 while (pw > p) {
185 if (iswspace(*pw) ||
186 (wdbindf(*(pw - 1), *pw, 1) < 5)) {
187 break;
188 } else {
189 pw--;
190 }
191 }
192 if (pw != p) {
193 len = pw - p;
194 } else {
195 /*
196 * Failed to find the best place to fold.
197 * So, prints as much characters as maxlen allows
198 */
199 len = ppw - p;
200 }
201 }
202
203 printline:
204 for (n = 0; n < len; n++, p++) {
205 if (iswprint(*p)) {
206 if (fputwc(*p, stderr) == WEOF) {
207 return (-1);
208 }
209 }
210 }
211
212 /*
213 * If we displayed up to a control character,
214 * put out the control character now; otherwise,
215 * put out a newline unless we've put out all
216 * the text.
217 */
218
219 if (*p == L'\r' || *p == L'\n') {
220 while (*p == L'\r' || *p == L'\n') {
221 if (fputwc(*p, stderr) == WEOF)
222 return (-1);
223 p++;
224 }
225 } else if (*p) {
226 if (fputwc(L'\n', stderr) == WEOF)
227 return (-1);
228 }
229
230 while (iswspace(*p))
231 p++;
232
233 /*
234 * If the loop won't end this time (because we
235 * have more stuff to display) put out leading
236 * blanks to align the next line with the previous
237 * lines.
238 */
239 if (*p) {
240 for (n = 0; n < indent_len + 2; n++)
241 (void) fputwc(L' ', stderr);
242 }
243 }
244
245 return (1);
246 }
247