Mercurial > hg > waaad
view extensions/app_test/atst_conf.l @ 371:e86dba02630a
Updated copyright information
author | Sebastien Decugis <sdecugis@nict.go.jp> |
---|---|
date | Mon, 25 May 2009 14:51:46 +0900 |
parents | 6ca21598562a |
children |
line wrap: on
line source
/********************************************************************************************************* * Software License Agreement (BSD License) * * Author: Sebastien Decugis <sdecugis@nict.go.jp> * * * * Copyright (c) 2009, WIDE Project and NICT * * All rights reserved. * * * * Redistribution and use of this software in source and binary forms, with or without modification, are * * permitted provided that the following conditions are met: * * * * * Redistributions of source code must retain the above * * copyright notice, this list of conditions and the * * following disclaimer. * * * * * Redistributions in binary form must reproduce the above * * copyright notice, this list of conditions and the * * following disclaimer in the documentation and/or other * * materials provided with the distribution. * * * * * Neither the name of the WIDE Project or NICT nor the * * names of its contributors may be used to endorse or * * promote products derived from this software without * * specific prior written permission of WIDE Project and * * NICT. * * * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED * * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A * * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR * * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT * * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR * * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF * * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * *********************************************************************************************************/ /* Lex extension's configuration parser. * * The configuration file contains a default priority, and a list of peers with optional overwite priority. * -- see the app_test.conf.sample file for more detail. */ %{ #include "app_test.h" /* Include yacc tokens definitions */ #include "atst_conf.tab.h" /* Update the column information */ #define YY_USER_ACTION { \ yylloc->first_column = yylloc->last_column + 1; \ yylloc->last_column = yylloc->first_column + yyleng - 1; \ } /* Avoid warning with newer flex */ #define YY_NO_INPUT %} %option bison-bridge bison-locations %option noyywrap %option nounput %% /* Update the line count */ \n { yylloc->first_line++; yylloc->last_line++; yylloc->last_column=0; } /* Eat all spaces but not new lines */ ([[:space:]]{-}[\n])+ ; /* Eat all comments */ #.*$ ; /* Recognize any integer */ [-]?[[:digit:]]+ { /* Convert this to an integer value */ int ret=0; ret = sscanf(yytext, "%i", &yylval->integer); if (ret != 1) { /* No matching: an error occurred */ log_error("Unable to convert the value '%s' to a valid number: %s\n", yytext, strerror(errno)); return LEX_ERROR; /* trig an error in yacc parser */ /* Maybe we could REJECT instead of failing here? */ } return INTEGER; } /* Recognize quoted strings */ \"[[:alnum:].-]+\" { /* Match a string. expected only ASCII characters, '-' and '.'. The validation is done in yacc */ yylval->string = strdup(yytext+1); if (!yylval->string) { log_error("Unable to copy the string '%s': %s\n", yytext, strerror(errno)); TRACE_DEBUG(INFO, "strdup failed"); return LEX_ERROR; /* trig an error in yacc parser */ } yylval->string[strlen(yytext) - 2] = '\0'; return QSTRING; } /* Recognize the tokens */ (?i:"vendor-id") { return VENDOR_ID; } (?i:"appli-id") { return APPLI_ID; } (?i:"cmd-id") { return CMD_ID; } (?i:"avp-id") { return AVP_ID; } (?i:"verbosity") { return VERBOSITY; } (?i:"mode") { return MODE; } (?i:"server") { yylval->integer = MODE_SERV; return INTEGER; } (?i:"client") { yylval->integer = MODE_CLI; return INTEGER; } (?i:"both") { yylval->integer = MODE_SERV | MODE_CLI; return INTEGER; } (?i:"dest-realm") { return DEST_REALM; } (?i:"dest-host") { return DEST_HOST; } (?i:"Signal") { return SIGNAL; } /* Valid single characters for yyparse */ [=;] { return yytext[0]; } /* Unrecognized sequence, if it did not match any previous pattern */ [^[:space:]"*=>;\n]+ { log_error("Unrecognized text on line %d col %d: '%s'.\n", yylloc->first_line, yylloc->first_column, yytext); return LEX_ERROR; } %%