tools/perf/util/expr.l

   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(&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
  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 }