emacs/gud-guile.el

   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
  17 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18 ;; Boston, MA 02111-1307, USA.
  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