xref: /linux/tools/perf/util/expr.l (revision 79790b6818e96c58fe2bffee1b418c16e64e7b80)
1 %option prefix="expr_"
2 %option reentrant
3 %option bison-bridge
4 
5 %{
6 #include <linux/compiler.h>
7 #include "expr.h"
8 #include "expr-bison.h"
9 #include <math.h>
10 
11 char *expr_get_text(yyscan_t yyscanner);
12 YYSTYPE *expr_get_lval(yyscan_t yyscanner);
13 
__value(YYSTYPE * yylval,char * str,int token)14 static double __value(YYSTYPE *yylval, char *str, int token)
15 {
16 	double num;
17 
18 	errno = 0;
19 	num = strtod(str, NULL);
20 	if (errno)
21 		return EXPR_ERROR;
22 
23 	yylval->num = num;
24 	return token;
25 }
26 
value(yyscan_t scanner)27 static int value(yyscan_t scanner)
28 {
29 	YYSTYPE *yylval = expr_get_lval(scanner);
30 	char *text = expr_get_text(scanner);
31 
32 	return __value(yylval, text, NUMBER);
33 }
34 
35 /*
36  * Allow @ instead of / to be able to specify pmu/event/ without
37  * conflicts with normal division.
38  */
normalize(char * str,int runtime)39 static char *normalize(char *str, int runtime)
40 {
41 	char *ret = str;
42 	char *dst = str;
43 
44 	while (*str) {
45 		if (*str == '\\') {
46 			*dst++ = *++str;
47 			if (!*str)
48 				break;
49 		}
50 		else if (*str == '?') {
51 			char *paramval;
52 			int i = 0;
53 			int size = asprintf(&paramval, "%d", runtime);
54 
55 			if (size < 0)
56 				*dst++ = '0';
57 			else {
58 				while (i < size)
59 					*dst++ = paramval[i++];
60 				free(paramval);
61 			}
62 		}
63 		else
64 			*dst++ = *str;
65 		str++;
66 	}
67 
68 	*dst = 0x0;
69 	return ret;
70 }
71 
str(yyscan_t scanner,int token,int runtime)72 static int str(yyscan_t scanner, int token, int runtime)
73 {
74 	YYSTYPE *yylval = expr_get_lval(scanner);
75 	char *text = expr_get_text(scanner);
76 
77 	yylval->str = normalize(strdup(text), runtime);
78 	if (!yylval->str)
79 		return EXPR_ERROR;
80 
81 	yylval->str = normalize(yylval->str, runtime);
82 	return token;
83 }
84 
literal(yyscan_t scanner,const struct expr_scanner_ctx * sctx)85 static int literal(yyscan_t scanner, const struct expr_scanner_ctx *sctx)
86 {
87 	YYSTYPE *yylval = expr_get_lval(scanner);
88 
89 	yylval->num = expr__get_literal(expr_get_text(scanner), sctx);
90 	if (isnan(yylval->num)) {
91 		if (!sctx->is_test)
92 			return EXPR_ERROR;
93 		yylval->num = 1;
94 	}
95 	return LITERAL;
96 }
97 
nan_value(yyscan_t scanner)98 static int nan_value(yyscan_t scanner)
99 {
100 	YYSTYPE *yylval = expr_get_lval(scanner);
101 
102 	yylval->num = NAN;
103 	return NUMBER;
104 }
105 %}
106 
107 number		([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e-?[0-9]+)?
108 
109 sch		[-,=]
110 spec		\\{sch}
111 sym		[0-9a-zA-Z_\.:@?]+
112 symbol		({spec}|{sym})+
113 literal		#[0-9a-zA-Z_\.\-]+
114 
115 %%
116 	struct expr_scanner_ctx *sctx = expr_get_extra(yyscanner);
117 
118 d_ratio		{ return D_RATIO; }
119 max		{ return MAX; }
120 min		{ return MIN; }
121 if		{ return IF; }
122 else		{ return ELSE; }
123 source_count	{ return SOURCE_COUNT; }
124 has_event	{ return HAS_EVENT; }
125 strcmp_cpuid_str	{ return STRCMP_CPUID_STR; }
126 NaN		{ return nan_value(yyscanner); }
127 {literal}	{ return literal(yyscanner, sctx); }
128 {number}	{ return value(yyscanner); }
129 {symbol}	{ return str(yyscanner, ID, sctx->runtime); }
130 "|"		{ return '|'; }
131 "^"		{ return '^'; }
132 "&"		{ return '&'; }
133 "<"		{ return '<'; }
134 ">"		{ return '>'; }
135 "-"		{ return '-'; }
136 "+"		{ return '+'; }
137 "*"		{ return '*'; }
138 "/"		{ return '/'; }
139 "%"		{ return '%'; }
140 "("		{ return '('; }
141 ")"		{ return ')'; }
142 ","		{ return ','; }
143 .		{ }
144 %%
145 
146 int expr_wrap(void *scanner __maybe_unused)
147 {
148 	return 1;
149 }
150