char *
recursively_expand_for_file (struct variable *v, struct file *file)
{
char *value;
const struct floc *this_var;
const struct floc **saved_varp;
struct variable_set_list *save = 0;
int set_reading = 0;
/* Don't install a new location if this location is empty.
This can happen for command-line variables, builtin variables, etc. */
saved_varp = expanding_var;
if (v->fileinfo.filenm)
{
this_var = &v->fileinfo;
expanding_var = &this_var;
}
/* If we have no other file-reading context, use the variable's context. */
if (!reading_file)
{
set_reading = 1;
reading_file = &v->fileinfo;
}
if (v->expanding)
{
if (!v->exp_count)
/* Expanding V causes infinite recursion. Lose. */
fatal (*expanding_var,
_("Recursive variable `%s' references itself (eventually)"),
v->name);
--v->exp_count;
}
if (file)
{
save = current_variable_set_list;
current_variable_set_list = file->variables;
}
v->expanding = 1;
if (v->append)
value = allocated_variable_append (v);
else
value = allocated_variable_expand (v->value);
v->expanding = 0;
if (set_reading)
reading_file = 0;
if (file)
current_variable_set_list = save;
expanding_var = saved_varp;
return value;
}
/* Static worker for reference_variable() that expands the recursive
variable V. The main difference between this and
recursively_expand[_for_file] is that this worker avoids the temporary
buffer and outputs directly into the current variable buffer (O). */
static char *
reference_recursive_variable (char *o, struct variable *v)
{
const struct floc *this_var;
const struct floc **saved_varp;
int set_reading = 0;
/* Don't install a new location if this location is empty.
This can happen for command-line variables, builtin variables, etc. */
saved_varp = expanding_var;
if (v->fileinfo.filenm)
{
this_var = &v->fileinfo;
expanding_var = &this_var;
}
/* If we have no other file-reading context, use the variable's context. */
if (!reading_file)
{
set_reading = 1;
reading_file = &v->fileinfo;
}
if (v->expanding)
{
if (!v->exp_count)
/* Expanding V causes infinite recursion. Lose. */
fatal (*expanding_var,
_("Recursive variable `%s' references itself (eventually)"),
v->name);
--v->exp_count;
}
v->expanding = 1;
if (!v->append)
/* Expand directly into the variable buffer. */
variable_expand_string_2 (o, v->value, v->value_length, &o);
else
{
/* XXX: Feel free to optimize appending target variables as well. */
char *value = allocated_variable_append (v);
unsigned int value_len = strlen (value);
o = variable_buffer_output (o, value, value_len);
free (value);
}
v->expanding = 0;
if (set_reading)
reading_file = 0;
expanding_var = saved_varp;
return o;
}