7 * Copyright 2012 - Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
9 * This library is free software; you can redistribute it and/or modify it
10 * under the terms of the GNU Lesser General Public License, version 2.1 only,
11 * as published by the Free Software Foundation.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
20 #include "filter-ast.h"
21 #include "filter-parser.h"
24 void setstring(struct filter_parser_ctx *parser_ctx, YYSTYPE *lvalp, const char *src);
26 static void yyunput (int c, register char * yy_bp , yyscan_t yyscanner)
27 __attribute__((unused));
28 static int input (yyscan_t yyscanner) __attribute__((unused));
32 %x comment_ml comment_sl string_lit char_const
33 %option reentrant yylineno noyywrap bison-bridge
34 %option extra-type="struct filter_parser_ctx *"
43 IS ((u|U)|(u|U)?(l|L|ll|LL)|(l|L|ll|LL)(u|U))
45 INTEGER_SUFFIX [ \n\t]*(U|UL|ULL|LU|LLU|Ul|Ull|lU|llU|u|uL|uLL|Lu|LLu|ul|ull|lu|llu)
50 UCHARLOWERCASE \\u{HEXDIGIT}{4}
51 UCHARUPPERCASE \\U{HEXDIGIT}{8}
53 ID_NONDIGIT {NONDIGIT}|{UCHARLOWERCASE}|{UCHARUPPERCASE}|{ID_EXTRA_CHAR}
54 IDENTIFIER {ID_NONDIGIT}({ID_NONDIGIT}|{DIGIT})*
55 ESCSEQ \\(\'|\"|\?|\\|a|b|f|n|r|t|v|{OCTALDIGIT}{1,3}|u{HEXDIGIT}{4}|U{HEXDIGIT}{8}|x{HEXDIGIT}+)
59 * Using start conditions to deal with comments
63 "/*" BEGIN(comment_ml);
64 <comment_ml>[^*\n]* /* eat anything that's not a '*' */
65 <comment_ml>"*"+[^*/\n]* /* eat up '*'s not followed by '/'s */
66 <comment_ml>\n ++yylineno;
67 <comment_ml>"*"+"/" BEGIN(INITIAL);
69 "//" BEGIN(comment_sl);
70 <comment_sl>[^\n]*\n ++yylineno; BEGIN(INITIAL);
72 L\' BEGIN(char_const); return CHARACTER_CONSTANT_START;
73 \' BEGIN(char_const); return CHARACTER_CONSTANT_START;
74 <char_const>\' BEGIN(INITIAL); return SQUOTE;
76 L\" BEGIN(string_lit); return STRING_LITERAL_START;
77 \" BEGIN(string_lit); return STRING_LITERAL_START;
78 <string_lit>\" BEGIN(INITIAL); return DQUOTE;
80 <char_const,string_lit>ESCSEQ return ESCSEQ;
81 <char_const,string_lit>\n ; /* ignore */
82 <char_const,string_lit>. setstring(yyextra, yylval, yytext); return CHAR_STRING_TOKEN;
85 0[xX]{H}+{IS}? setstring(yyextra, yylval, yytext); return HEXADECIMAL_CONSTANT;
86 0[0-7]*{IS}? setstring(yyextra, yylval, yytext); return OCTAL_CONSTANT;
87 [1-9]{D}*{IS}? setstring(yyextra, yylval, yytext); return DECIMAL_CONSTANT;
89 {D}+{E}{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
90 {D}*"."{D}+{E}?{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
91 {D}+"."{D}*{E}?{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
92 0[xX]{H}+{P}{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
93 0[xX]{H}*"."{H}+{P}?{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
94 0[xX]{H}+"."{H}*{P}?{FS}? setstring(yyextra, yylval, yytext); return FLOAT_CONSTANT;
110 ">>" return RIGHT_OP;
125 ";" return SEMICOLON;
126 "..." return DOTDOTDOT;
134 "$"{IDENTIFIER} printf_debug("<GLOBAL_IDENTIFIER %s>\n", yytext); setstring(yyextra, yylval, yytext); return GLOBAL_IDENTIFIER;
135 {IDENTIFIER} printf_debug("<IDENTIFIER %s>\n", yytext); setstring(yyextra, yylval, yytext); return IDENTIFIER;
136 [ \t\n]+ ; /* ignore */