79 scm_remember_upto_here_1 (
self);
99 o_smob->containing_scm = o_scm;
193 const char *func_name)
206 return o_smob->
objfile != NULL;
214 const char *func_name)
239 return scm_from_bool (o_smob->
objfile != NULL);
289 SCM_ASSERT_TYPE (
gdbscm_is_true (scm_list_p (printers)), printers,
294 return SCM_UNSPECIFIED;
312 const char *filename)
316 ofscm_current_objfile = objfile;
325 ofscm_current_objfile = NULL;
341 ofscm_current_objfile = objfile;
350 ofscm_current_objfile = NULL;
361 if (ofscm_current_objfile == NULL)
382 result = scm_cons (item, result);
385 return scm_reverse_x (result, SCM_EOL);
394 Return #t if the object is a <gdb:objfile> object." },
398 Return #t if the objfile is valid (hasn't been deleted from gdb)." },
402 Return the file name of the objfile." },
406 Return the progspace that the objfile lives in." },
410 Return a list of pretty-printers of the objfile." },
412 {
"set-objfile-pretty-printers!", 2, 0, 0,
415 Set the list of pretty-printers of the objfile." },
419 Return the current objfile if there is one or #f if there isn't one." },
423 Return a list of all objfiles in the current program space." },
static objfile_smob * ofscm_get_objfile_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
static SCM scm_new_smob(scm_t_bits tc, scm_t_bits data)
static int ofscm_is_valid(objfile_smob *o_smob)
void gdbscm_define_functions(const scheme_function *, int is_public)
void gdbscm_execute_objfile_script(const struct extension_language_defn *extlang, struct objfile *objfile, const char *name, const char *script)
struct program_space * pspace
static SCM gdbscm_objfile_filename(SCM self)
static SCM gdbscm_objfile_pretty_printers(SCM self)
static SCM gdbscm_objfile_valid_p(SCM self)
void gdbscm_source_objfile_script(const struct extension_language_defn *extlang, struct objfile *objfile, FILE *file, const char *filename)
scm_t_bits gdbscm_make_smob_type(const char *name, size_t size)
char * gdbscm_safe_source_script(const char *filename)
static int ofscm_is_objfile(SCM scm)
static void ofscm_release_objfile(objfile_smob *o_smob)
#define gdbscm_is_true(scm)
static SCM gdbscm_get_current_objfile(void)
#define ALL_OBJFILES(obj)
void gdbscm_init_gsmob(gdb_smob *base)
SCM psscm_scm_from_pspace(struct program_space *)
static struct parser_state * pstate
SCM gdbscm_scm_from_c_string(const char *string)
void fprintf_filtered(struct ui_file *stream, const char *format,...)
static const char objfile_smob_name[]
static SCM ofscm_make_objfile_smob(void)
static const struct objfile_data * ofscm_objfile_data_key
SCM ofscm_scm_from_objfile(struct objfile *objfile)
objfile_smob * ofscm_objfile_smob_from_objfile(struct objfile *objfile)
static void ofscm_handle_objfile_deleted(struct objfile *objfile, void *datum)
static SCM ofscm_get_objfile_arg_unsafe(SCM self, int arg_pos, const char *func_name)
const char * objfile_name(const struct objfile *objfile)
void gdbscm_printf(SCM port, const char *format,...) ATTRIBUTE_PRINTF(2
static SCM gdbscm_objfile_progspace(SCM self)
static struct objfile * ofscm_current_objfile
void gdbscm_initialize_objfiles(void)
char * gdbscm_safe_eval_string(const char *string, int display_result)
static scm_t_bits objfile_smob_tag
void gdbscm_invalid_object_error(const char *subr, int arg_pos, SCM bad_value, const char *error) ATTRIBUTE_NORETURN
static SCM gdbscm_objfiles(void)
static SCM gdbscm_objfile_p(SCM scm)
static objfile_smob * ofscm_get_valid_objfile_smob_arg_unsafe(SCM self, int arg_pos, const char *func_name)
struct ui_file * gdb_stderr
static int ofscm_print_objfile_smob(SCM self, SCM port, scm_print_state *pstate)
SCM ofscm_objfile_smob_pretty_printers(objfile_smob *o_smob)
static SCM gdbscm_set_objfile_pretty_printers_x(SCM self, SCM printers)