/*

	Copyright(C) 2016, Red Hat, Inc., Jerome Marchand

	This program is free software: you can redistribute it and/or modify

	it under the terms of the GNU General Public License as published by

	the Free Software Foundation, either version 3 of the License, or

	(at your option) any later version.

	This program is distributed in the hope that it will be useful,

	but WITHOUT ANY WARRANTY; without even the implied warranty of

	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License

	along with this program.  If not, see <http://www.gnu.org/licenses/>.

*/

NUM		[0-9]

ALPHA		[a-zA-Z]

IDENT_FIRST	[a-zA-Z_]

IDENT		[a-zA-Z0-9_]

FILECHAR	[a-zA-Z0-9_/<>\-\.]

HEX		[a-fA-F0-9]

%{

#include "parser.h"

#include "parser.tab.h"

%}

%option nounput

%option noyywrap

%s SYMBOL

%x IN_STRING UNKNOWN_FIELD

%%

	static int last_sc = INITIAL;

<SYMBOL>{ /* Keywords used by symbol declaration */

"const"		{ return(CONST); }

"enum"		{ return(ENUM); }

"struct"	{ return(STRUCT); }

"typedef"	{ return(TYPEDEF); }

"union"		{ return(UNION); }

"volatile"	{ return(VOLATILE); }

"..."		{ return(ELLIPSIS); }

}

<INITIAL,UNKNOWN_FIELD>{ /* keywords used only in the header */

"Version:"	{ BEGIN(INITIAL); return(VERSION_KW); }

"CU:"		{ BEGIN(INITIAL); return(CU_KW); }

"File:"		{ BEGIN(INITIAL); return(FILE_KW); }

"Stack:"	{ BEGIN(INITIAL); return(STACK_KW); }

"Symbol:\n"	{ BEGIN(SYMBOL); return(SYMBOL_KW_NL); }

{IDENT}+":"	{ BEGIN(UNKNOWN_FIELD); }

}

<UNKNOWN_FIELD>{ /* Ignore unknown fields. */

[^\n:]*"\n"	{ ; }

 /* A line that doesn't start with {IDENT}+":", i.e. not a valid field */

{IDENT}*[^a-zA-Z0-9_\n:]+{IDENT}*[^\n]*"\n" { ; }

}

"->"	{ return(ARROW); }

{FILECHAR}+"."[chS]|"<built-in>"	{ yylval.str = strdup(yytext);

				  debug("Source file: %s\n", yylval.str);

				  return(SRCFILE);

				}

{IDENT_FIRST}{IDENT}*	{ yylval.str = strdup(yytext);

			  debug("Identifier: %s\n", yylval.str);

			  return(IDENTIFIER);

			}

"(NULL)"	{ yylval.str = NULL;

		  debug("Identifier: (NULL)\n");

		  return(IDENTIFIER);

		}

0[xX]{HEX}+	{ yylval.ul = strtoul(yytext, NULL, 16);

		  debug("Constant: 0x%lx\n", yylval.ul);

		  return(CONSTANT);

		}

{NUM}+		{ yylval.ul = strtoul(yytext, NULL, 10);

		  debug("Constant: %li\n", yylval.ul);

		  return(CONSTANT);

		}

[{}()\[\];:,.*@=-]	{ return(yytext[0]); }

"\n"		{ return(NEWLINE); }

[ \t\v\f]	{ ; }

"\""		{ last_sc = YY_START; BEGIN(IN_STRING); }

<IN_STRING>[^"]* { yylval.str = strdup(yytext);

		  debug("String: %s\n", yylval.str);

		  return(STRING);

		}

<IN_STRING>"\""	{ BEGIN(last_sc); }

.		{ printf("Unexpected entry \"%c\"\n", *yytext); }

 /* Get back to initial condition or we'll start the next file in SYMBOL */

<<EOF>>		{ BEGIN(INITIAL); yyterminate(); }

%%