fdo-mirrors/mesa
1
0
Fork 0
mirror of https://gitlab.freedesktop.org/mesa/mesa.git synced 2025-12-25 21:40:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Implement (and add test) for token pasting.

Browse source 
This is *very* easy to implement now that macro arguments are pre-expanded.
This commit is contained in:
Carl Worth 2010-05-20 15:18:54 -07:00
parent c10a51ba13
commit d8327e575d
1 changed files with 24 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
glcpp-parse.y
View file

@ -760,6 +760,8 @@ glcpp_parser_lex (glcpp_parser_t *parser)
expansion_node_t *expansion;
token_node_t *replacements;
int parameter_index;
const char *token;
token_class_t class;
/* Who says C can't do efficient tail recursion? */
RECURSE:
@ -779,12 +781,31 @@ glcpp_parser_lex (glcpp_parser_t *parser)
expansion->replacements = replacements->next;
if (strcmp (replacements->value, "(") == 0)
token = replacements->value;
/* Implement token pasting. */
if (replacements->next && strcmp (replacements->next->value, "##") == 0) {
token_node_t *next_node;
next_node = replacements->next->next;
if (next_node == NULL) {
fprintf (stderr, "Error: '##' cannot appear at the end of a macro expansion.\n");
exit (1);
}
token = xtalloc_asprintf (parser, "%s%s",
token, next_node->value);
expansion->replacements = next_node->next;
}
if (strcmp (token, "(") == 0)
return '(';
else if (strcmp (replacements->value, ")") == 0)
else if (strcmp (token, ")") == 0)
return ')';
yylval.str = xtalloc_strdup (parser, replacements->value);
yylval.str = xtalloc_strdup (parser, token);
/* Carefully refuse to expand any finalized identifier. */
if (replacements->type == IDENTIFIER_FINALIZED)