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