diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-06-02 23:46:27 -0700 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-06-02 23:46:27 -0700 |
| commit | ded0378278c7bbd5c6049446032b28196a5cfb38 (patch) | |
| tree | 783ba05381595d6a6d4f95f693848614d3671f2b /gdb/guile/guile-internal.h | |
| parent | 397998fc32a34d3c8993ef46da45c3957a4dd402 (diff) | |
| download | gdb-ded0378278c7bbd5c6049446032b28196a5cfb38.zip gdb-ded0378278c7bbd5c6049446032b28196a5cfb38.tar.gz gdb-ded0378278c7bbd5c6049446032b28196a5cfb38.tar.bz2 | |
Add progspace support for Guile.
* Makefile.in (SUBDIR_GUILE_OBS): Add scm-progspace.o.
(SUBDIR_GUILE_SRCS): Add scm-progspace.c.
(scm-progspace.o): New rule.
* guile/guile-internal.h (pspace_smob): New typedef.
(psscm_pspace_smob_pretty_printers): Declare.
(psscm_pspace_smob_from_pspace): Declare.
(psscm_scm_from_pspace): Declare.
* guile/guile.c (initialize_gdb_module): Call
gdbscm_initialize_pspaces.
* guile/lib/gdb.scm: Export progspace symbols.
* guile/lib/gdb/printing.scm (prepend-pretty-printer!): Add progspace
support.
(append-pretty-printer!): Ditto.
* guile/scm-pretty-print.c (ppscm_find_pretty_printer_from_progspace):
Implement.
* guile/scm-progspace.c: New file.
doc/
* guile.texi (Guile API): Add entry for Progspaces In Guile.
(GDB Scheme Data Types): Mention <gdb:progspace> object.
(Progspaces In Guile): New node.
testsuite/
* gdb.guile/scm-pretty-print.exp: Add tests for objfile and progspace
pretty-printer lookup.
* gdb.guile/scm-pretty-print.scm (pp_s-printer): New function.
(make-pp_s-printer): Call it.
(make-pretty-printer-from-dict): New function.
(lookup-pretty-printer-maker-from-dict): New function.
(*pretty-printer*): Simplify.
(make-objfile-pp_s-printer): New function.
(install-objfile-pretty-printers!): New function.
(make-progspace-pp_s-printer): New function.
(install-progspace-pretty-printers!): New function.
* gdb.guile/scm-progspace.c: New file.
* gdb.guile/scm-progspace.exp: New file.
Diffstat (limited to 'gdb/guile/guile-internal.h')
| -rw-r--r-- | gdb/guile/guile-internal.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index ff891b5..9f6a886 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -438,6 +438,16 @@ extern objfile_smob *ofscm_objfile_smob_from_objfile (struct objfile *objfile); extern SCM ofscm_scm_from_objfile (struct objfile *objfile); +/* scm-progspace.c */ + +typedef struct _pspace_smob pspace_smob; + +extern SCM psscm_pspace_smob_pretty_printers (const pspace_smob *); + +extern pspace_smob *psscm_pspace_smob_from_pspace (struct program_space *); + +extern SCM psscm_scm_from_pspace (struct program_space *); + /* scm-string.c */ extern char *gdbscm_scm_to_c_string (SCM string); @@ -542,6 +552,7 @@ extern void gdbscm_initialize_math (void); extern void gdbscm_initialize_objfiles (void); extern void gdbscm_initialize_pretty_printers (void); extern void gdbscm_initialize_ports (void); +extern void gdbscm_initialize_pspaces (void); extern void gdbscm_initialize_smobs (void); extern void gdbscm_initialize_strings (void); extern void gdbscm_initialize_symbols (void); |