| /* |
| * Copyright (c) 2017, Intel Corporation. |
| * |
| * This program is free software; you can redistribute it and/or modify it |
| * under the terms and conditions of the GNU General Public License, |
| * version 2, as published by the Free Software Foundation. |
| * |
| * This program is distributed in the hope it will be useful, but WITHOUT |
| * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
| * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
| * more details. |
| * |
| */ |
| |
| /* Manage metrics and groups of metrics from JSON files */ |
| |
| #include "metricgroup.h" |
| #include "evlist.h" |
| #include "strbuf.h" |
| #include "pmu.h" |
| #include "expr.h" |
| #include "rblist.h" |
| #include <string.h> |
| #include <stdbool.h> |
| #include <errno.h> |
| #include "pmu-events/pmu-events.h" |
| #include "strlist.h" |
| #include <assert.h> |
| #include <ctype.h> |
| |
| struct metric_event *metricgroup__lookup(struct rblist *metric_events, |
| struct perf_evsel *evsel, |
| bool create) |
| { |
| struct rb_node *nd; |
| struct metric_event me = { |
| .evsel = evsel |
| }; |
| |
| if (!metric_events) |
| return NULL; |
| |
| nd = rblist__find(metric_events, &me); |
| if (nd) |
| return container_of(nd, struct metric_event, nd); |
| if (create) { |
| rblist__add_node(metric_events, &me); |
| nd = rblist__find(metric_events, &me); |
| if (nd) |
| return container_of(nd, struct metric_event, nd); |
| } |
| return NULL; |
| } |
| |
| static int metric_event_cmp(struct rb_node *rb_node, const void *entry) |
| { |
| struct metric_event *a = container_of(rb_node, |
| struct metric_event, |
| nd); |
| const struct metric_event *b = entry; |
| |
| if (a->evsel == b->evsel) |
| return 0; |
| if ((char *)a->evsel < (char *)b->evsel) |
| return -1; |
| return +1; |
| } |
| |
| static struct rb_node *metric_event_new(struct rblist *rblist __maybe_unused, |
| const void *entry) |
| { |
| struct metric_event *me = malloc(sizeof(struct metric_event)); |
| |
| if (!me) |
| return NULL; |
| memcpy(me, entry, sizeof(struct metric_event)); |
| me->evsel = ((struct metric_event *)entry)->evsel; |
| INIT_LIST_HEAD(&me->head); |
| return &me->nd; |
| } |
| |
| static void metricgroup__rblist_init(struct rblist *metric_events) |
| { |
| rblist__init(metric_events); |
| metric_events->node_cmp = metric_event_cmp; |
| metric_events->node_new = metric_event_new; |
| } |
| |
| struct egroup { |
| struct list_head nd; |
| int idnum; |
| const char **ids; |
| const char *metric_name; |
| const char *metric_expr; |
| }; |
| |
| static struct perf_evsel *find_evsel(struct perf_evlist *perf_evlist, |
| const char **ids, |
| int idnum, |
| struct perf_evsel **metric_events) |
| { |
| struct perf_evsel *ev, *start = NULL; |
| int ind = 0; |
| |
| evlist__for_each_entry (perf_evlist, ev) { |
| if (!strcmp(ev->name, ids[ind])) { |
| metric_events[ind] = ev; |
| if (ind == 0) |
| start = ev; |
| if (++ind == idnum) { |
| metric_events[ind] = NULL; |
| return start; |
| } |
| } else { |
| ind = 0; |
| start = NULL; |
| } |
| } |
| /* |
| * This can happen when an alias expands to multiple |
| * events, like for uncore events. |
| * We don't support this case for now. |
| */ |
| return NULL; |
| } |
| |
| static int metricgroup__setup_events(struct list_head *groups, |
| struct perf_evlist *perf_evlist, |
| struct rblist *metric_events_list) |
| { |
| struct metric_event *me; |
| struct metric_expr *expr; |
| int i = 0; |
| int ret = 0; |
| struct egroup *eg; |
| struct perf_evsel *evsel; |
| |
| list_for_each_entry (eg, groups, nd) { |
| struct perf_evsel **metric_events; |
| |
| metric_events = calloc(sizeof(void *), eg->idnum + 1); |
| if (!metric_events) { |
| ret = -ENOMEM; |
| break; |
| } |
| evsel = find_evsel(perf_evlist, eg->ids, eg->idnum, |
| metric_events); |
| if (!evsel) { |
| pr_debug("Cannot resolve %s: %s\n", |
| eg->metric_name, eg->metric_expr); |
| continue; |
| } |
| for (i = 0; i < eg->idnum; i++) |
| metric_events[i]->collect_stat = true; |
| me = metricgroup__lookup(metric_events_list, evsel, true); |
| if (!me) { |
| ret = -ENOMEM; |
| break; |
| } |
| expr = malloc(sizeof(struct metric_expr)); |
| if (!expr) { |
| ret = -ENOMEM; |
| break; |
| } |
| expr->metric_expr = eg->metric_expr; |
| expr->metric_name = eg->metric_name; |
| expr->metric_events = metric_events; |
| list_add(&expr->nd, &me->head); |
| } |
| return ret; |
| } |
| |
| static bool match_metric(const char *n, const char *list) |
| { |
| int len; |
| char *m; |
| |
| if (!list) |
| return false; |
| if (!strcmp(list, "all")) |
| return true; |
| if (!n) |
| return !strcasecmp(list, "No_group"); |
| len = strlen(list); |
| m = strcasestr(n, list); |
| if (!m) |
| return false; |
| if ((m == n || m[-1] == ';' || m[-1] == ' ') && |
| (m[len] == 0 || m[len] == ';')) |
| return true; |
| return false; |
| } |
| |
| struct mep { |
| struct rb_node nd; |
| const char *name; |
| struct strlist *metrics; |
| }; |
| |
| static int mep_cmp(struct rb_node *rb_node, const void *entry) |
| { |
| struct mep *a = container_of(rb_node, struct mep, nd); |
| struct mep *b = (struct mep *)entry; |
| |
| return strcmp(a->name, b->name); |
| } |
| |
| static struct rb_node *mep_new(struct rblist *rl __maybe_unused, |
| const void *entry) |
| { |
| struct mep *me = malloc(sizeof(struct mep)); |
| |
| if (!me) |
| return NULL; |
| memcpy(me, entry, sizeof(struct mep)); |
| me->name = strdup(me->name); |
| if (!me->name) |
| goto out_me; |
| me->metrics = strlist__new(NULL, NULL); |
| if (!me->metrics) |
| goto out_name; |
| return &me->nd; |
| out_name: |
| free((char *)me->name); |
| out_me: |
| free(me); |
| return NULL; |
| } |
| |
| static struct mep *mep_lookup(struct rblist *groups, const char *name) |
| { |
| struct rb_node *nd; |
| struct mep me = { |
| .name = name |
| }; |
| nd = rblist__find(groups, &me); |
| if (nd) |
| return container_of(nd, struct mep, nd); |
| rblist__add_node(groups, &me); |
| nd = rblist__find(groups, &me); |
| if (nd) |
| return container_of(nd, struct mep, nd); |
| return NULL; |
| } |
| |
| static void mep_delete(struct rblist *rl __maybe_unused, |
| struct rb_node *nd) |
| { |
| struct mep *me = container_of(nd, struct mep, nd); |
| |
| strlist__delete(me->metrics); |
| free((void *)me->name); |
| free(me); |
| } |
| |
| static void metricgroup__print_strlist(struct strlist *metrics, bool raw) |
| { |
| struct str_node *sn; |
| int n = 0; |
| |
| strlist__for_each_entry (sn, metrics) { |
| if (raw) |
| printf("%s%s", n > 0 ? " " : "", sn->s); |
| else |
| printf(" %s\n", sn->s); |
| n++; |
| } |
| if (raw) |
| putchar('\n'); |
| } |
| |
| void metricgroup__print(bool metrics, bool metricgroups, char *filter, |
| bool raw, bool details) |
| { |
| struct pmu_events_map *map = perf_pmu__find_map(NULL); |
| struct pmu_event *pe; |
| int i; |
| struct rblist groups; |
| struct rb_node *node, *next; |
| struct strlist *metriclist = NULL; |
| |
| if (!map) |
| return; |
| |
| if (!metricgroups) { |
| metriclist = strlist__new(NULL, NULL); |
| if (!metriclist) |
| return; |
| } |
| |
| rblist__init(&groups); |
| groups.node_new = mep_new; |
| groups.node_cmp = mep_cmp; |
| groups.node_delete = mep_delete; |
| for (i = 0; ; i++) { |
| const char *g; |
| pe = &map->table[i]; |
| |
| if (!pe->name && !pe->metric_group && !pe->metric_name) |
| break; |
| if (!pe->metric_expr) |
| continue; |
| g = pe->metric_group; |
| if (!g && pe->metric_name) { |
| if (pe->name) |
| continue; |
| g = "No_group"; |
| } |
| if (g) { |
| char *omg; |
| char *mg = strdup(g); |
| |
| if (!mg) |
| return; |
| omg = mg; |
| while ((g = strsep(&mg, ";")) != NULL) { |
| struct mep *me; |
| char *s; |
| |
| if (*g == 0) |
| g = "No_group"; |
| while (isspace(*g)) |
| g++; |
| if (filter && !strstr(g, filter)) |
| continue; |
| if (raw) |
| s = (char *)pe->metric_name; |
| else { |
| if (asprintf(&s, "%s\n%*s%s]", |
| pe->metric_name, 8, "[", pe->desc) < 0) |
| return; |
| |
| if (details) { |
| if (asprintf(&s, "%s\n%*s%s]", |
| s, 8, "[", pe->metric_expr) < 0) |
| return; |
| } |
| } |
| |
| if (!s) |
| continue; |
| |
| if (!metricgroups) { |
| strlist__add(metriclist, s); |
| } else { |
| me = mep_lookup(&groups, g); |
| if (!me) |
| continue; |
| strlist__add(me->metrics, s); |
| } |
| } |
| free(omg); |
| } |
| } |
| |
| if (metricgroups && !raw) |
| printf("\nMetric Groups:\n\n"); |
| else if (metrics && !raw) |
| printf("\nMetrics:\n\n"); |
| |
| for (node = rb_first_cached(&groups.entries); node; node = next) { |
| struct mep *me = container_of(node, struct mep, nd); |
| |
| if (metricgroups) |
| printf("%s%s%s", me->name, metrics ? ":" : "", raw ? " " : "\n"); |
| if (metrics) |
| metricgroup__print_strlist(me->metrics, raw); |
| next = rb_next(node); |
| rblist__remove_node(&groups, node); |
| } |
| if (!metricgroups) |
| metricgroup__print_strlist(metriclist, raw); |
| strlist__delete(metriclist); |
| } |
| |
| static int metricgroup__add_metric(const char *metric, struct strbuf *events, |
| struct list_head *group_list) |
| { |
| struct pmu_events_map *map = perf_pmu__find_map(NULL); |
| struct pmu_event *pe; |
| int ret = -EINVAL; |
| int i, j; |
| |
| if (!map) |
| return 0; |
| |
| for (i = 0; ; i++) { |
| pe = &map->table[i]; |
| |
| if (!pe->name && !pe->metric_group && !pe->metric_name) |
| break; |
| if (!pe->metric_expr) |
| continue; |
| if (match_metric(pe->metric_group, metric) || |
| match_metric(pe->metric_name, metric)) { |
| const char **ids; |
| int idnum; |
| struct egroup *eg; |
| |
| pr_debug("metric expr %s for %s\n", pe->metric_expr, pe->metric_name); |
| |
| if (expr__find_other(pe->metric_expr, |
| NULL, &ids, &idnum) < 0) |
| continue; |
| if (events->len > 0) |
| strbuf_addf(events, ","); |
| for (j = 0; j < idnum; j++) { |
| pr_debug("found event %s\n", ids[j]); |
| strbuf_addf(events, "%s%s", |
| j == 0 ? "{" : ",", |
| ids[j]); |
| } |
| strbuf_addf(events, "}:W"); |
| |
| eg = malloc(sizeof(struct egroup)); |
| if (!eg) { |
| ret = -ENOMEM; |
| break; |
| } |
| eg->ids = ids; |
| eg->idnum = idnum; |
| eg->metric_name = pe->metric_name; |
| eg->metric_expr = pe->metric_expr; |
| list_add_tail(&eg->nd, group_list); |
| ret = 0; |
| } |
| } |
| return ret; |
| } |
| |
| static int metricgroup__add_metric_list(const char *list, struct strbuf *events, |
| struct list_head *group_list) |
| { |
| char *llist, *nlist, *p; |
| int ret = -EINVAL; |
| |
| nlist = strdup(list); |
| if (!nlist) |
| return -ENOMEM; |
| llist = nlist; |
| |
| strbuf_init(events, 100); |
| strbuf_addf(events, "%s", ""); |
| |
| while ((p = strsep(&llist, ",")) != NULL) { |
| ret = metricgroup__add_metric(p, events, group_list); |
| if (ret == -EINVAL) { |
| fprintf(stderr, "Cannot find metric or group `%s'\n", |
| p); |
| break; |
| } |
| } |
| free(nlist); |
| return ret; |
| } |
| |
| static void metricgroup__free_egroups(struct list_head *group_list) |
| { |
| struct egroup *eg, *egtmp; |
| int i; |
| |
| list_for_each_entry_safe (eg, egtmp, group_list, nd) { |
| for (i = 0; i < eg->idnum; i++) |
| free((char *)eg->ids[i]); |
| free(eg->ids); |
| free(eg); |
| } |
| } |
| |
| int metricgroup__parse_groups(const struct option *opt, |
| const char *str, |
| struct rblist *metric_events) |
| { |
| struct parse_events_error parse_error; |
| struct perf_evlist *perf_evlist = *(struct perf_evlist **)opt->value; |
| struct strbuf extra_events; |
| LIST_HEAD(group_list); |
| int ret; |
| |
| if (metric_events->nr_entries == 0) |
| metricgroup__rblist_init(metric_events); |
| ret = metricgroup__add_metric_list(str, &extra_events, &group_list); |
| if (ret) |
| return ret; |
| pr_debug("adding %s\n", extra_events.buf); |
| memset(&parse_error, 0, sizeof(struct parse_events_error)); |
| ret = parse_events(perf_evlist, extra_events.buf, &parse_error); |
| if (ret) { |
| parse_events_print_error(&parse_error, extra_events.buf); |
| goto out; |
| } |
| strbuf_release(&extra_events); |
| ret = metricgroup__setup_events(&group_list, perf_evlist, |
| metric_events); |
| out: |
| metricgroup__free_egroups(&group_list); |
| return ret; |
| } |
| |
| bool metricgroup__has_metric(const char *metric) |
| { |
| struct pmu_events_map *map = perf_pmu__find_map(NULL); |
| struct pmu_event *pe; |
| int i; |
| |
| if (!map) |
| return false; |
| |
| for (i = 0; ; i++) { |
| pe = &map->table[i]; |
| |
| if (!pe->name && !pe->metric_group && !pe->metric_name) |
| break; |
| if (!pe->metric_expr) |
| continue; |
| if (match_metric(pe->metric_name, metric)) |
| return true; |
| } |
| return false; |
| } |