525
|
1 /********************************************************************************************************* |
|
2 * Software License Agreement (BSD License) * |
|
3 * Author: Sebastien Decugis <sdecugis@nict.go.jp> * |
|
4 * * |
|
5 * Copyright (c) 2010, WIDE Project and NICT * |
|
6 * All rights reserved. * |
|
7 * * |
|
8 * Redistribution and use of this software in source and binary forms, with or without modification, are * |
|
9 * permitted provided that the following conditions are met: * |
|
10 * * |
|
11 * * Redistributions of source code must retain the above * |
|
12 * copyright notice, this list of conditions and the * |
|
13 * following disclaimer. * |
|
14 * * |
|
15 * * Redistributions in binary form must reproduce the above * |
|
16 * copyright notice, this list of conditions and the * |
|
17 * following disclaimer in the documentation and/or other * |
|
18 * materials provided with the distribution. * |
|
19 * * |
|
20 * * Neither the name of the WIDE Project or NICT nor the * |
|
21 * names of its contributors may be used to endorse or * |
|
22 * promote products derived from this software without * |
|
23 * specific prior written permission of WIDE Project and * |
|
24 * NICT. * |
|
25 * * |
|
26 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED * |
|
27 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A * |
|
28 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR * |
|
29 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT * |
|
30 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * |
|
31 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR * |
|
32 * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF * |
|
33 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * |
|
34 *********************************************************************************************************/ |
|
35 |
|
36 /* Tokenizer |
|
37 * |
|
38 */ |
|
39 |
|
40 %{ |
|
41 #include "rtereg.h" |
|
42 /* Include yacc tokens definitions */ |
|
43 #include "rtereg_conf.tab.h" |
|
44 |
|
45 /* Update the column information */ |
|
46 #define YY_USER_ACTION { \ |
|
47 yylloc->first_column = yylloc->last_column + 1; \ |
|
48 yylloc->last_column = yylloc->first_column + yyleng - 1; \ |
|
49 } |
|
50 |
|
51 /* Avoid warning with newer flex */ |
|
52 #define YY_NO_INPUT |
|
53 |
|
54 %} |
|
55 |
|
56 qstring \"[^\"\n]*\" |
|
57 |
|
58 |
|
59 %option bison-bridge bison-locations |
|
60 %option noyywrap |
|
61 %option nounput |
|
62 |
|
63 %% |
|
64 |
|
65 /* Update the line count */ |
|
66 \n { |
|
67 yylloc->first_line++; |
|
68 yylloc->last_line++; |
|
69 yylloc->last_column=0; |
|
70 } |
|
71 |
|
72 /* Eat all spaces but not new lines */ |
|
73 ([[:space:]]{-}[\n])+ ; |
|
74 /* Eat all comments */ |
|
75 #.*$ ; |
|
76 |
|
77 |
|
78 /* Recognize quoted strings */ |
|
79 {qstring} { |
|
80 /* Match a quoted string. */ |
|
81 CHECK_MALLOC_DO( yylval->string = strdup(yytext+1), |
|
82 { |
|
83 TRACE_DEBUG(INFO, "Unable to copy the string '%s': %s\n", yytext, strerror(errno)); |
|
84 return LEX_ERROR; /* trig an error in yacc parser */ |
|
85 } ); |
|
86 yylval->string[strlen(yytext) - 2] = '\0'; |
|
87 return QSTRING; |
|
88 } |
|
89 |
|
90 |
|
91 /* Recognize any integer */ |
|
92 [-]?[[:digit:]]+ { |
|
93 /* Convert this to an integer value */ |
|
94 int ret=0; |
|
95 ret = sscanf(yytext, "%i", &yylval->integer); |
|
96 if (ret != 1) { |
|
97 /* No matching: an error occurred */ |
|
98 fd_log_debug("Unable to convert the value '%s' to a valid number: %s\n", yytext, strerror(errno)); |
|
99 return LEX_ERROR; /* trig an error in yacc parser */ |
|
100 /* Maybe we could REJECT instead of failing here? */ |
|
101 } |
|
102 return INTEGER; |
|
103 } |
|
104 |
|
105 |
|
106 |
|
107 /* The key words */ |
|
108 (?i:"AVP") { return AVP; } |
|
109 |
|
110 /* Valid single characters for yyparse */ |
|
111 [=:;+-] { return yytext[0]; } |
|
112 |
|
113 /* Unrecognized sequence, if it did not match any previous pattern */ |
|
114 [^[:space:]\":=+;\n]+ { |
|
115 fd_log_debug("Unrecognized text on line %d col %d: '%s'.\n", yylloc->first_line, yylloc->first_column, yytext); |
|
116 return LEX_ERROR; |
|
117 } |
|
118 |
|
119 %% |