/*! Show a expression. Set "expand" to 1 if you want variable
definitions inside the displayed value expanded.
*/
bool
dbg_cmd_show_exp (char *psz_varname, bool expand)
{
if (!psz_varname || 0==strlen(psz_varname)) {
printf(_("You need to supply a variable name.\n"));
return false;
} else {
variable_t *p_v;
variable_set_t *p_set = NULL;
variable_set_list_t *p_file_vars = NULL;
if (p_stack && p_stack->p_target && p_stack->p_target->name) {
const char *psz_target = p_stack->p_target->name;
file_t *p_target = lookup_file (psz_target);
if (p_target) {
initialize_file_variables (p_target, 0);
set_file_variables (p_target);
p_file_vars = p_target->variables;
p_set = p_file_vars->set;
}
}
if (p_set) {
p_v = lookup_variable_in_set(psz_varname, strlen(psz_varname), p_set);
if (!p_v)
/* May be a global variable. */
p_v = lookup_variable (psz_varname, strlen (psz_varname));
} else {
p_v = lookup_variable (psz_varname, strlen (psz_varname));
}
if (p_v) {
if (expand) {
print_variable_expand(p_v);
} else
print_variable(p_v);
} else {
if (expand)
printf("%s\n", variable_expand_set(psz_varname, p_file_vars));
else {
try_without_dollar(psz_varname);
return false;
}
}
}
return true;
}
/*!
Print out the commands.
@param p_cmds location of commands to print out.
@param p_target used to set automatic variables if it is non-null.
@param b_expand if true, expand the commands to remove MAKE variables.
*/
void
print_commands (file_t *p_target, commands_t *p_cmds, bool b_expand)
{
char *s;
fputs (_("# commands to execute"), stdout);
if (p_cmds->fileinfo.filenm == 0)
puts (_(" (built-in):"));
else
printf (_(" (from `%s', line %lu):\n"),
p_cmds->fileinfo.filenm, p_cmds->fileinfo.lineno);
if (b_expand && p_target) {
variable_set_list_t *p_file_vars = NULL;
variable_set_t *p_set = NULL;
initialize_file_variables (p_target, 0);
set_file_variables (p_target);
p_file_vars = p_target->variables;
p_set = p_file_vars->set;
if (p_set != NULL) {
; /* ??? */
}
s = variable_expand_set(p_cmds->commands, p_file_vars);
} else {
s = p_cmds->commands;
}
while (*s != '\0')
{
char *end;
while (isspace ((unsigned char)*s))
++s;
end = strchr (s, '\n');
if (end == 0)
end = s + strlen (s);
printf ("\t%.*s\n", (int) (end - s), s);
s = end;
}
}