gdb-shell.el version 0.1

[Tom Tromey]

This is a minor mode for use in a *shell* buffer.  It notices when you
type something like 'make' or 'ant' and automatically enables
compilation-shell-minor-mode.  It also notices when you try to invoke
'gdb', and rather than invoke gdb in the shell, it instead uses the
gdb mode in Emacs.  The nice thing about the latter feature is that it
preserves your working directory, and also works if you use 'gdb --args'.

I'll upload this to ELPA shortly... as always that is the simplest way
to install this :-)

I think this mode probably won't do what you might expect if you type
"gdb foo" in the middle of a loop or as input to some other program
that is running in the shell buffer.  I haven't looked into fixing
this yet.

Tom

;;; gdb-shell.el --- minor mode to add gdb features to shell

;; Copyright (C) 2007 Tom Tromey <address@hidden>

;; Author: Tom Tromey <address@hidden>
;; Created: 17 Apr 2007
;; Version: 0.1
;; Keywords: tools

;; This file is not (yet) part of GNU Emacs.
;; However, it is distributed under the same license.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; This minor mode will recognize various commands in shell mode and
;; take one of two actions.  For "build" commands (currently make,
;; valgrind, and ant), it will enable compilation-shell-minor-mode.
;; For "gdb", it will invoke Emacs' built-in gdb rather than running
;; it in the shell buffer.  This is especially handy if you use
;; "gdb --args".

;;; Code:

(defconst gdb-shell-gdb-regexp "^\\(gdb\\)\\( .*\\)$")

;; no need for this, just run compilation-shell-minor-mode
;; yourself.  duh.
(defconst gdb-shell-make-regexp "^\\(make\\|valgrind\\|ant\\) ")

(defun gdb-shell-input-sender (proc string)
  (save-match-data
    (if (string-match gdb-shell-gdb-regexp string)
        (let ((gud-chdir-before-run nil))
          (if (boundp 'gud-gdb-command-name)
              ;; Emacs 22.
              (setq string (concat gud-gdb-command-name
                                   (match-string 2 string)))
            ;; Emacs 21.
            (setq string (concat (match-string 1 string)
                                 ;; We could use -cd but there doesn't
                                 ;; seem to be a reason to.
                                 " -fullname"
                                 (match-string 2 string))))
          ;; We only need this for Emacs 21, but it is simpler to
          ;; always do it.
          (flet ((gud-gdb-massage-args (file args) args))
            (gdb string))
          (setq string ""))
      (if (string-match gdb-shell-make-regexp string)
          (compilation-shell-minor-mode))))
  (comint-simple-send proc string))

;;;###autoload
(define-minor-mode gdb-shell-minor-mode
  "Minor mode to add gdb features to shell mode."
  nil
  ""
  nil
  (if gdb-shell-mode
      (progn
        (make-local-variable 'comint-input-sender)
        (setq comint-input-sender 'gdb-shell-input-sender))
    (setq comint-input-sender 'comint-simple-send)))

;;; gdb-shell.el ends here