/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by nickrob, Tue Feb 8 11:53:43 2005 UTC revision 1.46 by kfstorm, Wed Feb 9 15:50:36 2005 UTC
# Line 59  Line 59 
59  ;;    of 'info registers'.  ;;    of 'info registers'.
60  ;; 3) Use tree-widget.el instead of the speedbar for watch-expressions?  ;; 3) Use tree-widget.el instead of the speedbar for watch-expressions?
61  ;; 4) Mark breakpoint locations on scroll-bar of source buffer?  ;; 4) Mark breakpoint locations on scroll-bar of source buffer?
62  ;; 5) After release of 21.4 use '-var-list-children --all-values'  ;; 5) After release of 22.1 use '-var-list-children --all-values'
63  ;;    and '-stack-list-locals 2' which need GDB 6.1 onwards.  ;;    and '-stack-list-locals 2' which need GDB 6.1 onwards.
64    
65  ;;; Code:  ;;; Code:
# Line 183  detailed description of this mode. Line 183  detailed description of this mode.
183    "Non-nil means record the process input and output in `gdb-debug-log'."    "Non-nil means record the process input and output in `gdb-debug-log'."
184    :type 'boolean    :type 'boolean
185    :group 'gud    :group 'gud
186    :version "21.4")    :version "22.1")
187    
188  (defcustom gdb-use-inferior-io-buffer nil  (defcustom gdb-use-inferior-io-buffer nil
189    "Non-nil means display output from the inferior in a separate buffer."    "Non-nil means display output from the inferior in a separate buffer."
190    :type 'boolean    :type 'boolean
191    :group 'gud    :group 'gud
192    :version "21.4")    :version "22.1")
193    
194  (defun gdb-ann3 ()  (defun gdb-ann3 ()
195    (setq gdb-debug-log nil)    (setq gdb-debug-log nil)
# Line 268  detailed description of this mode. Line 268  detailed description of this mode.
268    "If non-nil use FUN::VAR format to display variables in the speedbar." ;    "If non-nil use FUN::VAR format to display variables in the speedbar." ;
269    :type 'boolean    :type 'boolean
270    :group 'gud    :group 'gud
271    :version "21.4")    :version "22.1")
272    
273  (defun gud-watch ()  (defun gud-watch ()
274    "Watch expression at point."    "Watch expression at point."
# Line 441  detailed description of this mode. Line 441  detailed description of this mode.
441  The highlighting is done with `font-lock-warning-face'."  The highlighting is done with `font-lock-warning-face'."
442    :type 'boolean    :type 'boolean
443    :group 'gud    :group 'gud
444    :version "21.4")    :version "22.1")
445    
446  (defun gdb-speedbar-expand-node (text token indent)  (defun gdb-speedbar-expand-node (text token indent)
447    "Expand the node the user clicked on.    "Expand the node the user clicked on.
# Line 491  The key should be one of the cars in `gd Line 491  The key should be one of the cars in `gd
491               (name (funcall (gdb-rules-name-maker rules)))               (name (funcall (gdb-rules-name-maker rules)))
492               (new (get-buffer-create name)))               (new (get-buffer-create name)))
493          (with-current-buffer new          (with-current-buffer new
494            (let ((trigger))                    (let ((trigger))
495              (if (cdr (cdr rules))              (if (cdr (cdr rules))
496                  (setq trigger (funcall (car (cdr (cdr rules))))))                  (setq trigger (funcall (car (cdr (cdr rules))))))
497              (set (make-local-variable 'gdb-buffer-type) key)              (set (make-local-variable 'gdb-buffer-type) key)
# Line 691  This filter may simply queue input for a Line 691  This filter may simply queue input for a
691    "Default command to execute an executable under the GDB-UI debugger."    "Default command to execute an executable under the GDB-UI debugger."
692    :type 'string    :type 'string
693    :group 'gud    :group 'gud
694    :version "21.4")    :version "22.1")
695    
696  (defvar gdb-annotation-rules  (defvar gdb-annotation-rules
697    '(("pre-prompt" gdb-pre-prompt)    '(("pre-prompt" gdb-pre-prompt)
# Line 789  not GDB." Line 789  not GDB."
789          (setq gud-running t)          (setq gud-running t)
790          (if gdb-use-inferior-io-buffer          (if gdb-use-inferior-io-buffer
791              (setq gdb-output-sink 'inferior))))              (setq gdb-output-sink 'inferior))))
792       (t       (t
793        (gdb-resync)        (gdb-resync)
794        (error "Unexpected `starting' annotation")))))        (error "Unexpected `starting' annotation")))))
795    
# Line 1205  static char *magick[] = { Line 1205  static char *magick[] = {
1205          (with-selected-window (posn-window posn)          (with-selected-window (posn-window posn)
1206            (save-excursion            (save-excursion
1207              (goto-char (posn-point posn))              (goto-char (posn-point posn))
1208              (if              (if
1209  ;               (or  ;               (or
1210                   (posn-object posn)                   (posn-object posn)
1211  ;                (eq (car (fringe-bitmaps-at-pos (posn-point posn)))  ;                (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
# Line 1544  static char *magick[] = { Line 1544  static char *magick[] = {
1544    "Number of data items in memory window."    "Number of data items in memory window."
1545    :type 'integer    :type 'integer
1546    :group 'gud    :group 'gud
1547    :version "21.4")    :version "22.1")
1548    
1549  (defcustom gdb-memory-format "x"  (defcustom gdb-memory-format "x"
1550    "Display format of data items in memory window."    "Display format of data items in memory window."
# Line 1554  static char *magick[] = { Line 1554  static char *magick[] = {
1554                   (const :tag "Octal" "o")                   (const :tag "Octal" "o")
1555                   (const :tag "Binary" "t"))                   (const :tag "Binary" "t"))
1556    :group 'gud    :group 'gud
1557    :version "21.4")    :version "22.1")
1558    
1559  (defcustom gdb-memory-unit "w"  (defcustom gdb-memory-unit "w"
1560    "Unit size of data items in memory window."    "Unit size of data items in memory window."
# Line 1563  static char *magick[] = { Line 1563  static char *magick[] = {
1563                   (const :tag "Word" "w")                   (const :tag "Word" "w")
1564                   (const :tag "Giant word" "g"))                   (const :tag "Giant word" "g"))
1565    :group 'gud    :group 'gud
1566    :version "21.4")    :version "22.1")
1567    
1568  (gdb-set-buffer-rules 'gdb-memory-buffer  (gdb-set-buffer-rules 'gdb-memory-buffer
1569                        'gdb-memory-buffer-name                        'gdb-memory-buffer-name
# Line 1753  corresponding to the mode line clicked." Line 1753  corresponding to the mode line clicked."
1753    (use-local-map gdb-memory-mode-map)    (use-local-map gdb-memory-mode-map)
1754    (setq header-line-format    (setq header-line-format
1755          '(:eval          '(:eval
1756            (concat            (concat
1757             "Read address: "             "Read address: "
1758             (propertize gdb-memory-address             (propertize gdb-memory-address
1759                         'face font-lock-warning-face                         'face font-lock-warning-face
# Line 1957  corresponding to the mode line clicked." Line 1957  corresponding to the mode line clicked."
1957    "Nil means don't display source file containing the main routine."    "Nil means don't display source file containing the main routine."
1958    :type 'boolean    :type 'boolean
1959    :group 'gud    :group 'gud
1960    :version "21.4")    :version "22.1")
1961    
1962  (defun gdb-set-window-buffer (name)  (defun gdb-set-window-buffer (name)
1963    (set-window-buffer (selected-window) (get-buffer name))    (set-window-buffer (selected-window) (get-buffer name))
# Line 2001  of the inferior.  Non-nil means display Line 2001  of the inferior.  Non-nil means display
2001  `gdba'."  `gdba'."
2002    :type 'boolean    :type 'boolean
2003    :group 'gud    :group 'gud
2004    :version "21.4")    :version "22.1")
2005    
2006  (defun gdb-many-windows (arg)  (defun gdb-many-windows (arg)
2007    "Toggle the number of windows in the basic arrangement."    "Toggle the number of windows in the basic arrangement."

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26