как я перехватываю команды, отправленные в pdb через gud? - PullRequest
Новая
       29

как я перехватываю команды, отправленные в pdb через gud?

8 голосов
/ 07 июня 2011

Я начал использовать pdb через gud в emacs 23.3, как мне перехватить командные сообщения, отправленные отладчику из буфера? ниже я написал совет для использования с gdb, чтобы сохранить кольцо коминта, но не могу найти эквивалентную функцию для перехвата pdb. Я использую python-mode.el в качестве основного режима.

спасибо. 

(defadvice gdb-send-item (before gdb-save-history first nil activate)
  "write input ring on quit"
  (if (equal (type-of item) 'string) ; avoid problems with 'unprintable' structures sent to this function..
    (if (string-match "^q\\(u\\|ui\\|uit\\)?$" item)
      (progn (comint-write-input-ring)
             (message "history file '%s' written" comint-input-ring-file-name)))))

1 Ответ

1 голос
/ 17 июля 2011

Я думаю, что, возможно, я мог бы ответить на свой собственный вопрос в то время, просто немного покопавшись, но первое решение GDB скорее забрало его у меня на старом фронте обучения.я выздоровел, так что ...

Ch b Cs Major

после небольшой прокрутки мы можем определить 'comint-send-input' как функцию, связанную с клавишей 'enter'.Если взглянуть на источник этой функции, comint.el: 1765 - это вызов 'run-hook-with-args' .. здесь мы понимаем, что нигде конкретно 'pdb' не может делать то, что мы хотим.

gud - это универсальная оболочка для вызова внешних процессов отладки и возврата результатов .. поэтому в elisp отсутствует контроль.то же самое было и с GDB, но вокруг внешнего вызова была хорошая (существовавшая) оболочка, которая давала рекомендации этой функции чувствовать себя «чистой».

так что хак .. чуть выше 'comint-send-Ввод 'лежит' comint-add-to-input-history '.. Dead Easy. 

;;save command history
(defadvice comint-add-to-input-history (before pdb-save-history activate compile)
  "write input ring on exit"
  (message "%s" cmd)
  (if (string-match "^e\\(x\\|xi\\|xit\\)?$" cmd)
  (progn (comint-write-input-ring)
     (message "history file '%s' written" comint-input-ring-file-name)))
)

Кстати, у меня есть эти, чтобы инициировать входное кольцо для сеансов отладки 

;#debugger history
(defun debug-history-ring (file)
  (comint-read-input-ring t)
  (setq comint-input-ring-file-name file)
  (setq comint-input-ring-size 1000)
  (setq comint-input-ignoredups t))
(let ((hooks '((gdb-mode-hook . (lambda () (debug-history-ring "~/.gdbhist")))
       (pdb-mode-hook . (lambda () (debug-history-ring  "~/.pythonhist"))))))
  (dolist (hook hooks) (print (cdr hook)) (add-hook (car hook) (cdr hook))))

.. и записать в файл истории, если буфер отладки уничтожен 

  (add-hook 'kill-buffer-hook 'comint-write-input-ring)

cheers.

...