tools/perf/util/color.c

   1 #include <linux/kernel.h>
   2 #include "cache.h"
   3 #include "color.h"
   4
   5 int perf_use_color_default = -1;
   6
   7 static 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
  27 static 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
  43 void color_parse(const char *value, const char *var, char *dst)
  44 {
  45         color_parse_mem(value, strlen(value), var, dst);
  46 }
  47
  48 void 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;
 129 bad:
 130         die("bad color value '%.*s' for variable '%s'", value_len, value, var);
 131 }
 132
 133 int 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
 160 int 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
 170 static 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
 195 static 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
 220 int 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
 226 int 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
 231 int 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
 243 int 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
 254 int 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  */
 269 int 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
 292 const 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
 310 int 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
 321 int percent_color_snprintf(char *bf, size_t size, const char *fmt, ...)
 322 {
 323         va_list args;
 324         double percent;
 325         const char *color;
 326
 327         va_start(args, fmt);
 328         percent = va_arg(args, double);
 329         va_end(args);
 330         color = get_percent_color(percent);
 331         return color_snprintf(bf, size, color, fmt, percent);
 332 }