static void clean_up_symbols(struct symbol_list *list)
{
struct symbol *sym;
FOR_EACH_PTR(list, sym) {
expand_symbol(sym);
} END_FOR_EACH_PTR(sym);
static void compile(module_t m, struct symbol_list *list)
{
struct symbol *sym;
FOR_EACH_PTR(list, sym) {
struct entrypoint *ep;
expand_symbol(sym);
ep = linearize_symbol(sym);
if (ep)
emit_function(m, ep);
else
emit_toplevel(m, sym);
} END_FOR_EACH_PTR(sym);
}
static GLboolean
expand (expand_state *e, pp_symbols *symbols)
{
while (!IS_NULL(*e->input)) {
if (IS_FIRST_ID_CHAR(*e->input)) {
slang_string buffer;
const char *id;
/* Parse the identifier. */
slang_string_init (&buffer);
slang_string_pushc (&buffer, *e->input++);
while (IS_NEXT_ID_CHAR(*e->input))
slang_string_pushc (&buffer, *e->input++);
id = slang_string_cstr (&buffer);
/* Now check if the identifier is special in some way. The "defined" identifier is
* actually an operator that we must handle here and expand it either to " 0 " or " 1 ".
* The other identifiers start with "__" and we expand it to appropriate values
* taken from the preprocessor state. */
if (_mesa_strcmp (id, "defined") == 0) {
if (!expand_defined (e, &buffer))
return GL_FALSE;
}
else if (_mesa_strcmp (id, "__LINE__") == 0) {
slang_string_pushc (e->output, ' ');
slang_string_pushi (e->output, e->state->line);
slang_string_pushc (e->output, ' ');
}
else if (_mesa_strcmp (id, "__FILE__") == 0) {
slang_string_pushc (e->output, ' ');
slang_string_pushi (e->output, e->state->file);
slang_string_pushc (e->output, ' ');
}
else if (_mesa_strcmp (id, "__VERSION__") == 0) {
slang_string_pushc (e->output, ' ');
slang_string_pushi (e->output, e->state->version);
slang_string_pushc (e->output, ' ');
}
#if FEATURE_es2_glsl
else if (_mesa_strcmp (id, "GL_ES") == 0 ||
_mesa_strcmp (id, "GL_FRAGMENT_PRECISION_HIGH") == 0) {
slang_string_pushc (e->output, ' ');
slang_string_pushi (e->output, '1');
slang_string_pushc (e->output, ' ');
}
#endif
else {
pp_symbol *symbol;
/* The list of symbols from <symbols> take precedence over the list from <state>.
* Note that in some cases this is the same list so avoid double look-up. */
symbol = pp_symbols_find (symbols, id);
if (symbol == NULL && symbols != &e->state->symbols)
symbol = pp_symbols_find (&e->state->symbols, id);
/* If the symbol was found, recursively expand its definition. */
if (symbol != NULL) {
if (!expand_symbol (e, symbol)) {
slang_string_free (&buffer);
return GL_FALSE;
}
}
else {
slang_string_push (e->output, &buffer);
}
}
slang_string_free (&buffer);
}
else if (IS_WHITE(*e->input)) {
slang_string_pushc (e->output, *e->input++);
}
else {
while (!IS_WHITE(*e->input) && !IS_NULL(*e->input) && !IS_FIRST_ID_CHAR(*e->input))
slang_string_pushc (e->output, *e->input++);
}
}
return GL_TRUE;
}
static void expand_symbols(SCTX_ struct symbol_list *list)
{
struct symbol *sym;
FOR_EACH_PTR(list, sym) {
expand_symbol(sctx_ sym);
} END_FOR_EACH_PTR(sym);