Mercurial > hg > freeDiameter
comparison extensions/app_acct/acct_conf.l @ 284:397cdcd41f53
New app_acct in progress, backup only
| author | Sebastien Decugis <sdecugis@nict.go.jp> |
|---|---|
| date | Wed, 28 Apr 2010 18:54:08 +0900 |
| parents | |
| children | 1b3b9790e7cb |
comparison
equal
deleted
inserted
replaced
| 283:f433bc04eb6a | 284:397cdcd41f53 |
|---|---|
| 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 /* Lex extension's configuration parser. | |
| 37 * | |
| 38 */ | |
| 39 | |
| 40 %{ | |
| 41 #include "app_acct.h" | |
| 42 #include "acct_conf.tab.h" | |
| 43 | |
| 44 /* Update the column information */ | |
| 45 #define YY_USER_ACTION { \ | |
| 46 yylloc->first_column = yylloc->last_column + 1; \ | |
| 47 yylloc->last_column = yylloc->first_column + yyleng - 1; \ | |
| 48 } | |
| 49 | |
| 50 /* Avoid warning with newer flex */ | |
| 51 #define YY_NO_INPUT | |
| 52 | |
| 53 %} | |
| 54 | |
| 55 %option bison-bridge bison-locations | |
| 56 %option noyywrap | |
| 57 %option nounput | |
| 58 | |
| 59 /* Quoted string. Multilines do not match. */ | |
| 60 qstring \"[^\"\n]*\" | |
| 61 | |
| 62 %% | |
| 63 | |
| 64 /* Update the line count */ | |
| 65 \n { | |
| 66 yylloc->first_line++; | |
| 67 yylloc->last_line++; | |
| 68 yylloc->last_column=0; | |
| 69 } | |
| 70 | |
| 71 /* Eat all spaces but not new lines */ | |
| 72 ([[:space:]]{-}[\n])+ ; | |
| 73 /* Eat all comments */ | |
| 74 #.*$ ; | |
| 75 | |
| 76 /* Recognize any integer */ | |
| 77 [-]?[[:digit:]]+ { | |
| 78 /* Convert this to an integer value */ | |
| 79 int ret=0; | |
| 80 ret = sscanf(yytext, "%i", &yylval->integer); | |
| 81 if (ret != 1) { | |
| 82 /* No matching: an error occurred */ | |
| 83 fd_log_debug("Unable to convert the value '%s' to a valid number: %s\n", yytext, strerror(errno)); | |
| 84 return LEX_ERROR; /* trig an error in yacc parser */ | |
| 85 /* Maybe we could REJECT instead of failing here? */ | |
| 86 } | |
| 87 return INTEGER; | |
| 88 } | |
| 89 | |
| 90 /* Recognize quoted strings -- we do not support escaped \" in the string currently. */ | |
| 91 {qstring} { | |
| 92 /* Match a quoted string. Let's be very permissive. */ | |
| 93 yylval->string = strdup(yytext+1); | |
| 94 if (!yylval->string) { | |
| 95 fd_log_debug("Unable to copy the string '%s': %s\n", yytext, strerror(errno)); | |
| 96 TRACE_DEBUG(INFO, "strdup failed"); | |
| 97 return LEX_ERROR; /* trig an error in yacc parser */ | |
| 98 } | |
| 99 yylval->string[strlen(yytext) - 2] = '\0'; | |
| 100 return QSTRING; | |
| 101 } | |
| 102 | |
| 103 /* Recognize the tokens */ | |
| 104 (?i:"ConnInfo") { | |
| 105 return CONNINFO; | |
| 106 } | |
| 107 | |
| 108 (?i:"Table") { | |
| 109 return TABLE; | |
| 110 } | |
| 111 | |
| 112 (?i:"Timestamp_field") { | |
| 113 return TSFIELD; | |
| 114 } | |
| 115 | |
| 116 (?i:"field") { | |
| 117 return FIELD; | |
| 118 } | |
| 119 | |
| 120 (?i:"required") { | |
| 121 return REQUIRED; | |
| 122 } | |
| 123 | |
| 124 (?i:"multi") { | |
| 125 return MULTI; | |
| 126 } | |
| 127 | |
| 128 | |
| 129 | |
| 130 /* Valid single characters for yyparse */ | |
| 131 [=;{}] { return yytext[0]; } | |
| 132 | |
| 133 /* Unrecognized sequence, if it did not match any previous pattern */ | |
| 134 [^[:space:]"*=>;\n]+ { | |
| 135 fd_log_debug("Unrecognized text on line %d col %d: '%s'.\n", yylloc->first_line, yylloc->first_column, yytext); | |
| 136 return LEX_ERROR; | |
| 137 } | |
| 138 | |
| 139 %% |