1 %define api.pure full
2 %parse-param {void *_parse_state}
3 %parse-param {void *scanner}
4 %lex-param {void* scanner}
5 %locations
6
7 %{
8
9 #ifndef NDEBUG
10 #define YYDEBUG 1
11 #endif
12
13 #include <errno.h>
14 #include <linux/compiler.h>
15 #include <linux/types.h>
16 #include "pmu.h"
17 #include "pmus.h"
18 #include "evsel.h"
19 #include "parse-events.h"
20 #include "parse-events-bison.h"
21
22 int parse_events_lex(YYSTYPE * yylval_param, YYLTYPE * yylloc_param , void *yyscanner);
23 void parse_events_error(YYLTYPE *loc, void *parse_state, void *scanner, char const *msg);
24
25 #define PE_ABORT(val) \
26 do { \
27 if (val == -ENOMEM) \
28 YYNOMEM; \
29 YYABORT; \
30 } while (0)
31
alloc_list(void)32 static struct list_head* alloc_list(void)
33 {
34 struct list_head *list;
35
36 list = malloc(sizeof(*list));
37 if (!list)
38 return NULL;
39
40 INIT_LIST_HEAD(list);
41 return list;
42 }
43
free_list_evsel(struct list_head * list_evsel)44 static void free_list_evsel(struct list_head* list_evsel)
45 {
46 struct evsel *evsel, *tmp;
47
48 list_for_each_entry_safe(evsel, tmp, list_evsel, core.node) {
49 list_del_init(&evsel->core.node);
50 evsel__delete(evsel);
51 }
52 free(list_evsel);
53 }
54
55 %}
56
57 %token PE_START_EVENTS PE_START_TERMS
58 %token PE_VALUE PE_VALUE_SYM_HW PE_VALUE_SYM_SW PE_TERM
59 %token PE_EVENT_NAME
60 %token PE_RAW PE_NAME
61 %token PE_MODIFIER_EVENT PE_MODIFIER_BP PE_BP_COLON PE_BP_SLASH
62 %token PE_LEGACY_CACHE
63 %token PE_PREFIX_MEM
64 %token PE_ERROR
65 %token PE_DRV_CFG_TERM
66 %token PE_TERM_HW
67 %type <num> PE_VALUE
68 %type <num> PE_VALUE_SYM_HW
69 %type <num> PE_VALUE_SYM_SW
70 %type <mod> PE_MODIFIER_EVENT
71 %type <term_type> PE_TERM
72 %type <num> value_sym
73 %type <str> PE_RAW
74 %type <str> PE_NAME
75 %type <str> PE_LEGACY_CACHE
76 %type <str> PE_MODIFIER_BP
77 %type <str> PE_EVENT_NAME
78 %type <str> PE_DRV_CFG_TERM
79 %type <str> name_or_raw
80 %destructor { free ($$); } <str>
81 %type <term> event_term
82 %destructor { parse_events_term__delete ($$); } <term>
83 %type <list_terms> event_config
84 %type <list_terms> opt_event_config
85 %type <list_terms> opt_pmu_config
86 %destructor { parse_events_terms__delete ($$); } <list_terms>
87 %type <list_evsel> event_pmu
88 %type <list_evsel> event_legacy_symbol
89 %type <list_evsel> event_legacy_cache
90 %type <list_evsel> event_legacy_mem
91 %type <list_evsel> event_legacy_tracepoint
92 %type <list_evsel> event_legacy_numeric
93 %type <list_evsel> event_legacy_raw
94 %type <list_evsel> event_def
95 %type <list_evsel> event_mod
96 %type <list_evsel> event_name
97 %type <list_evsel> event
98 %type <list_evsel> events
99 %type <list_evsel> group_def
100 %type <list_evsel> group
101 %type <list_evsel> groups
102 %destructor { free_list_evsel ($$); } <list_evsel>
103 %type <tracepoint_name> tracepoint_name
104 %destructor { free ($$.sys); free ($$.event); } <tracepoint_name>
105 %type <hardware_term> PE_TERM_HW
106 %destructor { free ($$.str); } <hardware_term>
107
108 %union
109 {
110 char *str;
111 u64 num;
112 struct parse_events_modifier mod;
113 enum parse_events__term_type term_type;
114 struct list_head *list_evsel;
115 struct parse_events_terms *list_terms;
116 struct parse_events_term *term;
117 struct tracepoint_name {
118 char *sys;
119 char *event;
120 } tracepoint_name;
121 struct hardware_term {
122 char *str;
123 u64 num;
124 } hardware_term;
125 }
126 %%
127
128 /*
129 * Entry points. We are either parsing events or terminals. Just terminal
130 * parsing is used for parsing events in sysfs.
131 */
132 start:
133 PE_START_EVENTS start_events
134 |
135 PE_START_TERMS start_terms
136
137 start_events: groups
138 {
139 /* Take the parsed events, groups.. and place into parse_state. */
140 struct list_head *groups = $1;
141 struct parse_events_state *parse_state = _parse_state;
142
143 list_splice_tail(groups, &parse_state->list);
144 free(groups);
145 }
146
147 groups: /* A list of groups or events. */
148 groups ',' group
149 {
150 /* Merge group into the list of events/groups. */
151 struct list_head *groups = $1;
152 struct list_head *group = $3;
153
154 list_splice_tail(group, groups);
155 free(group);
156 $$ = groups;
157 }
158 |
159 groups ',' event
160 {
161 /* Merge event into the list of events/groups. */
162 struct list_head *groups = $1;
163 struct list_head *event = $3;
164
165
166 list_splice_tail(event, groups);
167 free(event);
168 $$ = groups;
169 }
170 |
171 group
172 |
173 event
174
175 group:
176 group_def ':' PE_MODIFIER_EVENT
177 {
178 /* Apply the modifier to the events in the group_def. */
179 struct list_head *list = $1;
180 int err;
181
182 err = parse_events__modifier_group(_parse_state, &@3, list, $3);
183 if (err)
184 YYABORT;
185 $$ = list;
186 }
187 |
188 group_def
189
190 group_def:
191 PE_NAME '{' events '}'
192 {
193 struct list_head *list = $3;
194
195 /*
196 * Set the first entry of list to be the leader. Set the group name on
197 * the leader to $1 taking ownership.
198 */
199 parse_events__set_leader($1, list);
200 $$ = list;
201 }
202 |
203 '{' events '}'
204 {
205 struct list_head *list = $2;
206
207 /* Set the first entry of list to be the leader clearing the group name. */
208 parse_events__set_leader(NULL, list);
209 $$ = list;
210 }
211
212 events:
213 events ',' event
214 {
215 struct list_head *events = $1;
216 struct list_head *event = $3;
217
218 list_splice_tail(event, events);
219 free(event);
220 $$ = events;
221 }
222 |
223 event
224
225 event: event_mod
226
227 event_mod:
228 event_name PE_MODIFIER_EVENT
229 {
230 struct list_head *list = $1;
231 int err;
232
233 /*
234 * Apply modifier on all events added by single event definition
235 * (there could be more events added for multiple tracepoint
236 * definitions via '*?'.
237 */
238 err = parse_events__modifier_event(_parse_state, &@2, list, $2);
239 if (err)
240 YYABORT;
241 $$ = list;
242 }
243 |
244 event_name
245
246 event_name:
247 PE_EVENT_NAME event_def
248 {
249 /*
250 * When an event is parsed the text is rewound and the entire text of
251 * the event is set to the str of PE_EVENT_NAME token matched here. If
252 * no name was on an event via a term, set the name to the entire text
253 * taking ownership of the allocation.
254 */
255 int err = parse_events__set_default_name($2, $1);
256
257 if (err) {
258 free_list_evsel($2);
259 YYNOMEM;
260 }
261 $$ = $2;
262 }
263 |
264 event_def
265
266 event_def: event_pmu |
267 event_legacy_symbol |
268 event_legacy_cache sep_dc |
269 event_legacy_mem sep_dc |
270 event_legacy_tracepoint sep_dc |
271 event_legacy_numeric sep_dc |
272 event_legacy_raw sep_dc
273
274 event_pmu:
275 PE_NAME opt_pmu_config
276 {
277 /* List of created evsels. */
278 struct list_head *list = NULL;
279 int err = parse_events_multi_pmu_add_or_add_pmu(_parse_state, $1, $2, &list, &@1);
280
281 parse_events_terms__delete($2);
282 free($1);
283 if (err)
284 PE_ABORT(err);
285 $$ = list;
286 }
287 |
288 PE_NAME sep_dc
289 {
290 struct list_head *list;
291 int err;
292
293 err = parse_events_multi_pmu_add(_parse_state, $1, PERF_COUNT_HW_MAX, NULL, &list, &@1);
294 if (err < 0) {
295 struct parse_events_state *parse_state = _parse_state;
296 struct parse_events_error *error = parse_state->error;
297 char *help;
298
299 if (asprintf(&help, "Unable to find event on a PMU of '%s'", $1) < 0)
300 help = NULL;
301 parse_events_error__handle(error, @1.first_column, strdup("Bad event name"), help);
302 free($1);
303 PE_ABORT(err);
304 }
305 free($1);
306 $$ = list;
307 }
308
309 value_sym:
310 PE_VALUE_SYM_HW
311 |
312 PE_VALUE_SYM_SW
313
314 event_legacy_symbol:
315 value_sym '/' event_config '/'
316 {
317 struct list_head *list;
318 int type = $1 >> 16;
319 int config = $1 & 255;
320 int err;
321 bool wildcard = (type == PERF_TYPE_HARDWARE || type == PERF_TYPE_HW_CACHE);
322
323 list = alloc_list();
324 if (!list)
325 YYNOMEM;
326 err = parse_events_add_numeric(_parse_state, list, type, config, $3, wildcard);
327 parse_events_terms__delete($3);
328 if (err) {
329 free_list_evsel(list);
330 PE_ABORT(err);
331 }
332 $$ = list;
333 }
334 |
335 value_sym sep_slash_slash_dc
336 {
337 struct list_head *list;
338 int type = $1 >> 16;
339 int config = $1 & 255;
340 bool wildcard = (type == PERF_TYPE_HARDWARE || type == PERF_TYPE_HW_CACHE);
341 int err;
342
343 list = alloc_list();
344 if (!list)
345 YYNOMEM;
346 err = parse_events_add_numeric(_parse_state, list, type, config, /*head_config=*/NULL, wildcard);
347 if (err)
348 PE_ABORT(err);
349 $$ = list;
350 }
351
352 event_legacy_cache:
353 PE_LEGACY_CACHE opt_event_config
354 {
355 struct parse_events_state *parse_state = _parse_state;
356 struct list_head *list;
357 int err;
358
359 list = alloc_list();
360 if (!list)
361 YYNOMEM;
362
363 err = parse_events_add_cache(list, &parse_state->idx, $1, parse_state, $2);
364
365 parse_events_terms__delete($2);
366 free($1);
367 if (err) {
368 free_list_evsel(list);
369 PE_ABORT(err);
370 }
371 $$ = list;
372 }
373
374 event_legacy_mem:
375 PE_PREFIX_MEM PE_VALUE PE_BP_SLASH PE_VALUE PE_BP_COLON PE_MODIFIER_BP opt_event_config
376 {
377 struct list_head *list;
378 int err;
379
380 list = alloc_list();
381 if (!list)
382 YYNOMEM;
383
384 err = parse_events_add_breakpoint(_parse_state, list,
385 $2, $6, $4, $7);
386 parse_events_terms__delete($7);
387 free($6);
388 if (err) {
389 free(list);
390 PE_ABORT(err);
391 }
392 $$ = list;
393 }
394 |
395 PE_PREFIX_MEM PE_VALUE PE_BP_SLASH PE_VALUE opt_event_config
396 {
397 struct list_head *list;
398 int err;
399
400 list = alloc_list();
401 if (!list)
402 YYNOMEM;
403
404 err = parse_events_add_breakpoint(_parse_state, list,
405 $2, NULL, $4, $5);
406 parse_events_terms__delete($5);
407 if (err) {
408 free(list);
409 PE_ABORT(err);
410 }
411 $$ = list;
412 }
413 |
414 PE_PREFIX_MEM PE_VALUE PE_BP_COLON PE_MODIFIER_BP opt_event_config
415 {
416 struct list_head *list;
417 int err;
418
419 list = alloc_list();
420 if (!list)
421 YYNOMEM;
422
423 err = parse_events_add_breakpoint(_parse_state, list,
424 $2, $4, 0, $5);
425 parse_events_terms__delete($5);
426 free($4);
427 if (err) {
428 free(list);
429 PE_ABORT(err);
430 }
431 $$ = list;
432 }
433 |
434 PE_PREFIX_MEM PE_VALUE opt_event_config
435 {
436 struct list_head *list;
437 int err;
438
439 list = alloc_list();
440 if (!list)
441 YYNOMEM;
442 err = parse_events_add_breakpoint(_parse_state, list,
443 $2, NULL, 0, $3);
444 parse_events_terms__delete($3);
445 if (err) {
446 free(list);
447 PE_ABORT(err);
448 }
449 $$ = list;
450 }
451
452 event_legacy_tracepoint:
453 tracepoint_name opt_event_config
454 {
455 struct parse_events_state *parse_state = _parse_state;
456 struct parse_events_error *error = parse_state->error;
457 struct list_head *list;
458 int err;
459
460 list = alloc_list();
461 if (!list)
462 YYNOMEM;
463
464 err = parse_events_add_tracepoint(parse_state, list, $1.sys, $1.event,
465 error, $2, &@1);
466
467 parse_events_terms__delete($2);
468 free($1.sys);
469 free($1.event);
470 if (err) {
471 free(list);
472 PE_ABORT(err);
473 }
474 $$ = list;
475 }
476
477 tracepoint_name:
478 PE_NAME ':' PE_NAME
479 {
480 struct tracepoint_name tracepoint = {$1, $3};
481
482 $$ = tracepoint;
483 }
484
485 event_legacy_numeric:
486 PE_VALUE ':' PE_VALUE opt_event_config
487 {
488 struct list_head *list;
489 int err;
490
491 list = alloc_list();
492 if (!list)
493 YYNOMEM;
494 err = parse_events_add_numeric(_parse_state, list, (u32)$1, $3, $4,
495 /*wildcard=*/false);
496 parse_events_terms__delete($4);
497 if (err) {
498 free(list);
499 PE_ABORT(err);
500 }
501 $$ = list;
502 }
503
504 event_legacy_raw:
505 PE_RAW opt_event_config
506 {
507 struct list_head *list;
508 int err;
509 u64 num;
510
511 list = alloc_list();
512 if (!list)
513 YYNOMEM;
514 errno = 0;
515 num = strtoull($1 + 1, NULL, 16);
516 /* Given the lexer will only give [a-fA-F0-9]+ a failure here should be impossible. */
517 if (errno)
518 YYABORT;
519 free($1);
520 err = parse_events_add_numeric(_parse_state, list, PERF_TYPE_RAW, num, $2,
521 /*wildcard=*/false);
522 parse_events_terms__delete($2);
523 if (err) {
524 free(list);
525 PE_ABORT(err);
526 }
527 $$ = list;
528 }
529
530 opt_event_config:
531 '/' event_config '/'
532 {
533 $$ = $2;
534 }
535 |
536 '/' '/'
537 {
538 $$ = NULL;
539 }
540 |
541 {
542 $$ = NULL;
543 }
544
545 opt_pmu_config:
546 '/' event_config '/'
547 {
548 $$ = $2;
549 }
550 |
551 '/' '/'
552 {
553 $$ = NULL;
554 }
555
556 start_terms: event_config
557 {
558 struct parse_events_state *parse_state = _parse_state;
559 if (parse_state->terms) {
560 parse_events_terms__delete ($1);
561 YYABORT;
562 }
563 parse_state->terms = $1;
564 }
565
566 event_config:
567 event_config ',' event_term
568 {
569 struct parse_events_terms *head = $1;
570 struct parse_events_term *term = $3;
571
572 if (!head) {
573 parse_events_term__delete(term);
574 YYABORT;
575 }
576 list_add_tail(&term->list, &head->terms);
577 $$ = $1;
578 }
579 |
580 event_term
581 {
582 struct parse_events_terms *head = malloc(sizeof(*head));
583 struct parse_events_term *term = $1;
584
585 if (!head)
586 YYNOMEM;
587 parse_events_terms__init(head);
588 list_add_tail(&term->list, &head->terms);
589 $$ = head;
590 }
591
592 name_or_raw: PE_RAW | PE_NAME | PE_LEGACY_CACHE
593 |
594 PE_TERM_HW
595 {
596 $$ = $1.str;
597 }
598
599 event_term:
600 PE_RAW
601 {
602 struct parse_events_term *term;
603 int err = parse_events_term__str(&term, PARSE_EVENTS__TERM_TYPE_RAW,
604 strdup("raw"), $1, &@1, &@1);
605
606 if (err) {
607 free($1);
608 PE_ABORT(err);
609 }
610 $$ = term;
611 }
612 |
613 name_or_raw '=' name_or_raw
614 {
615 struct parse_events_term *term;
616 int err = parse_events_term__str(&term, PARSE_EVENTS__TERM_TYPE_USER, $1, $3, &@1, &@3);
617
618 if (err) {
619 free($1);
620 free($3);
621 PE_ABORT(err);
622 }
623 $$ = term;
624 }
625 |
626 name_or_raw '=' PE_VALUE
627 {
628 struct parse_events_term *term;
629 int err = parse_events_term__num(&term, PARSE_EVENTS__TERM_TYPE_USER,
630 $1, $3, /*novalue=*/false, &@1, &@3);
631
632 if (err) {
633 free($1);
634 PE_ABORT(err);
635 }
636 $$ = term;
637 }
638 |
639 PE_LEGACY_CACHE
640 {
641 struct parse_events_term *term;
642 int err = parse_events_term__num(&term, PARSE_EVENTS__TERM_TYPE_LEGACY_CACHE,
643 $1, /*num=*/1, /*novalue=*/true, &@1, /*loc_val=*/NULL);
644
645 if (err) {
646 free($1);
647 PE_ABORT(err);
648 }
649 $$ = term;
650 }
651 |
652 PE_NAME
653 {
654 struct parse_events_term *term;
655 int err = parse_events_term__num(&term, PARSE_EVENTS__TERM_TYPE_USER,
656 $1, /*num=*/1, /*novalue=*/true, &@1, /*loc_val=*/NULL);
657
658 if (err) {
659 free($1);
660 PE_ABORT(err);
661 }
662 $$ = term;
663 }
664 |
665 PE_TERM_HW
666 {
667 struct parse_events_term *term;
668 int err = parse_events_term__num(&term, PARSE_EVENTS__TERM_TYPE_HARDWARE,
669 $1.str, $1.num & 255, /*novalue=*/false,
670 &@1, /*loc_val=*/NULL);
671
672 if (err) {
673 free($1.str);
674 PE_ABORT(err);
675 }
676 $$ = term;
677 }
678 |
679 PE_TERM '=' name_or_raw
680 {
681 struct parse_events_term *term;
682 int err = parse_events_term__str(&term, $1, /*config=*/NULL, $3, &@1, &@3);
683
684 if (err) {
685 free($3);
686 PE_ABORT(err);
687 }
688 $$ = term;
689 }
690 |
691 PE_TERM '=' PE_TERM
692 {
693 struct parse_events_term *term;
694 int err = parse_events_term__term(&term, $1, $3, &@1, &@3);
695
696 if (err)
697 PE_ABORT(err);
698
699 $$ = term;
700 }
701 |
702 PE_TERM '=' PE_VALUE
703 {
704 struct parse_events_term *term;
705 int err = parse_events_term__num(&term, $1,
706 /*config=*/NULL, $3, /*novalue=*/false,
707 &@1, &@3);
708
709 if (err)
710 PE_ABORT(err);
711
712 $$ = term;
713 }
714 |
715 PE_TERM
716 {
717 struct parse_events_term *term;
718 int err = parse_events_term__num(&term, $1,
719 /*config=*/NULL, /*num=*/1, /*novalue=*/true,
720 &@1, /*loc_val=*/NULL);
721
722 if (err)
723 PE_ABORT(err);
724
725 $$ = term;
726 }
727 |
728 PE_DRV_CFG_TERM
729 {
730 struct parse_events_term *term;
731 char *config = strdup($1);
732 int err;
733
734 if (!config)
735 YYNOMEM;
736 err = parse_events_term__str(&term, PARSE_EVENTS__TERM_TYPE_DRV_CFG, config, $1, &@1, NULL);
737 if (err) {
738 free($1);
739 free(config);
740 PE_ABORT(err);
741 }
742 $$ = term;
743 }
744
745 sep_dc: ':' |
746
747 sep_slash_slash_dc: '/' '/' | ':' |
748
749 %%
750
751 void parse_events_error(YYLTYPE *loc, void *_parse_state,
752 void *scanner __maybe_unused,
753 char const *msg __maybe_unused)
754 {
755 struct parse_events_state *parse_state = _parse_state;
756
757 if (!parse_state->error || !list_empty(&parse_state->error->list))
758 return;
759
760 parse_events_error__handle(parse_state->error, loc->last_column,
761 strdup("Unrecognized input"), NULL);
762 }
763