1#include <linux/hw_breakpoint.h>
2#include "util.h"
3#include "../perf.h"
4#include "evlist.h"
5#include "evsel.h"
6#include "parse-options.h"
7#include "parse-events.h"
8#include "exec_cmd.h"
9#include "string.h"
10#include "symbol.h"
11#include "cache.h"
12#include "header.h"
13#include <lk/debugfs.h>
14#include "parse-events-bison.h"
15#define YY_EXTRA_TYPE int
16#include "parse-events-flex.h"
17#include "pmu.h"
18
19#define MAX_NAME_LEN 100
20
21struct event_symbol {
22 const char *symbol;
23 const char *alias;
24};
25
26#ifdef PARSER_DEBUG
27extern int parse_events_debug;
28#endif
29int parse_events_parse(void *data, void *scanner);
30
31static struct event_symbol event_symbols_hw[PERF_COUNT_HW_MAX] = {
32 [PERF_COUNT_HW_CPU_CYCLES] = {
33 .symbol = "cpu-cycles",
34 .alias = "cycles",
35 },
36 [PERF_COUNT_HW_INSTRUCTIONS] = {
37 .symbol = "instructions",
38 .alias = "",
39 },
40 [PERF_COUNT_HW_CACHE_REFERENCES] = {
41 .symbol = "cache-references",
42 .alias = "",
43 },
44 [PERF_COUNT_HW_CACHE_MISSES] = {
45 .symbol = "cache-misses",
46 .alias = "",
47 },
48 [PERF_COUNT_HW_BRANCH_INSTRUCTIONS] = {
49 .symbol = "branch-instructions",
50 .alias = "branches",
51 },
52 [PERF_COUNT_HW_BRANCH_MISSES] = {
53 .symbol = "branch-misses",
54 .alias = "",
55 },
56 [PERF_COUNT_HW_BUS_CYCLES] = {
57 .symbol = "bus-cycles",
58 .alias = "",
59 },
60 [PERF_COUNT_HW_STALLED_CYCLES_FRONTEND] = {
61 .symbol = "stalled-cycles-frontend",
62 .alias = "idle-cycles-frontend",
63 },
64 [PERF_COUNT_HW_STALLED_CYCLES_BACKEND] = {
65 .symbol = "stalled-cycles-backend",
66 .alias = "idle-cycles-backend",
67 },
68 [PERF_COUNT_HW_REF_CPU_CYCLES] = {
69 .symbol = "ref-cycles",
70 .alias = "",
71 },
72};
73
74static struct event_symbol event_symbols_sw[PERF_COUNT_SW_MAX] = {
75 [PERF_COUNT_SW_CPU_CLOCK] = {
76 .symbol = "cpu-clock",
77 .alias = "",
78 },
79 [PERF_COUNT_SW_TASK_CLOCK] = {
80 .symbol = "task-clock",
81 .alias = "",
82 },
83 [PERF_COUNT_SW_PAGE_FAULTS] = {
84 .symbol = "page-faults",
85 .alias = "faults",
86 },
87 [PERF_COUNT_SW_CONTEXT_SWITCHES] = {
88 .symbol = "context-switches",
89 .alias = "cs",
90 },
91 [PERF_COUNT_SW_CPU_MIGRATIONS] = {
92 .symbol = "cpu-migrations",
93 .alias = "migrations",
94 },
95 [PERF_COUNT_SW_PAGE_FAULTS_MIN] = {
96 .symbol = "minor-faults",
97 .alias = "",
98 },
99 [PERF_COUNT_SW_PAGE_FAULTS_MAJ] = {
100 .symbol = "major-faults",
101 .alias = "",
102 },
103 [PERF_COUNT_SW_ALIGNMENT_FAULTS] = {
104 .symbol = "alignment-faults",
105 .alias = "",
106 },
107 [PERF_COUNT_SW_EMULATION_FAULTS] = {
108 .symbol = "emulation-faults",
109 .alias = "",
110 },
111};
112
113#define __PERF_EVENT_FIELD(config, name) \
114 ((config & PERF_EVENT_##name##_MASK) >> PERF_EVENT_##name##_SHIFT)
115
116#define PERF_EVENT_RAW(config) __PERF_EVENT_FIELD(config, RAW)
117#define PERF_EVENT_CONFIG(config) __PERF_EVENT_FIELD(config, CONFIG)
118#define PERF_EVENT_TYPE(config) __PERF_EVENT_FIELD(config, TYPE)
119#define PERF_EVENT_ID(config) __PERF_EVENT_FIELD(config, EVENT)
120
121#define for_each_subsystem(sys_dir, sys_dirent, sys_next) \
122 while (!readdir_r(sys_dir, &sys_dirent, &sys_next) && sys_next) \
123 if (sys_dirent.d_type == DT_DIR && \
124 (strcmp(sys_dirent.d_name, ".")) && \
125 (strcmp(sys_dirent.d_name, "..")))
126
127static int tp_event_has_id(struct dirent *sys_dir, struct dirent *evt_dir)
128{
129 char evt_path[MAXPATHLEN];
130 int fd;
131
132 snprintf(evt_path, MAXPATHLEN, "%s/%s/%s/id", tracing_events_path,
133 sys_dir->d_name, evt_dir->d_name);
134 fd = open(evt_path, O_RDONLY);
135 if (fd < 0)
136 return -EINVAL;
137 close(fd);
138
139 return 0;
140}
141
142#define for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) \
143 while (!readdir_r(evt_dir, &evt_dirent, &evt_next) && evt_next) \
144 if (evt_dirent.d_type == DT_DIR && \
145 (strcmp(evt_dirent.d_name, ".")) && \
146 (strcmp(evt_dirent.d_name, "..")) && \
147 (!tp_event_has_id(&sys_dirent, &evt_dirent)))
148
149#define MAX_EVENT_LENGTH 512
150
151
152struct tracepoint_path *tracepoint_id_to_path(u64 config)
153{
154 struct tracepoint_path *path = NULL;
155 DIR *sys_dir, *evt_dir;
156 struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
157 char id_buf[24];
158 int fd;
159 u64 id;
160 char evt_path[MAXPATHLEN];
161 char dir_path[MAXPATHLEN];
162
163 if (debugfs_valid_mountpoint(tracing_events_path))
164 return NULL;
165
166 sys_dir = opendir(tracing_events_path);
167 if (!sys_dir)
168 return NULL;
169
170 for_each_subsystem(sys_dir, sys_dirent, sys_next) {
171
172 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
173 sys_dirent.d_name);
174 evt_dir = opendir(dir_path);
175 if (!evt_dir)
176 continue;
177
178 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
179
180 snprintf(evt_path, MAXPATHLEN, "%s/%s/id", dir_path,
181 evt_dirent.d_name);
182 fd = open(evt_path, O_RDONLY);
183 if (fd < 0)
184 continue;
185 if (read(fd, id_buf, sizeof(id_buf)) < 0) {
186 close(fd);
187 continue;
188 }
189 close(fd);
190 id = atoll(id_buf);
191 if (id == config) {
192 closedir(evt_dir);
193 closedir(sys_dir);
194 path = zalloc(sizeof(*path));
195 path->system = malloc(MAX_EVENT_LENGTH);
196 if (!path->system) {
197 free(path);
198 return NULL;
199 }
200 path->name = malloc(MAX_EVENT_LENGTH);
201 if (!path->name) {
202 free(path->system);
203 free(path);
204 return NULL;
205 }
206 strncpy(path->system, sys_dirent.d_name,
207 MAX_EVENT_LENGTH);
208 strncpy(path->name, evt_dirent.d_name,
209 MAX_EVENT_LENGTH);
210 return path;
211 }
212 }
213 closedir(evt_dir);
214 }
215
216 closedir(sys_dir);
217 return NULL;
218}
219
220const char *event_type(int type)
221{
222 switch (type) {
223 case PERF_TYPE_HARDWARE:
224 return "hardware";
225
226 case PERF_TYPE_SOFTWARE:
227 return "software";
228
229 case PERF_TYPE_TRACEPOINT:
230 return "tracepoint";
231
232 case PERF_TYPE_HW_CACHE:
233 return "hardware-cache";
234
235 default:
236 break;
237 }
238
239 return "unknown";
240}
241
242
243
244static int __add_event(struct list_head **_list, int *idx,
245 struct perf_event_attr *attr,
246 char *name, struct cpu_map *cpus)
247{
248 struct perf_evsel *evsel;
249 struct list_head *list = *_list;
250
251 if (!list) {
252 list = malloc(sizeof(*list));
253 if (!list)
254 return -ENOMEM;
255 INIT_LIST_HEAD(list);
256 }
257
258 event_attr_init(attr);
259
260 evsel = perf_evsel__new(attr, (*idx)++);
261 if (!evsel) {
262 free(list);
263 return -ENOMEM;
264 }
265
266 evsel->cpus = cpus;
267 if (name)
268 evsel->name = strdup(name);
269 list_add_tail(&evsel->node, list);
270 *_list = list;
271 return 0;
272}
273
274static int add_event(struct list_head **_list, int *idx,
275 struct perf_event_attr *attr, char *name)
276{
277 return __add_event(_list, idx, attr, name, NULL);
278}
279
280static int parse_aliases(char *str, const char *names[][PERF_EVSEL__MAX_ALIASES], int size)
281{
282 int i, j;
283 int n, longest = -1;
284
285 for (i = 0; i < size; i++) {
286 for (j = 0; j < PERF_EVSEL__MAX_ALIASES && names[i][j]; j++) {
287 n = strlen(names[i][j]);
288 if (n > longest && !strncasecmp(str, names[i][j], n))
289 longest = n;
290 }
291 if (longest > 0)
292 return i;
293 }
294
295 return -1;
296}
297
298int parse_events_add_cache(struct list_head **list, int *idx,
299 char *type, char *op_result1, char *op_result2)
300{
301 struct perf_event_attr attr;
302 char name[MAX_NAME_LEN];
303 int cache_type = -1, cache_op = -1, cache_result = -1;
304 char *op_result[2] = { op_result1, op_result2 };
305 int i, n;
306
307
308
309
310
311 cache_type = parse_aliases(type, perf_evsel__hw_cache,
312 PERF_COUNT_HW_CACHE_MAX);
313 if (cache_type == -1)
314 return -EINVAL;
315
316 n = snprintf(name, MAX_NAME_LEN, "%s", type);
317
318 for (i = 0; (i < 2) && (op_result[i]); i++) {
319 char *str = op_result[i];
320
321 n += snprintf(name + n, MAX_NAME_LEN - n, "-%s", str);
322
323 if (cache_op == -1) {
324 cache_op = parse_aliases(str, perf_evsel__hw_cache_op,
325 PERF_COUNT_HW_CACHE_OP_MAX);
326 if (cache_op >= 0) {
327 if (!perf_evsel__is_cache_op_valid(cache_type, cache_op))
328 return -EINVAL;
329 continue;
330 }
331 }
332
333 if (cache_result == -1) {
334 cache_result = parse_aliases(str, perf_evsel__hw_cache_result,
335 PERF_COUNT_HW_CACHE_RESULT_MAX);
336 if (cache_result >= 0)
337 continue;
338 }
339 }
340
341
342
343
344 if (cache_op == -1)
345 cache_op = PERF_COUNT_HW_CACHE_OP_READ;
346
347
348
349
350 if (cache_result == -1)
351 cache_result = PERF_COUNT_HW_CACHE_RESULT_ACCESS;
352
353 memset(&attr, 0, sizeof(attr));
354 attr.config = cache_type | (cache_op << 8) | (cache_result << 16);
355 attr.type = PERF_TYPE_HW_CACHE;
356 return add_event(list, idx, &attr, name);
357}
358
359static int add_tracepoint(struct list_head **listp, int *idx,
360 char *sys_name, char *evt_name)
361{
362 struct perf_evsel *evsel;
363 struct list_head *list = *listp;
364
365 if (!list) {
366 list = malloc(sizeof(*list));
367 if (!list)
368 return -ENOMEM;
369 INIT_LIST_HEAD(list);
370 }
371
372 evsel = perf_evsel__newtp(sys_name, evt_name, (*idx)++);
373 if (!evsel) {
374 free(list);
375 return -ENOMEM;
376 }
377
378 list_add_tail(&evsel->node, list);
379 *listp = list;
380 return 0;
381}
382
383static int add_tracepoint_multi_event(struct list_head **list, int *idx,
384 char *sys_name, char *evt_name)
385{
386 char evt_path[MAXPATHLEN];
387 struct dirent *evt_ent;
388 DIR *evt_dir;
389 int ret = 0;
390
391 snprintf(evt_path, MAXPATHLEN, "%s/%s", tracing_events_path, sys_name);
392 evt_dir = opendir(evt_path);
393 if (!evt_dir) {
394 perror("Can't open event dir");
395 return -1;
396 }
397
398 while (!ret && (evt_ent = readdir(evt_dir))) {
399 if (!strcmp(evt_ent->d_name, ".")
400 || !strcmp(evt_ent->d_name, "..")
401 || !strcmp(evt_ent->d_name, "enable")
402 || !strcmp(evt_ent->d_name, "filter"))
403 continue;
404
405 if (!strglobmatch(evt_ent->d_name, evt_name))
406 continue;
407
408 ret = add_tracepoint(list, idx, sys_name, evt_ent->d_name);
409 }
410
411 closedir(evt_dir);
412 return ret;
413}
414
415static int add_tracepoint_event(struct list_head **list, int *idx,
416 char *sys_name, char *evt_name)
417{
418 return strpbrk(evt_name, "*?") ?
419 add_tracepoint_multi_event(list, idx, sys_name, evt_name) :
420 add_tracepoint(list, idx, sys_name, evt_name);
421}
422
423static int add_tracepoint_multi_sys(struct list_head **list, int *idx,
424 char *sys_name, char *evt_name)
425{
426 struct dirent *events_ent;
427 DIR *events_dir;
428 int ret = 0;
429
430 events_dir = opendir(tracing_events_path);
431 if (!events_dir) {
432 perror("Can't open event dir");
433 return -1;
434 }
435
436 while (!ret && (events_ent = readdir(events_dir))) {
437 if (!strcmp(events_ent->d_name, ".")
438 || !strcmp(events_ent->d_name, "..")
439 || !strcmp(events_ent->d_name, "enable")
440 || !strcmp(events_ent->d_name, "header_event")
441 || !strcmp(events_ent->d_name, "header_page"))
442 continue;
443
444 if (!strglobmatch(events_ent->d_name, sys_name))
445 continue;
446
447 ret = add_tracepoint_event(list, idx, events_ent->d_name,
448 evt_name);
449 }
450
451 closedir(events_dir);
452 return ret;
453}
454
455int parse_events_add_tracepoint(struct list_head **list, int *idx,
456 char *sys, char *event)
457{
458 int ret;
459
460 ret = debugfs_valid_mountpoint(tracing_events_path);
461 if (ret)
462 return ret;
463
464 if (strpbrk(sys, "*?"))
465 return add_tracepoint_multi_sys(list, idx, sys, event);
466 else
467 return add_tracepoint_event(list, idx, sys, event);
468}
469
470static int
471parse_breakpoint_type(const char *type, struct perf_event_attr *attr)
472{
473 int i;
474
475 for (i = 0; i < 3; i++) {
476 if (!type || !type[i])
477 break;
478
479#define CHECK_SET_TYPE(bit) \
480do { \
481 if (attr->bp_type & bit) \
482 return -EINVAL; \
483 else \
484 attr->bp_type |= bit; \
485} while (0)
486
487 switch (type[i]) {
488 case 'r':
489 CHECK_SET_TYPE(HW_BREAKPOINT_R);
490 break;
491 case 'w':
492 CHECK_SET_TYPE(HW_BREAKPOINT_W);
493 break;
494 case 'x':
495 CHECK_SET_TYPE(HW_BREAKPOINT_X);
496 break;
497 default:
498 return -EINVAL;
499 }
500 }
501
502#undef CHECK_SET_TYPE
503
504 if (!attr->bp_type)
505 attr->bp_type = HW_BREAKPOINT_R | HW_BREAKPOINT_W;
506
507 return 0;
508}
509
510int parse_events_add_breakpoint(struct list_head **list, int *idx,
511 void *ptr, char *type)
512{
513 struct perf_event_attr attr;
514
515 memset(&attr, 0, sizeof(attr));
516 attr.bp_addr = (unsigned long) ptr;
517
518 if (parse_breakpoint_type(type, &attr))
519 return -EINVAL;
520
521
522
523
524
525 if (attr.bp_type == HW_BREAKPOINT_X)
526 attr.bp_len = sizeof(long);
527 else
528 attr.bp_len = HW_BREAKPOINT_LEN_4;
529
530 attr.type = PERF_TYPE_BREAKPOINT;
531 attr.sample_period = 1;
532
533 return add_event(list, idx, &attr, NULL);
534}
535
536static int config_term(struct perf_event_attr *attr,
537 struct parse_events_term *term)
538{
539#define CHECK_TYPE_VAL(type) \
540do { \
541 if (PARSE_EVENTS__TERM_TYPE_ ## type != term->type_val) \
542 return -EINVAL; \
543} while (0)
544
545 switch (term->type_term) {
546 case PARSE_EVENTS__TERM_TYPE_CONFIG:
547 CHECK_TYPE_VAL(NUM);
548 attr->config = term->val.num;
549 break;
550 case PARSE_EVENTS__TERM_TYPE_CONFIG1:
551 CHECK_TYPE_VAL(NUM);
552 attr->config1 = term->val.num;
553 break;
554 case PARSE_EVENTS__TERM_TYPE_CONFIG2:
555 CHECK_TYPE_VAL(NUM);
556 attr->config2 = term->val.num;
557 break;
558 case PARSE_EVENTS__TERM_TYPE_SAMPLE_PERIOD:
559 CHECK_TYPE_VAL(NUM);
560 attr->sample_period = term->val.num;
561 break;
562 case PARSE_EVENTS__TERM_TYPE_BRANCH_SAMPLE_TYPE:
563
564
565
566
567 break;
568 case PARSE_EVENTS__TERM_TYPE_NAME:
569 CHECK_TYPE_VAL(STR);
570 break;
571 default:
572 return -EINVAL;
573 }
574
575 return 0;
576#undef CHECK_TYPE_VAL
577}
578
579static int config_attr(struct perf_event_attr *attr,
580 struct list_head *head, int fail)
581{
582 struct parse_events_term *term;
583
584 list_for_each_entry(term, head, list)
585 if (config_term(attr, term) && fail)
586 return -EINVAL;
587
588 return 0;
589}
590
591int parse_events_add_numeric(struct list_head **list, int *idx,
592 u32 type, u64 config,
593 struct list_head *head_config)
594{
595 struct perf_event_attr attr;
596
597 memset(&attr, 0, sizeof(attr));
598 attr.type = type;
599 attr.config = config;
600
601 if (head_config &&
602 config_attr(&attr, head_config, 1))
603 return -EINVAL;
604
605 return add_event(list, idx, &attr, NULL);
606}
607
608static int parse_events__is_name_term(struct parse_events_term *term)
609{
610 return term->type_term == PARSE_EVENTS__TERM_TYPE_NAME;
611}
612
613static char *pmu_event_name(struct list_head *head_terms)
614{
615 struct parse_events_term *term;
616
617 list_for_each_entry(term, head_terms, list)
618 if (parse_events__is_name_term(term))
619 return term->val.str;
620
621 return NULL;
622}
623
624int parse_events_add_pmu(struct list_head **list, int *idx,
625 char *name, struct list_head *head_config)
626{
627 struct perf_event_attr attr;
628 struct perf_pmu *pmu;
629
630 pmu = perf_pmu__find(name);
631 if (!pmu)
632 return -EINVAL;
633
634 memset(&attr, 0, sizeof(attr));
635
636 if (perf_pmu__check_alias(pmu, head_config))
637 return -EINVAL;
638
639
640
641
642
643 config_attr(&attr, head_config, 0);
644
645 if (perf_pmu__config(pmu, &attr, head_config))
646 return -EINVAL;
647
648 return __add_event(list, idx, &attr, pmu_event_name(head_config),
649 pmu->cpus);
650}
651
652int parse_events__modifier_group(struct list_head *list,
653 char *event_mod)
654{
655 return parse_events__modifier_event(list, event_mod, true);
656}
657
658void parse_events__set_leader(char *name, struct list_head *list)
659{
660 struct perf_evsel *leader;
661
662 __perf_evlist__set_leader(list);
663 leader = list_entry(list->next, struct perf_evsel, node);
664 leader->group_name = name ? strdup(name) : NULL;
665}
666
667void parse_events_update_lists(struct list_head *list_event,
668 struct list_head *list_all)
669{
670
671
672
673
674
675 list_splice_tail(list_event, list_all);
676 free(list_event);
677}
678
679struct event_modifier {
680 int eu;
681 int ek;
682 int eh;
683 int eH;
684 int eG;
685 int precise;
686 int exclude_GH;
687};
688
689static int get_event_modifier(struct event_modifier *mod, char *str,
690 struct perf_evsel *evsel)
691{
692 int eu = evsel ? evsel->attr.exclude_user : 0;
693 int ek = evsel ? evsel->attr.exclude_kernel : 0;
694 int eh = evsel ? evsel->attr.exclude_hv : 0;
695 int eH = evsel ? evsel->attr.exclude_host : 0;
696 int eG = evsel ? evsel->attr.exclude_guest : 0;
697 int precise = evsel ? evsel->attr.precise_ip : 0;
698
699 int exclude = eu | ek | eh;
700 int exclude_GH = evsel ? evsel->exclude_GH : 0;
701
702 memset(mod, 0, sizeof(*mod));
703
704 while (*str) {
705 if (*str == 'u') {
706 if (!exclude)
707 exclude = eu = ek = eh = 1;
708 eu = 0;
709 } else if (*str == 'k') {
710 if (!exclude)
711 exclude = eu = ek = eh = 1;
712 ek = 0;
713 } else if (*str == 'h') {
714 if (!exclude)
715 exclude = eu = ek = eh = 1;
716 eh = 0;
717 } else if (*str == 'G') {
718 if (!exclude_GH)
719 exclude_GH = eG = eH = 1;
720 eG = 0;
721 } else if (*str == 'H') {
722 if (!exclude_GH)
723 exclude_GH = eG = eH = 1;
724 eH = 0;
725 } else if (*str == 'p') {
726 precise++;
727
728 if (!exclude_GH)
729 eG = 1;
730 } else
731 break;
732
733 ++str;
734 }
735
736
737
738
739
740
741
742
743
744
745
746 if (precise > 3)
747 return -EINVAL;
748
749 mod->eu = eu;
750 mod->ek = ek;
751 mod->eh = eh;
752 mod->eH = eH;
753 mod->eG = eG;
754 mod->precise = precise;
755 mod->exclude_GH = exclude_GH;
756 return 0;
757}
758
759
760
761
762
763static int check_modifier(char *str)
764{
765 char *p = str;
766
767
768 if (strlen(str) > (sizeof("ukhGHppp") - 1))
769 return -1;
770
771 while (*p) {
772 if (*p != 'p' && strchr(p + 1, *p))
773 return -1;
774 p++;
775 }
776
777 return 0;
778}
779
780int parse_events__modifier_event(struct list_head *list, char *str, bool add)
781{
782 struct perf_evsel *evsel;
783 struct event_modifier mod;
784
785 if (str == NULL)
786 return 0;
787
788 if (check_modifier(str))
789 return -EINVAL;
790
791 if (!add && get_event_modifier(&mod, str, NULL))
792 return -EINVAL;
793
794 list_for_each_entry(evsel, list, node) {
795
796 if (add && get_event_modifier(&mod, str, evsel))
797 return -EINVAL;
798
799 evsel->attr.exclude_user = mod.eu;
800 evsel->attr.exclude_kernel = mod.ek;
801 evsel->attr.exclude_hv = mod.eh;
802 evsel->attr.precise_ip = mod.precise;
803 evsel->attr.exclude_host = mod.eH;
804 evsel->attr.exclude_guest = mod.eG;
805 evsel->exclude_GH = mod.exclude_GH;
806 }
807
808 return 0;
809}
810
811int parse_events_name(struct list_head *list, char *name)
812{
813 struct perf_evsel *evsel;
814
815 list_for_each_entry(evsel, list, node) {
816 if (!evsel->name)
817 evsel->name = strdup(name);
818 }
819
820 return 0;
821}
822
823static int parse_events__scanner(const char *str, void *data, int start_token)
824{
825 YY_BUFFER_STATE buffer;
826 void *scanner;
827 int ret;
828
829 ret = parse_events_lex_init_extra(start_token, &scanner);
830 if (ret)
831 return ret;
832
833 buffer = parse_events__scan_string(str, scanner);
834
835#ifdef PARSER_DEBUG
836 parse_events_debug = 1;
837#endif
838 ret = parse_events_parse(data, scanner);
839
840 parse_events__flush_buffer(buffer, scanner);
841 parse_events__delete_buffer(buffer, scanner);
842 parse_events_lex_destroy(scanner);
843 return ret;
844}
845
846
847
848
849int parse_events_terms(struct list_head *terms, const char *str)
850{
851 struct parse_events_terms data = {
852 .terms = NULL,
853 };
854 int ret;
855
856 ret = parse_events__scanner(str, &data, PE_START_TERMS);
857 if (!ret) {
858 list_splice(data.terms, terms);
859 free(data.terms);
860 return 0;
861 }
862
863 parse_events__free_terms(data.terms);
864 return ret;
865}
866
867int parse_events(struct perf_evlist *evlist, const char *str)
868{
869 struct parse_events_evlist data = {
870 .list = LIST_HEAD_INIT(data.list),
871 .idx = evlist->nr_entries,
872 };
873 int ret;
874
875 ret = parse_events__scanner(str, &data, PE_START_EVENTS);
876 if (!ret) {
877 int entries = data.idx - evlist->nr_entries;
878 perf_evlist__splice_list_tail(evlist, &data.list, entries);
879 evlist->nr_groups += data.nr_groups;
880 return 0;
881 }
882
883
884
885
886
887
888 return ret;
889}
890
891int parse_events_option(const struct option *opt, const char *str,
892 int unset __maybe_unused)
893{
894 struct perf_evlist *evlist = *(struct perf_evlist **)opt->value;
895 int ret = parse_events(evlist, str);
896
897 if (ret) {
898 fprintf(stderr, "invalid or unsupported event: '%s'\n", str);
899 fprintf(stderr, "Run 'perf list' for a list of valid events\n");
900 }
901 return ret;
902}
903
904int parse_filter(const struct option *opt, const char *str,
905 int unset __maybe_unused)
906{
907 struct perf_evlist *evlist = *(struct perf_evlist **)opt->value;
908 struct perf_evsel *last = NULL;
909
910 if (evlist->nr_entries > 0)
911 last = perf_evlist__last(evlist);
912
913 if (last == NULL || last->attr.type != PERF_TYPE_TRACEPOINT) {
914 fprintf(stderr,
915 "-F option should follow a -e tracepoint option\n");
916 return -1;
917 }
918
919 last->filter = strdup(str);
920 if (last->filter == NULL) {
921 fprintf(stderr, "not enough memory to hold filter string\n");
922 return -1;
923 }
924
925 return 0;
926}
927
928static const char * const event_type_descriptors[] = {
929 "Hardware event",
930 "Software event",
931 "Tracepoint event",
932 "Hardware cache event",
933 "Raw hardware event descriptor",
934 "Hardware breakpoint",
935};
936
937
938
939
940
941void print_tracepoint_events(const char *subsys_glob, const char *event_glob,
942 bool name_only)
943{
944 DIR *sys_dir, *evt_dir;
945 struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
946 char evt_path[MAXPATHLEN];
947 char dir_path[MAXPATHLEN];
948
949 if (debugfs_valid_mountpoint(tracing_events_path))
950 return;
951
952 sys_dir = opendir(tracing_events_path);
953 if (!sys_dir)
954 return;
955
956 for_each_subsystem(sys_dir, sys_dirent, sys_next) {
957 if (subsys_glob != NULL &&
958 !strglobmatch(sys_dirent.d_name, subsys_glob))
959 continue;
960
961 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
962 sys_dirent.d_name);
963 evt_dir = opendir(dir_path);
964 if (!evt_dir)
965 continue;
966
967 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
968 if (event_glob != NULL &&
969 !strglobmatch(evt_dirent.d_name, event_glob))
970 continue;
971
972 if (name_only) {
973 printf("%s:%s ", sys_dirent.d_name, evt_dirent.d_name);
974 continue;
975 }
976
977 snprintf(evt_path, MAXPATHLEN, "%s:%s",
978 sys_dirent.d_name, evt_dirent.d_name);
979 printf(" %-50s [%s]\n", evt_path,
980 event_type_descriptors[PERF_TYPE_TRACEPOINT]);
981 }
982 closedir(evt_dir);
983 }
984 closedir(sys_dir);
985}
986
987
988
989
990
991int is_valid_tracepoint(const char *event_string)
992{
993 DIR *sys_dir, *evt_dir;
994 struct dirent *sys_next, *evt_next, sys_dirent, evt_dirent;
995 char evt_path[MAXPATHLEN];
996 char dir_path[MAXPATHLEN];
997
998 if (debugfs_valid_mountpoint(tracing_events_path))
999 return 0;
1000
1001 sys_dir = opendir(tracing_events_path);
1002 if (!sys_dir)
1003 return 0;
1004
1005 for_each_subsystem(sys_dir, sys_dirent, sys_next) {
1006
1007 snprintf(dir_path, MAXPATHLEN, "%s/%s", tracing_events_path,
1008 sys_dirent.d_name);
1009 evt_dir = opendir(dir_path);
1010 if (!evt_dir)
1011 continue;
1012
1013 for_each_event(sys_dirent, evt_dir, evt_dirent, evt_next) {
1014 snprintf(evt_path, MAXPATHLEN, "%s:%s",
1015 sys_dirent.d_name, evt_dirent.d_name);
1016 if (!strcmp(evt_path, event_string)) {
1017 closedir(evt_dir);
1018 closedir(sys_dir);
1019 return 1;
1020 }
1021 }
1022 closedir(evt_dir);
1023 }
1024 closedir(sys_dir);
1025 return 0;
1026}
1027
1028static void __print_events_type(u8 type, struct event_symbol *syms,
1029 unsigned max)
1030{
1031 char name[64];
1032 unsigned i;
1033
1034 for (i = 0; i < max ; i++, syms++) {
1035 if (strlen(syms->alias))
1036 snprintf(name, sizeof(name), "%s OR %s",
1037 syms->symbol, syms->alias);
1038 else
1039 snprintf(name, sizeof(name), "%s", syms->symbol);
1040
1041 printf(" %-50s [%s]\n", name,
1042 event_type_descriptors[type]);
1043 }
1044}
1045
1046void print_events_type(u8 type)
1047{
1048 if (type == PERF_TYPE_SOFTWARE)
1049 __print_events_type(type, event_symbols_sw, PERF_COUNT_SW_MAX);
1050 else
1051 __print_events_type(type, event_symbols_hw, PERF_COUNT_HW_MAX);
1052}
1053
1054int print_hwcache_events(const char *event_glob, bool name_only)
1055{
1056 unsigned int type, op, i, printed = 0;
1057 char name[64];
1058
1059 for (type = 0; type < PERF_COUNT_HW_CACHE_MAX; type++) {
1060 for (op = 0; op < PERF_COUNT_HW_CACHE_OP_MAX; op++) {
1061
1062 if (!perf_evsel__is_cache_op_valid(type, op))
1063 continue;
1064
1065 for (i = 0; i < PERF_COUNT_HW_CACHE_RESULT_MAX; i++) {
1066 __perf_evsel__hw_cache_type_op_res_name(type, op, i,
1067 name, sizeof(name));
1068 if (event_glob != NULL && !strglobmatch(name, event_glob))
1069 continue;
1070
1071 if (name_only)
1072 printf("%s ", name);
1073 else
1074 printf(" %-50s [%s]\n", name,
1075 event_type_descriptors[PERF_TYPE_HW_CACHE]);
1076 ++printed;
1077 }
1078 }
1079 }
1080
1081 return printed;
1082}
1083
1084static void print_symbol_events(const char *event_glob, unsigned type,
1085 struct event_symbol *syms, unsigned max,
1086 bool name_only)
1087{
1088 unsigned i, printed = 0;
1089 char name[MAX_NAME_LEN];
1090
1091 for (i = 0; i < max; i++, syms++) {
1092
1093 if (event_glob != NULL &&
1094 !(strglobmatch(syms->symbol, event_glob) ||
1095 (syms->alias && strglobmatch(syms->alias, event_glob))))
1096 continue;
1097
1098 if (name_only) {
1099 printf("%s ", syms->symbol);
1100 continue;
1101 }
1102
1103 if (strlen(syms->alias))
1104 snprintf(name, MAX_NAME_LEN, "%s OR %s", syms->symbol, syms->alias);
1105 else
1106 strncpy(name, syms->symbol, MAX_NAME_LEN);
1107
1108 printf(" %-50s [%s]\n", name, event_type_descriptors[type]);
1109
1110 printed++;
1111 }
1112
1113 if (printed)
1114 printf("\n");
1115}
1116
1117
1118
1119
1120void print_events(const char *event_glob, bool name_only)
1121{
1122 if (!name_only) {
1123 printf("\n");
1124 printf("List of pre-defined events (to be used in -e):\n");
1125 }
1126
1127 print_symbol_events(event_glob, PERF_TYPE_HARDWARE,
1128 event_symbols_hw, PERF_COUNT_HW_MAX, name_only);
1129
1130 print_symbol_events(event_glob, PERF_TYPE_SOFTWARE,
1131 event_symbols_sw, PERF_COUNT_SW_MAX, name_only);
1132
1133 print_hwcache_events(event_glob, name_only);
1134
1135 if (event_glob != NULL)
1136 return;
1137
1138 if (!name_only) {
1139 printf("\n");
1140 printf(" %-50s [%s]\n",
1141 "rNNN",
1142 event_type_descriptors[PERF_TYPE_RAW]);
1143 printf(" %-50s [%s]\n",
1144 "cpu/t1=v1[,t2=v2,t3 ...]/modifier",
1145 event_type_descriptors[PERF_TYPE_RAW]);
1146 printf(" (see 'man perf-list' on how to encode it)\n");
1147 printf("\n");
1148
1149 printf(" %-50s [%s]\n",
1150 "mem:<addr>[:access]",
1151 event_type_descriptors[PERF_TYPE_BREAKPOINT]);
1152 printf("\n");
1153 }
1154
1155 print_tracepoint_events(NULL, NULL, name_only);
1156}
1157
1158int parse_events__is_hardcoded_term(struct parse_events_term *term)
1159{
1160 return term->type_term != PARSE_EVENTS__TERM_TYPE_USER;
1161}
1162
1163static int new_term(struct parse_events_term **_term, int type_val,
1164 int type_term, char *config,
1165 char *str, u64 num)
1166{
1167 struct parse_events_term *term;
1168
1169 term = zalloc(sizeof(*term));
1170 if (!term)
1171 return -ENOMEM;
1172
1173 INIT_LIST_HEAD(&term->list);
1174 term->type_val = type_val;
1175 term->type_term = type_term;
1176 term->config = config;
1177
1178 switch (type_val) {
1179 case PARSE_EVENTS__TERM_TYPE_NUM:
1180 term->val.num = num;
1181 break;
1182 case PARSE_EVENTS__TERM_TYPE_STR:
1183 term->val.str = str;
1184 break;
1185 default:
1186 return -EINVAL;
1187 }
1188
1189 *_term = term;
1190 return 0;
1191}
1192
1193int parse_events_term__num(struct parse_events_term **term,
1194 int type_term, char *config, u64 num)
1195{
1196 return new_term(term, PARSE_EVENTS__TERM_TYPE_NUM, type_term,
1197 config, NULL, num);
1198}
1199
1200int parse_events_term__str(struct parse_events_term **term,
1201 int type_term, char *config, char *str)
1202{
1203 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR, type_term,
1204 config, str, 0);
1205}
1206
1207int parse_events_term__sym_hw(struct parse_events_term **term,
1208 char *config, unsigned idx)
1209{
1210 struct event_symbol *sym;
1211
1212 BUG_ON(idx >= PERF_COUNT_HW_MAX);
1213 sym = &event_symbols_hw[idx];
1214
1215 if (config)
1216 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR,
1217 PARSE_EVENTS__TERM_TYPE_USER, config,
1218 (char *) sym->symbol, 0);
1219 else
1220 return new_term(term, PARSE_EVENTS__TERM_TYPE_STR,
1221 PARSE_EVENTS__TERM_TYPE_USER,
1222 (char *) "event", (char *) sym->symbol, 0);
1223}
1224
1225int parse_events_term__clone(struct parse_events_term **new,
1226 struct parse_events_term *term)
1227{
1228 return new_term(new, term->type_val, term->type_term, term->config,
1229 term->val.str, term->val.num);
1230}
1231
1232void parse_events__free_terms(struct list_head *terms)
1233{
1234 struct parse_events_term *term, *h;
1235
1236 list_for_each_entry_safe(term, h, terms, list)
1237 free(term);
1238
1239 free(terms);
1240}
1241
