comparison lisp/tooltip.el @ 48925:cd1c70649388

(tooltip-gud-tips): Output tooltip without switching process filter (gdba in gdb-ui.el only). (gdb-tooltip-print): New function. (tooltip-gud-process-output): Undo previous change. (tooltip-strip-annotations): Remove.

48924:cd327aadc095

;;; Code:

(eval-when-compile
  (require 'cl)
  (require 'comint)
  (require 'gud))


;;; Customizable settings

(defgroup tooltip nil

  (when (interactive-p)
    (message "Dereferencing is now %s."
	     (if tooltip-gud-dereference "on" "off"))))

; This will only display data that comes in one chunk. 
; The prompt is lost in first chunk so needn't be stripped. 
; Larger arrays (say 400 elements) are displayed in
; the tootip incompletely (only the last chunk is displayed
; with the rest going to the gud buffer).
; Switching the process-filter creates timing problems and
; it may be difficult to do better.
(defun tooltip-gud-process-output (process output)
  "Process debugger output and show it in a tooltip window."
  (set-process-filter process tooltip-gud-original-filter)
  (case gud-minor-mode
    (gdba (tooltip-show (tooltip-strip-annotations output)))
    (t (tooltip-show (tooltip-strip-prompt process output)))))

; this is derived from gdb-output-burst in gdb-ui.el. It
; also only processes data that comes in one chunk properly.
(defun tooltip-strip-annotations (string)
  "Strip annotations from the output of the gdb process."
  (save-match-data
    (let ((output ""))

      ;; Process all the complete markers in this chunk.
      (while (string-match "\n\032\032\\(.*\\)\n" string)

	;; Stuff prior to the match is just ordinary output.
	;; It is either concatenated to OUTPUT or directed
	;; elsewhere.
	(setq output
	      (gdb-concat-output 
	       output
	       (substring string 0 (match-beginning 0))))

	;; Take that stuff off the string.
	(setq string (substring string (match-end 0))))
      output)))

(defun tooltip-gud-print-command (expr)
  "Return a suitable command to print the expression EXPR.
If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
  (when tooltip-gud-dereference

		      (eval (cons 'and tooltip-gud-display))))
      (let ((expr (tooltip-expr-to-print event)))
	(when expr
	  (let ((cmd (tooltip-gud-print-command expr)))
	    (unless (null cmd)	       ; CMD can be nil if unknown debugger
	      (setq tooltip-gud-original-filter (process-filter process))
	      (set-process-filter process 'tooltip-gud-process-output)
	      (gud-basic-call cmd)
	      expr)))))))


;;; Tooltip help.

(defvar tooltip-help-message nil

48925:cd1c70649388

;;; Code:

(eval-when-compile
  (require 'cl)
  (require 'comint)
  (require 'gud)
  (require 'gdb-ui))


;;; Customizable settings

(defgroup tooltip nil

  (when (interactive-p)
    (message "Dereferencing is now %s."
	     (if tooltip-gud-dereference "on" "off"))))

; This will only display data that comes in one chunk. 
; Larger arrays (say 400 elements) are displayed in
; the tootip incompletely and spill over into the gud buffer.
; Switching the process-filter creates timing problems and
; it may be difficult to do better. gdba in gdb-ui.el
; gets round this problem.
(defun tooltip-gud-process-output (process output)
  "Process debugger output and show it in a tooltip window."
  (set-process-filter process tooltip-gud-original-filter)
  (tooltip-show (tooltip-strip-prompt process output)))

(defun tooltip-gud-print-command (expr)
  "Return a suitable command to print the expression EXPR.
If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
  (when tooltip-gud-dereference

		      (eval (cons 'and tooltip-gud-display))))
      (let ((expr (tooltip-expr-to-print event)))
	(when expr
	  (let ((cmd (tooltip-gud-print-command expr)))
	    (unless (null cmd)	       ; CMD can be nil if unknown debugger
	      (case gud-minor-mode
		    (gdba (gdb-enqueue-input 
			   (list  (concat cmd "\n") 'gdb-tooltip-print)))
		    (t 
		     (setq tooltip-gud-original-filter (process-filter process))
		       (set-process-filter process 'tooltip-gud-process-output)
		       (gud-basic-call cmd)))
		    expr)))))))

(defun gdb-tooltip-print ()
  (tooltip-show 
   (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
     (buffer-string))))


;;; Tooltip help.

(defvar tooltip-help-message nil