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