blob: b256aa830d29e30c8ae2ccda2881bdf4dc764aaf [file] [log] [blame]
Brian Waters13d96012017-12-08 16:53:31 -06001/*********************************************************************************************************
2* Software License Agreement (BSD License) *
3* Author: Sebastien Decugis <sdecugis@freediameter.net> *
4* *
5* Copyright (c) 2013, 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 "rt_default.h"
42/* Include yacc tokens definitions */
43#include "rtd_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
56qstring \"[^\"\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 /* Recognize any integer */
78[-]?[[:digit:]]+ {
79 /* Convert this to an integer value */
80 int ret=0;
81 ret = sscanf(yytext, "%i", &yylval->integer);
82 if (ret != 1) {
83 /* No matching: an error occurred */
84 fd_log_debug("Unable to convert the value '%s' to a valid number: %s", yytext, strerror(errno));
85 return LEX_ERROR; /* trig an error in yacc parser */
86 /* Maybe we could REJECT instead of failing here? */
87 }
88 return INTEGER;
89 }
90
91 /* In addition, recognize some constant names as integers also */
92(?i:"NO_DELIVERY") { yylval->integer = FD_SCORE_NO_DELIVERY; return INTEGER; }
93(?i:"DEFAULT") { yylval->integer = FD_SCORE_DEFAULT; return INTEGER; }
94(?i:"DEFAULT_REALM") { yylval->integer = FD_SCORE_DEFAULT_REALM; return INTEGER; }
95(?i:"REALM") { yylval->integer = FD_SCORE_REALM; return INTEGER; }
96(?i:"REDIR_HOST") { yylval->integer = FD_SCORE_REDIR_HOST; return INTEGER; }
97(?i:"REDIR_APP") { yylval->integer = FD_SCORE_REDIR_APP; return INTEGER; }
98(?i:"REDIR_REALM") { yylval->integer = FD_SCORE_REDIR_REALM; return INTEGER; }
99(?i:"REDIR_REALM_APP") { yylval->integer = FD_SCORE_REDIR_REALM_APP; return INTEGER; }
100(?i:"REDIR_USER") { yylval->integer = FD_SCORE_REDIR_USER; return INTEGER; }
101(?i:"REDIR_SESSION") { yylval->integer = FD_SCORE_REDIR_SESSION; return INTEGER; }
102(?i:"FINALDEST") { yylval->integer = FD_SCORE_FINALDEST; return INTEGER; }
103
104 /* Recognize bracketed quoted strings */
105[[]{qstring}[]] {
106 /* Match a quoted string containing a regex */
107 CHECK_MALLOC_DO( yylval->string = strdup(yytext+2),
108 {
109 TRACE_DEBUG(INFO, "Unable to copy the string '%s': %s", yytext, strerror(errno));
110 return LEX_ERROR; /* trig an error in yacc parser */
111 } );
112 yylval->string[strlen(yytext) - 4] = '\0';
113 return BQSTRING;
114 }
115
116 /* Recognize quoted strings */
117{qstring} {
118 /* Match a quoted string. */
119 CHECK_MALLOC_DO( yylval->string = strdup(yytext+1),
120 {
121 TRACE_DEBUG(INFO, "Unable to copy the string '%s': %s", yytext, strerror(errno));
122 return LEX_ERROR; /* trig an error in yacc parser */
123 } );
124 yylval->string[strlen(yytext) - 2] = '\0';
125 return QSTRING;
126 }
127
128 /* The key words */
129(?i:"oh") { return OH; }
130(?i:"or") { return OR; }
131(?i:"dh") { return DH; }
132(?i:"dr") { return DR; }
133(?i:"un") { return UN; }
134(?i:"si") { return SI; }
135(?i:"rlm") { return REALM; }
136
137 /* Valid single characters for yyparse */
138[*:=+-;] { return yytext[0]; }
139
140 /* Unrecognized sequence, if it did not match any previous pattern */
141[^[:space:]\"*:=+;\n]+ {
142 fd_log_debug("Unrecognized text on line %d col %d: '%s'.", yylloc->first_line, yylloc->first_column, yytext);
143 return LEX_ERROR;
144 }
145
146%%