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 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 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 */ 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(¶mval, "%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 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 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 %} 98 99 number ([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e-?[0-9]+)? 100 101 sch [-,=] 102 spec \\{sch} 103 sym [0-9a-zA-Z_\.:@?]+ 104 symbol ({spec}|{sym})+ 105 literal #[0-9a-zA-Z_\.\-]+ 106 107 %% 108 struct expr_scanner_ctx *sctx = expr_get_extra(yyscanner); 109 110 d_ratio { return D_RATIO; } 111 max { return MAX; } 112 min { return MIN; } 113 if { return IF; } 114 else { return ELSE; } 115 source_count { return SOURCE_COUNT; } 116 {literal} { return literal(yyscanner, sctx); } 117 {number} { return value(yyscanner); } 118 {symbol} { return str(yyscanner, ID, sctx->runtime); } 119 "|" { return '|'; } 120 "^" { return '^'; } 121 "&" { return '&'; } 122 "<" { return '<'; } 123 ">" { return '>'; } 124 "-" { return '-'; } 125 "+" { return '+'; } 126 "*" { return '*'; } 127 "/" { return '/'; } 128 "%" { return '%'; } 129 "(" { return '('; } 130 ")" { return ')'; } 131 "," { return ','; } 132 . { } 133 %% 134 135 int expr_wrap(void *scanner __maybe_unused) 136 { 137 return 1; 138 } 139