tools/perf/util/parse-events.c

   1 // SPDX-License-Identifier: GPL-2.0
   2 #include <linux/hw_breakpoint.h>
   3 #include <linux/err.h>
   4 #include <linux/zalloc.h>
   5 #include <dirent.h>
   6 #include <errno.h>
   7 #include <sys/ioctl.h>
   8 #include <sys/types.h>
   9 #include <sys/stat.h>
  10 #include <fcntl.h>
  11 #include <sys/param.h>
  12 #include "term.h"
  13 #include "build-id.h"
  14 #include "evlist.h"
  15 #include "evsel.h"
  16 #include <subcmd/pager.h>
  17 #include <subcmd/parse-options.h>
  18 #include "parse-events.h"
  19 #include <subcmd/exec-cmd.h>
  20 #include "string2.h"
  21 #include "strlist.h"
  22 #include "symbol.h"
  23 #include "header.h"
  24 #include "bpf-loader.h"
  25 #include "debug.h"
  26 #include <api/fs/tracing_path.h>
  27 #include <perf/cpumap.h>
  28 #include "parse-events-bison.h"
  29 #define YY_EXTRA_TYPE void*
  30 #include "parse-events-flex.h"
  31 #include "pmu.h"
  32 #include "thread_map.h"
  33 #include "probe-file.h"
  34 #include "asm/bug.h"
  35 #include "util/parse-branch-options.h"
  36 #include "metricgroup.h"
  37 #include "util/evsel_config.h"
  38 #include "util/event.h"
  39 #include "util/pfm.h"
  40 #include "util/parse-events-hybrid.h"
  41 #include "util/pmu-hybrid.h"
  42 #include "perf.h"
  43
  44 #define MAX_NAME_LEN 100
  45
  46 #ifdef PARSER_DEBUG
  47 extern int parse_events_debug;
  48 #endif
  49 int parse_events_parse(void *parse_state, void *scanner);
  50 static int get_config_terms(struct list_head *head_config,
  51                             struct list_head *head_terms __maybe_unused);
  52 static int parse_events__with_hybrid_pmu(struct parse_events_state *parse_state,
  53                                          const char *str, char *pmu_name,
  54                                          struct list_head *list);
  55
  56 static struct perf_pmu_event_symbol *perf_pmu_events_list;
  57 /*
  58  * The variable indicates the number of supported pmu event symbols.
  59  * 0 means not initialized and ready to init
  60  * -1 means failed to init, don't try anymore
  61  * >0 is the number of supported pmu event symbols
  62  */
  63 static int perf_pmu_events_list_num;
  64
  65 struct event_symbol event_symbols_hw[PERF_COUNT_HW_MAX] = {
  66         [PERF_COUNT_HW_CPU_CYCLES] = {
  67                 .symbol = "cpu-cycles",
  68                 .alias  = "cycles",
  69         },
  70         [PERF_COUNT_HW_INSTRUCTIONS] = {
  71                 .symbol = "instructions",
  72                 .alias  = "",
  73         },
  74         [PERF_COUNT_HW_CACHE_REFERENCES] = {
  75                 .symbol = "cache-references",
  76                 .alias  = "",
  77         },
  78         [PERF_COUNT_HW_CACHE_MISSES] = {
  79                 .symbol = "cache-misses",
  80                 .alias  = "",
  81         },
  82         [PERF_COUNT_HW_BRANCH_INSTRUCTIONS] = {
  83                 .symbol = "branch-instructions",
  84                 .alias  = "branches",
  85         },
  86         [PERF_COUNT_HW_BRANCH_MISSES] = {
  87                 .symbol = "branch-misses",
  88                 .alias  = "",
  89         },
  90         [PERF_COUNT_HW_BUS_CYCLES] = {
  91                 .symbol = "bus-cycles",
  92                 .alias  = "",
  93         },
  94         [PERF_COUNT_HW_STALLED_CYCLES_FRONTEND] = {
  95                 .symbol = "stalled-cycles-frontend",
  96                 .alias  = "idle-cycles-frontend",
  97         },
  98         [PERF_COUNT_HW_STALLED_CYCLES_BACKEND] = {
  99                 .symbol = "stalled-cycles-backend",
 100                 .alias  = "idle-cycles-backend",
 101         },
 102         [PERF_COUNT_HW_REF_CPU_CYCLES] = {
 103                 .symbol = "ref-cycles",
 104                 .alias  = "",
 105         },
 106 };
 107
 108 struct event_symbol event_symbols_sw[PERF_COUNT_SW_MAX] = {
 109         [PERF_COUNT_SW_CPU_CLOCK] = {
 110                 .symbol = "cpu-clock",
 111                 .alias  = "",
 112         },
 113         [PERF_COUNT_SW_TASK_CLOCK] = {
 114                 .symbol = "task-clock",
 115                 .alias  = "",
 116         },
 117         [PERF_COUNT_SW_PAGE_FAULTS] = {
 118                 .symbol = "page-faults",
 119                 .alias  = "faults",
 120         },
 121         [PERF_COUNT_SW_CONTEXT_SWITCHES] = {
 122                 .symbol = "context-switches",
 123                 .alias  = "cs",
 124         },
 125         [PERF_COUNT_SW_CPU_MIGRATIONS] = {
 126                 .symbol = "cpu-migrations",
 127                 .alias  = "migrations",
 128         },
 129         [PERF_COUNT_SW_PAGE_FAULTS_MIN] = {
 130                 .symbol = "minor-faults",
 131                 .alias  = "",
 132         },
 133         [PERF_COUNT_SW_PAGE_FAULTS_MAJ] = {
 134                 .symbol = "major-faults",
 135                 .alias  = "",
 136         },
 137         [PERF_COUNT_SW_ALIGNMENT_FAULTS] = {
 138                 .symbol = "alignment-faults",
 139                 .alias  = "",
 140         },
 141         [PERF_COUNT_SW_EMULATION_FAULTS] = {
 142                 .symbol = "emulation-faults",
 143                 .alias  = "",
 144         },
 145         [PERF_COUNT_SW_DUMMY] = {
 146                 .symbol = "dummy",
 147                 .alias  = "",
 148         },
 149         [PERF_COUNT_SW_BPF_OUTPUT] = {
 150                 .symbol = "bpf-output",
 151                 .alias  = "",
 152         },
 153         [PERF_COUNT_SW_CGROUP_SWITCHES] = {
 154                 .symbol = "cgroup-switches",
 155                 .alias  = "",
 156         },
 157 };
 158
 159 #define __PERF_EVENT_FIELD(config, name) \
 160         ((config & PERF_EVENT_##name##_MASK) >> PERF_EVENT_##name##_SHIFT)
 161
 162 #define PERF_EVENT_RAW(config)          __PERF_EVENT_FIELD(config, RAW)
 163 #define PERF_EVENT_CONFIG(config)       __PERF_EVENT_FIELD(config, CONFIG)
 164 #define PERF_EVENT_TYPE(config)         __PERF_EVENT_FIELD(config, TYPE)
 165 #define PERF_EVENT_ID(config)           __PERF_EVENT_FIELD(config, EVENT)
 166
 167 #define for_each_subsystem(sys_dir, sys_dirent)                 \
 168         while ((sys_dirent = readdir(sys_dir)) != NULL)         \
 169                 if (sys_dirent->d_type == DT_DIR &&             \
 170                     (strcmp(sys_dirent->d_name, ".")) &&        \
 171                     (strcmp(sys_dirent->d_name, "..")))
 172
 173 static int tp_event_has_id(const char *dir_path, struct dirent *evt_dir)
 174 {
 175         char evt_path[MAXPATHLEN];
 176         int fd;
 177
 178         snprintf(evt_path, MAXPATHLEN, "%s/%s/id", dir_path, evt_dir->d_name);
 179         fd = open(evt_path, O_RDONLY);
 180         if (fd < 0)
 181                 return -EINVAL;
 182         close(fd);
 183
 184         return 0;
 185 }
 186
 187 #define for_each_event(dir_path, evt_dir, evt_dirent)           \
 188         while ((evt_dirent = readdir(evt_dir)) != NULL)         \
 189                 if (evt_dirent->d_type == DT_DIR &&             \
 190                     (strcmp(evt_dirent->d_name, ".")) &&        \
 191                     (strcmp(evt_dirent->d_name, "..")) &&       \
 192                     (!tp_event_has_id(dir_path, evt_dirent)))
 193
 194 #define MAX_EVENT_LENGTH 512
 195
 196 void parse_events__handle_error(struct parse_events_error *err, int idx,
 197                                 char *str, char *help)
 198 {
 199         if (WARN(!str, "WARNING: failed to provide error string\n")) {
 200                 free(help);
 201                 return;
 202         }
 203         switch (err->num_errors) {
 204         case 0:
 205                 err->idx = idx;
 206                 err->str = str;
 207                 err->help = help;
 208                 break;
 209         case 1:
 210                 err->first_idx = err->idx;
 211                 err->idx = idx;
 212                 err->first_str = err->str;
 213                 err->str = str;
 214                 err->first_help = err->help;
 215                 err->help = help;
 216                 break;
 217         default:
 218                 pr_debug("Multiple errors dropping message: %s (%s)\n",
 219                         err->str, err->help);
 220                 free(err->str);
 221                 err->str = str;
 222                 free(err->help);
 223                 err->help = help;
 224                 break;
 225         }
 226         err->num_errors++;
 227 }
 228
 229 struct tracepoint_path *tracepoint_id_to_path(u64 config)
 230 {
 231         struct tracepoint_path *path = NULL;
 232         DIR *sys_dir, *evt_dir;
 233         struct dirent *sys_dirent, *evt_dirent;
 234         char id_buf[24];
 235         int fd;
 236         u64 id;
 237         char evt_path[MAXPATHLEN];
 238         char *dir_path;
 239
 240         sys_dir = tracing_events__opendir();
 241         if (!sys_dir)
 242                 return NULL;
 243
 244         for_each_subsystem(sys_dir, sys_dirent) {
 245                 dir_path = get_events_file(sys_dirent->d_name);
 246                 if (!dir_path)
 247                         continue;
 248                 evt_dir = opendir(dir_path);
 249                 if (!evt_dir)
 250                         goto next;
 251
 252                 for_each_event(dir_path, evt_dir, evt_dirent) {
 253
 254                         scnprintf(evt_path, MAXPATHLEN, "%s/%s/id", dir_path,
 255                                   evt_dirent->d_name);
 256                         fd = open(evt_path, O_RDONLY);
 257                         if (fd < 0)
 258                                 continue;
 259                         if (read(fd, id_buf, sizeof(id_buf)) < 0) {
 260                                 close(fd);
 261                                 continue;
 262                         }
 263                         close(fd);
 264                         id = atoll(id_buf);
 265                         if (id == config) {
 266                                 put_events_file(dir_path);
 267                                 closedir(evt_dir);
 268                                 closedir(sys_dir);
 269                                 path = zalloc(sizeof(*path));
 270                                 if (!path)
 271                                         return NULL;
 272                                 if (asprintf(&path->system, "%.*s", MAX_EVENT_LENGTH, sys_dirent->d_name) < 0) {
 273                                         free(path);
 274                                         return NULL;
 275                                 }
 276                                 if (asprintf(&path->name, "%.*s", MAX_EVENT_LENGTH, evt_dirent->d_name) < 0) {
 277                                         zfree(&path->system);
 278                                         free(path);
 279                                         return NULL;
 280                                 }
 281                                 return path;
 282                         }
 283                 }
 284                 closedir(evt_dir);
 285 next:
 286                 put_events_file(dir_path);
 287         }
 288
 289         closedir(sys_dir);
 290         return NULL;
 291 }
 292
 293 struct tracepoint_path *tracepoint_name_to_path(const char *name)
 294 {
 295         struct tracepoint_path *path = zalloc(sizeof(*path));
 296         char *str = strchr(name, ':');
 297
 298         if (path == NULL || str == NULL) {
 299                 free(path);
 300                 return NULL;
 301         }
 302
 303         path->system = strndup(name, str - name);
 304         path->name = strdup(str+1);
 305
 306         if (path->system == NULL || path->name == NULL) {
 307                 zfree(&path->system);
 308                 zfree(&path->name);
 309                 zfree(&path);
 310         }
 311
 312         return path;
 313 }
 314
 315 const char *event_type(int type)
 316 {
 317         switch (type) {
 318         case PERF_TYPE_HARDWARE:
 319                 return "hardware";
 320
 321         case PERF_TYPE_SOFTWARE:
 322                 return "software";
 323
 324         case PERF_TYPE_TRACEPOINT:
 325                 return "tracepoint";
 326
 327         case PERF_TYPE_HW_CACHE:
 328                 return "hardware-cache";
 329
 330         default:
 331                 break;
 332         }
 333
 334         return "unknown";
 335 }
 336
 337 static int parse_events__is_name_term(struct parse_events_term *term)
 338 {
 339         return term->type_term == PARSE_EVENTS__TERM_TYPE_NAME;
 340 }
 341
 342 static char *get_config_name(struct list_head *head_terms)
 343 {
 344         struct parse_events_term *term;
 345
 346         if (!head_terms)
 347                 return NULL;
 348
 349         list_for_each_entry(term, head_terms, list)
 350                 if (parse_events__is_name_term(term))
 351                         return term->val.str;
 352
 353         return NULL;
 354 }
 355
 356 static struct evsel *
 357 __add_event(struct list_head *list, int *idx,
 358             struct perf_event_attr *attr,
 359             bool init_attr,
 360             char *name, struct perf_pmu *pmu,
 361             struct list_head *config_terms, bool auto_merge_stats,
 362             const char *cpu_list)
 363 {
 364         struct evsel *evsel;
 365         struct perf_cpu_map *cpus = pmu ? perf_cpu_map__get(pmu->cpus) :
 366                                cpu_list ? perf_cpu_map__new(cpu_list) : NULL;
 367
 368         if (pmu && attr->type == PERF_TYPE_RAW)
 369                 perf_pmu__warn_invalid_config(pmu, attr->config, name);
 370
 371         if (init_attr)
 372                 event_attr_init(attr);
 373
 374         evsel = evsel__new_idx(attr, *idx);
 375         if (!evsel) {
 376                 perf_cpu_map__put(cpus);
 377                 return NULL;
 378         }
 379
 380         (*idx)++;
 381         evsel->core.cpus = cpus;
 382         evsel->core.own_cpus = perf_cpu_map__get(cpus);
 383         evsel->core.system_wide = pmu ? pmu->is_uncore : false;
 384         evsel->auto_merge_stats = auto_merge_stats;
 385
 386         if (name)
 387                 evsel->name = strdup(name);
 388
 389         if (config_terms)
 390                 list_splice(config_terms, &evsel->config_terms);
 391
 392         if (list)
 393                 list_add_tail(&evsel->core.node, list);
 394
 395         return evsel;
 396 }
 397
 398 struct evsel *parse_events__add_event(int idx, struct perf_event_attr *attr,
 399                                         char *name, struct perf_pmu *pmu)
 400 {
 401         return __add_event(NULL, &idx, attr, false, name, pmu, NULL, false,
 402                            NULL);
 403 }
 404
 405 static int add_event(struct list_head *list, int *idx,
 406                      struct perf_event_attr *attr, char *name,
 407                      struct list_head *config_terms)
 408 {
 409         return __add_event(list, idx, attr, true, name, NULL, config_terms,
 410                            false, NULL) ? 0 : -ENOMEM;
 411 }
 412
 413 static int add_event_tool(struct list_head *list, int *idx,
 414                           enum perf_tool_event tool_event)
 415 {
 416         struct evsel *evsel;
 417         struct perf_event_attr attr = {
 418                 .type = PERF_TYPE_SOFTWARE,
 419                 .config = PERF_COUNT_SW_DUMMY,
 420         };
 421
 422         evsel = __add_event(list, idx, &attr, true, NULL, NULL, NULL, false,
 423                             "0");
 424         if (!evsel)
 425                 return -ENOMEM;
 426         evsel->tool_event = tool_event;
 427         if (tool_event == PERF_TOOL_DURATION_TIME)
 428                 evsel->unit = "ns";
 429         return 0;
 430 }
 431
 432 static int parse_aliases(char *str, const char *names[][EVSEL__MAX_ALIASES], int size)
 433 {
 434         int i, j;
 435         int n, longest = -1;
 436
 437         for (i = 0; i < size; i++) {
 438                 for (j = 0; j < EVSEL__MAX_ALIASES && names[i][j]; j++) {
 439                         n = strlen(names[i][j]);
 440                         if (n > longest && !strncasecmp(str, names[i][j], n))
 441                                 longest = n;
 442                 }
 443                 if (longest > 0)
 444                         return i;
 445         }
 446
 447         return -1;
 448 }
 449
 450 typedef int config_term_func_t(struct perf_event_attr *attr,
 451                                struct parse_events_term *term,
 452                                struct parse_events_error *err);
 453 static int config_term_common(struct perf_event_attr *attr,
 454                               struct parse_events_term *term,
 455                               struct parse_events_error *err);
 456 static int config_attr(struct perf_event_attr *attr,
 457                        struct list_head *head,
 458                        struct parse_events_error *err,
 459                        config_term_func_t config_term);
 460
 461 int parse_events_add_cache(struct list_head *list, int *idx,
 462                            char *type, char *op_result1, char *op_result2,
 463                            struct parse_events_error *err,
 464                            struct list_head *head_config,
 465                            struct parse_events_state *parse_state)
 466 {
 467         struct perf_event_attr attr;
 468         LIST_HEAD(config_terms);
 469         char name[MAX_NAME_LEN], *config_name;
 470         int cache_type = -1, cache_op = -1, cache_result = -1;
 471         char *op_result[2] = { op_result1, op_result2 };
 472         int i, n, ret;
 473         bool hybrid;
 474
 475         /*
 476          * No fallback - if we cannot get a clear cache type
 477          * then bail out:
 478          */
 479         cache_type = parse_aliases(type, evsel__hw_cache, PERF_COUNT_HW_CACHE_MAX);
 480         if (cache_type == -1)
 481                 return -EINVAL;
 482
 483         config_name = get_config_name(head_config);
 484         n = snprintf(name, MAX_NAME_LEN, "%s", type);
 485
 486         for (i = 0; (i < 2) && (op_result[i]); i++) {
 487                 char *str = op_result[i];
 488
 489                 n += snprintf(name + n, MAX_NAME_LEN - n, "-%s", str);
 490
 491                 if (cache_op == -1) {
 492                         cache_op = parse_aliases(str, evsel__hw_cache_op,
 493                                                  PERF_COUNT_HW_CACHE_OP_MAX);
 494                         if (cache_op >= 0) {
 495                                 if (!evsel__is_cache_op_valid(cache_type, cache_op))
 496                                         return -EINVAL;
 497                                 continue;
 498                         }
 499                 }
 500
 501                 if (cache_result == -1) {
 502                         cache_result = parse_aliases(str, evsel__hw_cache_result,
 503                                                      PERF_COUNT_HW_CACHE_RESULT_MAX);
 504                         if (cache_result >= 0)
 505                                 continue;
 506                 }
 507         }
 508
 509         /*
 510          * Fall back to reads:
 511          */
 512         if (cache_op == -1)
 513                 cache_op = PERF_COUNT_HW_CACHE_OP_READ;
 514
 515         /*
 516          * Fall back to accesses:
 517          */
 518         if (cache_result == -1)
 519                 cache_result = PERF_COUNT_HW_CACHE_RESULT_ACCESS;
 520
 521         memset(&attr, 0, sizeof(attr));
 522         attr.config = cache_type | (cache_op << 8) | (cache_result << 16);
 523         attr.type = PERF_TYPE_HW_CACHE;
 524
 525         if (head_config) {
 526                 if (config_attr(&attr, head_config, err,
 527                                 config_term_common))
 528                         return -EINVAL;
 529
 530                 if (get_config_terms(head_config, &config_terms))
 531                         return -ENOMEM;
 532         }
 533
 534         ret = parse_events__add_cache_hybrid(list, idx, &attr,
 535                                              config_name ? : name, &config_terms,
 536                                              &hybrid, parse_state);
 537         if (hybrid)
 538                 return ret;
 539
 540         return add_event(list, idx, &attr, config_name ? : name, &config_terms);
 541 }
 542
 543 static void tracepoint_error(struct parse_events_error *e, int err,
 544                              const char *sys, const char *name)
 545 {
 546         const char *str;
 547         char help[BUFSIZ];
 548
 549         if (!e)
 550                 return;
 551
 552         /*
 553          * We get error directly from syscall errno ( > 0),
 554          * or from encoded pointer's error ( < 0).
 555          */
 556         err = abs(err);
 557
 558         switch (err) {
 559         case EACCES:
 560                 str = "can't access trace events";
 561                 break;
 562         case ENOENT:
 563                 str = "unknown tracepoint";
 564                 break;
 565         default:
 566                 str = "failed to add tracepoint";
 567                 break;
 568         }
 569
 570         tracing_path__strerror_open_tp(err, help, sizeof(help), sys, name);
 571         parse_events__handle_error(e, 0, strdup(str), strdup(help));
 572 }
 573
 574 static int add_tracepoint(struct list_head *list, int *idx,
 575                           const char *sys_name, const char *evt_name,
 576                           struct parse_events_error *err,
 577                           struct list_head *head_config)
 578 {
 579         struct evsel *evsel = evsel__newtp_idx(sys_name, evt_name, (*idx)++);
 580
 581         if (IS_ERR(evsel)) {
 582                 tracepoint_error(err, PTR_ERR(evsel), sys_name, evt_name);
 583                 return PTR_ERR(evsel);
 584         }
 585
 586         if (head_config) {
 587                 LIST_HEAD(config_terms);
 588
 589                 if (get_config_terms(head_config, &config_terms))
 590                         return -ENOMEM;
 591                 list_splice(&config_terms, &evsel->config_terms);
 592         }
 593
 594         list_add_tail(&evsel->core.node, list);
 595         return 0;
 596 }
 597
 598 static int add_tracepoint_multi_event(struct list_head *list, int *idx,
 599                                       const char *sys_name, const char *evt_name,
 600                                       struct parse_events_error *err,
 601                                       struct list_head *head_config)
 602 {
 603         char *evt_path;
 604         struct dirent *evt_ent;
 605         DIR *evt_dir;
 606         int ret = 0, found = 0;
 607
 608         evt_path = get_events_file(sys_name);
 609         if (!evt_path) {
 610                 tracepoint_error(err, errno, sys_name, evt_name);
 611                 return -1;
 612         }
 613         evt_dir = opendir(evt_path);
 614         if (!evt_dir) {
 615                 put_events_file(evt_path);
 616                 tracepoint_error(err, errno, sys_name, evt_name);
 617                 return -1;
 618         }
 619
 620         while (!ret && (evt_ent = readdir(evt_dir))) {
 621                 if (!strcmp(evt_ent->d_name, ".")
 622                     || !strcmp(evt_ent->d_name, "..")
 623                     || !strcmp(evt_ent->d_name, "enable")
 624                     || !strcmp(evt_ent->d_name, "filter"))
 625                         continue;
 626
 627                 if (!strglobmatch(evt_ent->d_name, evt_name))
 628                         continue;
 629
 630                 found++;
 631
 632                 ret = add_tracepoint(list, idx, sys_name, evt_ent->d_name,
 633                                      err, head_config);
 634         }
 635
 636         if (!found) {
 637                 tracepoint_error(err, ENOENT, sys_name, evt_name);
 638                 ret = -1;
 639         }
 640
 641         put_events_file(evt_path);
 642         closedir(evt_dir);
 643         return ret;
 644 }
 645
 646 static int add_tracepoint_event(struct list_head *list, int *idx,
 647                                 const char *sys_name, const char *evt_name,
 648                                 struct parse_events_error *err,
 649                                 struct list_head *head_config)
 650 {
 651         return strpbrk(evt_name, "*?") ?
 652                add_tracepoint_multi_event(list, idx, sys_name, evt_name,
 653                                           err, head_config) :
 654                add_tracepoint(list, idx, sys_name, evt_name,
 655                               err, head_config);
 656 }
 657
 658 static int add_tracepoint_multi_sys(struct list_head *list, int *idx,
 659                                     const char *sys_name, const char *evt_name,
 660                                     struct parse_events_error *err,
 661                                     struct list_head *head_config)
 662 {
 663         struct dirent *events_ent;
 664         DIR *events_dir;
 665         int ret = 0;
 666
 667         events_dir = tracing_events__opendir();
 668         if (!events_dir) {
 669                 tracepoint_error(err, errno, sys_name, evt_name);
 670                 return -1;
 671         }
 672
 673         while (!ret && (events_ent = readdir(events_dir))) {
 674                 if (!strcmp(events_ent->d_name, ".")
 675                     || !strcmp(events_ent->d_name, "..")
 676                     || !strcmp(events_ent->d_name, "enable")
 677                     || !strcmp(events_ent->d_name, "header_event")
 678                     || !strcmp(events_ent->d_name, "header_page"))
 679                         continue;
 680
 681                 if (!strglobmatch(events_ent->d_name, sys_name))
 682                         continue;
 683
 684                 ret = add_tracepoint_event(list, idx, events_ent->d_name,
 685                                            evt_name, err, head_config);
 686         }
 687
 688         closedir(events_dir);
 689         return ret;
 690 }
 691
 692 #ifdef HAVE_LIBBPF_SUPPORT
 693 struct __add_bpf_event_param {
 694         struct parse_events_state *parse_state;
 695         struct list_head *list;
 696         struct list_head *head_config;
 697 };
 698
 699 static int add_bpf_event(const char *group, const char *event, int fd, struct bpf_object *obj,
 700                          void *_param)
 701 {
 702         LIST_HEAD(new_evsels);
 703         struct __add_bpf_event_param *param = _param;
 704         struct parse_events_state *parse_state = param->parse_state;
 705         struct list_head *list = param->list;
 706         struct evsel *pos;
 707         int err;
 708         /*
 709          * Check if we should add the event, i.e. if it is a TP but starts with a '!',
 710          * then don't add the tracepoint, this will be used for something else, like
 711          * adding to a BPF_MAP_TYPE_PROG_ARRAY.
 712          *
 713          * See tools/perf/examples/bpf/augmented_raw_syscalls.c
 714          */
 715         if (group[0] == '!')
 716                 return 0;
 717
 718         pr_debug("add bpf event %s:%s and attach bpf program %d\n",
 719                  group, event, fd);
 720
 721         err = parse_events_add_tracepoint(&new_evsels, &parse_state->idx, group,
 722                                           event, parse_state->error,
 723                                           param->head_config);
 724         if (err) {
 725                 struct evsel *evsel, *tmp;
 726
 727                 pr_debug("Failed to add BPF event %s:%s\n",
 728                          group, event);
 729                 list_for_each_entry_safe(evsel, tmp, &new_evsels, core.node) {
 730                         list_del_init(&evsel->core.node);
 731                         evsel__delete(evsel);
 732                 }
 733                 return err;
 734         }
 735         pr_debug("adding %s:%s\n", group, event);
 736
 737         list_for_each_entry(pos, &new_evsels, core.node) {
 738                 pr_debug("adding %s:%s to %p\n",
 739                          group, event, pos);
 740                 pos->bpf_fd = fd;
 741                 pos->bpf_obj = obj;
 742         }
 743         list_splice(&new_evsels, list);
 744         return 0;
 745 }
 746
 747 int parse_events_load_bpf_obj(struct parse_events_state *parse_state,
 748                               struct list_head *list,
 749                               struct bpf_object *obj,
 750                               struct list_head *head_config)
 751 {
 752         int err;
 753         char errbuf[BUFSIZ];
 754         struct __add_bpf_event_param param = {parse_state, list, head_config};
 755         static bool registered_unprobe_atexit = false;
 756
 757         if (IS_ERR(obj) || !obj) {
 758                 snprintf(errbuf, sizeof(errbuf),
 759                          "Internal error: load bpf obj with NULL");
 760                 err = -EINVAL;
 761                 goto errout;
 762         }
 763
 764         /*
 765          * Register atexit handler before calling bpf__probe() so
 766          * bpf__probe() don't need to unprobe probe points its already
 767          * created when failure.
 768          */
 769         if (!registered_unprobe_atexit) {
 770                 atexit(bpf__clear);
 771                 registered_unprobe_atexit = true;
 772         }
 773
 774         err = bpf__probe(obj);
 775         if (err) {
 776                 bpf__strerror_probe(obj, err, errbuf, sizeof(errbuf));
 777                 goto errout;
 778         }
 779
 780         err = bpf__load(obj);
 781         if (err) {
 782                 bpf__strerror_load(obj, err, errbuf, sizeof(errbuf));
 783                 goto errout;
 784         }
 785
 786         err = bpf__foreach_event(obj, add_bpf_event, &param);
 787         if (err) {
 788                 snprintf(errbuf, sizeof(errbuf),
 789                          "Attach events in BPF object failed");
 790                 goto errout;
 791         }
 792
 793         return 0;
 794 errout:
 795         parse_events__handle_error(parse_state->error, 0,
 796                                 strdup(errbuf), strdup("(add -v to see detail)"));
 797         return err;
 798 }
 799
 800 static int
 801 parse_events_config_bpf(struct parse_events_state *parse_state,
 802                         struct bpf_object *obj,
 803                         struct list_head *head_config)
 804 {
 805         struct parse_events_term *term;
 806         int error_pos;
 807
 808         if (!head_config || list_empty(head_config))
 809                 return 0;
 810
 811         list_for_each_entry(term, head_config, list) {
 812                 int err;
 813
 814                 if (term->type_term != PARSE_EVENTS__TERM_TYPE_USER) {
 815                         parse_events__handle_error(parse_state->error, term->err_term,
 816                                                 strdup("Invalid config term for BPF object"),
 817                                                 NULL);
 818                         return -EINVAL;
 819                 }
 820
 821                 err = bpf__config_obj(obj, term, parse_state->evlist, &error_pos);
 822                 if (err) {
 823                         char errbuf[BUFSIZ];
 824                         int idx;
 825
 826                         bpf__strerror_config_obj(obj, term, parse_state->evlist,
 827                                                  &error_pos, err, errbuf,
 828                                                  sizeof(errbuf));
 829
 830                         if (err == -BPF_LOADER_ERRNO__OBJCONF_MAP_VALUE)
 831                                 idx = term->err_val;
 832                         else
 833                                 idx = term->err_term + error_pos;
 834
 835                         parse_events__handle_error(parse_state->error, idx,
 836                                                 strdup(errbuf),
 837                                                 strdup(
 838 "Hint:\tValid config terms:\n"
 839 "     \tmap:[<arraymap>].value<indices>=[value]\n"
 840 "     \tmap:[<eventmap>].event<indices>=[event]\n"
 841 "\n"
 842 "     \twhere <indices> is something like [0,3...5] or [all]\n"
 843 "     \t(add -v to see detail)"));
 844                         return err;
 845                 }
 846         }
 847         return 0;
 848 }
 849
 850 /*
 851  * Split config terms:
 852  * perf record -e bpf.c/call-graph=fp,map:array.value[0]=1/ ...
 853  *  'call-graph=fp' is 'evt config', should be applied to each
 854  *  events in bpf.c.
 855  * 'map:array.value[0]=1' is 'obj config', should be processed
 856  * with parse_events_config_bpf.
 857  *
 858  * Move object config terms from the first list to obj_head_config.
 859  */
 860 static void
 861 split_bpf_config_terms(struct list_head *evt_head_config,
 862                        struct list_head *obj_head_config)
 863 {
 864         struct parse_events_term *term, *temp;
 865
 866         /*
 867          * Currently, all possible user config term
 868          * belong to bpf object. parse_events__is_hardcoded_term()
 869          * happens to be a good flag.
 870          *
 871          * See parse_events_config_bpf() and
 872          * config_term_tracepoint().
 873          */
 874         list_for_each_entry_safe(term, temp, evt_head_config, list)
 875                 if (!parse_events__is_hardcoded_term(term))
 876                         list_move_tail(&term->list, obj_head_config);
 877 }
 878
 879 int parse_events_load_bpf(struct parse_events_state *parse_state,
 880                           struct list_head *list,
 881                           char *bpf_file_name,
 882                           bool source,
 883                           struct list_head *head_config)
 884 {
 885         int err;
 886         struct bpf_object *obj;
 887         LIST_HEAD(obj_head_config);
 888
 889         if (head_config)
 890                 split_bpf_config_terms(head_config, &obj_head_config);
 891
 892         obj = bpf__prepare_load(bpf_file_name, source);
 893         if (IS_ERR(obj)) {
 894                 char errbuf[BUFSIZ];
 895
 896                 err = PTR_ERR(obj);
 897
 898                 if (err == -ENOTSUP)
 899                         snprintf(errbuf, sizeof(errbuf),
 900                                  "BPF support is not compiled");
 901                 else
 902                         bpf__strerror_prepare_load(bpf_file_name,
 903                                                    source,
 904                                                    -err, errbuf,
 905                                                    sizeof(errbuf));
 906
 907                 parse_events__handle_error(parse_state->error, 0,
 908                                         strdup(errbuf), strdup("(add -v to see detail)"));
 909                 return err;
 910         }
 911
 912         err = parse_events_load_bpf_obj(parse_state, list, obj, head_config);
 913         if (err)
 914                 return err;
 915         err = parse_events_config_bpf(parse_state, obj, &obj_head_config);
 916
 917         /*
 918          * Caller doesn't know anything about obj_head_config,
 919          * so combine them together again before returning.
 920          */
 921         if (head_config)
 922                 list_splice_tail(&obj_head_config, head_config);
 923         return err;
 924 }
 925 #else // HAVE_LIBBPF_SUPPORT
 926 int parse_events_load_bpf_obj(struct parse_events_state *parse_state,
 927                               struct list_head *list __maybe_unused,
 928                               struct bpf_object *obj __maybe_unused,
 929                               struct list_head *head_config __maybe_unused)
 930 {
 931         parse_events__handle_error(parse_state->error, 0,
 932                                    strdup("BPF support is not compiled"),
 933                                    strdup("Make sure libbpf-devel is available at build time."));
 934         return -ENOTSUP;
 935 }
 936
 937 int parse_events_load_bpf(struct parse_events_state *parse_state,
 938                           struct list_head *list __maybe_unused,
 939                           char *bpf_file_name __maybe_unused,
 940                           bool source __maybe_unused,
 941                           struct list_head *head_config __maybe_unused)
 942 {
 943         parse_events__handle_error(parse_state->error, 0,
 944                                    strdup("BPF support is not compiled"),
 945                                    strdup("Make sure libbpf-devel is available at build time."));
 946         return -ENOTSUP;
 947 }
 948 #endif // HAVE_LIBBPF_SUPPORT
 949
 950 static int
 951 parse_breakpoint_type(const char *type, struct perf_event_attr *attr)
 952 {
 953         int i;
 954
 955         for (i = 0; i < 3; i++) {
 956                 if (!type || !type[i])
 957                         break;
 958
 959 #define CHECK_SET_TYPE(bit)             \
 960 do {                                    \
 961         if (attr->bp_type & bit)        \
 962                 return -EINVAL;         \
 963         else                            \
 964                 attr->bp_type |= bit;   \
 965 } while (0)
 966
 967                 switch (type[i]) {
 968                 case 'r':
 969                         CHECK_SET_TYPE(HW_BREAKPOINT_R);
 970                         break;
 971                 case 'w':
 972                         CHECK_SET_TYPE(HW_BREAKPOINT_W);
 973                         break;
 974                 case 'x':
 975                         CHECK_SET_TYPE(HW_BREAKPOINT_X);
 976                         break;
 977                 default:
 978                         return -EINVAL;
 979                 }
 980         }
 981
 982 #undef CHECK_SET_TYPE
 983
 984         if (!attr->bp_type) /* Default */
 985                 attr->bp_type = HW_BREAKPOINT_R | HW_BREAKPOINT_W;
 986
 987         return 0;
 988 }
 989
 990 int parse_events_add_breakpoint(struct list_head *list, int *idx,
 991                                 u64 addr, char *type, u64 len)
 992 {
 993         struct perf_event_attr attr;
 994
 995         memset(&attr, 0, sizeof(attr));
 996         attr.bp_addr = addr;
 997
 998         if (parse_breakpoint_type(type, &attr))
 999                 return -EINVAL;
1000
1001         /* Provide some defaults if len is not specified */
1002         if (!len) {
1003                 if (attr.bp_type == HW_BREAKPOINT_X)
1004                         len = sizeof(long);
1005                 else
1006                         len = HW_BREAKPOINT_LEN_4;
1007         }
1008
1009         attr.bp_len = len;
1010
1011         attr.type = PERF_TYPE_BREAKPOINT;
1012         attr.sample_period = 1;
1013
1014         return add_event(list, idx, &attr, NULL, NULL);
1015 }
1016
1017 static int check_type_val(struct parse_events_term *term,
1018                           struct parse_events_error *err,
1019                           int type)
1020 {
1021         if (type == term->type_val)
1022                 return 0;
1023
1024         if (err) {
1025                 parse_events__handle_error(err, term->err_val,
1026                                         type == PARSE_EVENTS__TERM_TYPE_NUM
1027                                         ? strdup("expected numeric value")
1028                                         : strdup("expected string value"),
1029                                         NULL);
1030         }
1031         return -EINVAL;
1032 }
1033
1034 /*
1035  * Update according to parse-events.l
1036  */
1037 static const char *config_term_names[__PARSE_EVENTS__TERM_TYPE_NR] = {
1038         [PARSE_EVENTS__TERM_TYPE_USER]                  = "<sysfs term>",
1039         [PARSE_EVENTS__TERM_TYPE_CONFIG]                = "config",
1040         [PARSE_EVENTS__TERM_TYPE_CONFIG1]               = "config1",
1041         [PARSE_EVENTS__TERM_TYPE_CONFIG2]               = "config2",
1042         [PARSE_EVENTS__TERM_TYPE_NAME]                  = "name",
1043         [PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD]         = "period",
1044         [PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ]           = "freq",
1045         [PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE]    = "branch_type",
1046         [PARSE_EVENTS__TERM_TYPE_TIME]                  = "time",
1047         [PARSE_EVENTS__TERM_TYPE_CALLGRAPH]             = "call-graph",
1048         [PARSE_EVENTS__TERM_TYPE_STACKSIZE]             = "stack-size",
1049         [PARSE_EVENTS__TERM_TYPE_NOINHERIT]             = "no-inherit",
1050         [PARSE_EVENTS__TERM_TYPE_INHERIT]               = "inherit",
1051         [PARSE_EVENTS__TERM_TYPE_MAX_STACK]             = "max-stack",
1052         [PARSE_EVENTS__TERM_TYPE_MAX_EVENTS]            = "nr",
1053         [PARSE_EVENTS__TERM_TYPE_OVERWRITE]             = "overwrite",
1054         [PARSE_EVENTS__TERM_TYPE_NOOVERWRITE]           = "no-overwrite",
1055         [PARSE_EVENTS__TERM_TYPE_DRV_CFG]               = "driver-config",
1056         [PARSE_EVENTS__TERM_TYPE_PERCORE]               = "percore",
1057         [PARSE_EVENTS__TERM_TYPE_AUX_OUTPUT]            = "aux-output",
1058         [PARSE_EVENTS__TERM_TYPE_AUX_SAMPLE_SIZE]       = "aux-sample-size",
1059 };
1060
1061 static bool config_term_shrinked;
1062
1063 static bool
1064 config_term_avail(int term_type, struct parse_events_error *err)
1065 {
1066         char *err_str;
1067
1068         if (term_type < 0 || term_type >= __PARSE_EVENTS__TERM_TYPE_NR) {
1069                 parse_events__handle_error(err, -1,
1070                                         strdup("Invalid term_type"), NULL);
1071                 return false;
1072         }
1073         if (!config_term_shrinked)
1074                 return true;
1075
1076         switch (term_type) {
1077         case PARSE_EVENTS__TERM_TYPE_CONFIG:
1078         case PARSE_EVENTS__TERM_TYPE_CONFIG1:
1079         case PARSE_EVENTS__TERM_TYPE_CONFIG2:
1080         case PARSE_EVENTS__TERM_TYPE_NAME:
1081         case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD:
1082         case PARSE_EVENTS__TERM_TYPE_PERCORE:
1083                 return true;
1084         default:
1085                 if (!err)
1086                         return false;
1087
1088                 /* term_type is validated so indexing is safe */
1089                 if (asprintf(&err_str, "'%s' is not usable in 'perf stat'",
1090                                 config_term_names[term_type]) >= 0)
1091                         parse_events__handle_error(err, -1, err_str, NULL);
1092                 return false;
1093         }
1094 }
1095
1096 void parse_events__shrink_config_terms(void)
1097 {
1098         config_term_shrinked = true;
1099 }
1100
1101 static int config_term_common(struct perf_event_attr *attr,
1102                               struct parse_events_term *term,
1103                               struct parse_events_error *err)
1104 {
1105 #define CHECK_TYPE_VAL(type)                                               \
1106 do {                                                                       \
1107         if (check_type_val(term, err, PARSE_EVENTS__TERM_TYPE_ ## type)) \
1108                 return -EINVAL;                                            \
1109 } while (0)
1110
1111         switch (term->type_term) {
1112         case PARSE_EVENTS__TERM_TYPE_CONFIG:
1113                 CHECK_TYPE_VAL(NUM);
1114                 attr->config = term->val.num;
1115                 break;
1116         case PARSE_EVENTS__TERM_TYPE_CONFIG1:
1117                 CHECK_TYPE_VAL(NUM);
1118                 attr->config1 = term->val.num;
1119                 break;
1120         case PARSE_EVENTS__TERM_TYPE_CONFIG2:
1121                 CHECK_TYPE_VAL(NUM);
1122                 attr->config2 = term->val.num;
1123                 break;
1124         case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD:
1125                 CHECK_TYPE_VAL(NUM);
1126                 break;
1127         case PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ:
1128                 CHECK_TYPE_VAL(NUM);
1129                 break;
1130         case PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE:
1131                 CHECK_TYPE_VAL(STR);
1132                 if (strcmp(term->val.str, "no") &&
1133                     parse_branch_str(term->val.str,
1134                                     &attr->branch_sample_type)) {
1135                         parse_events__handle_error(err, term->err_val,
1136                                         strdup("invalid branch sample type"),
1137                                         NULL);
1138                         return -EINVAL;
1139                 }
1140                 break;
1141         case PARSE_EVENTS__TERM_TYPE_TIME:
1142                 CHECK_TYPE_VAL(NUM);
1143                 if (term->val.num > 1) {
1144                         parse_events__handle_error(err, term->err_val,
1145                                                 strdup("expected 0 or 1"),
1146                                                 NULL);
1147                         return -EINVAL;
1148                 }
1149                 break;
1150         case PARSE_EVENTS__TERM_TYPE_CALLGRAPH:
1151                 CHECK_TYPE_VAL(STR);
1152                 break;
1153         case PARSE_EVENTS__TERM_TYPE_STACKSIZE:
1154                 CHECK_TYPE_VAL(NUM);
1155                 break;
1156         case PARSE_EVENTS__TERM_TYPE_INHERIT:
1157                 CHECK_TYPE_VAL(NUM);
1158                 break;
1159         case PARSE_EVENTS__TERM_TYPE_NOINHERIT:
1160                 CHECK_TYPE_VAL(NUM);
1161                 break;
1162         case PARSE_EVENTS__TERM_TYPE_OVERWRITE:
1163                 CHECK_TYPE_VAL(NUM);
1164                 break;
1165         case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE:
1166                 CHECK_TYPE_VAL(NUM);
1167                 break;
1168         case PARSE_EVENTS__TERM_TYPE_NAME:
1169                 CHECK_TYPE_VAL(STR);
1170                 break;
1171         case PARSE_EVENTS__TERM_TYPE_MAX_STACK:
1172                 CHECK_TYPE_VAL(NUM);
1173                 break;
1174         case PARSE_EVENTS__TERM_TYPE_MAX_EVENTS:
1175                 CHECK_TYPE_VAL(NUM);
1176                 break;
1177         case PARSE_EVENTS__TERM_TYPE_PERCORE:
1178                 CHECK_TYPE_VAL(NUM);
1179                 if ((unsigned int)term->val.num > 1) {
1180                         parse_events__handle_error(err, term->err_val,
1181                                                 strdup("expected 0 or 1"),
1182                                                 NULL);
1183                         return -EINVAL;
1184                 }
1185                 break;
1186         case PARSE_EVENTS__TERM_TYPE_AUX_OUTPUT:
1187                 CHECK_TYPE_VAL(NUM);
1188                 break;
1189         case PARSE_EVENTS__TERM_TYPE_AUX_SAMPLE_SIZE:
1190                 CHECK_TYPE_VAL(NUM);
1191                 if (term->val.num > UINT_MAX) {
1192                         parse_events__handle_error(err, term->err_val,
1193                                                 strdup("too big"),
1194                                                 NULL);
1195                         return -EINVAL;
1196                 }
1197                 break;
1198         default:
1199                 parse_events__handle_error(err, term->err_term,
1200                                 strdup("unknown term"),
1201                                 parse_events_formats_error_string(NULL));
1202                 return -EINVAL;
1203         }
1204
1205         /*
1206          * Check term availability after basic checking so
1207          * PARSE_EVENTS__TERM_TYPE_USER can be found and filtered.
1208          *
1209          * If check availability at the entry of this function,
1210          * user will see "'<sysfs term>' is not usable in 'perf stat'"
1211          * if an invalid config term is provided for legacy events
1212          * (for example, instructions/badterm/...), which is confusing.
1213          */
1214         if (!config_term_avail(term->type_term, err))
1215                 return -EINVAL;
1216         return 0;
1217 #undef CHECK_TYPE_VAL
1218 }
1219
1220 static int config_term_pmu(struct perf_event_attr *attr,
1221                            struct parse_events_term *term,
1222                            struct parse_events_error *err)
1223 {
1224         if (term->type_term == PARSE_EVENTS__TERM_TYPE_USER ||
1225             term->type_term == PARSE_EVENTS__TERM_TYPE_DRV_CFG)
1226                 /*
1227                  * Always succeed for sysfs terms, as we dont know
1228                  * at this point what type they need to have.
1229                  */
1230                 return 0;
1231         else
1232                 return config_term_common(attr, term, err);
1233 }
1234
1235 static int config_term_tracepoint(struct perf_event_attr *attr,
1236                                   struct parse_events_term *term,
1237                                   struct parse_events_error *err)
1238 {
1239         switch (term->type_term) {
1240         case PARSE_EVENTS__TERM_TYPE_CALLGRAPH:
1241         case PARSE_EVENTS__TERM_TYPE_STACKSIZE:
1242         case PARSE_EVENTS__TERM_TYPE_INHERIT:
1243         case PARSE_EVENTS__TERM_TYPE_NOINHERIT:
1244         case PARSE_EVENTS__TERM_TYPE_MAX_STACK:
1245         case PARSE_EVENTS__TERM_TYPE_MAX_EVENTS:
1246         case PARSE_EVENTS__TERM_TYPE_OVERWRITE:
1247         case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE:
1248         case PARSE_EVENTS__TERM_TYPE_AUX_OUTPUT:
1249         case PARSE_EVENTS__TERM_TYPE_AUX_SAMPLE_SIZE:
1250                 return config_term_common(attr, term, err);
1251         default:
1252                 if (err) {
1253                         parse_events__handle_error(err, term->err_term,
1254                                 strdup("unknown term"),
1255                                 strdup("valid terms: call-graph,stack-size\n"));
1256                 }
1257                 return -EINVAL;
1258         }
1259
1260         return 0;
1261 }
1262
1263 static int config_attr(struct perf_event_attr *attr,
1264                        struct list_head *head,
1265                        struct parse_events_error *err,
1266                        config_term_func_t config_term)
1267 {
1268         struct parse_events_term *term;
1269
1270         list_for_each_entry(term, head, list)
1271                 if (config_term(attr, term, err))
1272                         return -EINVAL;
1273
1274         return 0;
1275 }
1276
1277 static int get_config_terms(struct list_head *head_config,
1278                             struct list_head *head_terms __maybe_unused)
1279 {
1280 #define ADD_CONFIG_TERM(__type, __weak)                         \
1281         struct evsel_config_term *__t;                  \
1282                                                                 \
1283         __t = zalloc(sizeof(*__t));                             \
1284         if (!__t)                                               \
1285                 return -ENOMEM;                                 \
1286                                                                 \
1287         INIT_LIST_HEAD(&__t->list);                             \
1288         __t->type       = EVSEL__CONFIG_TERM_ ## __type;        \
1289         __t->weak       = __weak;                               \
1290         list_add_tail(&__t->list, head_terms)
1291
1292 #define ADD_CONFIG_TERM_VAL(__type, __name, __val, __weak)      \
1293 do {                                                            \
1294         ADD_CONFIG_TERM(__type, __weak);                        \
1295         __t->val.__name = __val;                                \
1296 } while (0)
1297
1298 #define ADD_CONFIG_TERM_STR(__type, __val, __weak)              \
1299 do {                                                            \
1300         ADD_CONFIG_TERM(__type, __weak);                        \
1301         __t->val.str = strdup(__val);                           \
1302         if (!__t->val.str) {                                    \
1303                 zfree(&__t);                                    \
1304                 return -ENOMEM;                                 \
1305         }                                                       \
1306         __t->free_str = true;                                   \
1307 } while (0)
1308
1309         struct parse_events_term *term;
1310
1311         list_for_each_entry(term, head_config, list) {
1312                 switch (term->type_term) {
1313                 case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD:
1314                         ADD_CONFIG_TERM_VAL(PERIOD, period, term->val.num, term->weak);
1315                         break;
1316                 case PARSE_EVENTS__TERM_TYPE_SAMPLE_FREQ:
1317                         ADD_CONFIG_TERM_VAL(FREQ, freq, term->val.num, term->weak);
1318                         break;
1319                 case PARSE_EVENTS__TERM_TYPE_TIME:
1320                         ADD_CONFIG_TERM_VAL(TIME, time, term->val.num, term->weak);
1321                         break;
1322                 case PARSE_EVENTS__TERM_TYPE_CALLGRAPH:
1323                         ADD_CONFIG_TERM_STR(CALLGRAPH, term->val.str, term->weak);
1324                         break;
1325                 case PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE:
1326                         ADD_CONFIG_TERM_STR(BRANCH, term->val.str, term->weak);
1327                         break;
1328                 case PARSE_EVENTS__TERM_TYPE_STACKSIZE:
1329                         ADD_CONFIG_TERM_VAL(STACK_USER, stack_user,
1330                                             term->val.num, term->weak);
1331                         break;
1332                 case PARSE_EVENTS__TERM_TYPE_INHERIT:
1333                         ADD_CONFIG_TERM_VAL(INHERIT, inherit,
1334                                             term->val.num ? 1 : 0, term->weak);
1335                         break;
1336                 case PARSE_EVENTS__TERM_TYPE_NOINHERIT:
1337                         ADD_CONFIG_TERM_VAL(INHERIT, inherit,
1338                                             term->val.num ? 0 : 1, term->weak);
1339                         break;
1340                 case PARSE_EVENTS__TERM_TYPE_MAX_STACK:
1341                         ADD_CONFIG_TERM_VAL(MAX_STACK, max_stack,
1342                                             term->val.num, term->weak);
1343                         break;
1344                 case PARSE_EVENTS__TERM_TYPE_MAX_EVENTS:
1345                         ADD_CONFIG_TERM_VAL(MAX_EVENTS, max_events,
1346                                             term->val.num, term->weak);
1347                         break;
1348                 case PARSE_EVENTS__TERM_TYPE_OVERWRITE:
1349                         ADD_CONFIG_TERM_VAL(OVERWRITE, overwrite,
1350                                             term->val.num ? 1 : 0, term->weak);
1351                         break;
1352                 case PARSE_EVENTS__TERM_TYPE_NOOVERWRITE:
1353                         ADD_CONFIG_TERM_VAL(OVERWRITE, overwrite,
1354                                             term->val.num ? 0 : 1, term->weak);
1355                         break;
1356                 case PARSE_EVENTS__TERM_TYPE_DRV_CFG:
1357                         ADD_CONFIG_TERM_STR(DRV_CFG, term->val.str, term->weak);
1358                         break;
1359                 case PARSE_EVENTS__TERM_TYPE_PERCORE:
1360                         ADD_CONFIG_TERM_VAL(PERCORE, percore,
1361                                             term->val.num ? true : false, term->weak);
1362                         break;
1363                 case PARSE_EVENTS__TERM_TYPE_AUX_OUTPUT:
1364                         ADD_CONFIG_TERM_VAL(AUX_OUTPUT, aux_output,
1365                                             term->val.num ? 1 : 0, term->weak);
1366                         break;
1367                 case PARSE_EVENTS__TERM_TYPE_AUX_SAMPLE_SIZE:
1368                         ADD_CONFIG_TERM_VAL(AUX_SAMPLE_SIZE, aux_sample_size,
1369                                             term->val.num, term->weak);
1370                         break;
1371                 default:
1372                         break;
1373                 }
1374         }
1375         return 0;
1376 }
1377
1378 /*
1379  * Add EVSEL__CONFIG_TERM_CFG_CHG where cfg_chg will have a bit set for
1380  * each bit of attr->config that the user has changed.
1381  */
1382 static int get_config_chgs(struct perf_pmu *pmu, struct list_head *head_config,
1383                            struct list_head *head_terms)
1384 {
1385         struct parse_events_term *term;
1386         u64 bits = 0;
1387         int type;
1388
1389         list_for_each_entry(term, head_config, list) {
1390                 switch (term->type_term) {
1391                 case PARSE_EVENTS__TERM_TYPE_USER:
1392                         type = perf_pmu__format_type(&pmu->format, term->config);
1393                         if (type != PERF_PMU_FORMAT_VALUE_CONFIG)
1394                                 continue;
1395                         bits |= perf_pmu__format_bits(&pmu->format, term->config);
1396                         break;
1397                 case PARSE_EVENTS__TERM_TYPE_CONFIG:
1398                         bits = ~(u64)0;
1399                         break;
1400                 default:
1401                         break;
1402                 }
1403         }
1404
1405         if (bits)
1406                 ADD_CONFIG_TERM_VAL(CFG_CHG, cfg_chg, bits, false);
1407
1408 #undef ADD_CONFIG_TERM
1409         return 0;
1410 }
1411
1412 int parse_events_add_tracepoint(struct list_head *list, int *idx,
1413                                 const char *sys, const char *event,
1414                                 struct parse_events_error *err,
1415                                 struct list_head *head_config)
1416 {
1417         if (head_config) {
1418                 struct perf_event_attr attr;
1419
1420                 if (config_attr(&attr, head_config, err,
1421                                 config_term_tracepoint))
1422                         return -EINVAL;
1423         }
1424
1425         if (strpbrk(sys, "*?"))
1426                 return add_tracepoint_multi_sys(list, idx, sys, event,
1427                                                 err, head_config);
1428         else
1429                 return add_tracepoint_event(list, idx, sys, event,
1430                                             err, head_config);
1431 }
1432
1433 int parse_events_add_numeric(struct parse_events_state *parse_state,
1434                              struct list_head *list,
1435                              u32 type, u64 config,
1436                              struct list_head *head_config)
1437 {
1438         struct perf_event_attr attr;
1439         LIST_HEAD(config_terms);
1440         bool hybrid;
1441         int ret;
1442
1443         memset(&attr, 0, sizeof(attr));
1444         attr.type = type;
1445         attr.config = config;
1446
1447         if (head_config) {
1448                 if (config_attr(&attr, head_config, parse_state->error,
1449                                 config_term_common))
1450                         return -EINVAL;
1451
1452                 if (get_config_terms(head_config, &config_terms))
1453                         return -ENOMEM;
1454         }
1455
1456         ret = parse_events__add_numeric_hybrid(parse_state, list, &attr,
1457                                                get_config_name(head_config),
1458                                                &config_terms, &hybrid);
1459         if (hybrid)
1460                 return ret;
1461
1462         return add_event(list, &parse_state->idx, &attr,
1463                          get_config_name(head_config), &config_terms);
1464 }
1465
1466 int parse_events_add_tool(struct parse_events_state *parse_state,
1467                           struct list_head *list,
1468                           enum perf_tool_event tool_event)
1469 {
1470         return add_event_tool(list, &parse_state->idx, tool_event);
1471 }
1472
1473 static bool config_term_percore(struct list_head *config_terms)
1474 {
1475         struct evsel_config_term *term;
1476
1477         list_for_each_entry(term, config_terms, list) {
1478                 if (term->type == EVSEL__CONFIG_TERM_PERCORE)
1479                         return term->val.percore;
1480         }
1481
1482         return false;
1483 }
1484
1485 static int parse_events__inside_hybrid_pmu(struct parse_events_state *parse_state,
1486                                            struct list_head *list, char *name,
1487                                            struct list_head *head_config)
1488 {
1489         struct parse_events_term *term;
1490         int ret = -1;
1491
1492         if (parse_state->fake_pmu || !head_config || list_empty(head_config) ||
1493             !perf_pmu__is_hybrid(name)) {
1494                 return -1;
1495         }
1496
1497         /*
1498          * More than one term in list.
1499          */
1500         if (head_config->next && head_config->next->next != head_config)
1501                 return -1;
1502
1503         term = list_first_entry(head_config, struct parse_events_term, list);
1504         if (term && term->config && strcmp(term->config, "event")) {
1505                 ret = parse_events__with_hybrid_pmu(parse_state, term->config,
1506                                                     name, list);
1507         }
1508
1509         return ret;
1510 }
1511
1512 int parse_events_add_pmu(struct parse_events_state *parse_state,
1513                          struct list_head *list, char *name,
1514                          struct list_head *head_config,
1515                          bool auto_merge_stats,
1516                          bool use_alias)
1517 {
1518         struct perf_event_attr attr;
1519         struct perf_pmu_info info;
1520         struct perf_pmu *pmu;
1521         struct evsel *evsel;
1522         struct parse_events_error *err = parse_state->error;
1523         bool use_uncore_alias;
1524         LIST_HEAD(config_terms);
1525
1526         if (verbose > 1) {
1527                 fprintf(stderr, "Attempting to add event pmu '%s' with '",
1528                         name);
1529                 if (head_config) {
1530                         struct parse_events_term *term;
1531
1532                         list_for_each_entry(term, head_config, list) {
1533                                 fprintf(stderr, "%s,", term->config);
1534                         }
1535                 }
1536                 fprintf(stderr, "' that may result in non-fatal errors\n");
1537         }
1538
1539         pmu = parse_state->fake_pmu ?: perf_pmu__find(name);
1540         if (!pmu) {
1541                 char *err_str;
1542
1543                 if (asprintf(&err_str,
1544                                 "Cannot find PMU `%s'. Missing kernel support?",
1545                                 name) >= 0)
1546                         parse_events__handle_error(err, 0, err_str, NULL);
1547                 return -EINVAL;
1548         }
1549
1550         if (pmu->default_config) {
1551                 memcpy(&attr, pmu->default_config,
1552                        sizeof(struct perf_event_attr));
1553         } else {
1554                 memset(&attr, 0, sizeof(attr));
1555         }
1556
1557         use_uncore_alias = (pmu->is_uncore && use_alias);
1558
1559         if (!head_config) {
1560                 attr.type = pmu->type;
1561                 evsel = __add_event(list, &parse_state->idx, &attr, true, NULL,
1562                                     pmu, NULL, auto_merge_stats, NULL);
1563                 if (evsel) {
1564                         evsel->pmu_name = name ? strdup(name) : NULL;
1565                         evsel->use_uncore_alias = use_uncore_alias;
1566                         return 0;
1567                 } else {
1568                         return -ENOMEM;
1569                 }
1570         }
1571
1572         if (!parse_state->fake_pmu && perf_pmu__check_alias(pmu, head_config, &info))
1573                 return -EINVAL;
1574
1575         if (verbose > 1) {
1576                 fprintf(stderr, "After aliases, add event pmu '%s' with '",
1577                         name);
1578                 if (head_config) {
1579                         struct parse_events_term *term;
1580
1581                         list_for_each_entry(term, head_config, list) {
1582                                 fprintf(stderr, "%s,", term->config);
1583                         }
1584                 }
1585                 fprintf(stderr, "' that may result in non-fatal errors\n");
1586         }
1587
1588         /*
1589          * Configure hardcoded terms first, no need to check
1590          * return value when called with fail == 0 ;)
1591          */
1592         if (config_attr(&attr, head_config, parse_state->error, config_term_pmu))
1593                 return -EINVAL;
1594
1595         if (get_config_terms(head_config, &config_terms))
1596                 return -ENOMEM;
1597
1598         /*
1599          * When using default config, record which bits of attr->config were
1600          * changed by the user.
1601          */
1602         if (pmu->default_config && get_config_chgs(pmu, head_config, &config_terms))
1603                 return -ENOMEM;
1604
1605         if (!parse_events__inside_hybrid_pmu(parse_state, list, name,
1606                                              head_config)) {
1607                 return 0;
1608         }
1609
1610         if (!parse_state->fake_pmu && perf_pmu__config(pmu, &attr, head_config, parse_state->error)) {
1611                 free_config_terms(&config_terms);
1612                 return -EINVAL;
1613         }
1614
1615         evsel = __add_event(list, &parse_state->idx, &attr, true,
1616                             get_config_name(head_config), pmu,
1617                             &config_terms, auto_merge_stats, NULL);
1618         if (!evsel)
1619                 return -ENOMEM;
1620
1621         if (evsel->name)
1622                 evsel->use_config_name = true;
1623
1624         evsel->pmu_name = name ? strdup(name) : NULL;
1625         evsel->use_uncore_alias = use_uncore_alias;
1626         evsel->percore = config_term_percore(&evsel->config_terms);
1627
1628         if (parse_state->fake_pmu)
1629                 return 0;
1630
1631         evsel->unit = info.unit;
1632         evsel->scale = info.scale;
1633         evsel->per_pkg = info.per_pkg;
1634         evsel->snapshot = info.snapshot;
1635         evsel->metric_expr = info.metric_expr;
1636         evsel->metric_name = info.metric_name;
1637         return 0;
1638 }
1639
1640 int parse_events_multi_pmu_add(struct parse_events_state *parse_state,
1641                                char *str, struct list_head **listp)
1642 {
1643         struct parse_events_term *term;
1644         struct list_head *list;
1645         struct perf_pmu *pmu = NULL;
1646         int ok = 0;
1647
1648         *listp = NULL;
1649         /* Add it for all PMUs that support the alias */
1650         list = malloc(sizeof(struct list_head));
1651         if (!list)
1652                 return -1;
1653         INIT_LIST_HEAD(list);
1654         while ((pmu = perf_pmu__scan(pmu)) != NULL) {
1655                 struct perf_pmu_alias *alias;
1656
1657                 list_for_each_entry(alias, &pmu->aliases, list) {
1658                         if (!strcasecmp(alias->name, str)) {
1659                                 struct list_head *head;
1660                                 char *config;
1661
1662                                 head = malloc(sizeof(struct list_head));
1663                                 if (!head)
1664                                         return -1;
1665                                 INIT_LIST_HEAD(head);
1666                                 config = strdup(str);
1667                                 if (!config)
1668                                         return -1;
1669                                 if (parse_events_term__num(&term,
1670                                                    PARSE_EVENTS__TERM_TYPE_USER,
1671                                                    config, 1, false, &config,
1672                                                    NULL) < 0) {
1673                                         free(list);
1674                                         free(config);
1675                                         return -1;
1676                                 }
1677                                 list_add_tail(&term->list, head);
1678
1679                                 if (!parse_events_add_pmu(parse_state, list,
1680                                                           pmu->name, head,
1681                                                           true, true)) {
1682                                         pr_debug("%s -> %s/%s/\n", str,
1683                                                  pmu->name, alias->str);
1684                                         ok++;
1685                                 }
1686
1687                                 parse_events_terms__delete(head);
1688                         }
1689                 }
1690         }
1691         if (!ok) {
1692                 free(list);
1693                 return -1;
1694         }
1695         *listp = list;
1696         return 0;
1697 }
1698
1699 int parse_events__modifier_group(struct list_head *list,
1700                                  char *event_mod)
1701 {
1702         return parse_events__modifier_event(list, event_mod, true);
1703 }
1704
1705 /*
1706  * Check if the two uncore PMUs are from the same uncore block
1707  * The format of the uncore PMU name is uncore_#blockname_#pmuidx
1708  */
1709 static bool is_same_uncore_block(const char *pmu_name_a, const char *pmu_name_b)
1710 {
1711         char *end_a, *end_b;
1712
1713         end_a = strrchr(pmu_name_a, '_');
1714         end_b = strrchr(pmu_name_b, '_');
1715
1716         if (!end_a || !end_b)
1717                 return false;
1718
1719         if ((end_a - pmu_name_a) != (end_b - pmu_name_b))
1720                 return false;
1721
1722         return (strncmp(pmu_name_a, pmu_name_b, end_a - pmu_name_a) == 0);
1723 }
1724
1725 static int
1726 parse_events__set_leader_for_uncore_aliase(char *name, struct list_head *list,
1727                                            struct parse_events_state *parse_state)
1728 {
1729         struct evsel *evsel, *leader;
1730         uintptr_t *leaders;
1731         bool is_leader = true;
1732         int i, nr_pmu = 0, total_members, ret = 0;
1733
1734         leader = list_first_entry(list, struct evsel, core.node);
1735         evsel = list_last_entry(list, struct evsel, core.node);
1736         total_members = evsel->core.idx - leader->core.idx + 1;
1737
1738         leaders = calloc(total_members, sizeof(uintptr_t));
1739         if (WARN_ON(!leaders))
1740                 return 0;
1741
1742         /*
1743          * Going through the whole group and doing sanity check.
1744          * All members must use alias, and be from the same uncore block.
1745          * Also, storing the leader events in an array.
1746          */
1747         __evlist__for_each_entry(list, evsel) {
1748
1749                 /* Only split the uncore group which members use alias */
1750                 if (!evsel->use_uncore_alias)
1751                         goto out;
1752
1753                 /* The events must be from the same uncore block */
1754                 if (!is_same_uncore_block(leader->pmu_name, evsel->pmu_name))
1755                         goto out;
1756
1757                 if (!is_leader)
1758                         continue;
1759                 /*
1760                  * If the event's PMU name starts to repeat, it must be a new
1761                  * event. That can be used to distinguish the leader from
1762                  * other members, even they have the same event name.
1763                  */
1764                 if ((leader != evsel) &&
1765                     !strcmp(leader->pmu_name, evsel->pmu_name)) {
1766                         is_leader = false;
1767                         continue;
1768                 }
1769
1770                 /* Store the leader event for each PMU */
1771                 leaders[nr_pmu++] = (uintptr_t) evsel;
1772         }
1773
1774         /* only one event alias */
1775         if (nr_pmu == total_members) {
1776                 parse_state->nr_groups--;
1777                 goto handled;
1778         }
1779
1780         /*
1781          * An uncore event alias is a joint name which means the same event
1782          * runs on all PMUs of a block.
1783          * Perf doesn't support mixed events from different PMUs in the same
1784          * group. The big group has to be split into multiple small groups
1785          * which only include the events from the same PMU.
1786          *
1787          * Here the uncore event aliases must be from the same uncore block.
1788          * The number of PMUs must be same for each alias. The number of new
1789          * small groups equals to the number of PMUs.
1790          * Setting the leader event for corresponding members in each group.
1791          */
1792         i = 0;
1793         __evlist__for_each_entry(list, evsel) {
1794                 if (i >= nr_pmu)
1795                         i = 0;
1796                 evsel__set_leader(evsel, (struct evsel *) leaders[i++]);
1797         }
1798
1799         /* The number of members and group name are same for each group */
1800         for (i = 0; i < nr_pmu; i++) {
1801                 evsel = (struct evsel *) leaders[i];
1802                 evsel->core.nr_members = total_members / nr_pmu;
1803                 evsel->group_name = name ? strdup(name) : NULL;
1804         }
1805
1806         /* Take the new small groups into account */
1807         parse_state->nr_groups += nr_pmu - 1;
1808
1809 handled:
1810         ret = 1;
1811 out:
1812         free(leaders);
1813         return ret;
1814 }
1815
1816 void parse_events__set_leader(char *name, struct list_head *list,
1817                               struct parse_events_state *parse_state)
1818 {
1819         struct evsel *leader;
1820
1821         if (list_empty(list)) {
1822                 WARN_ONCE(true, "WARNING: failed to set leader: empty list");
1823                 return;
1824         }
1825
1826         if (parse_events__set_leader_for_uncore_aliase(name, list, parse_state))
1827                 return;
1828
1829         __perf_evlist__set_leader(list);
1830         leader = list_entry(list->next, struct evsel, core.node);
1831         leader->group_name = name ? strdup(name) : NULL;
1832 }
1833
1834 /* list_event is assumed to point to malloc'ed memory */
1835 void parse_events_update_lists(struct list_head *list_event,
1836                                struct list_head *list_all)
1837 {
1838         /*
1839          * Called for single event definition. Update the
1840          * 'all event' list, and reinit the 'single event'
1841          * list, for next event definition.
1842          */
1843         list_splice_tail(list_event, list_all);
1844         free(list_event);
1845 }
1846
1847 struct event_modifier {
1848         int eu;
1849         int ek;
1850         int eh;
1851         int eH;
1852         int eG;
1853         int eI;
1854         int precise;
1855         int precise_max;
1856         int exclude_GH;
1857         int sample_read;
1858         int pinned;
1859         int weak;
1860         int exclusive;
1861         int bpf_counter;
1862 };
1863
1864 static int get_event_modifier(struct event_modifier *mod, char *str,
1865                                struct evsel *evsel)
1866 {
1867         int eu = evsel ? evsel->core.attr.exclude_user : 0;
1868         int ek = evsel ? evsel->core.attr.exclude_kernel : 0;
1869         int eh = evsel ? evsel->core.attr.exclude_hv : 0;
1870         int eH = evsel ? evsel->core.attr.exclude_host : 0;
1871         int eG = evsel ? evsel->core.attr.exclude_guest : 0;
1872         int eI = evsel ? evsel->core.attr.exclude_idle : 0;
1873         int precise = evsel ? evsel->core.attr.precise_ip : 0;
1874         int precise_max = 0;
1875         int sample_read = 0;
1876         int pinned = evsel ? evsel->core.attr.pinned : 0;
1877         int exclusive = evsel ? evsel->core.attr.exclusive : 0;
1878
1879         int exclude = eu | ek | eh;
1880         int exclude_GH = evsel ? evsel->exclude_GH : 0;
1881         int weak = 0;
1882         int bpf_counter = 0;
1883
1884         memset(mod, 0, sizeof(*mod));
1885
1886         while (*str) {
1887                 if (*str == 'u') {
1888                         if (!exclude)
1889                                 exclude = eu = ek = eh = 1;
1890                         if (!exclude_GH && !perf_guest)
1891                                 eG = 1;
1892                         eu = 0;
1893                 } else if (*str == 'k') {
1894                         if (!exclude)
1895                                 exclude = eu = ek = eh = 1;
1896                         ek = 0;
1897                 } else if (*str == 'h') {
1898                         if (!exclude)
1899                                 exclude = eu = ek = eh = 1;
1900                         eh = 0;
1901                 } else if (*str == 'G') {
1902                         if (!exclude_GH)
1903                                 exclude_GH = eG = eH = 1;
1904                         eG = 0;
1905                 } else if (*str == 'H') {
1906                         if (!exclude_GH)
1907                                 exclude_GH = eG = eH = 1;
1908                         eH = 0;
1909                 } else if (*str == 'I') {
1910                         eI = 1;
1911                 } else if (*str == 'p') {
1912                         precise++;
1913                         /* use of precise requires exclude_guest */
1914                         if (!exclude_GH)
1915                                 eG = 1;
1916                 } else if (*str == 'P') {
1917                         precise_max = 1;
1918                 } else if (*str == 'S') {
1919                         sample_read = 1;
1920                 } else if (*str == 'D') {
1921                         pinned = 1;
1922                 } else if (*str == 'e') {
1923                         exclusive = 1;
1924                 } else if (*str == 'W') {
1925                         weak = 1;
1926                 } else if (*str == 'b') {
1927                         bpf_counter = 1;
1928                 } else
1929                         break;
1930
1931                 ++str;
1932         }
1933
1934         /*
1935          * precise ip:
1936          *
1937          *  0 - SAMPLE_IP can have arbitrary skid
1938          *  1 - SAMPLE_IP must have constant skid
1939          *  2 - SAMPLE_IP requested to have 0 skid
1940          *  3 - SAMPLE_IP must have 0 skid
1941          *
1942          *  See also PERF_RECORD_MISC_EXACT_IP
1943          */
1944         if (precise > 3)
1945                 return -EINVAL;
1946
1947         mod->eu = eu;
1948         mod->ek = ek;
1949         mod->eh = eh;
1950         mod->eH = eH;
1951         mod->eG = eG;
1952         mod->eI = eI;
1953         mod->precise = precise;
1954         mod->precise_max = precise_max;
1955         mod->exclude_GH = exclude_GH;
1956         mod->sample_read = sample_read;
1957         mod->pinned = pinned;
1958         mod->weak = weak;
1959         mod->bpf_counter = bpf_counter;
1960         mod->exclusive = exclusive;
1961
1962         return 0;
1963 }
1964
1965 /*
1966  * Basic modifier sanity check to validate it contains only one
1967  * instance of any modifier (apart from 'p') present.
1968  */
1969 static int check_modifier(char *str)
1970 {
1971         char *p = str;
1972
1973         /* The sizeof includes 0 byte as well. */
1974         if (strlen(str) > (sizeof("ukhGHpppPSDIWeb") - 1))
1975                 return -1;
1976
1977         while (*p) {
1978                 if (*p != 'p' && strchr(p + 1, *p))
1979                         return -1;
1980                 p++;
1981         }
1982
1983         return 0;
1984 }
1985
1986 int parse_events__modifier_event(struct list_head *list, char *str, bool add)
1987 {
1988         struct evsel *evsel;
1989         struct event_modifier mod;
1990
1991         if (str == NULL)
1992                 return 0;
1993
1994         if (check_modifier(str))
1995                 return -EINVAL;
1996
1997         if (!add && get_event_modifier(&mod, str, NULL))
1998                 return -EINVAL;
1999
2000         __evlist__for_each_entry(list, evsel) {
2001                 if (add && get_event_modifier(&mod, str, evsel))
2002                         return -EINVAL;
2003
2004                 evsel->core.attr.exclude_user   = mod.eu;
2005                 evsel->core.attr.exclude_kernel = mod.ek;
2006                 evsel->core.attr.exclude_hv     = mod.eh;
2007                 evsel->core.attr.precise_ip     = mod.precise;
2008                 evsel->core.attr.exclude_host   = mod.eH;
2009                 evsel->core.attr.exclude_guest  = mod.eG;
2010                 evsel->core.attr.exclude_idle   = mod.eI;
2011                 evsel->exclude_GH          = mod.exclude_GH;
2012                 evsel->sample_read         = mod.sample_read;
2013                 evsel->precise_max         = mod.precise_max;
2014                 evsel->weak_group          = mod.weak;
2015                 evsel->bpf_counter         = mod.bpf_counter;
2016
2017                 if (evsel__is_group_leader(evsel)) {
2018                         evsel->core.attr.pinned = mod.pinned;
2019                         evsel->core.attr.exclusive = mod.exclusive;
2020                 }
2021         }
2022
2023         return 0;
2024 }
2025
2026 int parse_events_name(struct list_head *list, char *name)
2027 {
2028         struct evsel *evsel;
2029
2030         __evlist__for_each_entry(list, evsel) {
2031                 if (!evsel->name)
2032                         evsel->name = strdup(name);
2033         }
2034
2035         return 0;
2036 }
2037
2038 static int
2039 comp_pmu(const void *p1, const void *p2)
2040 {
2041         struct perf_pmu_event_symbol *pmu1 = (struct perf_pmu_event_symbol *) p1;
2042         struct perf_pmu_event_symbol *pmu2 = (struct perf_pmu_event_symbol *) p2;
2043
2044         return strcasecmp(pmu1->symbol, pmu2->symbol);
2045 }
2046
2047 static void perf_pmu__parse_cleanup(void)
2048 {
2049         if (perf_pmu_events_list_num > 0) {
2050                 struct perf_pmu_event_symbol *p;
2051                 int i;
2052
2053                 for (i = 0; i < perf_pmu_events_list_num; i++) {
2054                         p = perf_pmu_events_list + i;
2055                         zfree(&p->symbol);
2056                 }
2057                 zfree(&perf_pmu_events_list);
2058                 perf_pmu_events_list_num = 0;
2059         }
2060 }
2061
2062 #define SET_SYMBOL(str, stype)          \
2063 do {                                    \
2064         p->symbol = str;                \
2065         if (!p->symbol)                 \
2066                 goto err;               \
2067         p->type = stype;                \
2068 } while (0)
2069
2070 /*
2071  * Read the pmu events list from sysfs
2072  * Save it into perf_pmu_events_list
2073  */
2074 static void perf_pmu__parse_init(void)
2075 {
2076
2077         struct perf_pmu *pmu = NULL;
2078         struct perf_pmu_alias *alias;
2079         int len = 0;
2080
2081         pmu = NULL;
2082         while ((pmu = perf_pmu__scan(pmu)) != NULL) {
2083                 list_for_each_entry(alias, &pmu->aliases, list) {
2084                         if (strchr(alias->name, '-'))
2085                                 len++;
2086                         len++;
2087                 }
2088         }
2089
2090         if (len == 0) {
2091                 perf_pmu_events_list_num = -1;
2092                 return;
2093         }
2094         perf_pmu_events_list = malloc(sizeof(struct perf_pmu_event_symbol) * len);
2095         if (!perf_pmu_events_list)
2096                 return;
2097         perf_pmu_events_list_num = len;
2098
2099         len = 0;
2100         pmu = NULL;
2101         while ((pmu = perf_pmu__scan(pmu)) != NULL) {
2102                 list_for_each_entry(alias, &pmu->aliases, list) {
2103                         struct perf_pmu_event_symbol *p = perf_pmu_events_list + len;
2104                         char *tmp = strchr(alias->name, '-');
2105
2106                         if (tmp != NULL) {
2107                                 SET_SYMBOL(strndup(alias->name, tmp - alias->name),
2108                                                 PMU_EVENT_SYMBOL_PREFIX);
2109                                 p++;
2110                                 SET_SYMBOL(strdup(++tmp), PMU_EVENT_SYMBOL_SUFFIX);
2111                                 len += 2;
2112                         } else {
2113                                 SET_SYMBOL(strdup(alias->name), PMU_EVENT_SYMBOL);
2114                                 len++;
2115                         }
2116                 }
2117         }
2118         qsort(perf_pmu_events_list, len,
2119                 sizeof(struct perf_pmu_event_symbol), comp_pmu);
2120
2121         return;
2122 err:
2123         perf_pmu__parse_cleanup();
2124 }
2125
2126 /*
2127  * This function injects special term in
2128  * perf_pmu_events_list so the test code
2129  * can check on this functionality.
2130  */
2131 int perf_pmu__test_parse_init(void)
2132 {
2133         struct perf_pmu_event_symbol *list;
2134
2135         list = malloc(sizeof(*list) * 1);
2136         if (!list)
2137                 return -ENOMEM;
2138
2139         list->type   = PMU_EVENT_SYMBOL;
2140         list->symbol = strdup("read");
2141
2142         if (!list->symbol) {
2143                 free(list);
2144                 return -ENOMEM;
2145         }
2146
2147         perf_pmu_events_list = list;
2148         perf_pmu_events_list_num = 1;
2149         return 0;
2150 }
2151
2152 enum perf_pmu_event_symbol_type
2153 perf_pmu__parse_check(const char *name)
2154 {
2155         struct perf_pmu_event_symbol p, *r;
2156
2157         /* scan kernel pmu events from sysfs if needed */
2158         if (perf_pmu_events_list_num == 0)
2159                 perf_pmu__parse_init();
2160         /*
2161          * name "cpu" could be prefix of cpu-cycles or cpu// events.
2162          * cpu-cycles has been handled by hardcode.
2163          * So it must be cpu// events, not kernel pmu event.
2164          */
2165         if ((perf_pmu_events_list_num <= 0) || !strcmp(name, "cpu"))
2166                 return PMU_EVENT_SYMBOL_ERR;
2167
2168         p.symbol = strdup(name);
2169         r = bsearch(&p, perf_pmu_events_list,
2170                         (size_t) perf_pmu_events_list_num,
2171                         sizeof(struct perf_pmu_event_symbol), comp_pmu);
2172         zfree(&p.symbol);
2173         return r ? r->type : PMU_EVENT_SYMBOL_ERR;
2174 }
2175
2176 static int parse_events__scanner(const char *str,
2177                                  struct parse_events_state *parse_state)
2178 {
2179         YY_BUFFER_STATE buffer;
2180         void *scanner;
2181         int ret;
2182
2183         ret = parse_events_lex_init_extra(parse_state, &scanner);
2184         if (ret)
2185                 return ret;
2186
2187         buffer = parse_events__scan_string(str, scanner);
2188
2189 #ifdef PARSER_DEBUG
2190         parse_events_debug = 1;
2191         parse_events_set_debug(1, scanner);
2192 #endif
2193         ret = parse_events_parse(parse_state, scanner);
2194
2195         parse_events__flush_buffer(buffer, scanner);
2196         parse_events__delete_buffer(buffer, scanner);
2197         parse_events_lex_destroy(scanner);
2198         return ret;
2199 }
2200
2201 /*
2202  * parse event config string, return a list of event terms.
2203  */
2204 int parse_events_terms(struct list_head *terms, const char *str)
2205 {
2206         struct parse_events_state parse_state = {
2207                 .terms  = NULL,
2208                 .stoken = PE_START_TERMS,
2209         };
2210         int ret;
2211
2212         ret = parse_events__scanner(str, &parse_state);
2213         perf_pmu__parse_cleanup();
2214
2215         if (!ret) {
2216                 list_splice(parse_state.terms, terms);
2217                 zfree(&parse_state.terms);
2218                 return 0;
2219         }
2220
2221         parse_events_terms__delete(parse_state.terms);
2222         return ret;
2223 }
2224
2225 static int parse_events__with_hybrid_pmu(struct parse_events_state *parse_state,
2226                                          const char *str, char *pmu_name,
2227                                          struct list_head *list)
2228 {
2229         struct parse_events_state ps = {
2230                 .list            = LIST_HEAD_INIT(ps.list),
2231                 .stoken          = PE_START_EVENTS,
2232                 .hybrid_pmu_name = pmu_name,
2233                 .idx             = parse_state->idx,
2234         };
2235         int ret;
2236
2237         ret = parse_events__scanner(str, &ps);
2238         perf_pmu__parse_cleanup();
2239
2240         if (!ret) {
2241                 if (!list_empty(&ps.list)) {
2242                         list_splice(&ps.list, list);
2243                         parse_state->idx = ps.idx;
2244                         return 0;
2245                 } else
2246                         return -1;
2247         }
2248
2249         return ret;
2250 }
2251
2252 int __parse_events(struct evlist *evlist, const char *str,
2253                    struct parse_events_error *err, struct perf_pmu *fake_pmu)
2254 {
2255         struct parse_events_state parse_state = {
2256                 .list     = LIST_HEAD_INIT(parse_state.list),
2257                 .idx      = evlist->core.nr_entries,
2258                 .error    = err,
2259                 .evlist   = evlist,
2260                 .stoken   = PE_START_EVENTS,
2261                 .fake_pmu = fake_pmu,
2262         };
2263         int ret;
2264
2265         ret = parse_events__scanner(str, &parse_state);
2266         perf_pmu__parse_cleanup();
2267
2268         if (!ret && list_empty(&parse_state.list)) {
2269                 WARN_ONCE(true, "WARNING: event parser found nothing\n");
2270                 return -1;
2271         }
2272
2273         /*
2274          * Add list to the evlist even with errors to allow callers to clean up.
2275          */
2276         evlist__splice_list_tail(evlist, &parse_state.list);
2277
2278         if (!ret) {
2279                 struct evsel *last;
2280
2281                 evlist->core.nr_groups += parse_state.nr_groups;
2282                 last = evlist__last(evlist);
2283                 last->cmdline_group_boundary = true;
2284
2285                 return 0;
2286         }
2287
2288         /*
2289          * There are 2 users - builtin-record and builtin-test objects.
2290          * Both call evlist__delete in case of error, so we dont
2291          * need to bother.
2292          */
2293         return ret;
2294 }
2295
2296 #define MAX_WIDTH 1000
2297 static int get_term_width(void)
2298 {
2299         struct winsize ws;
2300
2301         get_term_dimensions(&ws);
2302         return ws.ws_col > MAX_WIDTH ? MAX_WIDTH : ws.ws_col;
2303 }
2304
2305 static void __parse_events_print_error(int err_idx, const char *err_str,
2306                                 const char *err_help, const char *event)
2307 {
2308         const char *str = "invalid or unsupported event: ";
2309         char _buf[MAX_WIDTH];
2310         char *buf = (char *) event;
2311         int idx = 0;
2312         if (err_str) {
2313                 /* -2 for extra '' in the final fprintf */
2314                 int width       = get_term_width() - 2;
2315                 int len_event   = strlen(event);
2316                 int len_str, max_len, cut = 0;
2317
2318                 /*
2319                  * Maximum error index indent, we will cut
2320                  * the event string if it's bigger.
2321                  */
2322                 int max_err_idx = 13;
2323
2324                 /*
2325                  * Let's be specific with the message when
2326                  * we have the precise error.
2327                  */
2328                 str     = "event syntax error: ";
2329                 len_str = strlen(str);
2330                 max_len = width - len_str;
2331
2332                 buf = _buf;
2333
2334                 /* We're cutting from the beginning. */
2335                 if (err_idx > max_err_idx)
2336                         cut = err_idx - max_err_idx;
2337
2338                 strncpy(buf, event + cut, max_len);
2339
2340                 /* Mark cut parts with '..' on both sides. */
2341                 if (cut)
2342                         buf[0] = buf[1] = '.';
2343
2344                 if ((len_event - cut) > max_len) {
2345                         buf[max_len - 1] = buf[max_len - 2] = '.';
2346                         buf[max_len] = 0;
2347                 }
2348
2349                 idx = len_str + err_idx - cut;
2350         }
2351
2352         fprintf(stderr, "%s'%s'\n", str, buf);
2353         if (idx) {
2354                 fprintf(stderr, "%*s\\___ %s\n", idx + 1, "", err_str);
2355                 if (err_help)
2356                         fprintf(stderr, "\n%s\n", err_help);
2357         }
2358 }
2359
2360 void parse_events_print_error(struct parse_events_error *err,
2361                               const char *event)
2362 {
2363         if (!err->num_errors)
2364                 return;
2365
2366         __parse_events_print_error(err->idx, err->str, err->help, event);
2367         zfree(&err->str);
2368         zfree(&err->help);
2369
2370         if (err->num_errors > 1) {
2371                 fputs("\nInitial error:\n", stderr);
2372                 __parse_events_print_error(err->first_idx, err->first_str,
2373                                         err->first_help, event);
2374                 zfree(&err->first_str);
2375                 zfree(&err->first_help);
2376         }
2377 }
2378
2379 #undef MAX_WIDTH
2380
2381 int parse_events_option(const struct option *opt, const char *str,
2382                         int unset __maybe_unused)
2383 {
2384         struct evlist *evlist = *(struct evlist **)opt->value;
2385         struct parse_events_error err;
2386         int ret;
2387
2388         bzero(&err, sizeof(err));
2389         ret = parse_events(evlist, str, &err);
2390
2391         if (ret) {
2392                 parse_events_print_error(&err, str);
2393                 fprintf(stderr, "Run 'perf list' for a list of valid events\n");
2394         }
2395
2396         return ret;
2397 }
2398
2399 int parse_events_option_new_evlist(const struct option *opt, const char *str, int unset)
2400 {
2401         struct evlist **evlistp = opt->value;
2402         int ret;
2403
2404         if (*evlistp == NULL) {
2405                 *evlistp = evlist__new();
2406
2407                 if (*evlistp == NULL) {
2408                         fprintf(stderr, "Not enough memory to create evlist\n");
2409                         return -1;
2410                 }
2411         }
2412
2413         ret = parse_events_option(opt, str, unset);
2414         if (ret) {
2415                 evlist__delete(*evlistp);
2416                 *evlistp = NULL;
2417         }
2418
2419         return ret;
2420 }
2421
2422 static int
2423 foreach_evsel_in_last_glob(struct evlist *evlist,
2424                            int (*func)(struct evsel *evsel,
2425                                        const void *arg),
2426                            const void *arg)
2427 {
2428         struct evsel *last = NULL;
2429         int err;
2430
2431         /*
2432          * Don't return when list_empty, give func a chance to report
2433          * error when it found last == NULL.
2434          *
2435          * So no need to WARN here, let *func do this.
2436          */
2437         if (evlist->core.nr_entries > 0)
2438                 last = evlist__last(evlist);
2439
2440         do {
2441                 err = (*func)(last, arg);
2442                 if (err)
2443                         return -1;
2444                 if (!last)
2445                         return 0;
2446
2447                 if (last->core.node.prev == &evlist->core.entries)
2448                         return 0;
2449                 last = list_entry(last->core.node.prev, struct evsel, core.node);
2450         } while (!last->cmdline_group_boundary);
2451
2452         return 0;
2453 }
2454
2455 static int set_filter(struct evsel *evsel, const void *arg)
2456 {
2457         const char *str = arg;
2458         bool found = false;
2459         int nr_addr_filters = 0;
2460         struct perf_pmu *pmu = NULL;
2461
2462         if (evsel == NULL) {
2463                 fprintf(stderr,
2464                         "--filter option should follow a -e tracepoint or HW tracer option\n");
2465                 return -1;
2466         }
2467
2468         if (evsel->core.attr.type == PERF_TYPE_TRACEPOINT) {
2469                 if (evsel__append_tp_filter(evsel, str) < 0) {
2470                         fprintf(stderr,
2471                                 "not enough memory to hold filter string\n");
2472                         return -1;
2473                 }
2474
2475                 return 0;
2476         }
2477
2478         while ((pmu = perf_pmu__scan(pmu)) != NULL)
2479                 if (pmu->type == evsel->core.attr.type) {
2480                         found = true;
2481                         break;
2482                 }
2483
2484         if (found)
2485                 perf_pmu__scan_file(pmu, "nr_addr_filters",
2486                                     "%d", &nr_addr_filters);
2487
2488         if (!nr_addr_filters) {
2489                 fprintf(stderr,
2490                         "This CPU does not support address filtering\n");
2491                 return -1;
2492         }
2493
2494         if (evsel__append_addr_filter(evsel, str) < 0) {
2495                 fprintf(stderr,
2496                         "not enough memory to hold filter string\n");
2497                 return -1;
2498         }
2499
2500         return 0;
2501 }
2502
2503 int parse_filter(const struct option *opt, const char *str,
2504                  int unset __maybe_unused)
2505 {
2506         struct evlist *evlist = *(struct evlist **)opt->value;
2507
2508         return foreach_evsel_in_last_glob(evlist, set_filter,
2509                                           (const void *)str);
2510 }
2511
2512 static int add_exclude_perf_filter(struct evsel *evsel,
2513                                    const void *arg __maybe_unused)
2514 {
2515         char new_filter[64];
2516
2517         if (evsel == NULL || evsel->core.attr.type != PERF_TYPE_TRACEPOINT) {
2518                 fprintf(stderr,
2519                         "--exclude-perf option should follow a -e tracepoint option\n");
2520                 return -1;
2521         }
2522
2523         snprintf(new_filter, sizeof(new_filter), "common_pid != %d", getpid());
2524
2525         if (evsel__append_tp_filter(evsel, new_filter) < 0) {
2526                 fprintf(stderr,
2527                         "not enough memory to hold filter string\n");
2528                 return -1;
2529         }
2530
2531         return 0;
2532 }
2533
2534 int exclude_perf(const struct option *opt,
2535                  const char *arg __maybe_unused,
2536                  int unset __maybe_unused)
2537 {
2538         struct evlist *evlist = *(struct evlist **)opt->value;
2539
2540         return foreach_evsel_in_last_glob(evlist, add_exclude_perf_filter,
2541                                           NULL);
2542 }
2543
2544 static const char * const event_type_descriptors[] = {
2545         "Hardware event",
2546         "Software event",
2547         "Tracepoint event",
2548         "Hardware cache event",
2549         "Raw hardware event descriptor",
2550         "Hardware breakpoint",
2551 };
2552
2553 static int cmp_string(const void *a, const void *b)
2554 {
2555         const char * const *as = a;
2556         const char * const *bs = b;
2557
2558         return strcmp(*as, *bs);
2559 }
2560
2561 /*
2562  * Print the events from <debugfs_mount_point>/tracing/events
2563  */
2564
2565 void print_tracepoint_events(const char *subsys_glob, const char *event_glob,
2566                              bool name_only)
2567 {
2568         DIR *sys_dir, *evt_dir;
2569         struct dirent *sys_dirent, *evt_dirent;
2570         char evt_path[MAXPATHLEN];
2571         char *dir_path;
2572         char **evt_list = NULL;
2573         unsigned int evt_i = 0, evt_num = 0;
2574         bool evt_num_known = false;
2575
2576 restart:
2577         sys_dir = tracing_events__opendir();
2578         if (!sys_dir)
2579                 return;
2580
2581         if (evt_num_known) {
2582                 evt_list = zalloc(sizeof(char *) * evt_num);
2583                 if (!evt_list)
2584                         goto out_close_sys_dir;
2585         }
2586
2587         for_each_subsystem(sys_dir, sys_dirent) {
2588                 if (subsys_glob != NULL &&
2589                     !strglobmatch(sys_dirent->d_name, subsys_glob))
2590                         continue;
2591
2592                 dir_path = get_events_file(sys_dirent->d_name);
2593                 if (!dir_path)
2594                         continue;
2595                 evt_dir = opendir(dir_path);
2596                 if (!evt_dir)
2597                         goto next;
2598
2599                 for_each_event(dir_path, evt_dir, evt_dirent) {
2600                         if (event_glob != NULL &&
2601                             !strglobmatch(evt_dirent->d_name, event_glob))
2602                                 continue;
2603
2604                         if (!evt_num_known) {
2605                                 evt_num++;
2606                                 continue;
2607                         }
2608
2609                         snprintf(evt_path, MAXPATHLEN, "%s:%s",
2610                                  sys_dirent->d_name, evt_dirent->d_name);
2611
2612                         evt_list[evt_i] = strdup(evt_path);
2613                         if (evt_list[evt_i] == NULL) {
2614                                 put_events_file(dir_path);
2615                                 goto out_close_evt_dir;
2616                         }
2617                         evt_i++;
2618                 }
2619                 closedir(evt_dir);
2620 next:
2621                 put_events_file(dir_path);
2622         }
2623         closedir(sys_dir);
2624
2625         if (!evt_num_known) {
2626                 evt_num_known = true;
2627                 goto restart;
2628         }
2629         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2630         evt_i = 0;
2631         while (evt_i < evt_num) {
2632                 if (name_only) {
2633                         printf("%s ", evt_list[evt_i++]);
2634                         continue;
2635                 }
2636                 printf("  %-50s [%s]\n", evt_list[evt_i++],
2637                                 event_type_descriptors[PERF_TYPE_TRACEPOINT]);
2638         }
2639         if (evt_num && pager_in_use())
2640                 printf("\n");
2641
2642 out_free:
2643         evt_num = evt_i;
2644         for (evt_i = 0; evt_i < evt_num; evt_i++)
2645                 zfree(&evt_list[evt_i]);
2646         zfree(&evt_list);
2647         return;
2648
2649 out_close_evt_dir:
2650         closedir(evt_dir);
2651 out_close_sys_dir:
2652         closedir(sys_dir);
2653
2654         printf("FATAL: not enough memory to print %s\n",
2655                         event_type_descriptors[PERF_TYPE_TRACEPOINT]);
2656         if (evt_list)
2657                 goto out_free;
2658 }
2659
2660 /*
2661  * Check whether event is in <debugfs_mount_point>/tracing/events
2662  */
2663
2664 int is_valid_tracepoint(const char *event_string)
2665 {
2666         DIR *sys_dir, *evt_dir;
2667         struct dirent *sys_dirent, *evt_dirent;
2668         char evt_path[MAXPATHLEN];
2669         char *dir_path;
2670
2671         sys_dir = tracing_events__opendir();
2672         if (!sys_dir)
2673                 return 0;
2674
2675         for_each_subsystem(sys_dir, sys_dirent) {
2676                 dir_path = get_events_file(sys_dirent->d_name);
2677                 if (!dir_path)
2678                         continue;
2679                 evt_dir = opendir(dir_path);
2680                 if (!evt_dir)
2681                         goto next;
2682
2683                 for_each_event(dir_path, evt_dir, evt_dirent) {
2684                         snprintf(evt_path, MAXPATHLEN, "%s:%s",
2685                                  sys_dirent->d_name, evt_dirent->d_name);
2686                         if (!strcmp(evt_path, event_string)) {
2687                                 closedir(evt_dir);
2688                                 closedir(sys_dir);
2689                                 return 1;
2690                         }
2691                 }
2692                 closedir(evt_dir);
2693 next:
2694                 put_events_file(dir_path);
2695         }
2696         closedir(sys_dir);
2697         return 0;
2698 }
2699
2700 static bool is_event_supported(u8 type, unsigned config)
2701 {
2702         bool ret = true;
2703         int open_return;
2704         struct evsel *evsel;
2705         struct perf_event_attr attr = {
2706                 .type = type,
2707                 .config = config,
2708                 .disabled = 1,
2709         };
2710         struct perf_thread_map *tmap = thread_map__new_by_tid(0);
2711
2712         if (tmap == NULL)
2713                 return false;
2714
2715         evsel = evsel__new(&attr);
2716         if (evsel) {
2717                 open_return = evsel__open(evsel, NULL, tmap);
2718                 ret = open_return >= 0;
2719
2720                 if (open_return == -EACCES) {
2721                         /*
2722                          * This happens if the paranoid value
2723                          * /proc/sys/kernel/perf_event_paranoid is set to 2
2724                          * Re-run with exclude_kernel set; we don't do that
2725                          * by default as some ARM machines do not support it.
2726                          *
2727                          */
2728                         evsel->core.attr.exclude_kernel = 1;
2729                         ret = evsel__open(evsel, NULL, tmap) >= 0;
2730                 }
2731                 evsel__delete(evsel);
2732         }
2733
2734         perf_thread_map__put(tmap);
2735         return ret;
2736 }
2737
2738 void print_sdt_events(const char *subsys_glob, const char *event_glob,
2739                       bool name_only)
2740 {
2741         struct probe_cache *pcache;
2742         struct probe_cache_entry *ent;
2743         struct strlist *bidlist, *sdtlist;
2744         struct strlist_config cfg = {.dont_dupstr = true};
2745         struct str_node *nd, *nd2;
2746         char *buf, *path, *ptr = NULL;
2747         bool show_detail = false;
2748         int ret;
2749
2750         sdtlist = strlist__new(NULL, &cfg);
2751         if (!sdtlist) {
2752                 pr_debug("Failed to allocate new strlist for SDT\n");
2753                 return;
2754         }
2755         bidlist = build_id_cache__list_all(true);
2756         if (!bidlist) {
2757                 pr_debug("Failed to get buildids: %d\n", errno);
2758                 return;
2759         }
2760         strlist__for_each_entry(nd, bidlist) {
2761                 pcache = probe_cache__new(nd->s, NULL);
2762                 if (!pcache)
2763                         continue;
2764                 list_for_each_entry(ent, &pcache->entries, node) {
2765                         if (!ent->sdt)
2766                                 continue;
2767                         if (subsys_glob &&
2768                             !strglobmatch(ent->pev.group, subsys_glob))
2769                                 continue;
2770                         if (event_glob &&
2771                             !strglobmatch(ent->pev.event, event_glob))
2772                                 continue;
2773                         ret = asprintf(&buf, "%s:%s@%s", ent->pev.group,
2774                                         ent->pev.event, nd->s);
2775                         if (ret > 0)
2776                                 strlist__add(sdtlist, buf);
2777                 }
2778                 probe_cache__delete(pcache);
2779         }
2780         strlist__delete(bidlist);
2781
2782         strlist__for_each_entry(nd, sdtlist) {
2783                 buf = strchr(nd->s, '@');
2784                 if (buf)
2785                         *(buf++) = '\0';
2786                 if (name_only) {
2787                         printf("%s ", nd->s);
2788                         continue;
2789                 }
2790                 nd2 = strlist__next(nd);
2791                 if (nd2) {
2792                         ptr = strchr(nd2->s, '@');
2793                         if (ptr)
2794                                 *ptr = '\0';
2795                         if (strcmp(nd->s, nd2->s) == 0)
2796                                 show_detail = true;
2797                 }
2798                 if (show_detail) {
2799                         path = build_id_cache__origname(buf);
2800                         ret = asprintf(&buf, "%s@%s(%.12s)", nd->s, path, buf);
2801                         if (ret > 0) {
2802                                 printf("  %-50s [%s]\n", buf, "SDT event");
2803                                 free(buf);
2804                         }
2805                         free(path);
2806                 } else
2807                         printf("  %-50s [%s]\n", nd->s, "SDT event");
2808                 if (nd2) {
2809                         if (strcmp(nd->s, nd2->s) != 0)
2810                                 show_detail = false;
2811                         if (ptr)
2812                                 *ptr = '@';
2813                 }
2814         }
2815         strlist__delete(sdtlist);
2816 }
2817
2818 int print_hwcache_events(const char *event_glob, bool name_only)
2819 {
2820         unsigned int type, op, i, evt_i = 0, evt_num = 0;
2821         char name[64];
2822         char **evt_list = NULL;
2823         bool evt_num_known = false;
2824
2825 restart:
2826         if (evt_num_known) {
2827                 evt_list = zalloc(sizeof(char *) * evt_num);
2828                 if (!evt_list)
2829                         goto out_enomem;
2830         }
2831
2832         for (type = 0; type < PERF_COUNT_HW_CACHE_MAX; type++) {
2833                 for (op = 0; op < PERF_COUNT_HW_CACHE_OP_MAX; op++) {
2834                         /* skip invalid cache type */
2835                         if (!evsel__is_cache_op_valid(type, op))
2836                                 continue;
2837
2838                         for (i = 0; i < PERF_COUNT_HW_CACHE_RESULT_MAX; i++) {
2839                                 __evsel__hw_cache_type_op_res_name(type, op, i, name, sizeof(name));
2840                                 if (event_glob != NULL && !strglobmatch(name, event_glob))
2841                                         continue;
2842
2843                                 if (!is_event_supported(PERF_TYPE_HW_CACHE,
2844                                                         type | (op << 8) | (i << 16)))
2845                                         continue;
2846
2847                                 if (!evt_num_known) {
2848                                         evt_num++;
2849                                         continue;
2850                                 }
2851
2852                                 evt_list[evt_i] = strdup(name);
2853                                 if (evt_list[evt_i] == NULL)
2854                                         goto out_enomem;
2855                                 evt_i++;
2856                         }
2857                 }
2858         }
2859
2860         if (!evt_num_known) {
2861                 evt_num_known = true;
2862                 goto restart;
2863         }
2864         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2865         evt_i = 0;
2866         while (evt_i < evt_num) {
2867                 if (name_only) {
2868                         printf("%s ", evt_list[evt_i++]);
2869                         continue;
2870                 }
2871                 printf("  %-50s [%s]\n", evt_list[evt_i++],
2872                                 event_type_descriptors[PERF_TYPE_HW_CACHE]);
2873         }
2874         if (evt_num && pager_in_use())
2875                 printf("\n");
2876
2877 out_free:
2878         evt_num = evt_i;
2879         for (evt_i = 0; evt_i < evt_num; evt_i++)
2880                 zfree(&evt_list[evt_i]);
2881         zfree(&evt_list);
2882         return evt_num;
2883
2884 out_enomem:
2885         printf("FATAL: not enough memory to print %s\n", event_type_descriptors[PERF_TYPE_HW_CACHE]);
2886         if (evt_list)
2887                 goto out_free;
2888         return evt_num;
2889 }
2890
2891 static void print_tool_event(const char *name, const char *event_glob,
2892                              bool name_only)
2893 {
2894         if (event_glob && !strglobmatch(name, event_glob))
2895                 return;
2896         if (name_only)
2897                 printf("%s ", name);
2898         else
2899                 printf("  %-50s [%s]\n", name, "Tool event");
2900
2901 }
2902
2903 void print_tool_events(const char *event_glob, bool name_only)
2904 {
2905         print_tool_event("duration_time", event_glob, name_only);
2906         if (pager_in_use())
2907                 printf("\n");
2908 }
2909
2910 void print_symbol_events(const char *event_glob, unsigned type,
2911                                 struct event_symbol *syms, unsigned max,
2912                                 bool name_only)
2913 {
2914         unsigned int i, evt_i = 0, evt_num = 0;
2915         char name[MAX_NAME_LEN];
2916         char **evt_list = NULL;
2917         bool evt_num_known = false;
2918
2919 restart:
2920         if (evt_num_known) {
2921                 evt_list = zalloc(sizeof(char *) * evt_num);
2922                 if (!evt_list)
2923                         goto out_enomem;
2924                 syms -= max;
2925         }
2926
2927         for (i = 0; i < max; i++, syms++) {
2928                 /*
2929                  * New attr.config still not supported here, the latest
2930                  * example was PERF_COUNT_SW_CGROUP_SWITCHES
2931                  */
2932                 if (syms->symbol == NULL)
2933                         continue;
2934
2935                 if (event_glob != NULL && !(strglobmatch(syms->symbol, event_glob) ||
2936                       (syms->alias && strglobmatch(syms->alias, event_glob))))
2937                         continue;
2938
2939                 if (!is_event_supported(type, i))
2940                         continue;
2941
2942                 if (!evt_num_known) {
2943                         evt_num++;
2944                         continue;
2945                 }
2946
2947                 if (!name_only && strlen(syms->alias))
2948                         snprintf(name, MAX_NAME_LEN, "%s OR %s", syms->symbol, syms->alias);
2949                 else
2950                         strlcpy(name, syms->symbol, MAX_NAME_LEN);
2951
2952                 evt_list[evt_i] = strdup(name);
2953                 if (evt_list[evt_i] == NULL)
2954                         goto out_enomem;
2955                 evt_i++;
2956         }
2957
2958         if (!evt_num_known) {
2959                 evt_num_known = true;
2960                 goto restart;
2961         }
2962         qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2963         evt_i = 0;
2964         while (evt_i < evt_num) {
2965                 if (name_only) {
2966                         printf("%s ", evt_list[evt_i++]);
2967                         continue;
2968                 }
2969                 printf("  %-50s [%s]\n", evt_list[evt_i++], event_type_descriptors[type]);
2970         }
2971         if (evt_num && pager_in_use())
2972                 printf("\n");
2973
2974 out_free:
2975         evt_num = evt_i;
2976         for (evt_i = 0; evt_i < evt_num; evt_i++)
2977                 zfree(&evt_list[evt_i]);
2978         zfree(&evt_list);
2979         return;
2980
2981 out_enomem:
2982         printf("FATAL: not enough memory to print %s\n", event_type_descriptors[type]);
2983         if (evt_list)
2984                 goto out_free;
2985 }
2986
2987 /*
2988  * Print the help text for the event symbols:
2989  */
2990 void print_events(const char *event_glob, bool name_only, bool quiet_flag,
2991                         bool long_desc, bool details_flag, bool deprecated)
2992 {
2993         print_symbol_events(event_glob, PERF_TYPE_HARDWARE,
2994                             event_symbols_hw, PERF_COUNT_HW_MAX, name_only);
2995
2996         print_symbol_events(event_glob, PERF_TYPE_SOFTWARE,
2997                             event_symbols_sw, PERF_COUNT_SW_MAX, name_only);
2998         print_tool_events(event_glob, name_only);
2999
3000         print_hwcache_events(event_glob, name_only);
3001
3002         print_pmu_events(event_glob, name_only, quiet_flag, long_desc,
3003                         details_flag, deprecated);
3004
3005         if (event_glob != NULL)
3006                 return;
3007
3008         if (!name_only) {
3009                 printf("  %-50s [%s]\n",
3010                        "rNNN",
3011                        event_type_descriptors[PERF_TYPE_RAW]);
3012                 printf("  %-50s [%s]\n",
3013                        "cpu/t1=v1[,t2=v2,t3 ...]/modifier",
3014                        event_type_descriptors[PERF_TYPE_RAW]);
3015                 if (pager_in_use())
3016                         printf("   (see 'man perf-list' on how to encode it)\n\n");
3017
3018                 printf("  %-50s [%s]\n",
3019                        "mem:<addr>[/len][:access]",
3020                         event_type_descriptors[PERF_TYPE_BREAKPOINT]);
3021                 if (pager_in_use())
3022                         printf("\n");
3023         }
3024
3025         print_tracepoint_events(NULL, NULL, name_only);
3026
3027         print_sdt_events(NULL, NULL, name_only);
3028
3029         metricgroup__print(true, true, NULL, name_only, details_flag);
3030
3031         print_libpfm_events(name_only, long_desc);
3032 }
3033
3034 int parse_events__is_hardcoded_term(struct parse_events_term *term)
3035 {
3036         return term->type_term != PARSE_EVENTS__TERM_TYPE_USER;
3037 }
3038
3039 static int new_term(struct parse_events_term **_term,
3040                     struct parse_events_term *temp,
3041                     char *str, u64 num)
3042 {
3043         struct parse_events_term *term;
3044
3045         term = malloc(sizeof(*term));
3046         if (!term)
3047                 return -ENOMEM;
3048
3049         *term = *temp;
3050         INIT_LIST_HEAD(&term->list);
3051         term->weak = false;
3052
3053         switch (term->type_val) {
3054         case PARSE_EVENTS__TERM_TYPE_NUM:
3055                 term->val.num = num;
3056                 break;
3057         case PARSE_EVENTS__TERM_TYPE_STR:
3058                 term->val.str = str;
3059                 break;
3060         default:
3061                 free(term);
3062                 return -EINVAL;
3063         }
3064
3065         *_term = term;
3066         return 0;
3067 }
3068
3069 int parse_events_term__num(struct parse_events_term **term,
3070                            int type_term, char *config, u64 num,
3071                            bool no_value,
3072                            void *loc_term_, void *loc_val_)
3073 {
3074         YYLTYPE *loc_term = loc_term_;
3075         YYLTYPE *loc_val = loc_val_;
3076
3077         struct parse_events_term temp = {
3078                 .type_val  = PARSE_EVENTS__TERM_TYPE_NUM,
3079                 .type_term = type_term,
3080                 .config    = config,
3081                 .no_value  = no_value,
3082                 .err_term  = loc_term ? loc_term->first_column : 0,
3083                 .err_val   = loc_val  ? loc_val->first_column  : 0,
3084         };
3085
3086         return new_term(term, &temp, NULL, num);
3087 }
3088
3089 int parse_events_term__str(struct parse_events_term **term,
3090                            int type_term, char *config, char *str,
3091                            void *loc_term_, void *loc_val_)
3092 {
3093         YYLTYPE *loc_term = loc_term_;
3094         YYLTYPE *loc_val = loc_val_;
3095
3096         struct parse_events_term temp = {
3097                 .type_val  = PARSE_EVENTS__TERM_TYPE_STR,
3098                 .type_term = type_term,
3099                 .config    = config,
3100                 .err_term  = loc_term ? loc_term->first_column : 0,
3101                 .err_val   = loc_val  ? loc_val->first_column  : 0,
3102         };
3103
3104         return new_term(term, &temp, str, 0);
3105 }
3106
3107 int parse_events_term__sym_hw(struct parse_events_term **term,
3108                               char *config, unsigned idx)
3109 {
3110         struct event_symbol *sym;
3111         char *str;
3112         struct parse_events_term temp = {
3113                 .type_val  = PARSE_EVENTS__TERM_TYPE_STR,
3114                 .type_term = PARSE_EVENTS__TERM_TYPE_USER,
3115                 .config    = config,
3116         };
3117
3118         if (!temp.config) {
3119                 temp.config = strdup("event");
3120                 if (!temp.config)
3121                         return -ENOMEM;
3122         }
3123         BUG_ON(idx >= PERF_COUNT_HW_MAX);
3124         sym = &event_symbols_hw[idx];
3125
3126         str = strdup(sym->symbol);
3127         if (!str)
3128                 return -ENOMEM;
3129         return new_term(term, &temp, str, 0);
3130 }
3131
3132 int parse_events_term__clone(struct parse_events_term **new,
3133                              struct parse_events_term *term)
3134 {
3135         char *str;
3136         struct parse_events_term temp = {
3137                 .type_val  = term->type_val,
3138                 .type_term = term->type_term,
3139                 .config    = NULL,
3140                 .err_term  = term->err_term,
3141                 .err_val   = term->err_val,
3142         };
3143
3144         if (term->config) {
3145                 temp.config = strdup(term->config);
3146                 if (!temp.config)
3147                         return -ENOMEM;
3148         }
3149         if (term->type_val == PARSE_EVENTS__TERM_TYPE_NUM)
3150                 return new_term(new, &temp, NULL, term->val.num);
3151
3152         str = strdup(term->val.str);
3153         if (!str)
3154                 return -ENOMEM;
3155         return new_term(new, &temp, str, 0);
3156 }
3157
3158 void parse_events_term__delete(struct parse_events_term *term)
3159 {
3160         if (term->array.nr_ranges)
3161                 zfree(&term->array.ranges);
3162
3163         if (term->type_val != PARSE_EVENTS__TERM_TYPE_NUM)
3164                 zfree(&term->val.str);
3165
3166         zfree(&term->config);
3167         free(term);
3168 }
3169
3170 int parse_events_copy_term_list(struct list_head *old,
3171                                  struct list_head **new)
3172 {
3173         struct parse_events_term *term, *n;
3174         int ret;
3175
3176         if (!old) {
3177                 *new = NULL;
3178                 return 0;
3179         }
3180
3181         *new = malloc(sizeof(struct list_head));
3182         if (!*new)
3183                 return -ENOMEM;
3184         INIT_LIST_HEAD(*new);
3185
3186         list_for_each_entry (term, old, list) {
3187                 ret = parse_events_term__clone(&n, term);
3188                 if (ret)
3189                         return ret;
3190                 list_add_tail(&n->list, *new);
3191         }
3192         return 0;
3193 }
3194
3195 void parse_events_terms__purge(struct list_head *terms)
3196 {
3197         struct parse_events_term *term, *h;
3198
3199         list_for_each_entry_safe(term, h, terms, list) {
3200                 list_del_init(&term->list);
3201                 parse_events_term__delete(term);
3202         }
3203 }
3204
3205 void parse_events_terms__delete(struct list_head *terms)
3206 {
3207         if (!terms)
3208                 return;
3209         parse_events_terms__purge(terms);
3210         free(terms);
3211 }
3212
3213 void parse_events__clear_array(struct parse_events_array *a)
3214 {
3215         zfree(&a->ranges);
3216 }
3217
3218 void parse_events_evlist_error(struct parse_events_state *parse_state,
3219                                int idx, const char *str)
3220 {
3221         if (!parse_state->error)
3222                 return;
3223
3224         parse_events__handle_error(parse_state->error, idx, strdup(str), NULL);
3225 }
3226
3227 static void config_terms_list(char *buf, size_t buf_sz)
3228 {
3229         int i;
3230         bool first = true;
3231
3232         buf[0] = '\0';
3233         for (i = 0; i < __PARSE_EVENTS__TERM_TYPE_NR; i++) {
3234                 const char *name = config_term_names[i];
3235
3236                 if (!config_term_avail(i, NULL))
3237                         continue;
3238                 if (!name)
3239                         continue;
3240                 if (name[0] == '<')
3241                         continue;
3242
3243                 if (strlen(buf) + strlen(name) + 2 >= buf_sz)
3244                         return;
3245
3246                 if (!first)
3247                         strcat(buf, ",");
3248                 else
3249                         first = false;
3250                 strcat(buf, name);
3251         }
3252 }
3253
3254 /*
3255  * Return string contains valid config terms of an event.
3256  * @additional_terms: For terms such as PMU sysfs terms.
3257  */
3258 char *parse_events_formats_error_string(char *additional_terms)
3259 {
3260         char *str;
3261         /* "no-overwrite" is the longest name */
3262         char static_terms[__PARSE_EVENTS__TERM_TYPE_NR *
3263                           (sizeof("no-overwrite") - 1)];
3264
3265         config_terms_list(static_terms, sizeof(static_terms));
3266         /* valid terms */
3267         if (additional_terms) {
3268                 if (asprintf(&str, "valid terms: %s,%s",
3269                              additional_terms, static_terms) < 0)
3270                         goto fail;
3271         } else {
3272                 if (asprintf(&str, "valid terms: %s", static_terms) < 0)
3273                         goto fail;
3274         }
3275         return str;
3276
3277 fail:
3278         return NULL;
3279 }
3280
3281 struct evsel *parse_events__add_event_hybrid(struct list_head *list, int *idx,
3282                                              struct perf_event_attr *attr,
3283                                              char *name, struct perf_pmu *pmu,
3284                                              struct list_head *config_terms)
3285 {
3286         return __add_event(list, idx, attr, true, name, pmu,
3287                            config_terms, false, NULL);
3288 }