1#include <linux/kernel.h>
2#include "cache.h"
3#include "color.h"
4
5int perf_use_color_default = -1;
6
7static int parse_color(const char *name, int len)
8{
9	static const char * const color_names[] = {
10		"normal", "black", "red", "green", "yellow",
11		"blue", "magenta", "cyan", "white"
12	};
13	char *end;
14	int i;
15
16	for (i = 0; i < (int)ARRAY_SIZE(color_names); i++) {
17		const char *str = color_names[i];
18		if (!strncasecmp(name, str, len) && !str[len])
19			return i - 1;
20	}
21	i = strtol(name, &end, 10);
22	if (end - name == len && i >= -1 && i <= 255)
23		return i;
24	return -2;
25}
26
27static int parse_attr(const char *name, int len)
28{
29	static const int attr_values[] = { 1, 2, 4, 5, 7 };
30	static const char * const attr_names[] = {
31		"bold", "dim", "ul", "blink", "reverse"
32	};
33	unsigned int i;
34
35	for (i = 0; i < ARRAY_SIZE(attr_names); i++) {
36		const char *str = attr_names[i];
37		if (!strncasecmp(name, str, len) && !str[len])
38			return attr_values[i];
39	}
40	return -1;
41}
42
43void color_parse(const char *value, const char *var, char *dst)
44{
45	color_parse_mem(value, strlen(value), var, dst);
46}
47
48void color_parse_mem(const char *value, int value_len, const char *var,
49		char *dst)
50{
51	const char *ptr = value;
52	int len = value_len;
53	int attr = -1;
54	int fg = -2;
55	int bg = -2;
56
57	if (!strncasecmp(value, "reset", len)) {
58		strcpy(dst, PERF_COLOR_RESET);
59		return;
60	}
61
62	/* [fg [bg]] [attr] */
63	while (len > 0) {
64		const char *word = ptr;
65		int val, wordlen = 0;
66
67		while (len > 0 && !isspace(word[wordlen])) {
68			wordlen++;
69			len--;
70		}
71
72		ptr = word + wordlen;
73		while (len > 0 && isspace(*ptr)) {
74			ptr++;
75			len--;
76		}
77
78		val = parse_color(word, wordlen);
79		if (val >= -1) {
80			if (fg == -2) {
81				fg = val;
82				continue;
83			}
84			if (bg == -2) {
85				bg = val;
86				continue;
87			}
88			goto bad;
89		}
90		val = parse_attr(word, wordlen);
91		if (val < 0 || attr != -1)
92			goto bad;
93		attr = val;
94	}
95
96	if (attr >= 0 || fg >= 0 || bg >= 0) {
97		int sep = 0;
98
99		*dst++ = '\033';
100		*dst++ = '[';
101		if (attr >= 0) {
102			*dst++ = '0' + attr;
103			sep++;
104		}
105		if (fg >= 0) {
106			if (sep++)
107				*dst++ = ';';
108			if (fg < 8) {
109				*dst++ = '3';
110				*dst++ = '0' + fg;
111			} else {
112				dst += sprintf(dst, "38;5;%d", fg);
113			}
114		}
115		if (bg >= 0) {
116			if (sep++)
117				*dst++ = ';';
118			if (bg < 8) {
119				*dst++ = '4';
120				*dst++ = '0' + bg;
121			} else {
122				dst += sprintf(dst, "48;5;%d", bg);
123			}
124		}
125		*dst++ = 'm';
126	}
127	*dst = 0;
128	return;
129bad:
130	die("bad color value '%.*s' for variable '%s'", value_len, value, var);
131}
132
133int perf_config_colorbool(const char *var, const char *value, int stdout_is_tty)
134{
135	if (value) {
136		if (!strcasecmp(value, "never"))
137			return 0;
138		if (!strcasecmp(value, "always"))
139			return 1;
140		if (!strcasecmp(value, "auto"))
141			goto auto_color;
142	}
143
144	/* Missing or explicit false to turn off colorization */
145	if (!perf_config_bool(var, value))
146		return 0;
147
148	/* any normal truth value defaults to 'auto' */
149 auto_color:
150	if (stdout_is_tty < 0)
151		stdout_is_tty = isatty(1);
152	if (stdout_is_tty || (pager_in_use() && pager_use_color)) {
153		char *term = getenv("TERM");
154		if (term && strcmp(term, "dumb"))
155			return 1;
156	}
157	return 0;
158}
159
160int perf_color_default_config(const char *var, const char *value, void *cb)
161{
162	if (!strcmp(var, "color.ui")) {
163		perf_use_color_default = perf_config_colorbool(var, value, -1);
164		return 0;
165	}
166
167	return perf_default_config(var, value, cb);
168}
169
170static int __color_vsnprintf(char *bf, size_t size, const char *color,
171			     const char *fmt, va_list args, const char *trail)
172{
173	int r = 0;
174
175	/*
176	 * Auto-detect:
177	 */
178	if (perf_use_color_default < 0) {
179		if (isatty(1) || pager_in_use())
180			perf_use_color_default = 1;
181		else
182			perf_use_color_default = 0;
183	}
184
185	if (perf_use_color_default && *color)
186		r += scnprintf(bf, size, "%s", color);
187	r += vscnprintf(bf + r, size - r, fmt, args);
188	if (perf_use_color_default && *color)
189		r += scnprintf(bf + r, size - r, "%s", PERF_COLOR_RESET);
190	if (trail)
191		r += scnprintf(bf + r, size - r, "%s", trail);
192	return r;
193}
194
195static int __color_vfprintf(FILE *fp, const char *color, const char *fmt,
196		va_list args, const char *trail)
197{
198	int r = 0;
199
200	/*
201	 * Auto-detect:
202	 */
203	if (perf_use_color_default < 0) {
204		if (isatty(fileno(fp)) || pager_in_use())
205			perf_use_color_default = 1;
206		else
207			perf_use_color_default = 0;
208	}
209
210	if (perf_use_color_default && *color)
211		r += fprintf(fp, "%s", color);
212	r += vfprintf(fp, fmt, args);
213	if (perf_use_color_default && *color)
214		r += fprintf(fp, "%s", PERF_COLOR_RESET);
215	if (trail)
216		r += fprintf(fp, "%s", trail);
217	return r;
218}
219
220int color_vsnprintf(char *bf, size_t size, const char *color,
221		    const char *fmt, va_list args)
222{
223	return __color_vsnprintf(bf, size, color, fmt, args, NULL);
224}
225
226int color_vfprintf(FILE *fp, const char *color, const char *fmt, va_list args)
227{
228	return __color_vfprintf(fp, color, fmt, args, NULL);
229}
230
231int color_snprintf(char *bf, size_t size, const char *color,
232		   const char *fmt, ...)
233{
234	va_list args;
235	int r;
236
237	va_start(args, fmt);
238	r = color_vsnprintf(bf, size, color, fmt, args);
239	va_end(args);
240	return r;
241}
242
243int color_fprintf(FILE *fp, const char *color, const char *fmt, ...)
244{
245	va_list args;
246	int r;
247
248	va_start(args, fmt);
249	r = color_vfprintf(fp, color, fmt, args);
250	va_end(args);
251	return r;
252}
253
254int color_fprintf_ln(FILE *fp, const char *color, const char *fmt, ...)
255{
256	va_list args;
257	int r;
258	va_start(args, fmt);
259	r = __color_vfprintf(fp, color, fmt, args, "\n");
260	va_end(args);
261	return r;
262}
263
264/*
265 * This function splits the buffer by newlines and colors the lines individually.
266 *
267 * Returns 0 on success.
268 */
269int color_fwrite_lines(FILE *fp, const char *color,
270		size_t count, const char *buf)
271{
272	if (!*color)
273		return fwrite(buf, count, 1, fp) != 1;
274
275	while (count) {
276		char *p = memchr(buf, '\n', count);
277
278		if (p != buf && (fputs(color, fp) < 0 ||
279				fwrite(buf, p ? (size_t)(p - buf) : count, 1, fp) != 1 ||
280				fputs(PERF_COLOR_RESET, fp) < 0))
281			return -1;
282		if (!p)
283			return 0;
284		if (fputc('\n', fp) < 0)
285			return -1;
286		count -= p + 1 - buf;
287		buf = p + 1;
288	}
289	return 0;
290}
291
292const char *get_percent_color(double percent)
293{
294	const char *color = PERF_COLOR_NORMAL;
295
296	/*
297	 * We color high-overhead entries in red, mid-overhead
298	 * entries in green - and keep the low overhead places
299	 * normal:
300	 */
301	if (percent >= MIN_RED)
302		color = PERF_COLOR_RED;
303	else {
304		if (percent > MIN_GREEN)
305			color = PERF_COLOR_GREEN;
306	}
307	return color;
308}
309
310int percent_color_fprintf(FILE *fp, const char *fmt, double percent)
311{
312	int r;
313	const char *color;
314
315	color = get_percent_color(percent);
316	r = color_fprintf(fp, color, fmt, percent);
317
318	return r;
319}
320
321int percent_color_snprintf(char *bf, size_t size, const char *fmt, double percent)
322{
323	const char *color = get_percent_color(percent);
324	return color_snprintf(bf, size, color, fmt, percent);
325}
326