2010-05-10 11:44:09 -07:00
|
|
|
%{
|
|
|
|
/*
|
|
|
|
* Copyright © 2010 Intel Corporation
|
|
|
|
*
|
|
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
|
|
* copy of this software and associated documentation files (the "Software"),
|
|
|
|
* to deal in the Software without restriction, including without limitation
|
|
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
|
|
|
* Software is furnished to do so, subject to the following conditions:
|
|
|
|
*
|
|
|
|
* The above copyright notice and this permission notice (including the next
|
|
|
|
* paragraph) shall be included in all copies or substantial portions of the
|
|
|
|
* Software.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
|
|
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
|
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
|
|
* DEALINGS IN THE SOFTWARE.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
2010-05-10 13:17:25 -07:00
|
|
|
#include "glcpp.h"
|
2010-05-10 11:44:09 -07:00
|
|
|
#include "glcpp-parse.h"
|
|
|
|
%}
|
|
|
|
|
2010-05-10 11:52:29 -07:00
|
|
|
%option reentrant noyywrap
|
2010-05-12 12:45:33 -07:00
|
|
|
%option extra-type="glcpp_parser_t *"
|
2010-05-10 11:44:09 -07:00
|
|
|
|
2010-05-14 17:08:45 -07:00
|
|
|
%x ST_DEFINE
|
2010-05-18 22:10:04 -07:00
|
|
|
%x ST_DEFINE_OBJ_OR_FUNC
|
|
|
|
%x ST_DEFINE_PARAMETER
|
|
|
|
%x ST_DEFINE_VALUE
|
2010-05-17 13:19:04 -07:00
|
|
|
%x ST_UNDEF
|
|
|
|
%x ST_UNDEF_END
|
2010-05-14 17:08:45 -07:00
|
|
|
|
2010-05-10 16:16:06 -07:00
|
|
|
SPACE [[:space:]]
|
|
|
|
NONSPACE [^[:space:]]
|
2010-05-12 12:17:10 -07:00
|
|
|
NEWLINE [\n]
|
2010-05-10 16:16:06 -07:00
|
|
|
HSPACE [ \t]
|
2010-05-14 17:29:24 -07:00
|
|
|
HASH ^{HSPACE}*#{HSPACE}*
|
2010-05-10 16:16:06 -07:00
|
|
|
IDENTIFIER [_a-zA-Z][_a-zA-Z0-9]*
|
2010-05-13 09:36:23 -07:00
|
|
|
TOKEN [^[:space:](),]+
|
2010-05-12 12:17:10 -07:00
|
|
|
|
2010-05-10 11:44:09 -07:00
|
|
|
%%
|
|
|
|
|
2010-05-13 10:29:07 -07:00
|
|
|
{HASH}undef{HSPACE}* {
|
2010-05-17 13:19:04 -07:00
|
|
|
BEGIN ST_UNDEF;
|
2010-05-13 10:29:07 -07:00
|
|
|
return UNDEF;
|
|
|
|
}
|
|
|
|
|
2010-05-17 13:19:04 -07:00
|
|
|
<ST_UNDEF>{IDENTIFIER} {
|
|
|
|
BEGIN ST_UNDEF_END;
|
2010-05-18 22:10:04 -07:00
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
return IDENTIFIER;
|
2010-05-17 13:19:04 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_UNDEF_END>{HSPACE}*
|
|
|
|
|
2010-05-17 13:19:04 -07:00
|
|
|
<ST_UNDEF_END>\n {
|
|
|
|
BEGIN INITIAL;
|
|
|
|
}
|
|
|
|
|
2010-05-13 10:29:07 -07:00
|
|
|
/* We use the ST_DEFINE and ST_DEFVAL states so that we can
|
|
|
|
* pass a space token, (yes, a token for whitespace!), since
|
|
|
|
* the preprocessor specification requires distinguishing
|
|
|
|
* "#define foo()" from "#define foo ()".
|
|
|
|
*/
|
|
|
|
{HASH}define{HSPACE}* {
|
2010-05-14 17:08:45 -07:00
|
|
|
BEGIN ST_DEFINE;
|
2010-05-12 12:17:10 -07:00
|
|
|
return DEFINE;
|
|
|
|
}
|
|
|
|
|
2010-05-14 17:08:45 -07:00
|
|
|
<ST_DEFINE>{IDENTIFIER} {
|
2010-05-18 22:10:04 -07:00
|
|
|
BEGIN ST_DEFINE_OBJ_OR_FUNC;
|
2010-05-14 17:08:45 -07:00
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
return IDENTIFIER;
|
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_OBJ_OR_FUNC>\n {
|
2010-05-14 17:08:45 -07:00
|
|
|
BEGIN INITIAL;
|
2010-05-19 13:28:24 -07:00
|
|
|
return NEWLINE;
|
2010-05-14 17:08:45 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_OBJ_OR_FUNC>{HSPACE}+ {
|
|
|
|
BEGIN ST_DEFINE_VALUE;
|
2010-05-19 13:28:24 -07:00
|
|
|
return SPACE;
|
2010-05-14 17:08:45 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_OBJ_OR_FUNC>"(" {
|
|
|
|
BEGIN ST_DEFINE_PARAMETER;
|
2010-05-14 17:08:45 -07:00
|
|
|
return '(';
|
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_PARAMETER>{IDENTIFIER} {
|
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
return IDENTIFIER;
|
2010-05-17 13:19:04 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_PARAMETER>"," {
|
|
|
|
return ',';
|
2010-05-17 13:19:04 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_PARAMETER>")" {
|
|
|
|
BEGIN ST_DEFINE_VALUE;
|
|
|
|
return ')';
|
2010-05-17 13:19:04 -07:00
|
|
|
}
|
|
|
|
|
2010-05-18 22:10:04 -07:00
|
|
|
<ST_DEFINE_PARAMETER>{HSPACE}+
|
|
|
|
|
2010-05-19 13:28:24 -07:00
|
|
|
<ST_DEFINE_VALUE>{TOKEN} {
|
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
return TOKEN;
|
|
|
|
}
|
|
|
|
|
|
|
|
<ST_DEFINE_VALUE>[(),] {
|
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
return TOKEN;
|
|
|
|
}
|
|
|
|
|
|
|
|
<ST_DEFINE_VALUE>{HSPACE}+
|
|
|
|
|
|
|
|
<ST_DEFINE_VALUE>\n {
|
2010-05-17 13:19:04 -07:00
|
|
|
BEGIN INITIAL;
|
2010-05-19 13:28:24 -07:00
|
|
|
return NEWLINE;
|
2010-05-17 13:19:04 -07:00
|
|
|
}
|
|
|
|
|
|
|
|
{IDENTIFIER} {
|
2010-05-18 22:10:04 -07:00
|
|
|
int parameter_index;
|
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
|
|
|
switch (glcpp_parser_classify_token (yyextra, yylval.str,
|
|
|
|
¶meter_index))
|
|
|
|
{
|
|
|
|
case TOKEN_CLASS_ARGUMENT:
|
|
|
|
talloc_free (yylval.str);
|
|
|
|
/* We don't return a value here since the
|
|
|
|
* current token will be replaced by new
|
|
|
|
* tokens. */
|
|
|
|
glcpp_parser_push_expansion_argument (yyextra,
|
|
|
|
parameter_index);
|
|
|
|
break;
|
|
|
|
case TOKEN_CLASS_IDENTIFIER:
|
|
|
|
return IDENTIFIER;
|
|
|
|
break;
|
|
|
|
case TOKEN_CLASS_FUNC_MACRO:
|
|
|
|
return FUNC_MACRO;
|
|
|
|
break;
|
|
|
|
case TOKEN_CLASS_OBJ_MACRO:
|
|
|
|
return OBJ_MACRO;
|
|
|
|
break;
|
|
|
|
|
|
|
|
}
|
2010-05-12 13:11:50 -07:00
|
|
|
}
|
|
|
|
|
2010-05-13 10:29:07 -07:00
|
|
|
[(),] {
|
|
|
|
return yytext[0];
|
|
|
|
}
|
2010-05-13 09:36:23 -07:00
|
|
|
|
2010-05-12 13:19:23 -07:00
|
|
|
{TOKEN} {
|
2010-05-12 12:45:33 -07:00
|
|
|
yylval.str = xtalloc_strdup (yyextra, yytext);
|
2010-05-12 12:17:10 -07:00
|
|
|
return TOKEN;
|
|
|
|
}
|
2010-05-10 11:44:09 -07:00
|
|
|
|
2010-05-12 13:19:23 -07:00
|
|
|
\n {
|
2010-05-17 13:19:04 -07:00
|
|
|
printf ("\n");
|
2010-05-12 13:19:23 -07:00
|
|
|
}
|
|
|
|
|
2010-05-14 17:29:24 -07:00
|
|
|
{HSPACE}+
|
2010-05-12 13:19:23 -07:00
|
|
|
|
2010-05-10 11:44:09 -07:00
|
|
|
%%
|