static SCM
ppscm_find_pretty_printer_from_gdb (SCM value)
{
SCM pp = ppscm_search_pp_list (pretty_printer_list, value);
return pp;
}
static SCM
ppscm_find_pretty_printer_from_progspace (SCM value)
{
pspace_smob *p_smob = psscm_pspace_smob_from_pspace (current_program_space);
SCM pp
= ppscm_search_pp_list (psscm_pspace_smob_pretty_printers (p_smob), value);
return pp;
}
static SCM
ppscm_find_pretty_printer_from_gdb (SCM value)
{
SCM pp_list, pp;
/* Fetch the global pretty printer list. */
pp_list = scm_variable_ref (pretty_printer_list_var);
pp = ppscm_search_pp_list (pp_list, value);
return pp;
}
static SCM
ppscm_find_pretty_printer_from_objfiles (SCM value)
{
struct objfile *objfile;
ALL_OBJFILES (objfile)
{
objfile_smob *o_smob = ofscm_objfile_smob_from_objfile (objfile);
SCM pp = ppscm_search_pp_list (ofscm_objfile_smob_pretty_printers (o_smob),
value);
/* Note: This will return if pp is a <gdb:exception> object,
which is what we want. */
if (gdbscm_is_true (pp))
return pp;
}
return SCM_BOOL_F;
}
