You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
137 lines
4.6 KiB
137 lines
4.6 KiB
%{
|
|
/***************************************************************************
|
|
* Copyright (C) 2005 by Alexander Dymo *
|
|
* adymo@kdevelop.org *
|
|
* *
|
|
* Copyright (c) 2005 by Matt Rogers *
|
|
* mattr@kde.org *
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU Library General Public License as *
|
|
* published by the Free Software Foundation; either version 2 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 Library General Public *
|
|
* License along with this program; if not, write to the *
|
|
* Free Software Foundation, Inc., *
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
|
|
***************************************************************************/
|
|
|
|
#include <autotools_yacc.h>
|
|
#include <stdlib.h>
|
|
|
|
/**
|
|
@file autotools.ll
|
|
Autotools Lexer
|
|
|
|
There are 3 types of identifiers recognized by this lexer:
|
|
-id_simple: examples of such identifiers are qmake variables and scoped variables
|
|
at the left of the operator in assignments (like "SOURCES" in "SOURCES+=foo.cpp goo.cpp");
|
|
-id_list: those are "value list identifiers" at the right side in assignments
|
|
(like "foo.cpp goo.cpp" in "SOURCES+=foo.cpp goo.cpp");
|
|
-id_args: function arguments recognized as one identifier
|
|
(example: ""${QMAKE_FILE} is intended only for Windows!""
|
|
in "!win32-*:!wince-*:error("${QMAKE_FILE} is intended only for Windows!")" statements).
|
|
.
|
|
|
|
To recognize those identifiers two additional start conditions are used: list and funcargs.
|
|
|
|
@note "Not" operator (!) is recognized as a part of an identifier. Linefeeds passed to
|
|
the parser as NEWLINE tokens to preserve file structure but whitespaces are stripped
|
|
so no indentation is preserved by this lexer (and parser).
|
|
|
|
To debug this lexer, put the line below into the next flex file section.
|
|
%option debug
|
|
*/
|
|
%}
|
|
%option noyywrap
|
|
|
|
%x list
|
|
%x funcargs
|
|
%x conditional
|
|
|
|
delim [ \t]
|
|
ws {delim}+
|
|
letter [A-Za-z]
|
|
digit [0-9]
|
|
id_simple ({digit}|{letter}|\!|-|_|\*|\$|@)({letter}|{digit}|\||\!|-|_|\*|\$|\(|\.|\+|\-|\)|\/)*
|
|
id_list [^\n]*\\{ws}*
|
|
id_args [^\n]*\)
|
|
number {digit}+
|
|
comment #.*
|
|
comment_cont {ws}*#.*\n
|
|
id_list_single [^\n]*
|
|
cont \\{ws}*\n
|
|
keywords (if|else|endif|include)
|
|
rule [\t]+[^\n]*
|
|
|
|
%%
|
|
|
|
<list,INITIAL>{ws} {}
|
|
<list,INITIAL>{cont} { BEGIN(list); return CONT; }
|
|
{keywords} {
|
|
yylval.value = yytext;
|
|
if ( yylval.value == "if" )
|
|
return IF_KEYWORD;
|
|
|
|
if ( yylval.value == "else" )
|
|
return ELSE_KEYWORD;
|
|
|
|
if ( yylval.value == "endif" )
|
|
return ENDIF_KEYWORD;
|
|
|
|
return KEYWORD;
|
|
}
|
|
|
|
|
|
{id_simple} { yylval.value = yytext; return (ID_SIMPLE); }
|
|
|
|
<INITIAL>{rule} {
|
|
yylval.value = yytext;
|
|
return RULE;
|
|
}
|
|
|
|
<list>{id_list} {
|
|
yylval.value = yytext;
|
|
yylval.value = yylval.value.mid(0, yylval.value.findRev("\\"));
|
|
unput('\\');
|
|
BEGIN(INITIAL);
|
|
return (ID_LIST);
|
|
}
|
|
|
|
<list>{comment_cont} {
|
|
yylval.value = yytext;
|
|
BEGIN(list);
|
|
return (LIST_COMMENT);
|
|
}
|
|
|
|
<list>{id_list_single} {
|
|
yylval.value = yytext;
|
|
BEGIN(INITIAL);
|
|
return (ID_LIST_SINGLE);
|
|
}
|
|
|
|
<funcargs>{id_args} {
|
|
yylval.value = yytext;
|
|
yylval.value = yylval.value.mid(0, yylval.value.length()-1);
|
|
unput(')');
|
|
BEGIN(INITIAL);
|
|
return (ID_ARGS);
|
|
}
|
|
|
|
"=" { BEGIN(list); yylval.value = yytext; return EQ; }
|
|
"+=" { BEGIN(list); yylval.value = yytext; return PLUSEQ; }
|
|
"{" { return LCURLY; }
|
|
"}" { return RCURLY; }
|
|
":" { BEGIN(list); yylval.value = yytext; return COLON; }
|
|
<list,INITIAL>"\n" { BEGIN(INITIAL); return NEWLINE; }
|
|
{comment} { yylval.value = yytext; return (COMMENT); }
|
|
|
|
%%
|
|
|