改造Emacs GDB调试的多窗口布局

转自：http://ppgunjack.iteye.com/blog/1179657

Emacs支持多窗口的GDB调试，要打开GDB的多窗口模式只需要设置Emacs全局变量gdb-many-windows 为true。

但默认的多窗口感觉并不够用，没有汇编窗口，在学习一些语言底层实现的时候有时还需要看看汇编和寄存器内容。

 

研究Emacs的GBD ui脚本发现Emacs的GDB多窗口布局不是定义在配置文件，而是固化在程序中实现的。

这里写了个函数改造了一下窗口布局，下面代码在Linux下应该放入.emacs文件，如果window下则放入_emacs文件。

该函数注册成一个切面函数，会在Emacs构建GDB的多窗口结束时被调用，额外再创建出几个窗口，用来显示汇编、内存和寄存器。

 

;;启动gdb-many-windows时加载的钩子函数，改变many-windows的默认布局，这个钩子函数不能勾在gdb-setup-windows，因为此时assamble-buffer还没完成初始化，不能set到window
(defadvice gdb-frame-handler-1 (after activate)
  (if gdb-use-separate-io-buffer
      (advice_separate_io)
    (advice_no_separate_io)))

;;生成没有单独IO窗口的gdb布局
(defun advice_no_separate_io()
;;默认的生成gdb-assembler-buffer的函数本身也会设计调用gdb-frame-handler-1，加入此条件发生避免无限递归调用
  (if (not (gdb-get-buffer 'gdb-assembler-buffer))
      (progn
    (shrink-window-horizontally ( / (window-width) 3))

    (other-window 1)
    (split-window-horizontally)

    (other-window 1)
    (gdb-set-window-buffer (gdb-stack-buffer-name))

    (other-window 1)
    (split-window-horizontally)

    (other-window 1)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-assembler-buffer))

    (split-window-horizontally  (/ ( * (window-width) 2) 3))

    (other-window 1)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-registers-buffer))

    (other-window 1)
    (toggle-current-window-dedication)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-memory-buffer))
    (toggle-current-window-dedication)

    (other-window 2)
    )))

;;生成有单独IO窗口的gdb布局
(defun advice_separate_io()
;;默认的生成gdb-assembler-buffer的函数本身也会设计调用gdb-frame-handler-1，加入此条件发生避免无限递归调用
  (if (not (gdb-get-buffer 'gdb-assembler-buffer))
      (progn
    (split-window-horizontally)
    (enlarge-window-horizontally ( / (window-width) 3))
    (other-window 1)

    ;;此处不能使用(gdb-set-window-buffer (gdb-get-buffer-create 'gdb-inferior-io))代替，
    ;;因为在打开gdb-use-separate-io-buffer的状态时，它还会额外调用一些函数将gdb的input，output定位到该buffer
    (gdb-set-window-buffer (gdb-inferior-io-name))

    (other-window 1)
    (split-window-horizontally)

    (other-window 1)
    (gdb-set-window-buffer (gdb-stack-buffer-name))

    (other-window 1)

    (other-window 1)
    (toggle-current-window-dedication)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-assembler-buffer))
    (toggle-current-window-dedication)

    (split-window-horizontally  (/ ( * (window-width) 2) 3))

    (other-window 1)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-registers-buffer))

    (other-window 1)
    (toggle-current-window-dedication)
    (gdb-set-window-buffer (gdb-get-buffer-create 'gdb-memory-buffer))
    (toggle-current-window-dedication)

    (other-window 2)
    )))

 

语句defadvice gdb-frame-handler-1 (after activate) 这里定义了一个切面函数，和spring中切面函数一样，Lisp中的切面函数也可以在pre，post，around三种模式下被调用，这里after activate相当于是post，即该函数会在函数gdb-frame-handler-1被调用完毕后才被调用。

 

GDB的多窗口有两种模式，一种是程序的标准输入输出和GDB自身命令的输入输出会在分离的两个窗口显示，另一种则是程序输入输出都会在GDB命令行中一起输出，具体区别看图就知道了。

下面是分离出程序IO的多窗口模式：

下面是没有分离IO的多窗口模式：

 

激活分离IO模式的多窗口调试可以通过在.emacs/_emacs文件中添加：

(setq gdb-use-separate-io-buffer 1)

该语句作用是定义变量gdb-use-separate-io-buffer为非空。

 

如果要不单独分离出程序IO的窗口模式，则可以注释掉上面的语句，或者设置成：

(setq gdb-use-separate-io-buffer nil)

 

已知的问题：

如果该函数是在ECB已经被activate的情况下被调用（即在ECB环境下启动GDB）会出错。

原因应该是ECB默认的起始窗口不同，导致我代码中的（other-window 1）焦点会移动到错位的窗口上从而引发错误。可以通过在这段代码启动阶段增加重定位窗口焦点来解决，不过因为暂时还用不着ECB并且窗口函数也不熟，先不花力气了，有兴趣的人可以自己尝试。

 

下面也是要注意的问题，但是来自Emacs

1.Input/output窗口需要在程序运行后用鼠标滚动一下，或者按up键，才能显示出程序输出的内容，不过这应该是Emacs实现的问题，默认Emacs也是这种情况(似乎和字体大小和分辨率都相关，在我笔记本上11号Consolas字体就正常，而同样配置在台式机会出现这个问题)

2.Emacs窗口在反复最大化和窗口化过程中，窗口大小的相对比例会逐渐改变，每个水平、竖直方向的窗口大小都会慢慢变一致，水平分割的窗口平分宽度，垂直划分的窗口平分高度。不过同样这也是Emacs的问题。