tools/perf/util/parse-events.c

   1 #include <linux/hw_breakpoint.h>
   2 #include "util.h"
   3 #include "../perf.h"
   4 #include "evlist.h"
   5 #include "evsel.h"
   6 #include "parse-options.h"
   7 #include "parse-events.h"
   8 #include "exec_cmd.h"
   9 #include "string.h"
  10 #include "symbol.h"
  11 #include "cache.h"
  12 #include "header.h"
  13 #include "debug.h"
  14 #include <api/fs/debugfs.h>
  15 #include "parse-events-bison.h"
  16 #define YY_EXTRA_TYPE int
  17 #include "parse-events-flex.h"
  18 #include "pmu.h"
  19 #include "thread_map.h"
  20 #include "cpumap.h"
  21 #include "asm/bug.h"
  22
  23 #define MAX_NAME_LEN 100
  24
  25 #ifdef PARSER_DEBUG
  26 extern int parse_events_debug;
  27 #endif
  28 int parse_events_parse(void *data, void *scanner);
  29
  30 static struct perf_pmu_event_symbol *perf_pmu_events_list;
  31 /*
  32  * The variable indicates the number of supported pmu event symbols.
  33  * 0 means not initialized and ready to init
  34  * -1 means failed to init, don't try anymore
  35  * >0 is the number of supported pmu event symbols
  36  */
  37 static int perf_pmu_events_list_num;
  38
  39 struct event_symbol event_symbols_hw[PERF_COUNT_HW_MAX] = {
  40         [PERF_COUNT_HW_CPU_CYCLES] = {
  41                 .symbol = "cpu-cycles",
  42                 .alias  = "cycles",
  43         },
  44         [PERF_COUNT_HW_INSTRUCTIONS] = {
  45                 .symbol = "instructions",
  46                 .alias  = "",
  47         },
  48         [PERF_COUNT_HW_CACHE_REFERENCES] = {
  49                 .symbol = "cache-references",
  50                 .alias  = "",
  51         },
  52         [PERF_COUNT_HW_CACHE_MISSES] = {
  53                 .symbol = "cache-misses",
  54                 .alias  = "",
  55         },
  56         [PERF_COUNT_HW_BRANCH_INSTRUCTIONS] = {
  57                 .symbol = "branch-instructions",
  58                 .alias  = "branches",
  59         },
  60         [PERF_COUNT_HW_BRANCH_MISSES] = {
  61                 .symbol = "branch-misses",
  62                 .alias  = "",
  63         },
  64         [PERF_COUNT_HW_BUS_CYCLES] = {
  65                 .symbol = "bus-cycles",
  66                 .alias  = "",
  67         },
  68         [PERF_COUNT_HW_STALLED_CYCLES_FRONTEND] = {
  69                 .symbol = "stalled-cycles-frontend",
  70                 .alias  = "idle-cycles-frontend",
  71         },
  72         [PERF_COUNT_HW_STALLED_CYCLES_BACKEND] = {
  73                 .symbol = "stalled-cycles-backend",
  74                 .alias  = "idle-cycles-backend",
  75         },
  76         [PERF_COUNT_HW_REF_CPU_CYCLES] = {
  77                 .symbol = "ref-cycles",
  78                 .alias  = "",
  79         },
  80 };
  81
  82 struct event_symbol event_symbols_sw[PERF_COUNT_SW_MAX] = {
  83         [PERF_COUNT_SW_CPU_CLOCK] = {
  84                 .symbol = "cpu-clock",
  85                 .alias  = "",
  86         },
  87         [PERF_COUNT_SW_TASK_CLOCK] = {
  88                 .symbol = "task-clock",
  89                 .alias  = "",
  90         },
  91         [PERF_COUNT_SW_PAGE_FAULTS] = {
  92                 .symbol = "page-faults",
  93                 .alias  = "faults",
  94         },
  95         [PERF_COUNT_SW_CONTEXT_SWITCHES] = {
  96                 .symbol = "context-switches",
  97                 .alias  = "cs",
  98         },
  99         [PERF_COUNT_SW_CPU_MIGRATIONS] = {
 100                 .symbol = "cpu-migrations",
 101                 .alias  = "migrations",
 102         },
 103         [PERF_COUNT_SW_PAGE_FAULTS_MIN] = {
 104                 .symbol = "minor-faults",
 105                 .alias  = "",
 106         },
 107         [PERF_COUNT_SW_PAGE_FAULTS_MAJ] = {
 108                 .symbol = "major-faults",
 109                 .alias  = "",
 110         },
 111         [PERF_COUNT_SW_ALIGNMENT_FAULTS] = {
 112                 .symbol = "alignment-faults",
 113                 .alias  = "",
 114         },
 115         [PERF_COUNT_SW_EMULATION_FAULTS] = {
 116                 .symbol = "emulation-faults",
 117                 .alias  = "",
 118         },
 119         [PERF_COUNT_SW_DUMMY] = {
 120                 .symbol = "dummy",
 121                 .alias  = "",
 122         },
 123 };
 124
 125 #define __PERF_EVENT_FIELD(config, name) \
 126         ((config & PERF_EVENT_##name##_MASK) >> PERF_EVENT_##name##_SHIFT)
 127
 128 #define PERF_EVENT_RAW(config)          __PERF_EVENT_FIELD(config, RAW)
 129 #define PERF_EVENT_CONFIG(config)       __PERF_EVENT_FIELD(config, CONFIG)
 130 #define PERF_EVENT_TYPE(config)         __PERF_EVENT_FIELD(config, TYPE)
 131 #define PERF_EVENT_ID(config)           __PERF_EVENT_FIELD(config, EVENT)
 132
 133 #define for_each_subsystem(sys_dir, sys_dirent, sys_next)              \
 134         while (!readdir_r(sys_dir, &sys_dirent, &sys_next) && sys_next)        \
 135         if (sys_dirent.d_type == DT_DIR &&                                     \
 136            (strcmp(sys_dirent.d_name, ".")) &&                                 \
 137            (strcmp(sys_dirent.d_name, "..")))
 138
 139 static int tp_event_has_id(struct dirent *sys_dir, struct dirent *evt_dir)
 140 {
 141         char evt_path[MAXPATHLEN];
 142         int fd;
 143
 144         snprintf(evt_path, MAXPATHLEN, "%s/%s/%s/id", tracing_events_path,
 145                         sys_dir->d_name, evt_dir->d_name);
 146         fd = open(evt_path, O_RDONLY);
 147         if (fd < 0)
 148                 return -EINVAL;
 149         close(fd);
 150
 151         return 0;
 152 }
 153
 154 #define for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next)              \
 155         while (!readdir_r(evt_dir, &evt_dirent, &evt_next) && evt_next)        \
 156         if (evt_dirent.d_type == DT_DIR &&                                     \
 157            (strcmp(evt_dirent.d_name, ".")) &&                                 \
 158            (strcmp(evt_dirent.d_name, "..")) &&                                \
 159            (!tp_event_has_id(&sys_dirent, &evt_dirent)))
 160
 161 #define MAX_EVENT_LENGTH 512
 162
 163
 164 struct tracepoint_path *tracepoint_id_to_path(u64 config)
 165 {
 166         struct tracepoint_path *path = NULL;
 167         DIR *sys_dir, *evt_dir;
 168         struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
 169         char id_buf[24];
 170         int fd;
 171         u64 id;
 172         char evt_path[MAXPATHLEN];
 173         char dir_path[MAXPATHLEN];
 174
 175         sys_dir = opendir(tracing_events_path);
 176         if (!sys_dir)
 177                 return NULL;
 178
 179         for_each_subsystem(sys_dir, sys_dirent, sys_next) {
 180
 181                 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
 182                          sys_dirent.d_name);
 183                 evt_dir = opendir(dir_path);
 184                 if (!evt_dir)
 185                         continue;
 186
 187                 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
 188
 189                         snprintf(evt_path, MAXPATHLEN, "%s/%s/id", dir_path,
 190                                  evt_dirent.d_name);
 191                         fd = open(evt_path, O_RDONLY);
 192                         if (fd < 0)
 193                                 continue;
 194                         if (read(fd, id_buf, sizeof(id_buf)) < 0) {
 195                                 close(fd);
 196                                 continue;
 197                         }
 198                         close(fd);
 199                         id = atoll(id_buf);
 200                         if (id == config) {
 201                                 closedir(evt_dir);
 202                                 closedir(sys_dir);
 203                                 path = zalloc(sizeof(*path));
 204                                 path->system = malloc(MAX_EVENT_LENGTH);
 205                                 if (!path->system) {
 206                                         free(path);
 207                                         return NULL;
 208                                 }
 209                                 path->name = malloc(MAX_EVENT_LENGTH);
 210                                 if (!path->name) {
 211                                         zfree(&path->system);
 212                                         free(path);
 213                                         return NULL;
 214                                 }
 215                                 strncpy(path->system, sys_dirent.d_name,
 216                                         MAX_EVENT_LENGTH);
 217                                 strncpy(path->name, evt_dirent.d_name,
 218                                         MAX_EVENT_LENGTH);
 219                                 return path;
 220                         }
 221                 }
 222                 closedir(evt_dir);
 223         }
 224
 225         closedir(sys_dir);
 226         return NULL;
 227 }
 228
 229 struct tracepoint_path *tracepoint_name_to_path(const char *name)
 230 {
 231         struct tracepoint_path *path = zalloc(sizeof(*path));
 232         char *str = strchr(name, ':');
 233
 234         if (path == NULL || str == NULL) {
 235                 free(path);
 236                 return NULL;
 237         }
 238
 239         path->system = strndup(name, str - name);
 240         path->name = strdup(str+1);
 241
 242         if (path->system == NULL || path->name == NULL) {
 243                 zfree(&path->system);
 244                 zfree(&path->name);
 245                 free(path);
 246                 path = NULL;
 247         }
 248
 249         return path;
 250 }
 251
 252 const char *event_type(int type)
 253 {
 254         switch (type) {
 255         case PERF_TYPE_HARDWARE:
 256                 return "hardware";
 257
 258         case PERF_TYPE_SOFTWARE:
 259                 return "software";
 260
 261         case PERF_TYPE_TRACEPOINT:
 262                 return "tracepoint";
 263
 264         case PERF_TYPE_HW_CACHE:
 265                 return "hardware-cache";
 266
 267         default:
 268                 break;
 269         }
 270
 271         return "unknown";
 272 }
 273
 274
 275
 276 static struct perf_evsel *
 277 __add_event(struct list_head *list, int *idx,
 278             struct perf_event_attr *attr,
 279             char *name, struct cpu_map *cpus)
 280 {
 281         struct perf_evsel *evsel;
 282
 283         event_attr_init(attr);
 284
 285         evsel = perf_evsel__new_idx(attr, (*idx)++);
 286         if (!evsel)
 287                 return NULL;
 288
 289         if (cpus)
 290                 evsel->cpus = cpu_map__get(cpus);
 291
 292         if (name)
 293                 evsel->name = strdup(name);
 294         list_add_tail(&evsel->node, list);
 295         return evsel;
 296 }
 297
 298 static int add_event(struct list_head *list, int *idx,
 299                      struct perf_event_attr *attr, char *name)
 300 {
 301         return __add_event(list, idx, attr, name, NULL) ? 0 : -ENOMEM;
 302 }
 303
 304 static int parse_aliases(char *str, const char *names[][PERF_EVSEL__MAX_ALIASES], int size)
 305 {
 306         int i, j;
 307         int n, longest = -1;
 308
 309         for (i = 0; i < size; i++) {
 310                 for (j = 0; j < PERF_EVSEL__MAX_ALIASES && names[i][j]; j++) {
 311                         n = strlen(names[i][j]);
 312                         if (n > longest && !strncasecmp(str, names[i][j], n))
 313                                 longest = n;
 314                 }
 315                 if (longest > 0)
 316                         return i;
 317         }
 318
 319         return -1;
 320 }
 321
 322 int parse_events_add_cache(struct list_head *list, int *idx,
 323                            char *type, char *op_result1, char *op_result2)
 324 {
 325         struct perf_event_attr attr;
 326         char name[MAX_NAME_LEN];
 327         int cache_type = -1, cache_op = -1, cache_result = -1;
 328         char *op_result[2] = { op_result1, op_result2 };
 329         int i, n;
 330
 331         /*
 332          * No fallback - if we cannot get a clear cache type
 333          * then bail out:
 334          */
 335         cache_type = parse_aliases(type, perf_evsel__hw_cache,
 336                                    PERF_COUNT_HW_CACHE_MAX);
 337         if (cache_type == -1)
 338                 return -EINVAL;
 339
 340         n = snprintf(name, MAX_NAME_LEN, "%s", type);
 341
 342         for (i = 0; (i < 2) && (op_result[i]); i++) {
 343                 char *str = op_result[i];
 344
 345                 n += snprintf(name + n, MAX_NAME_LEN - n, "-%s", str);
 346
 347                 if (cache_op == -1) {
 348                         cache_op = parse_aliases(str, perf_evsel__hw_cache_op,
 349                                                  PERF_COUNT_HW_CACHE_OP_MAX);
 350                         if (cache_op >= 0) {
 351                                 if (!perf_evsel__is_cache_op_valid(cache_type, cache_op))
 352                                         return -EINVAL;
 353                                 continue;
 354                         }
 355                 }
 356
 357                 if (cache_result == -1) {
 358                         cache_result = parse_aliases(str, perf_evsel__hw_cache_result,
 359                                                      PERF_COUNT_HW_CACHE_RESULT_MAX);
 360                         if (cache_result >= 0)
 361                                 continue;
 362                 }
 363         }
 364
 365         /*
 366          * Fall back to reads:
 367          */
 368         if (cache_op == -1)
 369                 cache_op = PERF_COUNT_HW_CACHE_OP_READ;
 370
 371         /*
 372          * Fall back to accesses:
 373          */
 374         if (cache_result == -1)
 375                 cache_result = PERF_COUNT_HW_CACHE_RESULT_ACCESS;
 376
 377         memset(&attr, 0, sizeof(attr));
 378         attr.config = cache_type | (cache_op << 8) | (cache_result << 16);
 379         attr.type = PERF_TYPE_HW_CACHE;
 380         return add_event(list, idx, &attr, name);
 381 }
 382
 383 static int add_tracepoint(struct list_head *list, int *idx,
 384                           char *sys_name, char *evt_name)
 385 {
 386         struct perf_evsel *evsel;
 387
 388         evsel = perf_evsel__newtp_idx(sys_name, evt_name, (*idx)++);
 389         if (!evsel)
 390                 return -ENOMEM;
 391
 392         list_add_tail(&evsel->node, list);
 393
 394         return 0;
 395 }
 396
 397 static int add_tracepoint_multi_event(struct list_head *list, int *idx,
 398                                       char *sys_name, char *evt_name)
 399 {
 400         char evt_path[MAXPATHLEN];
 401         struct dirent *evt_ent;
 402         DIR *evt_dir;
 403         int ret = 0;
 404
 405         snprintf(evt_path, MAXPATHLEN, "%s/%s", tracing_events_path, sys_name);
 406         evt_dir = opendir(evt_path);
 407         if (!evt_dir) {
 408                 perror("Can't open event dir");
 409                 return -1;
 410         }
 411
 412         while (!ret && (evt_ent = readdir(evt_dir))) {
 413                 if (!strcmp(evt_ent->d_name, ".")
 414                     || !strcmp(evt_ent->d_name, "..")
 415                     || !strcmp(evt_ent->d_name, "enable")
 416                     || !strcmp(evt_ent->d_name, "filter"))
 417                         continue;
 418
 419                 if (!strglobmatch(evt_ent->d_name, evt_name))
 420                         continue;
 421
 422                 ret = add_tracepoint(list, idx, sys_name, evt_ent->d_name);
 423         }
 424
 425         closedir(evt_dir);
 426         return ret;
 427 }
 428
 429 static int add_tracepoint_event(struct list_head *list, int *idx,
 430                                 char *sys_name, char *evt_name)
 431 {
 432         return strpbrk(evt_name, "*?") ?
 433                add_tracepoint_multi_event(list, idx, sys_name, evt_name) :
 434                add_tracepoint(list, idx, sys_name, evt_name);
 435 }
 436
 437 static int add_tracepoint_multi_sys(struct list_head *list, int *idx,
 438                                     char *sys_name, char *evt_name)
 439 {
 440         struct dirent *events_ent;
 441         DIR *events_dir;
 442         int ret = 0;
 443
 444         events_dir = opendir(tracing_events_path);
 445         if (!events_dir) {
 446                 perror("Can't open event dir");
 447                 return -1;
 448         }
 449
 450         while (!ret && (events_ent = readdir(events_dir))) {
 451                 if (!strcmp(events_ent->d_name, ".")
 452                     || !strcmp(events_ent->d_name, "..")
 453                     || !strcmp(events_ent->d_name, "enable")
 454                     || !strcmp(events_ent->d_name, "header_event")
 455                     || !strcmp(events_ent->d_name, "header_page"))
 456                         continue;
 457
 458                 if (!strglobmatch(events_ent->d_name, sys_name))
 459                         continue;
 460
 461                 ret = add_tracepoint_event(list, idx, events_ent->d_name,
 462                                            evt_name);
 463         }
 464
 465         closedir(events_dir);
 466         return ret;
 467 }
 468
 469 int parse_events_add_tracepoint(struct list_head *list, int *idx,
 470                                 char *sys, char *event)
 471 {
 472         if (strpbrk(sys, "*?"))
 473                 return add_tracepoint_multi_sys(list, idx, sys, event);
 474         else
 475                 return add_tracepoint_event(list, idx, sys, event);
 476 }
 477
 478 static int
 479 parse_breakpoint_type(const char *type, struct perf_event_attr *attr)
 480 {
 481         int i;
 482
 483         for (i = 0; i < 3; i++) {
 484                 if (!type || !type[i])
 485                         break;
 486
 487 #define CHECK_SET_TYPE(bit)             \
 488 do {                                    \
 489         if (attr->bp_type & bit)        \
 490                 return -EINVAL;         \
 491         else                            \
 492                 attr->bp_type |= bit;   \
 493 } while (0)
 494
 495                 switch (type[i]) {
 496                 case 'r':
 497                         CHECK_SET_TYPE(HW_BREAKPOINT_R);
 498                         break;
 499                 case 'w':
 500                         CHECK_SET_TYPE(HW_BREAKPOINT_W);
 501                         break;
 502                 case 'x':
 503                         CHECK_SET_TYPE(HW_BREAKPOINT_X);
 504                         break;
 505                 default:
 506                         return -EINVAL;
 507                 }
 508         }
 509
 510 #undef CHECK_SET_TYPE
 511
 512         if (!attr->bp_type) /* Default */
 513                 attr->bp_type = HW_BREAKPOINT_R | HW_BREAKPOINT_W;
 514
 515         return 0;
 516 }
 517
 518 int parse_events_add_breakpoint(struct list_head *list, int *idx,
 519                                 void *ptr, char *type, u64 len)
 520 {
 521         struct perf_event_attr attr;
 522
 523         memset(&attr, 0, sizeof(attr));
 524         attr.bp_addr = (unsigned long) ptr;
 525
 526         if (parse_breakpoint_type(type, &attr))
 527                 return -EINVAL;
 528
 529         /* Provide some defaults if len is not specified */
 530         if (!len) {
 531                 if (attr.bp_type == HW_BREAKPOINT_X)
 532                         len = sizeof(long);
 533                 else
 534                         len = HW_BREAKPOINT_LEN_4;
 535         }
 536
 537         attr.bp_len = len;
 538
 539         attr.type = PERF_TYPE_BREAKPOINT;
 540         attr.sample_period = 1;
 541
 542         return add_event(list, idx, &attr, NULL);
 543 }
 544
 545 static int check_type_val(struct parse_events_term *term,
 546                           struct parse_events_error *err,
 547                           int type)
 548 {
 549         if (type == term->type_val)
 550                 return 0;
 551
 552         if (err) {
 553                 err->idx = term->err_val;
 554                 if (type == PARSE_EVENTS__TERM_TYPE_NUM)
 555                         err->str = strdup("expected numeric value");
 556                 else
 557                         err->str = strdup("expected string value");
 558         }
 559         return -EINVAL;
 560 }
 561
 562 static int config_term(struct perf_event_attr *attr,
 563                        struct parse_events_term *term,
 564                        struct parse_events_error *err)
 565 {
 566 #define CHECK_TYPE_VAL(type)                                               \
 567 do {                                                                       \
 568         if (check_type_val(term, err, PARSE_EVENTS__TERM_TYPE_ ## type)) \
 569                 return -EINVAL;                                            \
 570 } while (0)
 571
 572         switch (term->type_term) {
 573         case PARSE_EVENTS__TERM_TYPE_USER:
 574                 /*
 575                  * Always succeed for sysfs terms, as we dont know
 576                  * at this point what type they need to have.
 577                  */
 578                 return 0;
 579         case PARSE_EVENTS__TERM_TYPE_CONFIG:
 580                 CHECK_TYPE_VAL(NUM);
 581                 attr->config = term->val.num;
 582                 break;
 583         case PARSE_EVENTS__TERM_TYPE_CONFIG1:
 584                 CHECK_TYPE_VAL(NUM);
 585                 attr->config1 = term->val.num;
 586                 break;
 587         case PARSE_EVENTS__TERM_TYPE_CONFIG2:
 588                 CHECK_TYPE_VAL(NUM);
 589                 attr->config2 = term->val.num;
 590                 break;
 591         case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD:
 592                 CHECK_TYPE_VAL(NUM);
 593                 attr->sample_period = term->val.num;
 594                 break;
 595         case PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE:
 596                 /*
 597                  * TODO uncomment when the field is available
 598                  * attr->branch_sample_type = term->val.num;
 599                  */
 600                 break;
 601         case PARSE_EVENTS__TERM_TYPE_NAME:
 602                 CHECK_TYPE_VAL(STR);
 603                 break;
 604         default:
 605                 return -EINVAL;
 606         }
 607
 608         return 0;
 609 #undef CHECK_TYPE_VAL
 610 }
 611
 612 static int config_attr(struct perf_event_attr *attr,
 613                        struct list_head *head,
 614                        struct parse_events_error *err)
 615 {
 616         struct parse_events_term *term;
 617
 618         list_for_each_entry(term, head, list)
 619                 if (config_term(attr, term, err))
 620                         return -EINVAL;
 621
 622         return 0;
 623 }
 624
 625 int parse_events_add_numeric(struct parse_events_evlist *data,
 626                              struct list_head *list,
 627                              u32 type, u64 config,
 628                              struct list_head *head_config)
 629 {
 630         struct perf_event_attr attr;
 631
 632         memset(&attr, 0, sizeof(attr));
 633         attr.type = type;
 634         attr.config = config;
 635
 636         if (head_config &&
 637             config_attr(&attr, head_config, data->error))
 638                 return -EINVAL;
 639
 640         return add_event(list, &data->idx, &attr, NULL);
 641 }
 642
 643 static int parse_events__is_name_term(struct parse_events_term *term)
 644 {
 645         return term->type_term == PARSE_EVENTS__TERM_TYPE_NAME;
 646 }
 647
 648 static char *pmu_event_name(struct list_head *head_terms)
 649 {
 650         struct parse_events_term *term;
 651
 652         list_for_each_entry(term, head_terms, list)
 653                 if (parse_events__is_name_term(term))
 654                         return term->val.str;
 655
 656         return NULL;
 657 }
 658
 659 int parse_events_add_pmu(struct parse_events_evlist *data,
 660                          struct list_head *list, char *name,
 661                          struct list_head *head_config)
 662 {
 663         struct perf_event_attr attr;
 664         struct perf_pmu_info info;
 665         struct perf_pmu *pmu;
 666         struct perf_evsel *evsel;
 667
 668         pmu = perf_pmu__find(name);
 669         if (!pmu)
 670                 return -EINVAL;
 671
 672         if (pmu->default_config) {
 673                 memcpy(&attr, pmu->default_config,
 674                        sizeof(struct perf_event_attr));
 675         } else {
 676                 memset(&attr, 0, sizeof(attr));
 677         }
 678
 679         if (!head_config) {
 680                 attr.type = pmu->type;
 681                 evsel = __add_event(list, &data->idx, &attr, NULL, pmu->cpus);
 682                 return evsel ? 0 : -ENOMEM;
 683         }
 684
 685         if (perf_pmu__check_alias(pmu, head_config, &info))
 686                 return -EINVAL;
 687
 688         /*
 689          * Configure hardcoded terms first, no need to check
 690          * return value when called with fail == 0 ;)
 691          */
 692         if (config_attr(&attr, head_config, data->error))
 693                 return -EINVAL;
 694
 695         if (perf_pmu__config(pmu, &attr, head_config, data->error))
 696                 return -EINVAL;
 697
 698         evsel = __add_event(list, &data->idx, &attr,
 699                             pmu_event_name(head_config), pmu->cpus);
 700         if (evsel) {
 701                 evsel->unit = info.unit;
 702                 evsel->scale = info.scale;
 703                 evsel->per_pkg = info.per_pkg;
 704                 evsel->snapshot = info.snapshot;
 705         }
 706
 707         return evsel ? 0 : -ENOMEM;
 708 }
 709
 710 int parse_events__modifier_group(struct list_head *list,
 711                                  char *event_mod)
 712 {
 713         return parse_events__modifier_event(list, event_mod, true);
 714 }
 715
 716 void parse_events__set_leader(char *name, struct list_head *list)
 717 {
 718         struct perf_evsel *leader;
 719
 720         __perf_evlist__set_leader(list);
 721         leader = list_entry(list->next, struct perf_evsel, node);
 722         leader->group_name = name ? strdup(name) : NULL;
 723 }
 724
 725 /* list_event is assumed to point to malloc'ed memory */
 726 void parse_events_update_lists(struct list_head *list_event,
 727                                struct list_head *list_all)
 728 {
 729         /*
 730          * Called for single event definition. Update the
 731          * 'all event' list, and reinit the 'single event'
 732          * list, for next event definition.
 733          */
 734         list_splice_tail(list_event, list_all);
 735         free(list_event);
 736 }
 737
 738 struct event_modifier {
 739         int eu;
 740         int ek;
 741         int eh;
 742         int eH;
 743         int eG;
 744         int eI;
 745         int precise;
 746         int exclude_GH;
 747         int sample_read;
 748         int pinned;
 749 };
 750
 751 static int get_event_modifier(struct event_modifier *mod, char *str,
 752                                struct perf_evsel *evsel)
 753 {
 754         int eu = evsel ? evsel->attr.exclude_user : 0;
 755         int ek = evsel ? evsel->attr.exclude_kernel : 0;
 756         int eh = evsel ? evsel->attr.exclude_hv : 0;
 757         int eH = evsel ? evsel->attr.exclude_host : 0;
 758         int eG = evsel ? evsel->attr.exclude_guest : 0;
 759         int eI = evsel ? evsel->attr.exclude_idle : 0;
 760         int precise = evsel ? evsel->attr.precise_ip : 0;
 761         int sample_read = 0;
 762         int pinned = evsel ? evsel->attr.pinned : 0;
 763
 764         int exclude = eu | ek | eh;
 765         int exclude_GH = evsel ? evsel->exclude_GH : 0;
 766
 767         memset(mod, 0, sizeof(*mod));
 768
 769         while (*str) {
 770                 if (*str == 'u') {
 771                         if (!exclude)
 772                                 exclude = eu = ek = eh = 1;
 773                         eu = 0;
 774                 } else if (*str == 'k') {
 775                         if (!exclude)
 776                                 exclude = eu = ek = eh = 1;
 777                         ek = 0;
 778                 } else if (*str == 'h') {
 779                         if (!exclude)
 780                                 exclude = eu = ek = eh = 1;
 781                         eh = 0;
 782                 } else if (*str == 'G') {
 783                         if (!exclude_GH)
 784                                 exclude_GH = eG = eH = 1;
 785                         eG = 0;
 786                 } else if (*str == 'H') {
 787                         if (!exclude_GH)
 788                                 exclude_GH = eG = eH = 1;
 789                         eH = 0;
 790                 } else if (*str == 'I') {
 791                         eI = 1;
 792                 } else if (*str == 'p') {
 793                         precise++;
 794                         /* use of precise requires exclude_guest */
 795                         if (!exclude_GH)
 796                                 eG = 1;
 797                 } else if (*str == 'S') {
 798                         sample_read = 1;
 799                 } else if (*str == 'D') {
 800                         pinned = 1;
 801                 } else
 802                         break;
 803
 804                 ++str;
 805         }
 806
 807         /*
 808          * precise ip:
 809          *
 810          *  0 - SAMPLE_IP can have arbitrary skid
 811          *  1 - SAMPLE_IP must have constant skid
 812          *  2 - SAMPLE_IP requested to have 0 skid
 813          *  3 - SAMPLE_IP must have 0 skid
 814          *
 815          *  See also PERF_RECORD_MISC_EXACT_IP
 816          */
 817         if (precise > 3)
 818                 return -EINVAL;
 819
 820         mod->eu = eu;
 821         mod->ek = ek;
 822         mod->eh = eh;
 823         mod->eH = eH;
 824         mod->eG = eG;
 825         mod->eI = eI;
 826         mod->precise = precise;
 827         mod->exclude_GH = exclude_GH;
 828         mod->sample_read = sample_read;
 829         mod->pinned = pinned;
 830
 831         return 0;
 832 }
 833
 834 /*
 835  * Basic modifier sanity check to validate it contains only one
 836  * instance of any modifier (apart from 'p') present.
 837  */
 838 static int check_modifier(char *str)
 839 {
 840         char *p = str;
 841
 842         /* The sizeof includes 0 byte as well. */
 843         if (strlen(str) > (sizeof("ukhGHpppSDI") - 1))
 844                 return -1;
 845
 846         while (*p) {
 847                 if (*p != 'p' && strchr(p + 1, *p))
 848                         return -1;
 849                 p++;
 850         }
 851
 852         return 0;
 853 }
 854
 855 int parse_events__modifier_event(struct list_head *list, char *str, bool add)
 856 {
 857         struct perf_evsel *evsel;
 858         struct event_modifier mod;
 859
 860         if (str == NULL)
 861                 return 0;
 862
 863         if (check_modifier(str))
 864                 return -EINVAL;
 865
 866         if (!add && get_event_modifier(&mod, str, NULL))
 867                 return -EINVAL;
 868
 869         __evlist__for_each(list, evsel) {
 870                 if (add && get_event_modifier(&mod, str, evsel))
 871                         return -EINVAL;
 872
 873                 evsel->attr.exclude_user   = mod.eu;
 874                 evsel->attr.exclude_kernel = mod.ek;
 875                 evsel->attr.exclude_hv     = mod.eh;
 876                 evsel->attr.precise_ip     = mod.precise;
 877                 evsel->attr.exclude_host   = mod.eH;
 878                 evsel->attr.exclude_guest  = mod.eG;
 879                 evsel->attr.exclude_idle   = mod.eI;
 880                 evsel->exclude_GH          = mod.exclude_GH;
 881                 evsel->sample_read         = mod.sample_read;
 882
 883                 if (perf_evsel__is_group_leader(evsel))
 884                         evsel->attr.pinned = mod.pinned;
 885         }
 886
 887         return 0;
 888 }
 889
 890 int parse_events_name(struct list_head *list, char *name)
 891 {
 892         struct perf_evsel *evsel;
 893
 894         __evlist__for_each(list, evsel) {
 895                 if (!evsel->name)
 896                         evsel->name = strdup(name);
 897         }
 898
 899         return 0;
 900 }
 901
 902 static int
 903 comp_pmu(const void *p1, const void *p2)
 904 {
 905         struct perf_pmu_event_symbol *pmu1 = (struct perf_pmu_event_symbol *) p1;
 906         struct perf_pmu_event_symbol *pmu2 = (struct perf_pmu_event_symbol *) p2;
 907
 908         return strcmp(pmu1->symbol, pmu2->symbol);
 909 }
 910
 911 static void perf_pmu__parse_cleanup(void)
 912 {
 913         if (perf_pmu_events_list_num > 0) {
 914                 struct perf_pmu_event_symbol *p;
 915                 int i;
 916
 917                 for (i = 0; i < perf_pmu_events_list_num; i++) {
 918                         p = perf_pmu_events_list + i;
 919                         free(p->symbol);
 920                 }
 921                 free(perf_pmu_events_list);
 922                 perf_pmu_events_list = NULL;
 923                 perf_pmu_events_list_num = 0;
 924         }
 925 }
 926
 927 #define SET_SYMBOL(str, stype)          \
 928 do {                                    \
 929         p->symbol = str;                \
 930         if (!p->symbol)                 \
 931                 goto err;               \
 932         p->type = stype;                \
 933 } while (0)
 934
 935 /*
 936  * Read the pmu events list from sysfs
 937  * Save it into perf_pmu_events_list
 938  */
 939 static void perf_pmu__parse_init(void)
 940 {
 941
 942         struct perf_pmu *pmu = NULL;
 943         struct perf_pmu_alias *alias;
 944         int len = 0;
 945
 946         pmu = perf_pmu__find("cpu");
 947         if ((pmu == NULL) || list_empty(&pmu->aliases)) {
 948                 perf_pmu_events_list_num = -1;
 949                 return;
 950         }
 951         list_for_each_entry(alias, &pmu->aliases, list) {
 952                 if (strchr(alias->name, '-'))
 953                         len++;
 954                 len++;
 955         }
 956         perf_pmu_events_list = malloc(sizeof(struct perf_pmu_event_symbol) * len);
 957         if (!perf_pmu_events_list)
 958                 return;
 959         perf_pmu_events_list_num = len;
 960
 961         len = 0;
 962         list_for_each_entry(alias, &pmu->aliases, list) {
 963                 struct perf_pmu_event_symbol *p = perf_pmu_events_list + len;
 964                 char *tmp = strchr(alias->name, '-');
 965
 966                 if (tmp != NULL) {
 967                         SET_SYMBOL(strndup(alias->name, tmp - alias->name),
 968                                         PMU_EVENT_SYMBOL_PREFIX);
 969                         p++;
 970                         SET_SYMBOL(strdup(++tmp), PMU_EVENT_SYMBOL_SUFFIX);
 971                         len += 2;
 972                 } else {
 973                         SET_SYMBOL(strdup(alias->name), PMU_EVENT_SYMBOL);
 974                         len++;
 975                 }
 976         }
 977         qsort(perf_pmu_events_list, len,
 978                 sizeof(struct perf_pmu_event_symbol), comp_pmu);
 979
 980         return;
 981 err:
 982         perf_pmu__parse_cleanup();
 983 }
 984
 985 enum perf_pmu_event_symbol_type
 986 perf_pmu__parse_check(const char *name)
 987 {
 988         struct perf_pmu_event_symbol p, *r;
 989
 990         /* scan kernel pmu events from sysfs if needed */
 991         if (perf_pmu_events_list_num == 0)
 992                 perf_pmu__parse_init();
 993         /*
 994          * name "cpu" could be prefix of cpu-cycles or cpu// events.
 995          * cpu-cycles has been handled by hardcode.
 996          * So it must be cpu// events, not kernel pmu event.
 997          */
 998         if ((perf_pmu_events_list_num <= 0) || !strcmp(name, "cpu"))
 999                 return PMU_EVENT_SYMBOL_ERR;
1000
1001         p.symbol = strdup(name);
1002         r = bsearch(&p, perf_pmu_events_list,
1003                         (size_t) perf_pmu_events_list_num,
1004                         sizeof(struct perf_pmu_event_symbol), comp_pmu);
1005         free(p.symbol);
1006         return r ? r->type : PMU_EVENT_SYMBOL_ERR;
1007 }
1008
1009 static int parse_events__scanner(const char *str, void *data, int start_token)
1010 {
1011         YY_BUFFER_STATE buffer;
1012         void *scanner;
1013         int ret;
1014
1015         ret = parse_events_lex_init_extra(start_token, &scanner);
1016         if (ret)
1017                 return ret;
1018
1019         buffer = parse_events__scan_string(str, scanner);
1020
1021 #ifdef PARSER_DEBUG
1022         parse_events_debug = 1;
1023 #endif
1024         ret = parse_events_parse(data, scanner);
1025
1026         parse_events__flush_buffer(buffer, scanner);
1027         parse_events__delete_buffer(buffer, scanner);
1028         parse_events_lex_destroy(scanner);
1029         return ret;
1030 }
1031
1032 /*
1033  * parse event config string, return a list of event terms.
1034  */
1035 int parse_events_terms(struct list_head *terms, const char *str)
1036 {
1037         struct parse_events_terms data = {
1038                 .terms = NULL,
1039         };
1040         int ret;
1041
1042         ret = parse_events__scanner(str, &data, PE_START_TERMS);
1043         if (!ret) {
1044                 list_splice(data.terms, terms);
1045                 zfree(&data.terms);
1046                 return 0;
1047         }
1048
1049         if (data.terms)
1050                 parse_events__free_terms(data.terms);
1051         return ret;
1052 }
1053
1054 int parse_events(struct perf_evlist *evlist, const char *str,
1055                  struct parse_events_error *err)
1056 {
1057         struct parse_events_evlist data = {
1058                 .list  = LIST_HEAD_INIT(data.list),
1059                 .idx   = evlist->nr_entries,
1060                 .error = err,
1061         };
1062         int ret;
1063
1064         ret = parse_events__scanner(str, &data, PE_START_EVENTS);
1065         perf_pmu__parse_cleanup();
1066         if (!ret) {
1067                 int entries = data.idx - evlist->nr_entries;
1068                 perf_evlist__splice_list_tail(evlist, &data.list, entries);
1069                 evlist->nr_groups += data.nr_groups;
1070                 return 0;
1071         }
1072
1073         /*
1074          * There are 2 users - builtin-record and builtin-test objects.
1075          * Both call perf_evlist__delete in case of error, so we dont
1076          * need to bother.
1077          */
1078         return ret;
1079 }
1080
1081 #define MAX_WIDTH 1000
1082 static int get_term_width(void)
1083 {
1084         struct winsize ws;
1085
1086         get_term_dimensions(&ws);
1087         return ws.ws_col > MAX_WIDTH ? MAX_WIDTH : ws.ws_col;
1088 }
1089
1090 static void parse_events_print_error(struct parse_events_error *err,
1091                                      const char *event)
1092 {
1093         const char *str = "invalid or unsupported event: ";
1094         char _buf[MAX_WIDTH];
1095         char *buf = (char *) event;
1096         int idx = 0;
1097
1098         if (err->str) {
1099                 /* -2 for extra '' in the final fprintf */
1100                 int width       = get_term_width() - 2;
1101                 int len_event   = strlen(event);
1102                 int len_str, max_len, cut = 0;
1103
1104                 /*
1105                  * Maximum error index indent, we will cut
1106                  * the event string if it's bigger.
1107                  */
1108                 int max_err_idx = 10;
1109
1110                 /*
1111                  * Let's be specific with the message when
1112                  * we have the precise error.
1113                  */
1114                 str     = "event syntax error: ";
1115                 len_str = strlen(str);
1116                 max_len = width - len_str;
1117
1118                 buf = _buf;
1119
1120                 /* We're cutting from the beggining. */
1121                 if (err->idx > max_err_idx)
1122                         cut = err->idx - max_err_idx;
1123
1124                 strncpy(buf, event + cut, max_len);
1125
1126                 /* Mark cut parts with '..' on both sides. */
1127                 if (cut)
1128                         buf[0] = buf[1] = '.';
1129
1130                 if ((len_event - cut) > max_len) {
1131                         buf[max_len - 1] = buf[max_len - 2] = '.';
1132                         buf[max_len] = 0;
1133                 }
1134
1135                 idx = len_str + err->idx - cut;
1136         }
1137
1138         fprintf(stderr, "%s'%s'\n", str, buf);
1139         if (idx) {
1140                 fprintf(stderr, "%*s\\___ %s\n", idx + 1, "", err->str);
1141                 if (err->help)
1142                         fprintf(stderr, "\n%s\n", err->help);
1143                 free(err->str);
1144                 free(err->help);
1145         }
1146
1147         fprintf(stderr, "Run 'perf list' for a list of valid events\n");
1148 }
1149
1150 #undef MAX_WIDTH
1151
1152 int parse_events_option(const struct option *opt, const char *str,
1153                         int unset __maybe_unused)
1154 {
1155         struct perf_evlist *evlist = *(struct perf_evlist **)opt->value;
1156         struct parse_events_error err = { .idx = 0, };
1157         int ret = parse_events(evlist, str, &err);
1158
1159         if (ret)
1160                 parse_events_print_error(&err, str);
1161
1162         return ret;
1163 }
1164
1165 int parse_filter(const struct option *opt, const char *str,
1166                  int unset __maybe_unused)
1167 {
1168         struct perf_evlist *evlist = *(struct perf_evlist **)opt->value;
1169         struct perf_evsel *last = NULL;
1170
1171         if (evlist->nr_entries > 0)
1172                 last = perf_evlist__last(evlist);
1173
1174         if (last == NULL || last->attr.type != PERF_TYPE_TRACEPOINT) {
1175                 fprintf(stderr,
1176                         "--filter option should follow a -e tracepoint option\n");
1177                 return -1;
1178         }
1179
1180         last->filter = strdup(str);
1181         if (last->filter == NULL) {
1182                 fprintf(stderr, "not enough memory to hold filter string\n");
1183                 return -1;
1184         }
1185
1186         return 0;
1187 }
1188
1189 static const char * const event_type_descriptors[] = {
1190         "Hardware event",
1191         "Software event",
1192         "Tracepoint event",
1193         "Hardware cache event",
1194         "Raw hardware event descriptor",
1195         "Hardware breakpoint",
1196 };
1197
1198 static int cmp_string(const void *a, const void *b)
1199 {
1200         const char * const *as = a;
1201         const char * const *bs = b;
1202
1203         return strcmp(*as, *bs);
1204 }
1205
1206 /*
1207  * Print the events from <debugfs_mount_point>/tracing/events
1208  */
1209
1210 void print_tracepoint_events(const char *subsys_glob, const char *event_glob,
1211                              bool name_only)
1212 {
1213         DIR *sys_dir, *evt_dir;
1214         struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
1215         char evt_path[MAXPATHLEN];
1216         char dir_path[MAXPATHLEN];
1217         char **evt_list = NULL;
1218         unsigned int evt_i = 0, evt_num = 0;
1219         bool evt_num_known = false;
1220
1221 restart:
1222         sys_dir = opendir(tracing_events_path);
1223         if (!sys_dir)
1224                 return;
1225
1226         if (evt_num_known) {
1227                 evt_list = zalloc(sizeof(char *) * evt_num);
1228                 if (!evt_list)
1229                         goto out_close_sys_dir;
1230         }
1231
1232         for_each_subsystem(sys_dir, sys_dirent, sys_next) {
1233                 if (subsys_glob != NULL &&
1234                     !strglobmatch(sys_dirent.d_name, subsys_glob))
1235                         continue;
1236
1237                 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
1238                          sys_dirent.d_name);
1239                 evt_dir = opendir(dir_path);
1240                 if (!evt_dir)
1241                         continue;
1242
1243                 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
1244                         if (event_glob != NULL &&
1245                             !strglobmatch(evt_dirent.d_name, event_glob))
1246                                 continue;
1247
1248                         if (!evt_num_known) {
1249                                 evt_num++;
1250                                 continue;
1251                         }
1252
1253                         snprintf(evt_path, MAXPATHLEN, "%s:%s",
1254                                  sys_dirent.d_name, evt_dirent.d_name);
1255
1256                         evt_list[evt_i] = strdup(evt_path);
1257                         if (evt_list[evt_i] == NULL)
1258                                 goto out_close_evt_dir;
1259                         evt_i++;
1260                 }
1261                 closedir(evt_dir);
1262         }
1263         closedir(sys_dir);
1264
1265         if (!evt_num_known) {
1266                 evt_num_known = true;
1267                 goto restart;
1268         }
1269         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
1270         evt_i = 0;
1271         while (evt_i < evt_num) {
1272                 if (name_only) {
1273                         printf("%s ", evt_list[evt_i++]);
1274                         continue;
1275                 }
1276                 printf("  %-50s [%s]\n", evt_list[evt_i++],
1277                                 event_type_descriptors[PERF_TYPE_TRACEPOINT]);
1278         }
1279         if (evt_num)
1280                 printf("\n");
1281
1282 out_free:
1283         evt_num = evt_i;
1284         for (evt_i = 0; evt_i < evt_num; evt_i++)
1285                 zfree(&evt_list[evt_i]);
1286         zfree(&evt_list);
1287         return;
1288
1289 out_close_evt_dir:
1290         closedir(evt_dir);
1291 out_close_sys_dir:
1292         closedir(sys_dir);
1293
1294         printf("FATAL: not enough memory to print %s\n",
1295                         event_type_descriptors[PERF_TYPE_TRACEPOINT]);
1296         if (evt_list)
1297                 goto out_free;
1298 }
1299
1300 /*
1301  * Check whether event is in <debugfs_mount_point>/tracing/events
1302  */
1303
1304 int is_valid_tracepoint(const char *event_string)
1305 {
1306         DIR *sys_dir, *evt_dir;
1307         struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
1308         char evt_path[MAXPATHLEN];
1309         char dir_path[MAXPATHLEN];
1310
1311         sys_dir = opendir(tracing_events_path);
1312         if (!sys_dir)
1313                 return 0;
1314
1315         for_each_subsystem(sys_dir, sys_dirent, sys_next) {
1316
1317                 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
1318                          sys_dirent.d_name);
1319                 evt_dir = opendir(dir_path);
1320                 if (!evt_dir)
1321                         continue;
1322
1323                 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
1324                         snprintf(evt_path, MAXPATHLEN, "%s:%s",
1325                                  sys_dirent.d_name, evt_dirent.d_name);
1326                         if (!strcmp(evt_path, event_string)) {
1327                                 closedir(evt_dir);
1328                                 closedir(sys_dir);
1329                                 return 1;
1330                         }
1331                 }
1332                 closedir(evt_dir);
1333         }
1334         closedir(sys_dir);
1335         return 0;
1336 }
1337
1338 static bool is_event_supported(u8 type, unsigned config)
1339 {
1340         bool ret = true;
1341         int open_return;
1342         struct perf_evsel *evsel;
1343         struct perf_event_attr attr = {
1344                 .type = type,
1345                 .config = config,
1346                 .disabled = 1,
1347         };
1348         struct {
1349                 struct thread_map map;
1350                 int threads[1];
1351         } tmap = {
1352                 .map.nr  = 1,
1353                 .threads = { 0 },
1354         };
1355
1356         evsel = perf_evsel__new(&attr);
1357         if (evsel) {
1358                 open_return = perf_evsel__open(evsel, NULL, &tmap.map);
1359                 ret = open_return >= 0;
1360
1361                 if (open_return == -EACCES) {
1362                         /*
1363                          * This happens if the paranoid value
1364                          * /proc/sys/kernel/perf_event_paranoid is set to 2
1365                          * Re-run with exclude_kernel set; we don't do that
1366                          * by default as some ARM machines do not support it.
1367                          *
1368                          */
1369                         evsel->attr.exclude_kernel = 1;
1370                         ret = perf_evsel__open(evsel, NULL, &tmap.map) >= 0;
1371                 }
1372                 perf_evsel__delete(evsel);
1373         }
1374
1375         return ret;
1376 }
1377
1378 int print_hwcache_events(const char *event_glob, bool name_only)
1379 {
1380         unsigned int type, op, i, evt_i = 0, evt_num = 0;
1381         char name[64];
1382         char **evt_list = NULL;
1383         bool evt_num_known = false;
1384
1385 restart:
1386         if (evt_num_known) {
1387                 evt_list = zalloc(sizeof(char *) * evt_num);
1388                 if (!evt_list)
1389                         goto out_enomem;
1390         }
1391
1392         for (type = 0; type < PERF_COUNT_HW_CACHE_MAX; type++) {
1393                 for (op = 0; op < PERF_COUNT_HW_CACHE_OP_MAX; op++) {
1394                         /* skip invalid cache type */
1395                         if (!perf_evsel__is_cache_op_valid(type, op))
1396                                 continue;
1397
1398                         for (i = 0; i < PERF_COUNT_HW_CACHE_RESULT_MAX; i++) {
1399                                 __perf_evsel__hw_cache_type_op_res_name(type, op, i,
1400                                                                         name, sizeof(name));
1401                                 if (event_glob != NULL && !strglobmatch(name, event_glob))
1402                                         continue;
1403
1404                                 if (!is_event_supported(PERF_TYPE_HW_CACHE,
1405                                                         type | (op << 8) | (i << 16)))
1406                                         continue;
1407
1408                                 if (!evt_num_known) {
1409                                         evt_num++;
1410                                         continue;
1411                                 }
1412
1413                                 evt_list[evt_i] = strdup(name);
1414                                 if (evt_list[evt_i] == NULL)
1415                                         goto out_enomem;
1416                                 evt_i++;
1417                         }
1418                 }
1419         }
1420
1421         if (!evt_num_known) {
1422                 evt_num_known = true;
1423                 goto restart;
1424         }
1425         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
1426         evt_i = 0;
1427         while (evt_i < evt_num) {
1428                 if (name_only) {
1429                         printf("%s ", evt_list[evt_i++]);
1430                         continue;
1431                 }
1432                 printf("  %-50s [%s]\n", evt_list[evt_i++],
1433                                 event_type_descriptors[PERF_TYPE_HW_CACHE]);
1434         }
1435         if (evt_num)
1436                 printf("\n");
1437
1438 out_free:
1439         evt_num = evt_i;
1440         for (evt_i = 0; evt_i < evt_num; evt_i++)
1441                 zfree(&evt_list[evt_i]);
1442         zfree(&evt_list);
1443         return evt_num;
1444
1445 out_enomem:
1446         printf("FATAL: not enough memory to print %s\n", event_type_descriptors[PERF_TYPE_HW_CACHE]);
1447         if (evt_list)
1448                 goto out_free;
1449         return evt_num;
1450 }
1451
1452 void print_symbol_events(const char *event_glob, unsigned type,
1453                                 struct event_symbol *syms, unsigned max,
1454                                 bool name_only)
1455 {
1456         unsigned int i, evt_i = 0, evt_num = 0;
1457         char name[MAX_NAME_LEN];
1458         char **evt_list = NULL;
1459         bool evt_num_known = false;
1460
1461 restart:
1462         if (evt_num_known) {
1463                 evt_list = zalloc(sizeof(char *) * evt_num);
1464                 if (!evt_list)
1465                         goto out_enomem;
1466                 syms -= max;
1467         }
1468
1469         for (i = 0; i < max; i++, syms++) {
1470
1471                 if (event_glob != NULL &&
1472                     !(strglobmatch(syms->symbol, event_glob) ||
1473                       (syms->alias && strglobmatch(syms->alias, event_glob))))
1474                         continue;
1475
1476                 if (!is_event_supported(type, i))
1477                         continue;
1478
1479                 if (!evt_num_known) {
1480                         evt_num++;
1481                         continue;
1482                 }
1483
1484                 if (!name_only && strlen(syms->alias))
1485                         snprintf(name, MAX_NAME_LEN, "%s OR %s", syms->symbol, syms->alias);
1486                 else
1487                         strncpy(name, syms->symbol, MAX_NAME_LEN);
1488
1489                 evt_list[evt_i] = strdup(name);
1490                 if (evt_list[evt_i] == NULL)
1491                         goto out_enomem;
1492                 evt_i++;
1493         }
1494
1495         if (!evt_num_known) {
1496                 evt_num_known = true;
1497                 goto restart;
1498         }
1499         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
1500         evt_i = 0;
1501         while (evt_i < evt_num) {
1502                 if (name_only) {
1503                         printf("%s ", evt_list[evt_i++]);
1504                         continue;
1505                 }
1506                 printf("  %-50s [%s]\n", evt_list[evt_i++], event_type_descriptors[type]);
1507         }
1508         if (evt_num)
1509                 printf("\n");
1510
1511 out_free:
1512         evt_num = evt_i;
1513         for (evt_i = 0; evt_i < evt_num; evt_i++)
1514                 zfree(&evt_list[evt_i]);
1515         zfree(&evt_list);
1516         return;
1517
1518 out_enomem:
1519         printf("FATAL: not enough memory to print %s\n", event_type_descriptors[type]);
1520         if (evt_list)
1521                 goto out_free;
1522 }
1523
1524 /*
1525  * Print the help text for the event symbols:
1526  */
1527 void print_events(const char *event_glob, bool name_only)
1528 {
1529         print_symbol_events(event_glob, PERF_TYPE_HARDWARE,
1530                             event_symbols_hw, PERF_COUNT_HW_MAX, name_only);
1531
1532         print_symbol_events(event_glob, PERF_TYPE_SOFTWARE,
1533                             event_symbols_sw, PERF_COUNT_SW_MAX, name_only);
1534
1535         print_hwcache_events(event_glob, name_only);
1536
1537         print_pmu_events(event_glob, name_only);
1538
1539         if (event_glob != NULL)
1540                 return;
1541
1542         if (!name_only) {
1543                 printf("  %-50s [%s]\n",
1544                        "rNNN",
1545                        event_type_descriptors[PERF_TYPE_RAW]);
1546                 printf("  %-50s [%s]\n",
1547                        "cpu/t1=v1[,t2=v2,t3 ...]/modifier",
1548                        event_type_descriptors[PERF_TYPE_RAW]);
1549                 printf("   (see 'man perf-list' on how to encode it)\n");
1550                 printf("\n");
1551
1552                 printf("  %-50s [%s]\n",
1553                        "mem:<addr>[/len][:access]",
1554                         event_type_descriptors[PERF_TYPE_BREAKPOINT]);
1555                 printf("\n");
1556         }
1557
1558         print_tracepoint_events(NULL, NULL, name_only);
1559 }
1560
1561 int parse_events__is_hardcoded_term(struct parse_events_term *term)
1562 {
1563         return term->type_term != PARSE_EVENTS__TERM_TYPE_USER;
1564 }
1565
1566 static int new_term(struct parse_events_term **_term, int type_val,
1567                     int type_term, char *config,
1568                     char *str, u64 num, int err_term, int err_val)
1569 {
1570         struct parse_events_term *term;
1571
1572         term = zalloc(sizeof(*term));
1573         if (!term)
1574                 return -ENOMEM;
1575
1576         INIT_LIST_HEAD(&term->list);
1577         term->type_val  = type_val;
1578         term->type_term = type_term;
1579         term->config = config;
1580         term->err_term = err_term;
1581         term->err_val  = err_val;
1582
1583         switch (type_val) {
1584         case PARSE_EVENTS__TERM_TYPE_NUM:
1585                 term->val.num = num;
1586                 break;
1587         case PARSE_EVENTS__TERM_TYPE_STR:
1588                 term->val.str = str;
1589                 break;
1590         default:
1591                 free(term);
1592                 return -EINVAL;
1593         }
1594
1595         *_term = term;
1596         return 0;
1597 }
1598
1599 int parse_events_term__num(struct parse_events_term **term,
1600                            int type_term, char *config, u64 num,
1601                            void *loc_term_, void *loc_val_)
1602 {
1603         YYLTYPE *loc_term = loc_term_;
1604         YYLTYPE *loc_val = loc_val_;
1605
1606         return new_term(term, PARSE_EVENTS__TERM_TYPE_NUM, type_term,
1607                         config, NULL, num,
1608                         loc_term ? loc_term->first_column : 0,
1609                         loc_val ? loc_val->first_column : 0);
1610 }
1611
1612 int parse_events_term__str(struct parse_events_term **term,
1613                            int type_term, char *config, char *str,
1614                            void *loc_term_, void *loc_val_)
1615 {
1616         YYLTYPE *loc_term = loc_term_;
1617         YYLTYPE *loc_val = loc_val_;
1618
1619         return new_term(term, PARSE_EVENTS__TERM_TYPE_STR, type_term,
1620                         config, str, 0,
1621                         loc_term ? loc_term->first_column : 0,
1622                         loc_val ? loc_val->first_column : 0);
1623 }
1624
1625 int parse_events_term__sym_hw(struct parse_events_term **term,
1626                               char *config, unsigned idx)
1627 {
1628         struct event_symbol *sym;
1629
1630         BUG_ON(idx >= PERF_COUNT_HW_MAX);
1631         sym = &event_symbols_hw[idx];
1632
1633         if (config)
1634                 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR,
1635                                 PARSE_EVENTS__TERM_TYPE_USER, config,
1636                                 (char *) sym->symbol, 0, 0, 0);
1637         else
1638                 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR,
1639                                 PARSE_EVENTS__TERM_TYPE_USER,
1640                                 (char *) "event", (char *) sym->symbol,
1641                                 0, 0, 0);
1642 }
1643
1644 int parse_events_term__clone(struct parse_events_term **new,
1645                              struct parse_events_term *term)
1646 {
1647         return new_term(new, term->type_val, term->type_term, term->config,
1648                         term->val.str, term->val.num,
1649                         term->err_term, term->err_val);
1650 }
1651
1652 void parse_events__free_terms(struct list_head *terms)
1653 {
1654         struct parse_events_term *term, *h;
1655
1656         list_for_each_entry_safe(term, h, terms, list)
1657                 free(term);
1658 }
1659
1660 void parse_events_evlist_error(struct parse_events_evlist *data,
1661                                int idx, const char *str)
1662 {
1663         struct parse_events_error *err = data->error;
1664
1665         if (!err)
1666                 return;
1667         err->idx = idx;
1668         err->str = strdup(str);
1669         WARN_ONCE(!err->str, "WARNING: failed to allocate error string");
1670 }