1 ;;; gud-guile.el --- Support for debugging guile internals
3 ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
5 ;;;; This library is free software; you can redistribute it and/or
6 ;;;; modify it under the terms of the GNU Lesser General Public
7 ;;;; License as published by the Free Software Foundation; either
8 ;;;; version 3 of the License, or (at your option) any later version.
10 ;;;; This library 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 GNU
13 ;;;; Lesser General Public License for more details.
15 ;;;; You should have received a copy of the GNU Lesser General Public
16 ;;;; License along with this library; if not, write to the Free
17 ;;;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 ;;; Author: Thien-Thi Nguyen <ttn@gnu.org>
22 ;;; Favorite-Favorite: Favorite-Favorite
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
35 (defun gdb-guile-display-scm ()
38 (let ((sym (thing-at-point 'symbol
))
39 (proc (get-buffer-process
40 (find-if (lambda (buf)
41 (string-match "^.gud-." (buffer-name buf
)))
43 (mapc (lambda (template)
44 (process-send-string proc
(format template sym
)))
47 "printf \"%s: %%s\\n\", gdb_output\n")))))
49 (defvar gdb-guile-suggested-gdbinit
"
55 Executes (object->string arg)
60 call gdb_eval(gdb_result)
61 set gdb_print(gdb_result)
65 Executes (print (eval (read arg))): ge \"(+ 1 2)\" => 3
69 call g_help(scm_str2symbol($arg0), 20)
74 Prints help string for arg: gh \"enved-target\"
81 ;;; gud-guile.el ends here