Commit | Line | Data |
---|---|---|
78b1e5ad TTN |
1 | ;;; gud-guile.el --- Support for debugging guile internals |
2 | ||
3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | |
4 | ||
5 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
6 | ;; it under the terms of the GNU General Public License as published by | |
7 | ;; the Free Software Foundation; either version 2, or (at your option) | |
8 | ;; any later version. | |
9 | ||
10 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
11 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | ;; GNU General Public License for more details. | |
14 | ||
15 | ;; You should have received a copy of the GNU General Public License | |
16 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
92205699 MV |
17 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
18 | ;; Boston, MA 02110-1301, USA. | |
78b1e5ad TTN |
19 | |
20 | ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> | |
21 | ;;; Version: 1 | |
22 | ;;; Favorite-Favorite: Favorite-Favorite | |
23 | ||
24 | ;;; Commentary: | |
25 | ||
26 | ;; This is a grab bag of stuff for doing "gdb guile" in Emacs. | |
27 | ;; The var `gdb-guile-suggested-gdbinit' has a string that is | |
28 | ;; snarfed from ../HACKING. (todo: Write `gdb-guile-init' to | |
29 | ;; send it to gdb...) | |
30 | ||
31 | ;;; Code: | |
32 | ||
33 | (require 'cl) | |
34 | ||
35 | (defun gdb-guile-display-scm () | |
36 | (interactive) | |
37 | (save-excursion | |
38 | (let ((sym (thing-at-point 'symbol)) | |
39 | (proc (get-buffer-process | |
40 | (find-if (lambda (buf) | |
41 | (string-match "^.gud-." (buffer-name buf))) | |
42 | (buffer-list))))) | |
43 | (mapc (lambda (template) | |
44 | (process-send-string proc (format template sym))) | |
45 | (list | |
46 | "set gdb_print(%s)\n" | |
47 | "printf \"%s: %%s\\n\", gdb_output\n"))))) | |
48 | ||
49 | (defvar gdb-guile-suggested-gdbinit " | |
50 | define gp | |
51 | set gdb_print($arg0) | |
52 | print gdb_output | |
53 | end | |
54 | document gp | |
55 | Executes (object->string arg) | |
56 | end | |
57 | ||
58 | define ge | |
59 | call gdb_read($arg0) | |
60 | call gdb_eval(gdb_result) | |
61 | set gdb_print(gdb_result) | |
62 | print gdb_output | |
63 | end | |
64 | document ge | |
65 | Executes (print (eval (read arg))): ge \"(+ 1 2)\" => 3 | |
66 | end | |
67 | ||
68 | define gh | |
69 | call g_help(scm_str2symbol($arg0), 20) | |
70 | set gdb_print($1) | |
71 | print gdb_output | |
72 | end | |
73 | document gh | |
74 | Prints help string for arg: gh \"enved-target\" | |
75 | end | |
76 | " | |
77 | "A useful .gdbinit") | |
78 | ||
79 | (provide 'gud-guile) | |
80 | ||
81 | ;;; gud-guile.el ends here |