89 scm_remember_upto_here_1 (self);
182 const char *func_name)
195 return o_smob->
objfile != NULL;
203 const char *func_name)
228 return scm_from_bool (o_smob->
objfile != NULL);
278 SCM_ASSERT_TYPE (
gdbscm_is_true (scm_list_p (printers)), printers,
283 return SCM_UNSPECIFIED;
301 const char *filename)
325 gdb::unique_xmalloc_ptr<char> msg
361 result = scm_cons (item, result);
364 return scm_reverse_x (result, SCM_EOL);
373Return #t if the object is a <gdb:objfile> object." },
377Return #t if the objfile is valid (hasn't been deleted from gdb)." },
381Return the file name of the objfile." },
385Return the progspace that the objfile lives in." },
387 {
"objfile-pretty-printers", 1, 0, 0,
390Return a list of pretty-printers of the objfile." },
392 {
"set-objfile-pretty-printers!", 2, 0, 0,
395Set the list of pretty-printers of the objfile." },
399Return the current objfile if there is one or #f if there isn't one." },
403Return a list of all objfiles in the current program space." },
static struct parser_state * pstate
void set(unsigned key, void *datum)
#define gdbscm_is_true(scm)
void gdbscm_init_gsmob(gdb_smob *base)
void gdbscm_invalid_object_error(const char *subr, int arg_pos, SCM bad_value, const char *error) ATTRIBUTE_NORETURN
SCM psscm_scm_from_pspace(struct program_space *)
objfile_script_sourcer_func gdbscm_source_objfile_script
void gdbscm_printf(SCM port, const char *format,...) ATTRIBUTE_PRINTF(2
gdb::unique_xmalloc_ptr< char > gdbscm_safe_source_script(const char *filename)
gdb::unique_xmalloc_ptr< char > gdbscm_safe_eval_string(const char *string, int display_result)
static SCM scm_new_smob(scm_t_bits tc, scm_t_bits data)
void gdbscm_define_functions(const scheme_function *, int is_public)
scm_t_bits gdbscm_make_smob_type(const char *name, size_t size)
objfile_script_executor_func gdbscm_execute_objfile_script
static scm_t_subr as_a_scm_t_subr(SCM(*func)(void))
SCM gdbscm_scm_from_c_string(const char *string)
const char * objfile_name(const struct objfile *objfile)
struct program_space * current_program_space
static SCM gdbscm_objfile_valid_p(SCM self)
static const registry< objfile >::key< objfile_smob, ofscm_deleter > ofscm_objfile_data_key
static SCM ofscm_make_objfile_smob(void)
objfile_smob * ofscm_objfile_smob_from_objfile(struct objfile *objfile)
static objfile_smob * ofscm_get_valid_objfile_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
static SCM gdbscm_objfile_progspace(SCM self)
static SCM gdbscm_objfile_pretty_printers(SCM self)
SCM ofscm_scm_from_objfile(struct objfile *objfile)
SCM ofscm_objfile_smob_pretty_printers(objfile_smob *o_smob)
static objfile_smob * ofscm_get_objfile_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
static struct objfile * ofscm_current_objfile
static SCM ofscm_get_objfile_arg_unsafe(SCM self, int arg_pos, const char *func_name)
static int ofscm_print_objfile_smob(SCM self, SCM port, scm_print_state *pstate)
static int ofscm_is_objfile(SCM scm)
static SCM gdbscm_set_objfile_pretty_printers_x(SCM self, SCM printers)
void gdbscm_initialize_objfiles(void)
static SCM gdbscm_objfile_filename(SCM self)
static SCM gdbscm_objfiles(void)
static const scheme_function objfile_functions[]
static SCM gdbscm_get_current_objfile(void)
static scm_t_bits objfile_smob_tag
static int ofscm_is_valid(objfile_smob *o_smob)
static SCM gdbscm_objfile_p(SCM scm)
static const char objfile_smob_name[]
struct program_space * pspace
objfile(gdb_bfd_ref_ptr, const char *, objfile_flags)
void operator()(objfile_smob *o_smob)
objfiles_range objfiles()
void gdb_printf(struct ui_file *stream, const char *format,...)