GDB (xrefs)
Loading...
Searching...
No Matches
guile-internal.h
Go to the documentation of this file.
1/* Internal header for GDB/Scheme code.
2
3 Copyright (C) 2014-2023 Free Software Foundation, Inc.
4
5 This file is part of GDB.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19
20#ifndef GUILE_GUILE_INTERNAL_H
21#define GUILE_GUILE_INTERNAL_H
22
23/* See README file in this directory for implementation notes, coding
24 conventions, et.al. */
25
26
27#include "hashtab.h"
28#include "extension-priv.h"
29#include "symtab.h"
30#include "libguile.h"
31#include "objfiles.h"
32
33struct block;
34struct frame_info;
35struct objfile;
36struct symbol;
37
38/* A function to pass to the safe-call routines to ignore things like
39 memory errors. */
40typedef int excp_matcher_func (SCM key);
41
42/* Scheme variables to define during initialization. */
43
45{
46 const char *name;
47 SCM value;
48 const char *doc_string;
49};
50
51/* End of scheme_variable table mark. */
52
53#define END_VARIABLES { NULL, SCM_BOOL_F, NULL }
54
55/* Although scm_t_subr is meant to hold a function pointer, at least
56 in some versions of guile, it is actually a typedef to "void *".
57 That means that in C++, an explicit cast is necessary to convert
58 function pointer to scm_t_subr. But a cast also makes it possible
59 to pass function pointers with the wrong type by mistake. So
60 instead of adding such casts throughout, we use 'as_a_scm_t_subr'
61 to do the conversion, which (only) has overloads for function
62 pointer types that are valid.
63
64 See https://lists.gnu.org/archive/html/guile-devel/2013-03/msg00001.html.
65*/
66
67static inline scm_t_subr
68as_a_scm_t_subr (SCM (*func) (void))
69{
70 return (scm_t_subr) func;
71}
72
73static inline scm_t_subr
74as_a_scm_t_subr (SCM (*func) (SCM))
75{
76 return (scm_t_subr) func;
77}
78
79static inline scm_t_subr
80as_a_scm_t_subr (SCM (*func) (SCM, SCM))
81{
82 return (scm_t_subr) func;
83}
84
85static inline scm_t_subr
86as_a_scm_t_subr (SCM (*func) (SCM, SCM, SCM))
87{
88 return (scm_t_subr) func;
89}
90
91/* Scheme functions to define during initialization. */
92
94{
95 const char *name;
98 int rest;
99 scm_t_subr func;
100 const char *doc_string;
101};
102
103/* End of scheme_function table mark. */
104
105#define END_FUNCTIONS { NULL, 0, 0, 0, NULL, NULL }
106
107/* Useful for defining a set of constants. */
108
110{
111 const char *name;
112 int value;
113};
114
115#define END_INTEGER_CONSTANTS { NULL, 0 }
116
117/* Pass this instead of 0 to routines like SCM_ASSERT to indicate the value
118 is not a function argument. */
119#define GDBSCM_ARG_NONE 0
120
121/* Ensure new code doesn't accidentally try to use this. */
122#undef scm_make_smob_type
123#define scm_make_smob_type USE_gdbscm_make_smob_type_INSTEAD
124
125/* They brought over () == #f from lisp.
126 Let's avoid that for now. */
127#undef scm_is_bool
128#undef scm_is_false
129#undef scm_is_true
130#define scm_is_bool USE_gdbscm_is_bool_INSTEAD
131#define scm_is_false USE_gdbscm_is_false_INSTEAD
132#define scm_is_true USE_gdbscm_is_true_INSTEAD
133#define gdbscm_is_bool(scm) \
134 (scm_is_eq ((scm), SCM_BOOL_F) || scm_is_eq ((scm), SCM_BOOL_T))
135#define gdbscm_is_false(scm) scm_is_eq ((scm), SCM_BOOL_F)
136#define gdbscm_is_true(scm) (!gdbscm_is_false (scm))
137
138#ifndef HAVE_SCM_NEW_SMOB
139
140/* Guile <= 2.0.5 did not provide this function, so provide it here. */
141
142static inline SCM
143scm_new_smob (scm_t_bits tc, scm_t_bits data)
144{
145 SCM_RETURN_NEWSMOB (tc, data);
146}
147
148#endif
149
150/* Function name that is passed around in case an error needs to be reported.
151 __func is in C99, but we provide a wrapper "just in case",
152 and because FUNC_NAME is the canonical value used in guile sources.
153 IWBN to use the Scheme version of the name (e.g. foo-bar vs foo_bar),
154 but let's KISS for now. */
155#define FUNC_NAME __func__
156
157extern const char gdbscm_module_name[];
158extern const char gdbscm_init_module_name[];
159
160extern int gdb_scheme_initialized;
161
165
166extern const char gdbscm_print_excp_none[];
167extern const char gdbscm_print_excp_full[];
168extern const char gdbscm_print_excp_message[];
169extern const char *gdbscm_print_excp;
170
173
174extern SCM gdbscm_map_string;
175extern SCM gdbscm_array_string;
176extern SCM gdbscm_string_string;
177
178/* scm-utils.c */
179
180extern void gdbscm_define_variables (const scheme_variable *, int is_public);
181
182extern void gdbscm_define_functions (const scheme_function *, int is_public);
183
185 int is_public);
186
187extern void gdbscm_printf (SCM port, const char *format, ...)
188 ATTRIBUTE_PRINTF (2, 3);
189
190extern void gdbscm_debug_display (SCM obj);
191
192extern void gdbscm_debug_write (SCM obj);
193
194extern void gdbscm_parse_function_args (const char *function_name,
195 int beginning_arg_pos,
196 const SCM *keywords,
197 const char *format, ...);
198
199extern SCM gdbscm_scm_from_longest (LONGEST l);
200
201extern LONGEST gdbscm_scm_to_longest (SCM l);
202
203extern SCM gdbscm_scm_from_ulongest (ULONGEST l);
204
205extern ULONGEST gdbscm_scm_to_ulongest (SCM u);
206
207extern void gdbscm_dynwind_xfree (void *ptr);
208
209extern int gdbscm_is_procedure (SCM proc);
210
211extern char *gdbscm_gc_xstrdup (const char *);
212
213extern const char * const *gdbscm_gc_dup_argv (char **argv);
214
215extern int gdbscm_guile_version_is_at_least (int major, int minor, int micro);
216
217/* GDB smobs, from scm-gsmob.c */
218
219/* All gdb smobs must contain one of the following as the first member:
220 gdb_smob, chained_gdb_smob, or eqable_gdb_smob.
221
222 Chained GDB smobs should have chained_gdb_smob as their first member. The
223 next,prev members of chained_gdb_smob allow for chaining gsmobs together so
224 that, for example, when an objfile is deleted we can clean up all smobs that
225 reference it.
226
227 Eq-able GDB smobs should have eqable_gdb_smob as their first member. The
228 containing_scm member of eqable_gdb_smob allows for returning the same gsmob
229 instead of creating a new one, allowing them to be eq?-able.
230
231 All other smobs should have gdb_smob as their first member.
232 FIXME: dje/2014-05-26: gdb_smob was useful during early development as a
233 "baseclass" for all gdb smobs. If it's still unused by gdb 8.0 delete it.
234
235 IMPORTANT: chained_gdb_smob and eqable_gdb-smob are "subclasses" of
236 gdb_smob. The layout of chained_gdb_smob,eqable_gdb_smob must match
237 gdb_smob as if it is a subclass. To that end we use macro GDB_SMOB_HEAD
238 to ensure this. */
239
240#define GDB_SMOB_HEAD \
241 int empty_base_class;
242
244{
246};
247
249{
251
254};
255
257{
259
260 /* The object we are contained in.
261 This can be used for several purposes.
262 This is used by the eq? machinery: We need to be able to see if we have
263 already created an object for a symbol, and if so use that SCM.
264 This may also be used to protect the smob from GC if there is
265 a reference to this smob from outside of GC space (i.e., from gdb).
266 This can also be used in place of chained_gdb_smob where we need to
267 keep track of objfile referencing objects. When the objfile is deleted
268 we need to invalidate the objects: we can do that using the same hashtab
269 used to record the smob for eq-ability. */
271};
272
273#undef GDB_SMOB_HEAD
274
275struct objfile;
276
277/* A predicate that returns non-zero if an object is a particular kind
278 of gsmob. */
279typedef int (gsmob_pred_func) (SCM);
280
281extern scm_t_bits gdbscm_make_smob_type (const char *name, size_t size);
282
283extern void gdbscm_init_gsmob (gdb_smob *base);
284
286
288 SCM containing_scm);
289
290extern htab_t gdbscm_create_eqable_gsmob_ptr_map (htab_hash hash_fn,
291 htab_eq eq_fn);
292
294 (htab_t htab, eqable_gdb_smob *base);
295
297 eqable_gdb_smob *base);
298
299extern void gdbscm_clear_eqable_gsmob_ptr_slot (htab_t htab,
300 eqable_gdb_smob *base);
301
302/* Exceptions and calling out to Guile. */
303
304/* scm-exception.c */
305
306extern SCM gdbscm_make_exception (SCM tag, SCM args);
307
308extern int gdbscm_is_exception (SCM scm);
309
310extern SCM gdbscm_exception_key (SCM excp);
311
312extern SCM gdbscm_exception_args (SCM excp);
313
314extern SCM gdbscm_make_exception_with_stack (SCM key, SCM args, SCM stack);
315
316extern SCM gdbscm_make_error_scm (SCM key, SCM subr, SCM message,
317 SCM args, SCM data);
318
319extern SCM gdbscm_make_error (SCM key, const char *subr, const char *message,
320 SCM args, SCM data);
321
322extern SCM gdbscm_make_type_error (const char *subr, int arg_pos,
323 SCM bad_value, const char *expected_type);
324
325extern SCM gdbscm_make_invalid_object_error (const char *subr, int arg_pos,
326 SCM bad_value, const char *error);
327
328extern void gdbscm_invalid_object_error (const char *subr, int arg_pos,
329 SCM bad_value, const char *error)
330 ATTRIBUTE_NORETURN;
331
332extern SCM gdbscm_make_out_of_range_error (const char *subr, int arg_pos,
333 SCM bad_value, const char *error);
334
335extern void gdbscm_out_of_range_error (const char *subr, int arg_pos,
336 SCM bad_value, const char *error)
337 ATTRIBUTE_NORETURN;
338
339extern SCM gdbscm_make_misc_error (const char *subr, int arg_pos,
340 SCM bad_value, const char *error);
341
342extern void gdbscm_misc_error (const char *subr, int arg_pos,
343 SCM bad_value, const char *error)
344 ATTRIBUTE_NORETURN;
345
346extern void gdbscm_throw (SCM exception) ATTRIBUTE_NORETURN;
347
350 (const gdbscm_gdb_exception &exception);
351
353 ATTRIBUTE_NORETURN;
354
355extern void gdbscm_print_exception_with_stack (SCM port, SCM stack,
356 SCM key, SCM args);
357
358extern void gdbscm_print_gdb_exception (SCM port, SCM exception);
359
360extern gdb::unique_xmalloc_ptr<char> gdbscm_exception_message_to_string
361 (SCM exception);
362
364
366
367extern SCM gdbscm_make_memory_error (const char *subr, const char *msg,
368 SCM args);
369
370extern void gdbscm_memory_error (const char *subr, const char *msg, SCM args)
371 ATTRIBUTE_NORETURN;
372
373/* scm-safe-call.c */
374
375extern const char *gdbscm_with_guile (const char *(*func) (void *), void *data);
376
377extern SCM gdbscm_call_guile (SCM (*func) (void *), void *data,
378 excp_matcher_func *ok_excps);
379
380extern SCM gdbscm_safe_call_0 (SCM proc, excp_matcher_func *ok_excps);
381
382extern SCM gdbscm_safe_call_1 (SCM proc, SCM arg0,
383 excp_matcher_func *ok_excps);
384
385extern SCM gdbscm_safe_call_2 (SCM proc, SCM arg0, SCM arg1,
386 excp_matcher_func *ok_excps);
387
388extern SCM gdbscm_safe_call_3 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
389 excp_matcher_func *ok_excps);
390
391extern SCM gdbscm_safe_call_4 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
392 SCM arg3,
393 excp_matcher_func *ok_excps);
394
395extern SCM gdbscm_safe_apply_1 (SCM proc, SCM arg0, SCM args,
396 excp_matcher_func *ok_excps);
397
398extern SCM gdbscm_unsafe_call_1 (SCM proc, SCM arg0);
399
400extern gdb::unique_xmalloc_ptr<char> gdbscm_safe_eval_string
401 (const char *string, int display_result);
402
403extern gdb::unique_xmalloc_ptr<char> gdbscm_safe_source_script
404 (const char *filename);
405
406extern void gdbscm_enter_repl (void);
407
408/* Interface to various GDB objects, in alphabetical order. */
409
410/* scm-arch.c */
411
412struct arch_smob;
413
414extern struct gdbarch *arscm_get_gdbarch (arch_smob *a_smob);
415
416extern arch_smob *arscm_get_arch_smob_arg_unsafe (SCM arch_scm, int arg_pos,
417 const char *func_name);
418
419extern SCM arscm_scm_from_arch (struct gdbarch *gdbarch);
420
421/* scm-block.c */
422
423extern SCM bkscm_scm_from_block (const struct block *block,
424 struct objfile *objfile);
425
426extern const struct block *bkscm_scm_to_block
427 (SCM block_scm, int arg_pos, const char *func_name, SCM *excp);
428
429/* scm-cmd.c */
430
431extern char *gdbscm_parse_command_name (const char *name,
432 const char *func_name, int arg_pos,
433 struct cmd_list_element ***base_list,
434 struct cmd_list_element **start_list);
435
437
438extern char *gdbscm_canonicalize_command_name (const char *name,
439 int want_trailing_space);
440
441/* scm-frame.c */
442
443struct frame_smob;
444
445extern int frscm_is_frame (SCM scm);
446
447extern frame_smob *frscm_get_frame_smob_arg_unsafe (SCM frame_scm, int arg_pos,
448 const char *func_name);
449
451
452/* scm-iterator.c */
453
454struct iterator_smob;
455
456extern SCM itscm_iterator_smob_object (iterator_smob *i_smob);
457
459
461 SCM progress);
462
463extern const char *itscm_iterator_smob_name (void);
464
465extern SCM gdbscm_make_iterator (SCM object, SCM progress, SCM next);
466
467extern int itscm_is_iterator (SCM scm);
468
469extern SCM gdbscm_end_of_iteration (void);
470
471extern int itscm_is_end_of_iteration (SCM obj);
472
473extern SCM itscm_safe_call_next_x (SCM iter, excp_matcher_func *ok_excps);
474
475extern SCM itscm_get_iterator_arg_unsafe (SCM self, int arg_pos,
476 const char *func_name);
477
478/* scm-lazy-string.c */
479
480extern int lsscm_is_lazy_string (SCM scm);
481
482extern SCM lsscm_make_lazy_string (CORE_ADDR address, int length,
483 const char *encoding, struct type *type);
484
485extern struct value *lsscm_safe_lazy_string_to_value (SCM string,
486 int arg_pos,
487 const char *func_name,
488 SCM *except_scmp);
489
491 (SCM string, struct ui_file *stream,
492 const struct value_print_options *options);
493
494/* scm-objfile.c */
495
496struct objfile_smob;
497
499
501
502extern SCM ofscm_scm_from_objfile (struct objfile *objfile);
503
504/* scm-progspace.c */
505
506struct pspace_smob;
507
509
511
512extern SCM psscm_scm_from_pspace (struct program_space *);
513
514/* scm-string.c */
515
516extern int gdbscm_scm_string_to_int (SCM string);
517
518extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_c_string (SCM string);
519
520extern SCM gdbscm_scm_from_c_string (const char *string);
521
522extern SCM gdbscm_scm_from_printf (const char *format, ...)
523 ATTRIBUTE_PRINTF (1, 2);
524
525extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_string
526 (SCM string, size_t *lenp, const char *charset, int strict, SCM *except_scmp);
527
528extern SCM gdbscm_scm_from_string (const char *string, size_t len,
529 const char *charset, int strict);
530
531extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_host_string
532 (SCM string, size_t *lenp, SCM *except);
533
534extern SCM gdbscm_scm_from_host_string (const char *string, size_t len);
535
536/* scm-symbol.c */
537
538extern int syscm_is_symbol (SCM scm);
539
540extern SCM syscm_scm_from_symbol (struct symbol *symbol);
541
543 (SCM self, int arg_pos, const char *func_name);
544
545/* scm-symtab.c */
546
547extern SCM stscm_scm_from_symtab (struct symtab *symtab);
548
549extern SCM stscm_scm_from_sal (struct symtab_and_line sal);
550
551/* scm-type.c */
552
553struct type_smob;
554
555extern int tyscm_is_type (SCM scm);
556
557extern SCM tyscm_scm_from_type (struct type *type);
558
559extern type_smob *tyscm_get_type_smob_arg_unsafe (SCM type_scm, int arg_pos,
560 const char *func_name);
561
562extern struct type *tyscm_scm_to_type (SCM t_scm);
563
564extern struct type *tyscm_type_smob_type (type_smob *t_smob);
565
566extern SCM tyscm_scm_from_field (SCM type_scm, int field_num);
567
568/* scm-value.c */
569
570extern struct value *vlscm_scm_to_value (SCM scm);
571
572extern int vlscm_is_value (SCM scm);
573
574extern SCM vlscm_scm_from_value (struct value *value);
575extern SCM vlscm_scm_from_value_no_release (struct value *value);
576
578 (const char *func_name, int obj_arg_pos, SCM obj,
579 int type_arg_pos, SCM type_scm, struct type *type, SCM *except_scmp,
580 struct gdbarch *gdbarch, const struct language_defn *language);
581
583 (const char *func_name, int obj_arg_pos, SCM obj, SCM *except_scmp,
584 struct gdbarch *gdbarch, const struct language_defn *language);
585
586/* stript_lang methods */
587
590
591/* Return true if auto-loading Guile scripts is enabled.
592 This is the extension_language_script_ops.auto_load_enabled "method". */
593
594extern bool gdbscm_auto_load_enabled (const struct extension_language_defn *);
595
596extern void gdbscm_preserve_values
597 (const struct extension_language_defn *,
598 struct objfile *, htab_t copied_types);
599
601 (const struct extension_language_defn *,
602 struct value *val,
603 struct ui_file *stream, int recurse,
604 const struct value_print_options *options,
605 const struct language_defn *language);
606
607extern int gdbscm_breakpoint_has_cond (const struct extension_language_defn *,
608 struct breakpoint *b);
609
611 (const struct extension_language_defn *, struct breakpoint *b);
612
613/* Initializers for each piece of Scheme support, in alphabetical order. */
614
615extern void gdbscm_initialize_arches (void);
616extern void gdbscm_initialize_auto_load (void);
617extern void gdbscm_initialize_blocks (void);
618extern void gdbscm_initialize_breakpoints (void);
619extern void gdbscm_initialize_commands (void);
620extern void gdbscm_initialize_disasm (void);
621extern void gdbscm_initialize_exceptions (void);
622extern void gdbscm_initialize_frames (void);
623extern void gdbscm_initialize_iterators (void);
624extern void gdbscm_initialize_lazy_strings (void);
625extern void gdbscm_initialize_math (void);
626extern void gdbscm_initialize_objfiles (void);
627extern void gdbscm_initialize_pretty_printers (void);
628extern void gdbscm_initialize_parameters (void);
629extern void gdbscm_initialize_ports (void);
630extern void gdbscm_initialize_pspaces (void);
631extern void gdbscm_initialize_smobs (void);
632extern void gdbscm_initialize_strings (void);
633extern void gdbscm_initialize_symbols (void);
634extern void gdbscm_initialize_symtabs (void);
635extern void gdbscm_initialize_types (void);
636extern void gdbscm_initialize_values (void);
637
638
639/* A complication with the Guile code is that we have two types of
640 exceptions to consider. GDB/C++ exceptions, and Guile/SJLJ
641 exceptions. Code that is facing the Guile interpreter must not
642 throw GDB exceptions, instead Scheme exceptions must be thrown.
643 Also, because Guile exceptions are SJLJ based, Guile-facing code
644 must not use local objects with dtors, unless wrapped in a scope
645 with a TRY/CATCH, because the dtors won't otherwise be run when a
646 Guile exceptions is thrown. */
647
648/* This is a destructor-less clone of gdb_exception. */
649
651{
652 enum return_reason reason;
653 enum errors error;
654 /* The message is xmalloc'd. */
655 char *message;
656};
657
658/* Return a gdbscm_gdb_exception representing EXC. */
659
661unpack (const gdb_exception &exc)
662{
664 result.reason = exc.reason;
665 result.error = exc.error;
666 if (exc.message == nullptr)
667 result.message = nullptr;
668 else
669 result.message = xstrdup (exc.message->c_str ());
670 /* The message should be NULL iff the reason is zero. */
671 gdb_assert ((result.reason == 0) == (result.message == nullptr));
672 return result;
673}
674
675/* Use this after a TRY/CATCH to throw the appropriate Scheme
676 exception if a GDB error occurred. */
677
678#define GDBSCM_HANDLE_GDB_EXCEPTION(exception) \
679 do { \
680 if (exception.reason < 0) \
681 { \
682 gdbscm_throw_gdb_exception (exception); \
683 /*NOTREACHED */ \
684 } \
685 } while (0)
686
687/* Use this to wrap a callable to throw the appropriate Scheme
688 exception if the callable throws a GDB error. ARGS are forwarded
689 to FUNC. Returns the result of FUNC, unless FUNC returns a Scheme
690 exception, in which case that exception is thrown. Note that while
691 the callable is free to use objects of types with destructors,
692 because GDB errors are C++ exceptions, the caller of gdbscm_wrap
693 must not use such objects, because their destructors would not be
694 called when a Scheme exception is thrown. */
695
696template<typename Function, typename... Args>
697SCM
698gdbscm_wrap (Function &&func, Args &&... args)
699{
700 SCM result = SCM_BOOL_F;
702
703 try
704 {
705 result = func (std::forward<Args> (args)...);
706 }
707 catch (const gdb_exception &except)
708 {
709 exc = unpack (except);
710 }
711
713
714 if (gdbscm_is_exception (result))
715 gdbscm_throw (result);
716
717 return result;
718}
719
720#endif /* GUILE_GUILE_INTERNAL_H */
const char *const name
command_class
Definition command.h:43
language
Definition defs.h:211
ext_lang_rc
Definition extension.h:165
void objfile_script_sourcer_func(const struct extension_language_defn *, struct objfile *, FILE *stream, const char *filename)
Definition extension.h:49
ext_lang_bp_stop
Definition extension.h:138
void objfile_script_executor_func(const struct extension_language_defn *, struct objfile *, const char *name, const char *script)
Definition extension.h:55
static void ATTRIBUTE_PRINTF(1, 0)
Definition gdb_bfd.c:1150
size_t size
Definition go32-nat.c:241
SCM gdbscm_make_out_of_range_error(const char *subr, int arg_pos, SCM bad_value, const char *error)
const char gdbscm_print_excp_none[]
Definition guile.c:56
int gdbscm_scm_string_to_int(SCM string)
Definition scm-string.c:32
void gdbscm_debug_write(SCM obj)
Definition scm-utils.c:104
void gdbscm_initialize_symtabs(void)
Definition scm-symtab.c:677
SCM gdbscm_make_invalid_object_error(const char *subr, int arg_pos, SCM bad_value, const char *error)
void itscm_set_iterator_smob_progress_x(iterator_smob *i_smob, SCM progress)
void gdbscm_init_eqable_gsmob(eqable_gdb_smob *base, SCM containing_scm)
Definition scm-gsmob.c:162
void gdbscm_initialize_types(void)
Definition scm-type.c:1460
SCM tyscm_scm_from_field(SCM type_scm, int field_num)
Definition scm-type.c:459
SCM gdbscm_make_type_error(const char *subr, int arg_pos, SCM bad_value, const char *expected_type)
SCM itscm_iterator_smob_object(iterator_smob *i_smob)
struct value * vlscm_convert_value_from_scheme(const char *func_name, int obj_arg_pos, SCM obj, SCM *except_scmp, struct gdbarch *gdbarch, const struct language_defn *language)
Definition scm-math.c:855
struct type * tyscm_type_smob_type(type_smob *t_smob)
Definition scm-type.c:115
SCM gdbscm_scm_from_printf(const char *format,...) ATTRIBUTE_PRINTF(1
void gdbscm_print_exception_with_stack(SCM port, SCM stack, SCM key, SCM args)
#define GDB_SMOB_HEAD
SCM gdbscm_wrap(Function &&func, Args &&... args)
void gdbscm_initialize_parameters(void)
Definition scm-param.c:1187
struct value * vlscm_convert_typed_value_from_scheme(const char *func_name, int obj_arg_pos, SCM obj, int type_arg_pos, SCM type_scm, struct type *type, SCM *except_scmp, struct gdbarch *gdbarch, const struct language_defn *language)
Definition scm-math.c:716
SCM vlscm_scm_from_value_no_release(struct value *value)
Definition scm-value.c:268
void gdbscm_initialize_strings(void)
Definition scm-string.c:273
int syscm_is_symbol(SCM scm)
Definition scm-symbol.c:213
void gdbscm_initialize_commands(void)
Definition scm-cmd.c:852
SCM itscm_iterator_smob_progress(iterator_smob *i_smob)
void gdbscm_initialize_pspaces(void)
const char * gdbscm_print_excp
Definition guile.c:73
void lsscm_val_print_lazy_string(SCM string, struct ui_file *stream, const struct value_print_options *options)
int gdbscm_breakpoint_has_cond(const struct extension_language_defn *, struct breakpoint *b)
void gdbscm_parse_function_args(const char *function_name, int beginning_arg_pos, const SCM *keywords, const char *format,...)
Definition scm-utils.c:528
objfile_smob * ofscm_objfile_smob_from_objfile(struct objfile *objfile)
int gdbscm_guile_minor_version
Definition guile.c:47
enum ext_lang_rc gdbscm_apply_val_pretty_printer(const struct extension_language_defn *, struct value *val, struct ui_file *stream, int recurse, const struct value_print_options *options, const struct language_defn *language)
struct value * vlscm_scm_to_value(SCM scm)
Definition scm-value.c:310
void gdbscm_initialize_iterators(void)
SCM gdbscm_documentation_symbol
void gdbscm_memory_error(const char *subr, const char *msg, SCM args) ATTRIBUTE_NORETURN
int vlscm_is_value(SCM scm)
Definition scm-value.c:233
int tyscm_is_type(SCM scm)
Definition scm-type.c:291
gdbscm_gdb_exception unpack(const gdb_exception &exc)
void gdbscm_misc_error(const char *subr, int arg_pos, SCM bad_value, const char *error) ATTRIBUTE_NORETURN
void gdbscm_preserve_values(const struct extension_language_defn *, struct objfile *, htab_t copied_types)
Definition scm-value.c:88
htab_t gdbscm_create_eqable_gsmob_ptr_map(htab_hash hash_fn, htab_eq eq_fn)
Definition scm-gsmob.c:213
SCM gdbscm_make_misc_error(const char *subr, int arg_pos, SCM bad_value, const char *error)
int gdbscm_is_procedure(SCM proc)
Definition scm-utils.c:592
SCM lsscm_make_lazy_string(CORE_ADDR address, int length, const char *encoding, struct type *type)
void gdbscm_init_gsmob(gdb_smob *base)
Definition scm-gsmob.c:140
void gdbscm_print_gdb_exception(SCM port, SCM exception)
SCM vlscm_scm_from_value(struct value *value)
Definition scm-value.c:251
SCM stscm_scm_from_sal(struct symtab_and_line sal)
Definition scm-symtab.c:444
SCM gdbscm_scm_from_gdb_exception(const gdbscm_gdb_exception &exception)
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 *)
void gdbscm_dynwind_xfree(void *ptr)
Definition scm-utils.c:584
void gdbscm_initialize_symbols(void)
Definition scm-symbol.c:801
char * gdbscm_parse_command_name(const char *name, const char *func_name, int arg_pos, struct cmd_list_element ***base_list, struct cmd_list_element **start_list)
Definition scm-cmd.c:470
SCM gdbscm_safe_apply_1(SCM proc, SCM arg0, SCM args, excp_matcher_func *ok_excps)
enum ext_lang_bp_stop gdbscm_breakpoint_cond_says_stop(const struct extension_language_defn *, struct breakpoint *b)
void void gdbscm_debug_display(SCM obj)
Definition scm-utils.c:92
SCM gdbscm_safe_call_4(SCM proc, SCM arg0, SCM arg1, SCM arg2, SCM arg3, excp_matcher_func *ok_excps)
objfile_script_sourcer_func gdbscm_source_objfile_script
char * gdbscm_gc_xstrdup(const char *)
Definition scm-utils.c:600
SCM ofscm_scm_from_objfile(struct objfile *objfile)
SCM gdbscm_scm_from_longest(LONGEST l)
Definition scm-utils.c:546
void gdbscm_initialize_exceptions(void)
SCM ofscm_objfile_smob_pretty_printers(objfile_smob *o_smob)
Definition scm-objfile.c:68
gdb::unique_xmalloc_ptr< char > gdbscm_exception_message_to_string(SCM exception)
SCM gdbscm_make_iterator(SCM object, SCM progress, SCM next)
frame_smob * frscm_get_frame_smob_arg_unsafe(SCM frame_scm, int arg_pos, const char *func_name)
Definition scm-frame.c:342
const char gdbscm_module_name[]
void gdbscm_initialize_disasm(void)
Definition scm-disasm.c:306
SCM gdbscm_make_memory_error(const char *subr, const char *msg, SCM args)
SCM gdbscm_exception_key(SCM excp)
SCM tyscm_scm_from_type(struct type *type)
Definition scm-type.c:308
void gdbscm_out_of_range_error(const char *subr, int arg_pos, SCM bad_value, const char *error) ATTRIBUTE_NORETURN
int lsscm_is_lazy_string(SCM scm)
void gdbscm_initialize_values(void)
Definition scm-value.c:1525
void gdbscm_init_chained_gsmob(chained_gdb_smob *base)
Definition scm-gsmob.c:150
type_smob * tyscm_get_type_smob_arg_unsafe(SCM type_scm, int arg_pos, const char *func_name)
Definition scm-type.c:347
SCM gdbscm_safe_call_2(SCM proc, SCM arg0, SCM arg1, excp_matcher_func *ok_excps)
SCM gdbscm_safe_call_1(SCM proc, SCM arg0, excp_matcher_func *ok_excps)
int() gsmob_pred_func(SCM)
void gdbscm_define_variables(const scheme_variable *, int is_public)
Definition scm-utils.c:29
SCM bkscm_scm_from_block(const struct block *block, struct objfile *objfile)
Definition scm-block.c:238
void gdbscm_initialize_math(void)
Definition scm-math.c:970
const char gdbscm_print_excp_message[]
Definition guile.c:58
SCM gdbscm_call_guile(SCM(*func)(void *), void *data, excp_matcher_func *ok_excps)
excp_matcher_func gdbscm_memory_error_p
void gdbscm_clear_eqable_gsmob_ptr_slot(htab_t htab, eqable_gdb_smob *base)
Definition scm-gsmob.c:251
SCM arscm_scm_from_arch(struct gdbarch *gdbarch)
Definition scm-arch.c:115
void gdbscm_throw_gdb_exception(gdbscm_gdb_exception exception) ATTRIBUTE_NORETURN
SCM gdbscm_string_string
SCM itscm_safe_call_next_x(SCM iter, excp_matcher_func *ok_excps)
ULONGEST gdbscm_scm_to_ulongest(SCM u)
Definition scm-utils.c:576
int excp_matcher_func(SCM key)
char * gdbscm_canonicalize_command_name(const char *name, int want_trailing_space)
Definition scm-cmd.c:583
LONGEST gdbscm_scm_to_longest(SCM l)
Definition scm-utils.c:557
SCM gdbscm_scm_from_ulongest(ULONGEST l)
Definition scm-utils.c:565
SCM gdbscm_invalid_object_error_symbol
void gdbscm_printf(SCM port, const char *format,...) ATTRIBUTE_PRINTF(2
const char * gdbscm_with_guile(const char *(*func)(void *), void *data)
SCM gdbscm_safe_call_0(SCM proc, excp_matcher_func *ok_excps)
void gdbscm_initialize_arches(void)
Definition scm-arch.c:648
SCM gdbscm_scm_from_string(const char *string, size_t len, const char *charset, int strict)
Definition scm-string.c:177
int gdbscm_guile_major_version
Definition guile.c:46
gdb::unique_xmalloc_ptr< char > gdbscm_safe_source_script(const char *filename)
SCM gdb::unique_xmalloc_ptr< char > gdbscm_scm_to_string(SCM string, size_t *lenp, const char *charset, int strict, SCM *except_scmp)
Definition scm-string.c:117
int gdbscm_guile_version_is_at_least(int major, int minor, int micro)
Definition scm-utils.c:644
gdb::unique_xmalloc_ptr< char > gdbscm_scm_to_c_string(SCM string)
Definition scm-string.c:55
SCM gdbscm_make_error_scm(SCM key, SCM subr, SCM message, SCM args, SCM data)
struct symbol * syscm_get_valid_symbol_arg_unsafe(SCM self, int arg_pos, const char *func_name)
Definition scm-symbol.c:308
SCM gdbscm_unsafe_call_1(SCM proc, SCM arg0)
struct type * tyscm_scm_to_type(SCM t_scm)
Definition scm-type.c:359
void gdbscm_define_integer_constants(const scheme_integer_constant *, int is_public)
Definition scm-utils.c:63
void gdbscm_initialize_lazy_strings(void)
void gdbscm_initialize_smobs(void)
Definition scm-gsmob.c:274
void gdbscm_initialize_blocks(void)
Definition scm-block.c:778
const struct block * bkscm_scm_to_block(SCM block_scm, int arg_pos, const char *func_name, SCM *excp)
Definition scm-block.c:345
int itscm_is_iterator(SCM scm)
void gdbscm_initialize_frames(void)
Definition scm-frame.c:1193
void gdbscm_initialize_auto_load(void)
gdb::unique_xmalloc_ptr< char > gdbscm_safe_eval_string(const char *string, int display_result)
SCM gdbscm_make_exception_with_stack(SCM key, SCM args, SCM stack)
const char * itscm_iterator_smob_name(void)
const char gdbscm_init_module_name[]
SCM gdbscm_exception_args(SCM excp)
void gdbscm_initialize_pretty_printers(void)
static SCM scm_new_smob(scm_t_bits tc, scm_t_bits data)
void gdbscm_initialize_breakpoints(void)
int gdbscm_is_exception(SCM scm)
void gdbscm_define_functions(const scheme_function *, int is_public)
Definition scm-utils.c:44
void gdbscm_initialize_objfiles(void)
eqable_gdb_smob ** gdbscm_find_eqable_gsmob_ptr_slot(htab_t htab, eqable_gdb_smob *base)
Definition scm-gsmob.c:226
struct frame_info_ptr frscm_frame_smob_to_frame(frame_smob *)
Definition scm-frame.c:365
const char gdbscm_print_excp_full[]
Definition guile.c:57
int frscm_is_frame(SCM scm)
Definition scm-frame.c:218
#define GDBSCM_HANDLE_GDB_EXCEPTION(exception)
void gdbscm_fill_eqable_gsmob_ptr_slot(eqable_gdb_smob **slot, eqable_gdb_smob *base)
Definition scm-gsmob.c:237
int gdbscm_valid_command_class_p(int command_class)
Definition scm-cmd.c:561
struct gdbarch * arscm_get_gdbarch(arch_smob *a_smob)
Definition scm-arch.c:90
int itscm_is_end_of_iteration(SCM obj)
SCM gdbscm_map_string
scm_t_bits gdbscm_make_smob_type(const char *name, size_t size)
Definition scm-gsmob.c:103
SCM psscm_pspace_smob_pretty_printers(const pspace_smob *)
const char *const * gdbscm_gc_dup_argv(char **argv)
Definition scm-utils.c:613
SCM stscm_scm_from_symtab(struct symtab *symtab)
Definition scm-symtab.c:228
SCM gdbscm_array_string
void gdbscm_throw(SCM exception) ATTRIBUTE_NORETURN
gdb::unique_xmalloc_ptr< char > gdbscm_scm_to_host_string(SCM string, size_t *lenp, SCM *except)
Definition scm-string.c:217
bool gdbscm_auto_load_enabled(const struct extension_language_defn *)
pspace_smob * psscm_pspace_smob_from_pspace(struct program_space *)
SCM gdbscm_scm_from_host_string(const char *string, size_t len)
Definition scm-string.c:227
SCM itscm_get_iterator_arg_unsafe(SCM self, int arg_pos, const char *func_name)
struct value * lsscm_safe_lazy_string_to_value(SCM string, int arg_pos, const char *func_name, SCM *except_scmp)
SCM syscm_scm_from_symbol(struct symbol *symbol)
Definition scm-symbol.c:230
int gdb_scheme_initialized
arch_smob * arscm_get_arch_smob_arg_unsafe(SCM arch_scm, int arg_pos, const char *func_name)
Definition scm-arch.c:151
void gdbscm_initialize_ports(void)
Definition scm-ports.c:1614
objfile_script_executor_func gdbscm_execute_objfile_script
static scm_t_subr as_a_scm_t_subr(SCM(*func)(void))
SCM gdbscm_end_of_iteration(void)
excp_matcher_func gdbscm_user_error_p
int gdbscm_guile_micro_version
Definition guile.c:48
SCM gdbscm_make_error(SCM key, const char *subr, const char *message, SCM args, SCM data)
SCM gdbscm_safe_call_3(SCM proc, SCM arg0, SCM arg1, SCM arg2, excp_matcher_func *ok_excps)
SCM gdbscm_scm_from_c_string(const char *string)
Definition scm-string.c:45
SCM gdbscm_make_exception(SCM tag, SCM args)
void gdbscm_enter_repl(void)
void(* func)(remote_target *remote, char *)
Definition block.h:109
GDB_SMOB_HEAD chained_gdb_smob * prev
chained_gdb_smob * next
GDB_SMOB_HEAD SCM containing_scm
enum return_reason reason
Definition gnu-nat.h:58
const char * name
const char * doc_string
const char * doc_string
const char * name
Definition value.c:181