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