summaryrefslogtreecommitdiffstats
path: root/tools/perf/util/expr.c
blob: 8b4ce704a68d951b6c6098088584551ae30d0daa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
// SPDX-License-Identifier: GPL-2.0
#include <stdbool.h>
#include <assert.h>
#include "expr.h"
#include "expr-bison.h"
#include "expr-flex.h"

#ifdef PARSER_DEBUG
extern int expr_debug;
#endif

/* Caller must make sure id is allocated */
void expr__add_id(struct expr_parse_ctx *ctx, const char *name, double val)
{
	int idx;

	assert(ctx->num_ids < MAX_PARSE_ID);
	idx = ctx->num_ids++;
	ctx->ids[idx].name = name;
	ctx->ids[idx].val = val;
}

void expr__ctx_init(struct expr_parse_ctx *ctx)
{
	ctx->num_ids = 0;
}

static int
__expr__parse(double *val, struct expr_parse_ctx *ctx, const char *expr,
	      int start, int runtime)
{
	struct expr_scanner_ctx scanner_ctx = {
		.start_token = start,
		.runtime = runtime,
	};
	YY_BUFFER_STATE buffer;
	void *scanner;
	int ret;

	ret = expr_lex_init_extra(&scanner_ctx, &scanner);
	if (ret)
		return ret;

	buffer = expr__scan_string(expr, scanner);

#ifdef PARSER_DEBUG
	expr_debug = 1;
	expr_set_debug(1, scanner);
#endif

	ret = expr_parse(val, ctx, scanner);

	expr__flush_buffer(buffer, scanner);
	expr__delete_buffer(buffer, scanner);
	expr_lex_destroy(scanner);
	return ret;
}

int expr__parse(double *final_val, struct expr_parse_ctx *ctx, const char *expr, int runtime)
{
	return __expr__parse(final_val, ctx, expr, EXPR_PARSE, runtime) ? -1 : 0;
}

static bool
already_seen(const char *val, const char *one, const char **other,
	     int num_other)
{
	int i;

	if (one && !strcasecmp(one, val))
		return true;
	for (i = 0; i < num_other; i++)
		if (!strcasecmp(other[i], val))
			return true;
	return false;
}

int expr__find_other(const char *expr, const char *one, const char ***other,
		     int *num_other, int runtime)
{
	int err, i = 0, j = 0;
	struct expr_parse_ctx ctx;

	expr__ctx_init(&ctx);
	err = __expr__parse(NULL, &ctx, expr, EXPR_OTHER, runtime);
	if (err)
		return -1;

	*other = malloc((ctx.num_ids + 1) * sizeof(char *));
	if (!*other)
		return -ENOMEM;

	for (i = 0, j = 0; i < ctx.num_ids; i++) {
		const char *str = ctx.ids[i].name;

		if (already_seen(str, one, *other, j))
			continue;

		str = strdup(str);
		if (!str)
			goto out;
		(*other)[j++] = str;
	}
	(*other)[j] = NULL;

out:
	if (i != ctx.num_ids) {
		while (--j)
			free((char *) (*other)[i]);
		free(*other);
		err = -1;
	}

	*num_other = j;
	return err;
}