xref: /openbmc/linux/tools/perf/util/parse-events.c (revision dc794d3d)
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 		struct evsel_config_term *pos, *tmp;
1612 
1613 		list_for_each_entry_safe(pos, tmp, &config_terms, list) {
1614 			list_del_init(&pos->list);
1615 			if (pos->free_str)
1616 				zfree(&pos->val.str);
1617 			free(pos);
1618 		}
1619 		return -EINVAL;
1620 	}
1621 
1622 	evsel = __add_event(list, &parse_state->idx, &attr, true,
1623 			    get_config_name(head_config), pmu,
1624 			    &config_terms, auto_merge_stats, NULL);
1625 	if (!evsel)
1626 		return -ENOMEM;
1627 
1628 	if (evsel->name)
1629 		evsel->use_config_name = true;
1630 
1631 	evsel->pmu_name = name ? strdup(name) : NULL;
1632 	evsel->use_uncore_alias = use_uncore_alias;
1633 	evsel->percore = config_term_percore(&evsel->config_terms);
1634 
1635 	if (parse_state->fake_pmu)
1636 		return 0;
1637 
1638 	evsel->unit = info.unit;
1639 	evsel->scale = info.scale;
1640 	evsel->per_pkg = info.per_pkg;
1641 	evsel->snapshot = info.snapshot;
1642 	evsel->metric_expr = info.metric_expr;
1643 	evsel->metric_name = info.metric_name;
1644 	return 0;
1645 }
1646 
1647 int parse_events_multi_pmu_add(struct parse_events_state *parse_state,
1648 			       char *str, struct list_head **listp)
1649 {
1650 	struct parse_events_term *term;
1651 	struct list_head *list;
1652 	struct perf_pmu *pmu = NULL;
1653 	int ok = 0;
1654 
1655 	*listp = NULL;
1656 	/* Add it for all PMUs that support the alias */
1657 	list = malloc(sizeof(struct list_head));
1658 	if (!list)
1659 		return -1;
1660 	INIT_LIST_HEAD(list);
1661 	while ((pmu = perf_pmu__scan(pmu)) != NULL) {
1662 		struct perf_pmu_alias *alias;
1663 
1664 		list_for_each_entry(alias, &pmu->aliases, list) {
1665 			if (!strcasecmp(alias->name, str)) {
1666 				struct list_head *head;
1667 				char *config;
1668 
1669 				head = malloc(sizeof(struct list_head));
1670 				if (!head)
1671 					return -1;
1672 				INIT_LIST_HEAD(head);
1673 				config = strdup(str);
1674 				if (!config)
1675 					return -1;
1676 				if (parse_events_term__num(&term,
1677 						   PARSE_EVENTS__TERM_TYPE_USER,
1678 						   config, 1, false, &config,
1679 						   NULL) < 0) {
1680 					free(list);
1681 					free(config);
1682 					return -1;
1683 				}
1684 				list_add_tail(&term->list, head);
1685 
1686 				if (!parse_events_add_pmu(parse_state, list,
1687 							  pmu->name, head,
1688 							  true, true)) {
1689 					pr_debug("%s -> %s/%s/\n", str,
1690 						 pmu->name, alias->str);
1691 					ok++;
1692 				}
1693 
1694 				parse_events_terms__delete(head);
1695 			}
1696 		}
1697 	}
1698 	if (!ok) {
1699 		free(list);
1700 		return -1;
1701 	}
1702 	*listp = list;
1703 	return 0;
1704 }
1705 
1706 int parse_events__modifier_group(struct list_head *list,
1707 				 char *event_mod)
1708 {
1709 	return parse_events__modifier_event(list, event_mod, true);
1710 }
1711 
1712 /*
1713  * Check if the two uncore PMUs are from the same uncore block
1714  * The format of the uncore PMU name is uncore_#blockname_#pmuidx
1715  */
1716 static bool is_same_uncore_block(const char *pmu_name_a, const char *pmu_name_b)
1717 {
1718 	char *end_a, *end_b;
1719 
1720 	end_a = strrchr(pmu_name_a, '_');
1721 	end_b = strrchr(pmu_name_b, '_');
1722 
1723 	if (!end_a || !end_b)
1724 		return false;
1725 
1726 	if ((end_a - pmu_name_a) != (end_b - pmu_name_b))
1727 		return false;
1728 
1729 	return (strncmp(pmu_name_a, pmu_name_b, end_a - pmu_name_a) == 0);
1730 }
1731 
1732 static int
1733 parse_events__set_leader_for_uncore_aliase(char *name, struct list_head *list,
1734 					   struct parse_events_state *parse_state)
1735 {
1736 	struct evsel *evsel, *leader;
1737 	uintptr_t *leaders;
1738 	bool is_leader = true;
1739 	int i, nr_pmu = 0, total_members, ret = 0;
1740 
1741 	leader = list_first_entry(list, struct evsel, core.node);
1742 	evsel = list_last_entry(list, struct evsel, core.node);
1743 	total_members = evsel->idx - leader->idx + 1;
1744 
1745 	leaders = calloc(total_members, sizeof(uintptr_t));
1746 	if (WARN_ON(!leaders))
1747 		return 0;
1748 
1749 	/*
1750 	 * Going through the whole group and doing sanity check.
1751 	 * All members must use alias, and be from the same uncore block.
1752 	 * Also, storing the leader events in an array.
1753 	 */
1754 	__evlist__for_each_entry(list, evsel) {
1755 
1756 		/* Only split the uncore group which members use alias */
1757 		if (!evsel->use_uncore_alias)
1758 			goto out;
1759 
1760 		/* The events must be from the same uncore block */
1761 		if (!is_same_uncore_block(leader->pmu_name, evsel->pmu_name))
1762 			goto out;
1763 
1764 		if (!is_leader)
1765 			continue;
1766 		/*
1767 		 * If the event's PMU name starts to repeat, it must be a new
1768 		 * event. That can be used to distinguish the leader from
1769 		 * other members, even they have the same event name.
1770 		 */
1771 		if ((leader != evsel) &&
1772 		    !strcmp(leader->pmu_name, evsel->pmu_name)) {
1773 			is_leader = false;
1774 			continue;
1775 		}
1776 
1777 		/* Store the leader event for each PMU */
1778 		leaders[nr_pmu++] = (uintptr_t) evsel;
1779 	}
1780 
1781 	/* only one event alias */
1782 	if (nr_pmu == total_members) {
1783 		parse_state->nr_groups--;
1784 		goto handled;
1785 	}
1786 
1787 	/*
1788 	 * An uncore event alias is a joint name which means the same event
1789 	 * runs on all PMUs of a block.
1790 	 * Perf doesn't support mixed events from different PMUs in the same
1791 	 * group. The big group has to be split into multiple small groups
1792 	 * which only include the events from the same PMU.
1793 	 *
1794 	 * Here the uncore event aliases must be from the same uncore block.
1795 	 * The number of PMUs must be same for each alias. The number of new
1796 	 * small groups equals to the number of PMUs.
1797 	 * Setting the leader event for corresponding members in each group.
1798 	 */
1799 	i = 0;
1800 	__evlist__for_each_entry(list, evsel) {
1801 		if (i >= nr_pmu)
1802 			i = 0;
1803 		evsel->leader = (struct evsel *) leaders[i++];
1804 	}
1805 
1806 	/* The number of members and group name are same for each group */
1807 	for (i = 0; i < nr_pmu; i++) {
1808 		evsel = (struct evsel *) leaders[i];
1809 		evsel->core.nr_members = total_members / nr_pmu;
1810 		evsel->group_name = name ? strdup(name) : NULL;
1811 	}
1812 
1813 	/* Take the new small groups into account */
1814 	parse_state->nr_groups += nr_pmu - 1;
1815 
1816 handled:
1817 	ret = 1;
1818 out:
1819 	free(leaders);
1820 	return ret;
1821 }
1822 
1823 void parse_events__set_leader(char *name, struct list_head *list,
1824 			      struct parse_events_state *parse_state)
1825 {
1826 	struct evsel *leader;
1827 
1828 	if (list_empty(list)) {
1829 		WARN_ONCE(true, "WARNING: failed to set leader: empty list");
1830 		return;
1831 	}
1832 
1833 	if (parse_events__set_leader_for_uncore_aliase(name, list, parse_state))
1834 		return;
1835 
1836 	__evlist__set_leader(list);
1837 	leader = list_entry(list->next, struct evsel, core.node);
1838 	leader->group_name = name ? strdup(name) : NULL;
1839 }
1840 
1841 /* list_event is assumed to point to malloc'ed memory */
1842 void parse_events_update_lists(struct list_head *list_event,
1843 			       struct list_head *list_all)
1844 {
1845 	/*
1846 	 * Called for single event definition. Update the
1847 	 * 'all event' list, and reinit the 'single event'
1848 	 * list, for next event definition.
1849 	 */
1850 	list_splice_tail(list_event, list_all);
1851 	free(list_event);
1852 }
1853 
1854 struct event_modifier {
1855 	int eu;
1856 	int ek;
1857 	int eh;
1858 	int eH;
1859 	int eG;
1860 	int eI;
1861 	int precise;
1862 	int precise_max;
1863 	int exclude_GH;
1864 	int sample_read;
1865 	int pinned;
1866 	int weak;
1867 	int exclusive;
1868 	int bpf_counter;
1869 };
1870 
1871 static int get_event_modifier(struct event_modifier *mod, char *str,
1872 			       struct evsel *evsel)
1873 {
1874 	int eu = evsel ? evsel->core.attr.exclude_user : 0;
1875 	int ek = evsel ? evsel->core.attr.exclude_kernel : 0;
1876 	int eh = evsel ? evsel->core.attr.exclude_hv : 0;
1877 	int eH = evsel ? evsel->core.attr.exclude_host : 0;
1878 	int eG = evsel ? evsel->core.attr.exclude_guest : 0;
1879 	int eI = evsel ? evsel->core.attr.exclude_idle : 0;
1880 	int precise = evsel ? evsel->core.attr.precise_ip : 0;
1881 	int precise_max = 0;
1882 	int sample_read = 0;
1883 	int pinned = evsel ? evsel->core.attr.pinned : 0;
1884 	int exclusive = evsel ? evsel->core.attr.exclusive : 0;
1885 
1886 	int exclude = eu | ek | eh;
1887 	int exclude_GH = evsel ? evsel->exclude_GH : 0;
1888 	int weak = 0;
1889 	int bpf_counter = 0;
1890 
1891 	memset(mod, 0, sizeof(*mod));
1892 
1893 	while (*str) {
1894 		if (*str == 'u') {
1895 			if (!exclude)
1896 				exclude = eu = ek = eh = 1;
1897 			if (!exclude_GH && !perf_guest)
1898 				eG = 1;
1899 			eu = 0;
1900 		} else if (*str == 'k') {
1901 			if (!exclude)
1902 				exclude = eu = ek = eh = 1;
1903 			ek = 0;
1904 		} else if (*str == 'h') {
1905 			if (!exclude)
1906 				exclude = eu = ek = eh = 1;
1907 			eh = 0;
1908 		} else if (*str == 'G') {
1909 			if (!exclude_GH)
1910 				exclude_GH = eG = eH = 1;
1911 			eG = 0;
1912 		} else if (*str == 'H') {
1913 			if (!exclude_GH)
1914 				exclude_GH = eG = eH = 1;
1915 			eH = 0;
1916 		} else if (*str == 'I') {
1917 			eI = 1;
1918 		} else if (*str == 'p') {
1919 			precise++;
1920 			/* use of precise requires exclude_guest */
1921 			if (!exclude_GH)
1922 				eG = 1;
1923 		} else if (*str == 'P') {
1924 			precise_max = 1;
1925 		} else if (*str == 'S') {
1926 			sample_read = 1;
1927 		} else if (*str == 'D') {
1928 			pinned = 1;
1929 		} else if (*str == 'e') {
1930 			exclusive = 1;
1931 		} else if (*str == 'W') {
1932 			weak = 1;
1933 		} else if (*str == 'b') {
1934 			bpf_counter = 1;
1935 		} else
1936 			break;
1937 
1938 		++str;
1939 	}
1940 
1941 	/*
1942 	 * precise ip:
1943 	 *
1944 	 *  0 - SAMPLE_IP can have arbitrary skid
1945 	 *  1 - SAMPLE_IP must have constant skid
1946 	 *  2 - SAMPLE_IP requested to have 0 skid
1947 	 *  3 - SAMPLE_IP must have 0 skid
1948 	 *
1949 	 *  See also PERF_RECORD_MISC_EXACT_IP
1950 	 */
1951 	if (precise > 3)
1952 		return -EINVAL;
1953 
1954 	mod->eu = eu;
1955 	mod->ek = ek;
1956 	mod->eh = eh;
1957 	mod->eH = eH;
1958 	mod->eG = eG;
1959 	mod->eI = eI;
1960 	mod->precise = precise;
1961 	mod->precise_max = precise_max;
1962 	mod->exclude_GH = exclude_GH;
1963 	mod->sample_read = sample_read;
1964 	mod->pinned = pinned;
1965 	mod->weak = weak;
1966 	mod->bpf_counter = bpf_counter;
1967 	mod->exclusive = exclusive;
1968 
1969 	return 0;
1970 }
1971 
1972 /*
1973  * Basic modifier sanity check to validate it contains only one
1974  * instance of any modifier (apart from 'p') present.
1975  */
1976 static int check_modifier(char *str)
1977 {
1978 	char *p = str;
1979 
1980 	/* The sizeof includes 0 byte as well. */
1981 	if (strlen(str) > (sizeof("ukhGHpppPSDIWeb") - 1))
1982 		return -1;
1983 
1984 	while (*p) {
1985 		if (*p != 'p' && strchr(p + 1, *p))
1986 			return -1;
1987 		p++;
1988 	}
1989 
1990 	return 0;
1991 }
1992 
1993 int parse_events__modifier_event(struct list_head *list, char *str, bool add)
1994 {
1995 	struct evsel *evsel;
1996 	struct event_modifier mod;
1997 
1998 	if (str == NULL)
1999 		return 0;
2000 
2001 	if (check_modifier(str))
2002 		return -EINVAL;
2003 
2004 	if (!add && get_event_modifier(&mod, str, NULL))
2005 		return -EINVAL;
2006 
2007 	__evlist__for_each_entry(list, evsel) {
2008 		if (add && get_event_modifier(&mod, str, evsel))
2009 			return -EINVAL;
2010 
2011 		evsel->core.attr.exclude_user   = mod.eu;
2012 		evsel->core.attr.exclude_kernel = mod.ek;
2013 		evsel->core.attr.exclude_hv     = mod.eh;
2014 		evsel->core.attr.precise_ip     = mod.precise;
2015 		evsel->core.attr.exclude_host   = mod.eH;
2016 		evsel->core.attr.exclude_guest  = mod.eG;
2017 		evsel->core.attr.exclude_idle   = mod.eI;
2018 		evsel->exclude_GH          = mod.exclude_GH;
2019 		evsel->sample_read         = mod.sample_read;
2020 		evsel->precise_max         = mod.precise_max;
2021 		evsel->weak_group	   = mod.weak;
2022 		evsel->bpf_counter	   = mod.bpf_counter;
2023 
2024 		if (evsel__is_group_leader(evsel)) {
2025 			evsel->core.attr.pinned = mod.pinned;
2026 			evsel->core.attr.exclusive = mod.exclusive;
2027 		}
2028 	}
2029 
2030 	return 0;
2031 }
2032 
2033 int parse_events_name(struct list_head *list, char *name)
2034 {
2035 	struct evsel *evsel;
2036 
2037 	__evlist__for_each_entry(list, evsel) {
2038 		if (!evsel->name)
2039 			evsel->name = strdup(name);
2040 	}
2041 
2042 	return 0;
2043 }
2044 
2045 static int
2046 comp_pmu(const void *p1, const void *p2)
2047 {
2048 	struct perf_pmu_event_symbol *pmu1 = (struct perf_pmu_event_symbol *) p1;
2049 	struct perf_pmu_event_symbol *pmu2 = (struct perf_pmu_event_symbol *) p2;
2050 
2051 	return strcasecmp(pmu1->symbol, pmu2->symbol);
2052 }
2053 
2054 static void perf_pmu__parse_cleanup(void)
2055 {
2056 	if (perf_pmu_events_list_num > 0) {
2057 		struct perf_pmu_event_symbol *p;
2058 		int i;
2059 
2060 		for (i = 0; i < perf_pmu_events_list_num; i++) {
2061 			p = perf_pmu_events_list + i;
2062 			zfree(&p->symbol);
2063 		}
2064 		zfree(&perf_pmu_events_list);
2065 		perf_pmu_events_list_num = 0;
2066 	}
2067 }
2068 
2069 #define SET_SYMBOL(str, stype)		\
2070 do {					\
2071 	p->symbol = str;		\
2072 	if (!p->symbol)			\
2073 		goto err;		\
2074 	p->type = stype;		\
2075 } while (0)
2076 
2077 /*
2078  * Read the pmu events list from sysfs
2079  * Save it into perf_pmu_events_list
2080  */
2081 static void perf_pmu__parse_init(void)
2082 {
2083 
2084 	struct perf_pmu *pmu = NULL;
2085 	struct perf_pmu_alias *alias;
2086 	int len = 0;
2087 
2088 	pmu = NULL;
2089 	while ((pmu = perf_pmu__scan(pmu)) != NULL) {
2090 		list_for_each_entry(alias, &pmu->aliases, list) {
2091 			if (strchr(alias->name, '-'))
2092 				len++;
2093 			len++;
2094 		}
2095 	}
2096 
2097 	if (len == 0) {
2098 		perf_pmu_events_list_num = -1;
2099 		return;
2100 	}
2101 	perf_pmu_events_list = malloc(sizeof(struct perf_pmu_event_symbol) * len);
2102 	if (!perf_pmu_events_list)
2103 		return;
2104 	perf_pmu_events_list_num = len;
2105 
2106 	len = 0;
2107 	pmu = NULL;
2108 	while ((pmu = perf_pmu__scan(pmu)) != NULL) {
2109 		list_for_each_entry(alias, &pmu->aliases, list) {
2110 			struct perf_pmu_event_symbol *p = perf_pmu_events_list + len;
2111 			char *tmp = strchr(alias->name, '-');
2112 
2113 			if (tmp != NULL) {
2114 				SET_SYMBOL(strndup(alias->name, tmp - alias->name),
2115 						PMU_EVENT_SYMBOL_PREFIX);
2116 				p++;
2117 				SET_SYMBOL(strdup(++tmp), PMU_EVENT_SYMBOL_SUFFIX);
2118 				len += 2;
2119 			} else {
2120 				SET_SYMBOL(strdup(alias->name), PMU_EVENT_SYMBOL);
2121 				len++;
2122 			}
2123 		}
2124 	}
2125 	qsort(perf_pmu_events_list, len,
2126 		sizeof(struct perf_pmu_event_symbol), comp_pmu);
2127 
2128 	return;
2129 err:
2130 	perf_pmu__parse_cleanup();
2131 }
2132 
2133 /*
2134  * This function injects special term in
2135  * perf_pmu_events_list so the test code
2136  * can check on this functionality.
2137  */
2138 int perf_pmu__test_parse_init(void)
2139 {
2140 	struct perf_pmu_event_symbol *list;
2141 
2142 	list = malloc(sizeof(*list) * 1);
2143 	if (!list)
2144 		return -ENOMEM;
2145 
2146 	list->type   = PMU_EVENT_SYMBOL;
2147 	list->symbol = strdup("read");
2148 
2149 	if (!list->symbol) {
2150 		free(list);
2151 		return -ENOMEM;
2152 	}
2153 
2154 	perf_pmu_events_list = list;
2155 	perf_pmu_events_list_num = 1;
2156 	return 0;
2157 }
2158 
2159 enum perf_pmu_event_symbol_type
2160 perf_pmu__parse_check(const char *name)
2161 {
2162 	struct perf_pmu_event_symbol p, *r;
2163 
2164 	/* scan kernel pmu events from sysfs if needed */
2165 	if (perf_pmu_events_list_num == 0)
2166 		perf_pmu__parse_init();
2167 	/*
2168 	 * name "cpu" could be prefix of cpu-cycles or cpu// events.
2169 	 * cpu-cycles has been handled by hardcode.
2170 	 * So it must be cpu// events, not kernel pmu event.
2171 	 */
2172 	if ((perf_pmu_events_list_num <= 0) || !strcmp(name, "cpu"))
2173 		return PMU_EVENT_SYMBOL_ERR;
2174 
2175 	p.symbol = strdup(name);
2176 	r = bsearch(&p, perf_pmu_events_list,
2177 			(size_t) perf_pmu_events_list_num,
2178 			sizeof(struct perf_pmu_event_symbol), comp_pmu);
2179 	zfree(&p.symbol);
2180 	return r ? r->type : PMU_EVENT_SYMBOL_ERR;
2181 }
2182 
2183 static int parse_events__scanner(const char *str,
2184 				 struct parse_events_state *parse_state)
2185 {
2186 	YY_BUFFER_STATE buffer;
2187 	void *scanner;
2188 	int ret;
2189 
2190 	ret = parse_events_lex_init_extra(parse_state, &scanner);
2191 	if (ret)
2192 		return ret;
2193 
2194 	buffer = parse_events__scan_string(str, scanner);
2195 
2196 #ifdef PARSER_DEBUG
2197 	parse_events_debug = 1;
2198 	parse_events_set_debug(1, scanner);
2199 #endif
2200 	ret = parse_events_parse(parse_state, scanner);
2201 
2202 	parse_events__flush_buffer(buffer, scanner);
2203 	parse_events__delete_buffer(buffer, scanner);
2204 	parse_events_lex_destroy(scanner);
2205 	return ret;
2206 }
2207 
2208 /*
2209  * parse event config string, return a list of event terms.
2210  */
2211 int parse_events_terms(struct list_head *terms, const char *str)
2212 {
2213 	struct parse_events_state parse_state = {
2214 		.terms  = NULL,
2215 		.stoken = PE_START_TERMS,
2216 	};
2217 	int ret;
2218 
2219 	ret = parse_events__scanner(str, &parse_state);
2220 	perf_pmu__parse_cleanup();
2221 
2222 	if (!ret) {
2223 		list_splice(parse_state.terms, terms);
2224 		zfree(&parse_state.terms);
2225 		return 0;
2226 	}
2227 
2228 	parse_events_terms__delete(parse_state.terms);
2229 	return ret;
2230 }
2231 
2232 static int parse_events__with_hybrid_pmu(struct parse_events_state *parse_state,
2233 					 const char *str, char *pmu_name,
2234 					 struct list_head *list)
2235 {
2236 	struct parse_events_state ps = {
2237 		.list            = LIST_HEAD_INIT(ps.list),
2238 		.stoken          = PE_START_EVENTS,
2239 		.hybrid_pmu_name = pmu_name,
2240 		.idx             = parse_state->idx,
2241 	};
2242 	int ret;
2243 
2244 	ret = parse_events__scanner(str, &ps);
2245 	perf_pmu__parse_cleanup();
2246 
2247 	if (!ret) {
2248 		if (!list_empty(&ps.list)) {
2249 			list_splice(&ps.list, list);
2250 			parse_state->idx = ps.idx;
2251 			return 0;
2252 		} else
2253 			return -1;
2254 	}
2255 
2256 	return ret;
2257 }
2258 
2259 int __parse_events(struct evlist *evlist, const char *str,
2260 		   struct parse_events_error *err, struct perf_pmu *fake_pmu)
2261 {
2262 	struct parse_events_state parse_state = {
2263 		.list	  = LIST_HEAD_INIT(parse_state.list),
2264 		.idx	  = evlist->core.nr_entries,
2265 		.error	  = err,
2266 		.evlist	  = evlist,
2267 		.stoken	  = PE_START_EVENTS,
2268 		.fake_pmu = fake_pmu,
2269 	};
2270 	int ret;
2271 
2272 	ret = parse_events__scanner(str, &parse_state);
2273 	perf_pmu__parse_cleanup();
2274 
2275 	if (!ret && list_empty(&parse_state.list)) {
2276 		WARN_ONCE(true, "WARNING: event parser found nothing\n");
2277 		return -1;
2278 	}
2279 
2280 	/*
2281 	 * Add list to the evlist even with errors to allow callers to clean up.
2282 	 */
2283 	evlist__splice_list_tail(evlist, &parse_state.list);
2284 
2285 	if (!ret) {
2286 		struct evsel *last;
2287 
2288 		evlist->nr_groups += parse_state.nr_groups;
2289 		last = evlist__last(evlist);
2290 		last->cmdline_group_boundary = true;
2291 
2292 		return 0;
2293 	}
2294 
2295 	/*
2296 	 * There are 2 users - builtin-record and builtin-test objects.
2297 	 * Both call evlist__delete in case of error, so we dont
2298 	 * need to bother.
2299 	 */
2300 	return ret;
2301 }
2302 
2303 #define MAX_WIDTH 1000
2304 static int get_term_width(void)
2305 {
2306 	struct winsize ws;
2307 
2308 	get_term_dimensions(&ws);
2309 	return ws.ws_col > MAX_WIDTH ? MAX_WIDTH : ws.ws_col;
2310 }
2311 
2312 static void __parse_events_print_error(int err_idx, const char *err_str,
2313 				const char *err_help, const char *event)
2314 {
2315 	const char *str = "invalid or unsupported event: ";
2316 	char _buf[MAX_WIDTH];
2317 	char *buf = (char *) event;
2318 	int idx = 0;
2319 	if (err_str) {
2320 		/* -2 for extra '' in the final fprintf */
2321 		int width       = get_term_width() - 2;
2322 		int len_event   = strlen(event);
2323 		int len_str, max_len, cut = 0;
2324 
2325 		/*
2326 		 * Maximum error index indent, we will cut
2327 		 * the event string if it's bigger.
2328 		 */
2329 		int max_err_idx = 13;
2330 
2331 		/*
2332 		 * Let's be specific with the message when
2333 		 * we have the precise error.
2334 		 */
2335 		str     = "event syntax error: ";
2336 		len_str = strlen(str);
2337 		max_len = width - len_str;
2338 
2339 		buf = _buf;
2340 
2341 		/* We're cutting from the beginning. */
2342 		if (err_idx > max_err_idx)
2343 			cut = err_idx - max_err_idx;
2344 
2345 		strncpy(buf, event + cut, max_len);
2346 
2347 		/* Mark cut parts with '..' on both sides. */
2348 		if (cut)
2349 			buf[0] = buf[1] = '.';
2350 
2351 		if ((len_event - cut) > max_len) {
2352 			buf[max_len - 1] = buf[max_len - 2] = '.';
2353 			buf[max_len] = 0;
2354 		}
2355 
2356 		idx = len_str + err_idx - cut;
2357 	}
2358 
2359 	fprintf(stderr, "%s'%s'\n", str, buf);
2360 	if (idx) {
2361 		fprintf(stderr, "%*s\\___ %s\n", idx + 1, "", err_str);
2362 		if (err_help)
2363 			fprintf(stderr, "\n%s\n", err_help);
2364 	}
2365 }
2366 
2367 void parse_events_print_error(struct parse_events_error *err,
2368 			      const char *event)
2369 {
2370 	if (!err->num_errors)
2371 		return;
2372 
2373 	__parse_events_print_error(err->idx, err->str, err->help, event);
2374 	zfree(&err->str);
2375 	zfree(&err->help);
2376 
2377 	if (err->num_errors > 1) {
2378 		fputs("\nInitial error:\n", stderr);
2379 		__parse_events_print_error(err->first_idx, err->first_str,
2380 					err->first_help, event);
2381 		zfree(&err->first_str);
2382 		zfree(&err->first_help);
2383 	}
2384 }
2385 
2386 #undef MAX_WIDTH
2387 
2388 int parse_events_option(const struct option *opt, const char *str,
2389 			int unset __maybe_unused)
2390 {
2391 	struct evlist *evlist = *(struct evlist **)opt->value;
2392 	struct parse_events_error err;
2393 	int ret;
2394 
2395 	bzero(&err, sizeof(err));
2396 	ret = parse_events(evlist, str, &err);
2397 
2398 	if (ret) {
2399 		parse_events_print_error(&err, str);
2400 		fprintf(stderr, "Run 'perf list' for a list of valid events\n");
2401 	}
2402 
2403 	return ret;
2404 }
2405 
2406 int parse_events_option_new_evlist(const struct option *opt, const char *str, int unset)
2407 {
2408 	struct evlist **evlistp = opt->value;
2409 	int ret;
2410 
2411 	if (*evlistp == NULL) {
2412 		*evlistp = evlist__new();
2413 
2414 		if (*evlistp == NULL) {
2415 			fprintf(stderr, "Not enough memory to create evlist\n");
2416 			return -1;
2417 		}
2418 	}
2419 
2420 	ret = parse_events_option(opt, str, unset);
2421 	if (ret) {
2422 		evlist__delete(*evlistp);
2423 		*evlistp = NULL;
2424 	}
2425 
2426 	return ret;
2427 }
2428 
2429 static int
2430 foreach_evsel_in_last_glob(struct evlist *evlist,
2431 			   int (*func)(struct evsel *evsel,
2432 				       const void *arg),
2433 			   const void *arg)
2434 {
2435 	struct evsel *last = NULL;
2436 	int err;
2437 
2438 	/*
2439 	 * Don't return when list_empty, give func a chance to report
2440 	 * error when it found last == NULL.
2441 	 *
2442 	 * So no need to WARN here, let *func do this.
2443 	 */
2444 	if (evlist->core.nr_entries > 0)
2445 		last = evlist__last(evlist);
2446 
2447 	do {
2448 		err = (*func)(last, arg);
2449 		if (err)
2450 			return -1;
2451 		if (!last)
2452 			return 0;
2453 
2454 		if (last->core.node.prev == &evlist->core.entries)
2455 			return 0;
2456 		last = list_entry(last->core.node.prev, struct evsel, core.node);
2457 	} while (!last->cmdline_group_boundary);
2458 
2459 	return 0;
2460 }
2461 
2462 static int set_filter(struct evsel *evsel, const void *arg)
2463 {
2464 	const char *str = arg;
2465 	bool found = false;
2466 	int nr_addr_filters = 0;
2467 	struct perf_pmu *pmu = NULL;
2468 
2469 	if (evsel == NULL) {
2470 		fprintf(stderr,
2471 			"--filter option should follow a -e tracepoint or HW tracer option\n");
2472 		return -1;
2473 	}
2474 
2475 	if (evsel->core.attr.type == PERF_TYPE_TRACEPOINT) {
2476 		if (evsel__append_tp_filter(evsel, str) < 0) {
2477 			fprintf(stderr,
2478 				"not enough memory to hold filter string\n");
2479 			return -1;
2480 		}
2481 
2482 		return 0;
2483 	}
2484 
2485 	while ((pmu = perf_pmu__scan(pmu)) != NULL)
2486 		if (pmu->type == evsel->core.attr.type) {
2487 			found = true;
2488 			break;
2489 		}
2490 
2491 	if (found)
2492 		perf_pmu__scan_file(pmu, "nr_addr_filters",
2493 				    "%d", &nr_addr_filters);
2494 
2495 	if (!nr_addr_filters) {
2496 		fprintf(stderr,
2497 			"This CPU does not support address filtering\n");
2498 		return -1;
2499 	}
2500 
2501 	if (evsel__append_addr_filter(evsel, str) < 0) {
2502 		fprintf(stderr,
2503 			"not enough memory to hold filter string\n");
2504 		return -1;
2505 	}
2506 
2507 	return 0;
2508 }
2509 
2510 int parse_filter(const struct option *opt, const char *str,
2511 		 int unset __maybe_unused)
2512 {
2513 	struct evlist *evlist = *(struct evlist **)opt->value;
2514 
2515 	return foreach_evsel_in_last_glob(evlist, set_filter,
2516 					  (const void *)str);
2517 }
2518 
2519 static int add_exclude_perf_filter(struct evsel *evsel,
2520 				   const void *arg __maybe_unused)
2521 {
2522 	char new_filter[64];
2523 
2524 	if (evsel == NULL || evsel->core.attr.type != PERF_TYPE_TRACEPOINT) {
2525 		fprintf(stderr,
2526 			"--exclude-perf option should follow a -e tracepoint option\n");
2527 		return -1;
2528 	}
2529 
2530 	snprintf(new_filter, sizeof(new_filter), "common_pid != %d", getpid());
2531 
2532 	if (evsel__append_tp_filter(evsel, new_filter) < 0) {
2533 		fprintf(stderr,
2534 			"not enough memory to hold filter string\n");
2535 		return -1;
2536 	}
2537 
2538 	return 0;
2539 }
2540 
2541 int exclude_perf(const struct option *opt,
2542 		 const char *arg __maybe_unused,
2543 		 int unset __maybe_unused)
2544 {
2545 	struct evlist *evlist = *(struct evlist **)opt->value;
2546 
2547 	return foreach_evsel_in_last_glob(evlist, add_exclude_perf_filter,
2548 					  NULL);
2549 }
2550 
2551 static const char * const event_type_descriptors[] = {
2552 	"Hardware event",
2553 	"Software event",
2554 	"Tracepoint event",
2555 	"Hardware cache event",
2556 	"Raw hardware event descriptor",
2557 	"Hardware breakpoint",
2558 };
2559 
2560 static int cmp_string(const void *a, const void *b)
2561 {
2562 	const char * const *as = a;
2563 	const char * const *bs = b;
2564 
2565 	return strcmp(*as, *bs);
2566 }
2567 
2568 /*
2569  * Print the events from <debugfs_mount_point>/tracing/events
2570  */
2571 
2572 void print_tracepoint_events(const char *subsys_glob, const char *event_glob,
2573 			     bool name_only)
2574 {
2575 	DIR *sys_dir, *evt_dir;
2576 	struct dirent *sys_dirent, *evt_dirent;
2577 	char evt_path[MAXPATHLEN];
2578 	char *dir_path;
2579 	char **evt_list = NULL;
2580 	unsigned int evt_i = 0, evt_num = 0;
2581 	bool evt_num_known = false;
2582 
2583 restart:
2584 	sys_dir = tracing_events__opendir();
2585 	if (!sys_dir)
2586 		return;
2587 
2588 	if (evt_num_known) {
2589 		evt_list = zalloc(sizeof(char *) * evt_num);
2590 		if (!evt_list)
2591 			goto out_close_sys_dir;
2592 	}
2593 
2594 	for_each_subsystem(sys_dir, sys_dirent) {
2595 		if (subsys_glob != NULL &&
2596 		    !strglobmatch(sys_dirent->d_name, subsys_glob))
2597 			continue;
2598 
2599 		dir_path = get_events_file(sys_dirent->d_name);
2600 		if (!dir_path)
2601 			continue;
2602 		evt_dir = opendir(dir_path);
2603 		if (!evt_dir)
2604 			goto next;
2605 
2606 		for_each_event(dir_path, evt_dir, evt_dirent) {
2607 			if (event_glob != NULL &&
2608 			    !strglobmatch(evt_dirent->d_name, event_glob))
2609 				continue;
2610 
2611 			if (!evt_num_known) {
2612 				evt_num++;
2613 				continue;
2614 			}
2615 
2616 			snprintf(evt_path, MAXPATHLEN, "%s:%s",
2617 				 sys_dirent->d_name, evt_dirent->d_name);
2618 
2619 			evt_list[evt_i] = strdup(evt_path);
2620 			if (evt_list[evt_i] == NULL) {
2621 				put_events_file(dir_path);
2622 				goto out_close_evt_dir;
2623 			}
2624 			evt_i++;
2625 		}
2626 		closedir(evt_dir);
2627 next:
2628 		put_events_file(dir_path);
2629 	}
2630 	closedir(sys_dir);
2631 
2632 	if (!evt_num_known) {
2633 		evt_num_known = true;
2634 		goto restart;
2635 	}
2636 	qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2637 	evt_i = 0;
2638 	while (evt_i < evt_num) {
2639 		if (name_only) {
2640 			printf("%s ", evt_list[evt_i++]);
2641 			continue;
2642 		}
2643 		printf("  %-50s [%s]\n", evt_list[evt_i++],
2644 				event_type_descriptors[PERF_TYPE_TRACEPOINT]);
2645 	}
2646 	if (evt_num && pager_in_use())
2647 		printf("\n");
2648 
2649 out_free:
2650 	evt_num = evt_i;
2651 	for (evt_i = 0; evt_i < evt_num; evt_i++)
2652 		zfree(&evt_list[evt_i]);
2653 	zfree(&evt_list);
2654 	return;
2655 
2656 out_close_evt_dir:
2657 	closedir(evt_dir);
2658 out_close_sys_dir:
2659 	closedir(sys_dir);
2660 
2661 	printf("FATAL: not enough memory to print %s\n",
2662 			event_type_descriptors[PERF_TYPE_TRACEPOINT]);
2663 	if (evt_list)
2664 		goto out_free;
2665 }
2666 
2667 /*
2668  * Check whether event is in <debugfs_mount_point>/tracing/events
2669  */
2670 
2671 int is_valid_tracepoint(const char *event_string)
2672 {
2673 	DIR *sys_dir, *evt_dir;
2674 	struct dirent *sys_dirent, *evt_dirent;
2675 	char evt_path[MAXPATHLEN];
2676 	char *dir_path;
2677 
2678 	sys_dir = tracing_events__opendir();
2679 	if (!sys_dir)
2680 		return 0;
2681 
2682 	for_each_subsystem(sys_dir, sys_dirent) {
2683 		dir_path = get_events_file(sys_dirent->d_name);
2684 		if (!dir_path)
2685 			continue;
2686 		evt_dir = opendir(dir_path);
2687 		if (!evt_dir)
2688 			goto next;
2689 
2690 		for_each_event(dir_path, evt_dir, evt_dirent) {
2691 			snprintf(evt_path, MAXPATHLEN, "%s:%s",
2692 				 sys_dirent->d_name, evt_dirent->d_name);
2693 			if (!strcmp(evt_path, event_string)) {
2694 				closedir(evt_dir);
2695 				closedir(sys_dir);
2696 				return 1;
2697 			}
2698 		}
2699 		closedir(evt_dir);
2700 next:
2701 		put_events_file(dir_path);
2702 	}
2703 	closedir(sys_dir);
2704 	return 0;
2705 }
2706 
2707 static bool is_event_supported(u8 type, unsigned config)
2708 {
2709 	bool ret = true;
2710 	int open_return;
2711 	struct evsel *evsel;
2712 	struct perf_event_attr attr = {
2713 		.type = type,
2714 		.config = config,
2715 		.disabled = 1,
2716 	};
2717 	struct perf_thread_map *tmap = thread_map__new_by_tid(0);
2718 
2719 	if (tmap == NULL)
2720 		return false;
2721 
2722 	evsel = evsel__new(&attr);
2723 	if (evsel) {
2724 		open_return = evsel__open(evsel, NULL, tmap);
2725 		ret = open_return >= 0;
2726 
2727 		if (open_return == -EACCES) {
2728 			/*
2729 			 * This happens if the paranoid value
2730 			 * /proc/sys/kernel/perf_event_paranoid is set to 2
2731 			 * Re-run with exclude_kernel set; we don't do that
2732 			 * by default as some ARM machines do not support it.
2733 			 *
2734 			 */
2735 			evsel->core.attr.exclude_kernel = 1;
2736 			ret = evsel__open(evsel, NULL, tmap) >= 0;
2737 		}
2738 		evsel__delete(evsel);
2739 	}
2740 
2741 	perf_thread_map__put(tmap);
2742 	return ret;
2743 }
2744 
2745 void print_sdt_events(const char *subsys_glob, const char *event_glob,
2746 		      bool name_only)
2747 {
2748 	struct probe_cache *pcache;
2749 	struct probe_cache_entry *ent;
2750 	struct strlist *bidlist, *sdtlist;
2751 	struct strlist_config cfg = {.dont_dupstr = true};
2752 	struct str_node *nd, *nd2;
2753 	char *buf, *path, *ptr = NULL;
2754 	bool show_detail = false;
2755 	int ret;
2756 
2757 	sdtlist = strlist__new(NULL, &cfg);
2758 	if (!sdtlist) {
2759 		pr_debug("Failed to allocate new strlist for SDT\n");
2760 		return;
2761 	}
2762 	bidlist = build_id_cache__list_all(true);
2763 	if (!bidlist) {
2764 		pr_debug("Failed to get buildids: %d\n", errno);
2765 		return;
2766 	}
2767 	strlist__for_each_entry(nd, bidlist) {
2768 		pcache = probe_cache__new(nd->s, NULL);
2769 		if (!pcache)
2770 			continue;
2771 		list_for_each_entry(ent, &pcache->entries, node) {
2772 			if (!ent->sdt)
2773 				continue;
2774 			if (subsys_glob &&
2775 			    !strglobmatch(ent->pev.group, subsys_glob))
2776 				continue;
2777 			if (event_glob &&
2778 			    !strglobmatch(ent->pev.event, event_glob))
2779 				continue;
2780 			ret = asprintf(&buf, "%s:%s@%s", ent->pev.group,
2781 					ent->pev.event, nd->s);
2782 			if (ret > 0)
2783 				strlist__add(sdtlist, buf);
2784 		}
2785 		probe_cache__delete(pcache);
2786 	}
2787 	strlist__delete(bidlist);
2788 
2789 	strlist__for_each_entry(nd, sdtlist) {
2790 		buf = strchr(nd->s, '@');
2791 		if (buf)
2792 			*(buf++) = '\0';
2793 		if (name_only) {
2794 			printf("%s ", nd->s);
2795 			continue;
2796 		}
2797 		nd2 = strlist__next(nd);
2798 		if (nd2) {
2799 			ptr = strchr(nd2->s, '@');
2800 			if (ptr)
2801 				*ptr = '\0';
2802 			if (strcmp(nd->s, nd2->s) == 0)
2803 				show_detail = true;
2804 		}
2805 		if (show_detail) {
2806 			path = build_id_cache__origname(buf);
2807 			ret = asprintf(&buf, "%s@%s(%.12s)", nd->s, path, buf);
2808 			if (ret > 0) {
2809 				printf("  %-50s [%s]\n", buf, "SDT event");
2810 				free(buf);
2811 			}
2812 			free(path);
2813 		} else
2814 			printf("  %-50s [%s]\n", nd->s, "SDT event");
2815 		if (nd2) {
2816 			if (strcmp(nd->s, nd2->s) != 0)
2817 				show_detail = false;
2818 			if (ptr)
2819 				*ptr = '@';
2820 		}
2821 	}
2822 	strlist__delete(sdtlist);
2823 }
2824 
2825 int print_hwcache_events(const char *event_glob, bool name_only)
2826 {
2827 	unsigned int type, op, i, evt_i = 0, evt_num = 0;
2828 	char name[64];
2829 	char **evt_list = NULL;
2830 	bool evt_num_known = false;
2831 
2832 restart:
2833 	if (evt_num_known) {
2834 		evt_list = zalloc(sizeof(char *) * evt_num);
2835 		if (!evt_list)
2836 			goto out_enomem;
2837 	}
2838 
2839 	for (type = 0; type < PERF_COUNT_HW_CACHE_MAX; type++) {
2840 		for (op = 0; op < PERF_COUNT_HW_CACHE_OP_MAX; op++) {
2841 			/* skip invalid cache type */
2842 			if (!evsel__is_cache_op_valid(type, op))
2843 				continue;
2844 
2845 			for (i = 0; i < PERF_COUNT_HW_CACHE_RESULT_MAX; i++) {
2846 				__evsel__hw_cache_type_op_res_name(type, op, i, name, sizeof(name));
2847 				if (event_glob != NULL && !strglobmatch(name, event_glob))
2848 					continue;
2849 
2850 				if (!is_event_supported(PERF_TYPE_HW_CACHE,
2851 							type | (op << 8) | (i << 16)))
2852 					continue;
2853 
2854 				if (!evt_num_known) {
2855 					evt_num++;
2856 					continue;
2857 				}
2858 
2859 				evt_list[evt_i] = strdup(name);
2860 				if (evt_list[evt_i] == NULL)
2861 					goto out_enomem;
2862 				evt_i++;
2863 			}
2864 		}
2865 	}
2866 
2867 	if (!evt_num_known) {
2868 		evt_num_known = true;
2869 		goto restart;
2870 	}
2871 	qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2872 	evt_i = 0;
2873 	while (evt_i < evt_num) {
2874 		if (name_only) {
2875 			printf("%s ", evt_list[evt_i++]);
2876 			continue;
2877 		}
2878 		printf("  %-50s [%s]\n", evt_list[evt_i++],
2879 				event_type_descriptors[PERF_TYPE_HW_CACHE]);
2880 	}
2881 	if (evt_num && pager_in_use())
2882 		printf("\n");
2883 
2884 out_free:
2885 	evt_num = evt_i;
2886 	for (evt_i = 0; evt_i < evt_num; evt_i++)
2887 		zfree(&evt_list[evt_i]);
2888 	zfree(&evt_list);
2889 	return evt_num;
2890 
2891 out_enomem:
2892 	printf("FATAL: not enough memory to print %s\n", event_type_descriptors[PERF_TYPE_HW_CACHE]);
2893 	if (evt_list)
2894 		goto out_free;
2895 	return evt_num;
2896 }
2897 
2898 static void print_tool_event(const char *name, const char *event_glob,
2899 			     bool name_only)
2900 {
2901 	if (event_glob && !strglobmatch(name, event_glob))
2902 		return;
2903 	if (name_only)
2904 		printf("%s ", name);
2905 	else
2906 		printf("  %-50s [%s]\n", name, "Tool event");
2907 
2908 }
2909 
2910 void print_tool_events(const char *event_glob, bool name_only)
2911 {
2912 	print_tool_event("duration_time", event_glob, name_only);
2913 	if (pager_in_use())
2914 		printf("\n");
2915 }
2916 
2917 void print_symbol_events(const char *event_glob, unsigned type,
2918 				struct event_symbol *syms, unsigned max,
2919 				bool name_only)
2920 {
2921 	unsigned int i, evt_i = 0, evt_num = 0;
2922 	char name[MAX_NAME_LEN];
2923 	char **evt_list = NULL;
2924 	bool evt_num_known = false;
2925 
2926 restart:
2927 	if (evt_num_known) {
2928 		evt_list = zalloc(sizeof(char *) * evt_num);
2929 		if (!evt_list)
2930 			goto out_enomem;
2931 		syms -= max;
2932 	}
2933 
2934 	for (i = 0; i < max; i++, syms++) {
2935 		/*
2936 		 * New attr.config still not supported here, the latest
2937 		 * example was PERF_COUNT_SW_CGROUP_SWITCHES
2938 		 */
2939 		if (syms->symbol == NULL)
2940 			continue;
2941 
2942 		if (event_glob != NULL && !(strglobmatch(syms->symbol, event_glob) ||
2943 		      (syms->alias && strglobmatch(syms->alias, event_glob))))
2944 			continue;
2945 
2946 		if (!is_event_supported(type, i))
2947 			continue;
2948 
2949 		if (!evt_num_known) {
2950 			evt_num++;
2951 			continue;
2952 		}
2953 
2954 		if (!name_only && strlen(syms->alias))
2955 			snprintf(name, MAX_NAME_LEN, "%s OR %s", syms->symbol, syms->alias);
2956 		else
2957 			strlcpy(name, syms->symbol, MAX_NAME_LEN);
2958 
2959 		evt_list[evt_i] = strdup(name);
2960 		if (evt_list[evt_i] == NULL)
2961 			goto out_enomem;
2962 		evt_i++;
2963 	}
2964 
2965 	if (!evt_num_known) {
2966 		evt_num_known = true;
2967 		goto restart;
2968 	}
2969 	qsort(evt_list, evt_num, sizeof(char *), cmp_string);
2970 	evt_i = 0;
2971 	while (evt_i < evt_num) {
2972 		if (name_only) {
2973 			printf("%s ", evt_list[evt_i++]);
2974 			continue;
2975 		}
2976 		printf("  %-50s [%s]\n", evt_list[evt_i++], event_type_descriptors[type]);
2977 	}
2978 	if (evt_num && pager_in_use())
2979 		printf("\n");
2980 
2981 out_free:
2982 	evt_num = evt_i;
2983 	for (evt_i = 0; evt_i < evt_num; evt_i++)
2984 		zfree(&evt_list[evt_i]);
2985 	zfree(&evt_list);
2986 	return;
2987 
2988 out_enomem:
2989 	printf("FATAL: not enough memory to print %s\n", event_type_descriptors[type]);
2990 	if (evt_list)
2991 		goto out_free;
2992 }
2993 
2994 /*
2995  * Print the help text for the event symbols:
2996  */
2997 void print_events(const char *event_glob, bool name_only, bool quiet_flag,
2998 			bool long_desc, bool details_flag, bool deprecated)
2999 {
3000 	print_symbol_events(event_glob, PERF_TYPE_HARDWARE,
3001 			    event_symbols_hw, PERF_COUNT_HW_MAX, name_only);
3002 
3003 	print_symbol_events(event_glob, PERF_TYPE_SOFTWARE,
3004 			    event_symbols_sw, PERF_COUNT_SW_MAX, name_only);
3005 	print_tool_events(event_glob, name_only);
3006 
3007 	print_hwcache_events(event_glob, name_only);
3008 
3009 	print_pmu_events(event_glob, name_only, quiet_flag, long_desc,
3010 			details_flag, deprecated);
3011 
3012 	if (event_glob != NULL)
3013 		return;
3014 
3015 	if (!name_only) {
3016 		printf("  %-50s [%s]\n",
3017 		       "rNNN",
3018 		       event_type_descriptors[PERF_TYPE_RAW]);
3019 		printf("  %-50s [%s]\n",
3020 		       "cpu/t1=v1[,t2=v2,t3 ...]/modifier",
3021 		       event_type_descriptors[PERF_TYPE_RAW]);
3022 		if (pager_in_use())
3023 			printf("   (see 'man perf-list' on how to encode it)\n\n");
3024 
3025 		printf("  %-50s [%s]\n",
3026 		       "mem:<addr>[/len][:access]",
3027 			event_type_descriptors[PERF_TYPE_BREAKPOINT]);
3028 		if (pager_in_use())
3029 			printf("\n");
3030 	}
3031 
3032 	print_tracepoint_events(NULL, NULL, name_only);
3033 
3034 	print_sdt_events(NULL, NULL, name_only);
3035 
3036 	metricgroup__print(true, true, NULL, name_only, details_flag);
3037 
3038 	print_libpfm_events(name_only, long_desc);
3039 }
3040 
3041 int parse_events__is_hardcoded_term(struct parse_events_term *term)
3042 {
3043 	return term->type_term != PARSE_EVENTS__TERM_TYPE_USER;
3044 }
3045 
3046 static int new_term(struct parse_events_term **_term,
3047 		    struct parse_events_term *temp,
3048 		    char *str, u64 num)
3049 {
3050 	struct parse_events_term *term;
3051 
3052 	term = malloc(sizeof(*term));
3053 	if (!term)
3054 		return -ENOMEM;
3055 
3056 	*term = *temp;
3057 	INIT_LIST_HEAD(&term->list);
3058 	term->weak = false;
3059 
3060 	switch (term->type_val) {
3061 	case PARSE_EVENTS__TERM_TYPE_NUM:
3062 		term->val.num = num;
3063 		break;
3064 	case PARSE_EVENTS__TERM_TYPE_STR:
3065 		term->val.str = str;
3066 		break;
3067 	default:
3068 		free(term);
3069 		return -EINVAL;
3070 	}
3071 
3072 	*_term = term;
3073 	return 0;
3074 }
3075 
3076 int parse_events_term__num(struct parse_events_term **term,
3077 			   int type_term, char *config, u64 num,
3078 			   bool no_value,
3079 			   void *loc_term_, void *loc_val_)
3080 {
3081 	YYLTYPE *loc_term = loc_term_;
3082 	YYLTYPE *loc_val = loc_val_;
3083 
3084 	struct parse_events_term temp = {
3085 		.type_val  = PARSE_EVENTS__TERM_TYPE_NUM,
3086 		.type_term = type_term,
3087 		.config    = config,
3088 		.no_value  = no_value,
3089 		.err_term  = loc_term ? loc_term->first_column : 0,
3090 		.err_val   = loc_val  ? loc_val->first_column  : 0,
3091 	};
3092 
3093 	return new_term(term, &temp, NULL, num);
3094 }
3095 
3096 int parse_events_term__str(struct parse_events_term **term,
3097 			   int type_term, char *config, char *str,
3098 			   void *loc_term_, void *loc_val_)
3099 {
3100 	YYLTYPE *loc_term = loc_term_;
3101 	YYLTYPE *loc_val = loc_val_;
3102 
3103 	struct parse_events_term temp = {
3104 		.type_val  = PARSE_EVENTS__TERM_TYPE_STR,
3105 		.type_term = type_term,
3106 		.config    = config,
3107 		.err_term  = loc_term ? loc_term->first_column : 0,
3108 		.err_val   = loc_val  ? loc_val->first_column  : 0,
3109 	};
3110 
3111 	return new_term(term, &temp, str, 0);
3112 }
3113 
3114 int parse_events_term__sym_hw(struct parse_events_term **term,
3115 			      char *config, unsigned idx)
3116 {
3117 	struct event_symbol *sym;
3118 	char *str;
3119 	struct parse_events_term temp = {
3120 		.type_val  = PARSE_EVENTS__TERM_TYPE_STR,
3121 		.type_term = PARSE_EVENTS__TERM_TYPE_USER,
3122 		.config    = config,
3123 	};
3124 
3125 	if (!temp.config) {
3126 		temp.config = strdup("event");
3127 		if (!temp.config)
3128 			return -ENOMEM;
3129 	}
3130 	BUG_ON(idx >= PERF_COUNT_HW_MAX);
3131 	sym = &event_symbols_hw[idx];
3132 
3133 	str = strdup(sym->symbol);
3134 	if (!str)
3135 		return -ENOMEM;
3136 	return new_term(term, &temp, str, 0);
3137 }
3138 
3139 int parse_events_term__clone(struct parse_events_term **new,
3140 			     struct parse_events_term *term)
3141 {
3142 	char *str;
3143 	struct parse_events_term temp = {
3144 		.type_val  = term->type_val,
3145 		.type_term = term->type_term,
3146 		.config    = NULL,
3147 		.err_term  = term->err_term,
3148 		.err_val   = term->err_val,
3149 	};
3150 
3151 	if (term->config) {
3152 		temp.config = strdup(term->config);
3153 		if (!temp.config)
3154 			return -ENOMEM;
3155 	}
3156 	if (term->type_val == PARSE_EVENTS__TERM_TYPE_NUM)
3157 		return new_term(new, &temp, NULL, term->val.num);
3158 
3159 	str = strdup(term->val.str);
3160 	if (!str)
3161 		return -ENOMEM;
3162 	return new_term(new, &temp, str, 0);
3163 }
3164 
3165 void parse_events_term__delete(struct parse_events_term *term)
3166 {
3167 	if (term->array.nr_ranges)
3168 		zfree(&term->array.ranges);
3169 
3170 	if (term->type_val != PARSE_EVENTS__TERM_TYPE_NUM)
3171 		zfree(&term->val.str);
3172 
3173 	zfree(&term->config);
3174 	free(term);
3175 }
3176 
3177 int parse_events_copy_term_list(struct list_head *old,
3178 				 struct list_head **new)
3179 {
3180 	struct parse_events_term *term, *n;
3181 	int ret;
3182 
3183 	if (!old) {
3184 		*new = NULL;
3185 		return 0;
3186 	}
3187 
3188 	*new = malloc(sizeof(struct list_head));
3189 	if (!*new)
3190 		return -ENOMEM;
3191 	INIT_LIST_HEAD(*new);
3192 
3193 	list_for_each_entry (term, old, list) {
3194 		ret = parse_events_term__clone(&n, term);
3195 		if (ret)
3196 			return ret;
3197 		list_add_tail(&n->list, *new);
3198 	}
3199 	return 0;
3200 }
3201 
3202 void parse_events_terms__purge(struct list_head *terms)
3203 {
3204 	struct parse_events_term *term, *h;
3205 
3206 	list_for_each_entry_safe(term, h, terms, list) {
3207 		list_del_init(&term->list);
3208 		parse_events_term__delete(term);
3209 	}
3210 }
3211 
3212 void parse_events_terms__delete(struct list_head *terms)
3213 {
3214 	if (!terms)
3215 		return;
3216 	parse_events_terms__purge(terms);
3217 	free(terms);
3218 }
3219 
3220 void parse_events__clear_array(struct parse_events_array *a)
3221 {
3222 	zfree(&a->ranges);
3223 }
3224 
3225 void parse_events_evlist_error(struct parse_events_state *parse_state,
3226 			       int idx, const char *str)
3227 {
3228 	if (!parse_state->error)
3229 		return;
3230 
3231 	parse_events__handle_error(parse_state->error, idx, strdup(str), NULL);
3232 }
3233 
3234 static void config_terms_list(char *buf, size_t buf_sz)
3235 {
3236 	int i;
3237 	bool first = true;
3238 
3239 	buf[0] = '\0';
3240 	for (i = 0; i < __PARSE_EVENTS__TERM_TYPE_NR; i++) {
3241 		const char *name = config_term_names[i];
3242 
3243 		if (!config_term_avail(i, NULL))
3244 			continue;
3245 		if (!name)
3246 			continue;
3247 		if (name[0] == '<')
3248 			continue;
3249 
3250 		if (strlen(buf) + strlen(name) + 2 >= buf_sz)
3251 			return;
3252 
3253 		if (!first)
3254 			strcat(buf, ",");
3255 		else
3256 			first = false;
3257 		strcat(buf, name);
3258 	}
3259 }
3260 
3261 /*
3262  * Return string contains valid config terms of an event.
3263  * @additional_terms: For terms such as PMU sysfs terms.
3264  */
3265 char *parse_events_formats_error_string(char *additional_terms)
3266 {
3267 	char *str;
3268 	/* "no-overwrite" is the longest name */
3269 	char static_terms[__PARSE_EVENTS__TERM_TYPE_NR *
3270 			  (sizeof("no-overwrite") - 1)];
3271 
3272 	config_terms_list(static_terms, sizeof(static_terms));
3273 	/* valid terms */
3274 	if (additional_terms) {
3275 		if (asprintf(&str, "valid terms: %s,%s",
3276 			     additional_terms, static_terms) < 0)
3277 			goto fail;
3278 	} else {
3279 		if (asprintf(&str, "valid terms: %s", static_terms) < 0)
3280 			goto fail;
3281 	}
3282 	return str;
3283 
3284 fail:
3285 	return NULL;
3286 }
3287 
3288 struct evsel *parse_events__add_event_hybrid(struct list_head *list, int *idx,
3289 					     struct perf_event_attr *attr,
3290 					     char *name, struct perf_pmu *pmu,
3291 					     struct list_head *config_terms)
3292 {
3293 	return __add_event(list, idx, attr, true, name, pmu,
3294 			   config_terms, false, NULL);
3295 }
3296