Lines Matching refs:scm
48 typedef int excp_matcher_func (SCM key);
55 SCM value;
76 as_a_scm_t_subr (SCM (*func) (void))
82 as_a_scm_t_subr (SCM (*func) (SCM))
88 as_a_scm_t_subr (SCM (*func) (SCM, SCM))
94 as_a_scm_t_subr (SCM (*func) (SCM, SCM, SCM))
141 #define gdbscm_is_bool(scm) \
142 (scm_is_eq ((scm), SCM_BOOL_F) || scm_is_eq ((scm), SCM_BOOL_T))
143 #define gdbscm_is_false(scm) scm_is_eq ((scm), SCM_BOOL_F)
144 #define gdbscm_is_true(scm) (!gdbscm_is_false (scm))
150 static inline SCM
179 extern SCM gdbscm_documentation_symbol;
180 extern SCM gdbscm_invalid_object_error_symbol;
182 extern SCM gdbscm_map_string;
183 extern SCM gdbscm_array_string;
184 extern SCM gdbscm_string_string;
187 /* scm-utils.c */
196 extern void gdbscm_printf (SCM port, const char *format, ...)
199 extern void gdbscm_debug_display (SCM obj);
201 extern void gdbscm_debug_write (SCM obj);
205 const SCM *keywords,
208 extern SCM gdbscm_scm_from_longest (LONGEST l);
210 extern LONGEST gdbscm_scm_to_longest (SCM l);
212 extern SCM gdbscm_scm_from_ulongest (ULONGEST l);
214 extern ULONGEST gdbscm_scm_to_ulongest (SCM u);
218 extern int gdbscm_is_procedure (SCM proc);
227 /* GDB smobs, from scm-gsmob.c */
273 already created an object for a symbol, and if so use that SCM.
280 SCM containing_scm;
289 typedef int (gsmob_pred_func) (SCM);
298 SCM containing_scm);
315 /* scm-exception.c */
317 extern SCM gdbscm_make_exception (SCM tag, SCM args);
319 extern int gdbscm_is_exception (SCM scm);
321 extern SCM gdbscm_exception_key (SCM excp);
323 extern SCM gdbscm_exception_args (SCM excp);
325 extern SCM gdbscm_make_exception_with_stack (SCM key, SCM args, SCM stack);
327 extern SCM gdbscm_make_error_scm (SCM key, SCM subr, SCM message,
328 SCM args, SCM data);
330 extern SCM gdbscm_make_error (SCM key, const char *subr, const char *message,
331 SCM args, SCM data);
333 extern SCM gdbscm_make_type_error (const char *subr, int arg_pos,
334 SCM bad_value, const char *expected_type);
336 extern SCM gdbscm_make_invalid_object_error (const char *subr, int arg_pos,
337 SCM bad_value, const char *error);
341 SCM bad_value,
344 extern SCM gdbscm_make_out_of_range_error (const char *subr, int arg_pos,
345 SCM bad_value, const char *error);
348 int arg_pos, SCM bad_value,
351 extern SCM gdbscm_make_misc_error (const char *subr, int arg_pos,
352 SCM bad_value, const char *error);
355 SCM bad_value, const char *error);
357 [[noreturn]] extern void gdbscm_throw (SCM exception);
360 extern SCM gdbscm_scm_from_gdb_exception
366 extern void gdbscm_print_exception_with_stack (SCM port, SCM stack,
367 SCM key, SCM args);
369 extern void gdbscm_print_gdb_exception (SCM port, SCM exception);
372 (SCM exception);
378 extern SCM gdbscm_make_memory_error (const char *subr, const char *msg,
379 SCM args);
382 const char *msg, SCM args);
384 /* scm-safe-call.c */
388 extern SCM gdbscm_call_guile (SCM (*func) (void *), void *data,
391 extern SCM gdbscm_safe_call_0 (SCM proc, excp_matcher_func *ok_excps);
393 extern SCM gdbscm_safe_call_1 (SCM proc, SCM arg0,
396 extern SCM gdbscm_safe_call_2 (SCM proc, SCM arg0, SCM arg1,
399 extern SCM gdbscm_safe_call_3 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
402 extern SCM gdbscm_safe_call_4 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
403 SCM arg3,
406 extern SCM gdbscm_safe_apply_1 (SCM proc, SCM arg0, SCM args,
409 extern SCM gdbscm_unsafe_call_1 (SCM proc, SCM arg0);
422 /* scm-arch.c */
428 extern arch_smob *arscm_get_arch_smob_arg_unsafe (SCM arch_scm, int arg_pos,
431 extern SCM arscm_scm_from_arch (struct gdbarch *gdbarch);
433 /* scm-block.c */
435 extern SCM bkscm_scm_from_block (const struct block *block,
439 (SCM block_scm, int arg_pos, const char *func_name, SCM *excp);
441 /* scm-cmd.c */
453 /* scm-frame.c */
457 extern int frscm_is_frame (SCM scm);
459 extern frame_smob *frscm_get_frame_smob_arg_unsafe (SCM frame_scm, int arg_pos,
464 /* scm-iterator.c */
468 extern SCM itscm_iterator_smob_object (iterator_smob *i_smob);
470 extern SCM itscm_iterator_smob_progress (iterator_smob *i_smob);
473 SCM progress);
477 extern SCM gdbscm_make_iterator (SCM object, SCM progress, SCM next);
479 extern int itscm_is_iterator (SCM scm);
481 extern SCM gdbscm_end_of_iteration (void);
483 extern int itscm_is_end_of_iteration (SCM obj);
485 extern SCM itscm_safe_call_next_x (SCM iter, excp_matcher_func *ok_excps);
487 extern SCM itscm_get_iterator_arg_unsafe (SCM self, int arg_pos,
490 /* scm-lazy-string.c */
492 extern int lsscm_is_lazy_string (SCM scm);
494 extern SCM lsscm_make_lazy_string (CORE_ADDR address, int length,
497 extern struct value *lsscm_safe_lazy_string_to_value (SCM string,
500 SCM *except_scmp);
503 (SCM string, struct ui_file *stream,
506 /* scm-objfile.c */
510 extern SCM ofscm_objfile_smob_pretty_printers (objfile_smob *o_smob);
514 extern SCM ofscm_scm_from_objfile (struct objfile *objfile);
516 /* scm-progspace.c */
520 extern SCM psscm_pspace_smob_pretty_printers (const pspace_smob *);
524 extern SCM psscm_scm_from_pspace (struct program_space *);
526 /* scm-string.c */
528 extern int gdbscm_scm_string_to_int (SCM string);
530 extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_c_string (SCM string);
532 extern SCM gdbscm_scm_from_c_string (const char *string);
534 extern SCM gdbscm_scm_from_printf (const char *format, ...)
538 (SCM string, size_t *lenp, const char *charset, int strict, SCM *except_scmp);
540 extern SCM gdbscm_scm_from_string (const char *string, size_t len,
544 (SCM string, size_t *lenp, SCM *except);
546 extern SCM gdbscm_scm_from_host_string (const char *string, size_t len);
548 /* scm-symbol.c */
550 extern int syscm_is_symbol (SCM scm);
552 extern SCM syscm_scm_from_symbol (struct symbol *symbol);
555 (SCM self, int arg_pos, const char *func_name);
557 /* scm-symtab.c */
559 extern SCM stscm_scm_from_symtab (struct symtab *symtab);
561 extern SCM stscm_scm_from_sal (struct symtab_and_line sal);
563 /* scm-type.c */
567 SCM scm);
569 extern SCM tyscm_scm_from_type (struct type *type);
571 extern type_smob *tyscm_get_type_smob_arg_unsafe (SCM type_scm, int arg_pos,
574 extern struct type *tyscm_scm_to_type (SCM t_scm);
578 extern SCM tyscm_scm_from_field (SCM type_scm, int field_num);
580 /* scm-value.c */
582 extern struct value *vlscm_scm_to_value (SCM scm);
584 extern int vlscm_is_value (SCM scm);
586 extern SCM vlscm_scm_from_value (struct value *value);
587 extern SCM vlscm_scm_from_value_no_release (struct value *value);
590 (const char *func_name, int obj_arg_pos, SCM obj,
591 int type_arg_pos, SCM type_scm, struct type *type, SCM *except_scmp,
595 (const char *func_name, int obj_arg_pos, SCM obj, SCM *except_scmp,
712 SCM
715 SCM result = SCM_BOOL_F;
Indexes created Fri Jun 26 00:24:39 UTC 2026