/* Set a variable. Set "expand' to 1 if you want variable
definitions inside the value getting passed in to be expanded
before assigment. */
static debug_return_t dbg_cmd_set_var (char *psz_args, int expand)
{
if (!psz_args || 0==strlen(psz_args)) {
dbg_msg(_("You need to supply a variable name."));
} else {
variable_t *p_v;
char *psz_varname = get_word(&psz_args);
unsigned int u_len = strlen(psz_varname);
while (*psz_args && whitespace (*psz_args))
*psz_args +=1;
p_v = lookup_variable (psz_varname, u_len);
if (p_v) {
char *psz_value = expand ? variable_expand(psz_args) : psz_args;
define_variable_in_set(p_v->name, u_len, psz_value,
o_debugger, 0, NULL,
&(p_v->fileinfo));
dbg_msg(_("Variable %s now has value '%s'"), psz_varname,
psz_value);
} else {
try_without_dollar(psz_varname);
}
}
return debug_readloop;
}
/* Record / perform a variable definition in a set.
The NAME is in the string cache.
The VALUE is on the heap.
The DUPLICATE_VALUE is always 0. */
static void
incdep_record_variable_in_set (struct incdep *cur,
const char *name, unsigned int name_length,
const char *value,
unsigned int value_length,
int duplicate_value,
enum variable_origin origin,
int recursive,
struct variable_set *set,
const struct floc *flocp)
{
assert (!duplicate_value);
if (cur->worker_tid == -1)
define_variable_in_set (name, name_length, value, value_length,
duplicate_value, origin, recursive, set, flocp);
#ifdef PARSE_IN_WORKER
else
{
struct incdep_variable_in_set *rec =
(struct incdep_variable_in_set *)incdep_alloc_rec (cur);
rec->name_entry = (struct strcache2_entry *)name;
rec->value = value;
rec->value_length = value_length;
rec->duplicate_value = duplicate_value;
rec->origin = origin;
rec->recursive = recursive;
rec->set = set;
rec->flocp = flocp;
rec->next = NULL;
if (cur->recorded_variables_in_set_tail)
cur->recorded_variables_in_set_tail->next = rec;
else
cur->recorded_variables_in_set_head = rec;
cur->recorded_variables_in_set_tail = rec;
}
#endif
}
/* Flushes the recorded instructions. */
static void
incdep_flush_recorded_instructions (struct incdep *cur)
{
struct incdep_variable_in_set *rec_vis;
struct incdep_variable_def *rec_vd;
struct incdep_recorded_file *rec_f;
/* define_variable_in_set */
rec_vis = cur->recorded_variables_in_set_head;
cur->recorded_variables_in_set_head = cur->recorded_variables_in_set_tail = NULL;
if (rec_vis)
do
{
void *free_me = rec_vis;
unsigned int name_length = rec_vis->name_entry->length;
define_variable_in_set (incdep_flush_strcache_entry (rec_vis->name_entry),
name_length,
rec_vis->value,
rec_vis->value_length,
rec_vis->duplicate_value,
rec_vis->origin,
rec_vis->recursive,
rec_vis->set,
rec_vis->flocp);
rec_vis = rec_vis->next;
incdep_free_rec (cur, free_me);
}
while (rec_vis);
/* do_variable_definition */
rec_vd = cur->recorded_variable_defs_head;
cur->recorded_variable_defs_head = cur->recorded_variable_defs_tail = NULL;
if (rec_vd)
do
{
void *free_me = rec_vd;
do_variable_definition_2 (rec_vd->flocp,
incdep_flush_strcache_entry (rec_vd->name_entry),
rec_vd->value,
rec_vd->value_length,
0,
rec_vd->value,
rec_vd->origin,
rec_vd->flavor,
rec_vd->target_var);
rec_vd = rec_vd->next;
incdep_free_rec (cur, free_me);
}
while (rec_vd);
/* record_files */
rec_f = cur->recorded_file_head;
cur->recorded_file_head = cur->recorded_file_tail = NULL;
if (rec_f)
do
{
void *free_me = rec_f;
struct dep *dep;
for (dep = rec_f->deps; dep; dep = dep->next)
dep->name = incdep_flush_strcache_entry ((struct strcache2_entry *)dep->name);
incdep_commit_recorded_file (incdep_flush_strcache_entry (rec_f->filename_entry),
rec_f->deps,
rec_f->flocp);
rec_f = rec_f->next;
incdep_free_rec (cur, free_me);
}
while (rec_f);
}
